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
