Revision: 54386
http://brlcad.svn.sourceforge.net/brlcad/?rev=54386&view=rev
Author: bob1961
Date: 2013-02-11 17:53:28 +0000 (Mon, 11 Feb 2013)
Log Message:
-----------
Tighten up the display of radiobuttons in the HypEditFrame and PartEditFrame's
lower panel.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl 2013-02-11 17:18:34 UTC
(rev 54385)
+++ brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl 2013-02-11 17:53:28 UTC
(rev 54386)
@@ -140,7 +140,7 @@
V [list $mCenterX $mCenterY $mCenterZ] \
H [list 0 0 $mDelta] \
A [list 0 [expr {$mDelta * 0.5}] 0] \
- b [expr {$mDelta * 0.25} \
+ b [expr {$mDelta * 0.25}] \
bnr [expr {$mDelta * 0.1}]
}
@@ -413,7 +413,7 @@
::itcl::body HypEditFrame::buildLowerPanel {} {
set parent [$this childsite lower]
-
+ set row 0
set alist [list H set Set HV set Set A set Set B set Set C set Set H rot
Rotate]
foreach {attribute op opLabel} $alist {
itk_component add $op$attribute {
@@ -424,9 +424,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/PartEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl 2013-02-11
17:18:34 UTC (rev 54385)
+++ brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl 2013-02-11
17:53:28 UTC (rev 54386)
@@ -339,7 +339,7 @@
::itcl::body PartEditFrame::buildLowerPanel {} {
set parent [$this childsite lower]
-
+ set row 0
foreach attribute {H r_v r_h} {
itk_component add set$attribute {
::ttk::radiobutton $parent.set_$attribute \
@@ -349,9 +349,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
