Revision: 54376
http://brlcad.svn.sourceforge.net/brlcad/?rev=54376&view=rev
Author: bob1961
Date: 2013-02-11 14:54:31 +0000 (Mon, 11 Feb 2013)
Log Message:
-----------
Tightened up the display of radiobuttons in the lower panel of the
RhcEditFrame. Also added back in the -validatecommand option the somehow fell
out.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl 2013-02-11 14:14:19 UTC
(rev 54375)
+++ brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl 2013-02-11 14:54:31 UTC
(rev 54376)
@@ -206,19 +206,19 @@
::ttk::entry $parent.rhcVxE \
-textvariable [::itcl::scope mVx] \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcVyE {
::ttk::entry $parent.rhcVyE \
-textvariable [::itcl::scope mVy] \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcVzE {
::ttk::entry $parent.rhcVzE \
-textvariable [::itcl::scope mVz] \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcVUnitsL {
::ttk::label $parent.rhcVUnitsL \
@@ -235,21 +235,21 @@
-textvariable [::itcl::scope mHx] \
-state disabled \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcHyE {
::ttk::entry $parent.rhcHyE \
-textvariable [::itcl::scope mHy] \
-state disabled \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcHzE {
::ttk::entry $parent.rhcHzE \
-textvariable [::itcl::scope mHz] \
-state disabled \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcHUnitsL {
::ttk::label $parent.rhcHUnitsL \
@@ -266,21 +266,21 @@
-textvariable [::itcl::scope mBx] \
-state disabled \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcByE {
::ttk::entry $parent.rhcByE \
-textvariable [::itcl::scope mBy] \
-state disabled \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcBzE {
::ttk::entry $parent.rhcBzE \
-textvariable [::itcl::scope mBz] \
-state disabled \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcBUnitsL {
::ttk::label $parent.rhcBUnitsL \
@@ -296,7 +296,7 @@
::ttk::entry $parent.rhcRE \
-textvariable [::itcl::scope mR] \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcRUnitsL {
::ttk::label $parent.rhcRUnitsL \
@@ -312,7 +312,7 @@
::ttk::entry $parent.rhcCE \
-textvariable [::itcl::scope mC] \
-validate key \
- - {::cadwidgets::Ged::validateDouble %P}
+ -validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
itk_component add rhcCUnitsL {
::ttk::label $parent.rhcCUnitsL \
@@ -394,7 +394,7 @@
::itcl::body RhcEditFrame::buildLowerPanel {} {
set parent [$this childsite lower]
-
+ set row 0
foreach attribute {B H r c} {
itk_component add set$attribute {
::ttk::radiobutton $parent.set_$attribute \
@@ -404,9 +404,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
