Revision: 54383 http://brlcad.svn.sourceforge.net/brlcad/?rev=54383&view=rev Author: bob1961 Date: 2013-02-11 17:15:43 +0000 (Mon, 11 Feb 2013) Log Message: ----------- Tighten up the display of radiobuttons in the EtoEditFrame and TorusEditFrame's lower panel.
Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl Modified: brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl 2013-02-11 16:59:41 UTC (rev 54382) +++ brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl 2013-02-11 17:15:43 UTC (rev 54383) @@ -405,7 +405,7 @@ ::itcl::body EtoEditFrame::buildLowerPanel {} { set parent [$this childsite lower] - + set row 0 foreach {attribute op opLabel} {r set Set r_d set Set C set Set C rot Rotate} { itk_component add $op$attribute { ::ttk::radiobutton $parent.$op\_$attribute \ @@ -415,9 +415,8 @@ -command [::itcl::code $this initEditState] } {} - pack $itk_component($op$attribute) \ - -anchor w \ - -expand yes + grid $itk_component($op$attribute) -row $row -column 0 -sticky nsew + incr row } } Modified: brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl 2013-02-11 16:59:41 UTC (rev 54382) +++ brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl 2013-02-11 17:15:43 UTC (rev 54383) @@ -256,7 +256,7 @@ ::itcl::body TorusEditFrame::buildLowerPanel {} { set parent [$this childsite lower] - + set row 0 foreach attribute {r_a r_h} { itk_component add set$attribute { ::ttk::radiobutton $parent.set_$attribute \ @@ -266,9 +266,8 @@ -command [::itcl::code $this initEditState] } {} - pack $itk_component(set$attribute) \ - -anchor w \ - -expand yes + grid $itk_component(set$attribute) -row $row -column 0 -sticky nsew + incr row } } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ------------------------------------------------------------------------------ Free Next-Gen Firewall Hardware Offer Buy your Sophos next-gen firewall before the end March 2013 and get the hardware for free! Learn more. http://p.sf.net/sfu/sophos-d2d-feb _______________________________________________ BRL-CAD Source Commits mailing list brlcad-commits@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/brlcad-commits