capa/capa51/GUITools/common.tcl - diff

Return to common.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

version 1.6, 2000/01/10 22:40:30	version 1.7, 2000/01/31 18:34:13
Line 1640 proc lunique __LIST {	Line 1640 proc lunique __LIST {
}	}
}	}

	###########################################################
	# lreverse
	###########################################################
	proc lreverse list {
	set result ""
	foreach element $list { set result [linsert $result 0 $element] }
	return [concat $result]
	}

proc splitline { line maxLength } {	proc splitline { line maxLength } {
set length [string length $line]	set length [string length $line]
set lines [expr $length/$maxLength + 1]	set lines [expr $length/$maxLength + 1]