Revision: 33269
http://brlcad.svn.sourceforge.net/brlcad/?rev=33269&view=rev
Author: bob1961
Date: 2008-12-02 16:38:21 +0000 (Tue, 02 Dec 2008)
Log Message:
-----------
Activate wizard plugins and the primitive creation buttons in Archer.
Modified Paths:
--------------
brlcad/trunk/src/archer/plugins/Wizards/tankwizardIA/TankWizardIA.tcl
brlcad/trunk/src/tclscripts/archer/Archer.tcl
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/archer/plugins/Wizards/tankwizardIA/TankWizardIA.tcl
===================================================================
--- brlcad/trunk/src/archer/plugins/Wizards/tankwizardIA/TankWizardIA.tcl
2008-12-02 16:19:49 UTC (rev 33268)
+++ brlcad/trunk/src/archer/plugins/Wizards/tankwizardIA/TankWizardIA.tcl
2008-12-02 16:38:21 UTC (rev 33269)
@@ -490,7 +490,7 @@
set wizardXmlAction buildTankXML
set wizardUnits in
- set savedUnits [$archersMged units]
+ set savedUnits [$archersMged units -s]
$archersMged units $_originUnits
set sf1 [$archersMged local2base]
$archersMged units $wizardUnits
@@ -1274,7 +1274,7 @@
$archersMged attachObservers
}
- $archersMged refreshAll
+ $archersMged refresh_all
$archersMged configure -autoViewEnable 1
}
@@ -1283,7 +1283,7 @@
initRegionIds
$archer pluginUpdateStatusBar "Building Tank..."
- set savedUnits [$archersMged units]
+ set savedUnits [$archersMged units -s]
$archersMged units $wizardUnits
set local2base [$archersMged local2base]
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2008-12-02 16:19:49 UTC
(rev 33268)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2008-12-02 16:38:21 UTC
(rev 33269)
@@ -962,7 +962,7 @@
if {[info exists itk_component(mged)]} {
SetWaitCursor
- set savedUnits [$itk_component(mged) units]
+ set savedUnits [$itk_component(mged) units -s]
$itk_component(mged) units in
$itk_component(mged) configure -autoViewEnable 0
$itk_component(mged) detachObservers
@@ -1198,11 +1198,11 @@
applyPreferences
doLighting
updateModesMenu
-# updateWizardMenu
+ updateWizardMenu
updateUtilityMenu
deleteTargetOldCopy
-# updateCreationButtons 1
+ updateCreationButtons 1
buildGroundPlane
showGroundPlane
@@ -5688,7 +5688,7 @@
} else {
if {[catch {$itk_component(mged) attr get $mWizardTop WizardOrigin}
wizOrigin]} {
set wizOrigin [dbCmd center]
- set wizUnits [dbCmd units]
+ set wizUnits [dbCmd units -s]
} elseif {[catch {$itk_component(mged) attr get $mWizardTop
WizardUnits} wizUnits]} {
set wizUnits mm
}
@@ -6027,7 +6027,7 @@
set name [dbCmd make_name $name]
set oname $name
set origin [dbCmd center]
- set units [dbCmd units]
+ set units [dbCmd units -s]
set dialog $itk_interior.wizardDialog
::iwidgets::dialog $dialog \
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2008-12-02 16:19:49 UTC
(rev 33268)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2008-12-02 16:38:21 UTC
(rev 33269)
@@ -1870,7 +1870,7 @@
set delta [expr {[magnitude $diff] * [dbCmd base2local]}]
tk_messageBox -title "Measured Distance" \
-icon info \
- -message "Measured distance: $delta [dbCmd units]"
+ -message "Measured distance: $delta [dbCmd units -s]"
}
@@ -2408,7 +2408,7 @@
set mCenterY [lindex $center 1]
set mCenterZ [lindex $center 2]
- set mDbUnits [dbCmd units]
+ set mDbUnits [dbCmd units -s]
$itk_component(centerDialog) center [namespace tail $this]
if {[$itk_component(centerDialog) activate]} {
$dm center $mCenterX $mCenterY $mCenterZ
@@ -2887,7 +2887,7 @@
}
set mDbTitle [$itk_component(mged) title]
- set mDbUnits [$itk_component(mged) units]
+ set mDbUnits [$itk_component(mged) units -s]
set mPrevObjViewMode $OBJ_ATTR_VIEW_MODE
set mPrevSelectedObjPath ""
set mPrevSelectedObj ""
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
