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