1# -*- tcl -*-
2#
3# Copyright (c) 2019 Andreas Kupries <andreas_kupries@sourceforge.net>
4# Freely redistributable.
5#
6# _text_margin.tcl -- Margin control
7
8global lmarginIncrement ; set lmarginIncrement 4
9global rmarginThreshold ; set rmarginThreshold 20
10
11proc LMI {} { global lmarginIncrement ; return $lmarginIncrement }
12proc RMT {} { global rmarginThreshold ; return $rmarginThreshold }
13
14proc RMargin {indent} {
15    set rmt [RMT]
16    set rmargin [expr {80 - $indent}]
17    if {$rmargin < $rmt} { set rmargin $rmt }
18    return $rmargin
19}
20
21return
22