[brlcad-commits] CVS: brlcad/src/tclscripts/lib QuadDisplay.tcl, 14.15, 14.16
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: Bob P. <bo...@us...> - 2007-04-11 18:33:21
|
Update of /cvsroot/brlcad/brlcad/src/tclscripts/lib In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv1526 Modified Files: QuadDisplay.tcl Log Message: Update the units command to return the current units if args is an empty string. Index: QuadDisplay.tcl =================================================================== RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/lib/QuadDisplay.tcl,v retrieving revision 14.15 retrieving revision 14.16 diff -w -u -r14.15 -r14.16 --- QuadDisplay.tcl 23 Jan 2007 01:13:50 -0000 14.15 +++ QuadDisplay.tcl 11 Apr 2007 18:33:18 -0000 14.16 @@ -557,6 +557,10 @@ } ::itcl::body QuadDisplay::units {args} { + if {$args == ""} { + return [$itk_component(ul) units] + } + eval $itk_component(ul) units $args eval $itk_component(ur) units $args eval $itk_component(ll) units $args |