Revision: 42962
http://brlcad.svn.sourceforge.net/brlcad/?rev=42962&view=rev
Author: bob1961
Date: 2011-02-03 16:07:51 +0000 (Thu, 03 Feb 2011)
Log Message:
-----------
Remember whether or not to show things like the view axes, model axes, view
params, scale etc.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-02-03 15:35:32 UTC
(rev 42961)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-02-03 16:07:51 UTC
(rev 42962)
@@ -8738,6 +8738,17 @@
puts $_pfile "set mVPaneToggle5 $mVPaneToggle5"
puts $_pfile "set mWindowGeometry [winfo geometry [namespace tail $this]]"
+
+ puts $_pfile "set mShowViewAxes $mShowViewAxes"
+ puts $_pfile "set mShowModelAxes $mShowModelAxes"
+ puts $_pfile "set mShowGroundPlane $mShowGroundPlane"
+ puts $_pfile "set mShowPrimitiveLabels $mShowPrimitiveLabels"
+ puts $_pfile "set mShowViewingParams $mShowViewingParams"
+ puts $_pfile "set mShowScale $mShowScale"
+ puts $_pfile "set mLighting $mLighting"
+ puts $_pfile "set mShowGrid $mShowGrid"
+ puts $_pfile "set mSnapGrid $mSnapGrid"
+ puts $_pfile "set mShowADC $mShowADC"
}
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-02-03 15:35:32 UTC
(rev 42961)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-02-03 16:07:51 UTC
(rev 42962)
@@ -667,7 +667,7 @@
variable mText2Node
variable mNodePDrawList
variable mNodeDrawList
- variable mAffectedNodeList
+ variable mAffectedNodeList ""
# init functions
method initImages {}
@@ -1708,26 +1708,6 @@
bind $itk_component(rtcntrl) <FocusOut> "raise $itk_component(rtcntrl)"
wm protocol $itk_component(rtcntrl) WM_DELETE_WINDOW
"$itk_component(rtcntrl) deactivate"
- # create view axes control panel
- # itk_component add vac {
- # ViewAxesControl $itk_interior.vac -mged $itk_component(ged)
- # } {
- # usual
- # }
-
- # create model axes control panel
- # itk_component add mac {
- # ModelAxesControl $itk_interior.mac -mged $itk_component(ged)
- # } {
- # usual
- # }
-
- # wm protocol $itk_component(vac) WM_DELETE_WINDOW "$itk_component(vac)
hide"
- # wm protocol $itk_component(mac) WM_DELETE_WINDOW "$itk_component(mac)
hide"
-
- # $itk_component(ged) configure -unitsCallback "$itk_component(mac)
updateControlPanel"
- $itk_component(ged) configure -paneCallback [::itcl::code $this
updateActivePane]
-
# Other bindings for mged
#bind $itk_component(ged) <Enter> {focus %W}
@@ -1780,7 +1760,42 @@
}
bind $itk_component(canvasF) <Configure> [::itcl::code $this
updateRtControl]
- setActivePane ur
+
+ set mActivePane 1
+ set mActivePaneName ur
+
+ if {$mShowViewAxes} {
+ showViewAxes
+ }
+ if {$mShowModelAxes} {
+ showModelAxes
+ }
+ if {$mShowGroundPlane} {
+ showGroundPlane
+ }
+ if {$mShowPrimitiveLabels} {
+ showPrimitiveLabels
+ }
+ if {$mShowViewingParams} {
+ showViewParams
+ }
+ if {$mShowScale} {
+ showScale
+ }
+ if {$mLighting} {
+ doLighting
+ }
+ if {$mShowGrid} {
+ showGrid
+ }
+ if {$mSnapGrid} {
+ snapGrid
+ }
+ if {$mShowADC} {
+ showADC
+ }
+
+ $itk_component(ged) configure -paneCallback [::itcl::code $this
updateActivePane]
}
::itcl::body ArcherCore::closeMged {} {
@@ -5706,6 +5721,10 @@
}
::itcl::body ArcherCore::watchVar {_name1 _name2 _op} {
+ if {![info exists itk_component(ged)]} {
+ return
+ }
+
switch -- $_name1 {
mFBBackgroundColor {
$itk_component(rtcntrl) configure -color
[cadwidgets::Ged::get_rgb_color $mFBBackgroundColor]
@@ -5717,7 +5736,7 @@
$itk_component(ged) configure -measuringStickColor
$mMeasuringStickColor
}
mMeasuringStickMode {
- $itk_component(ged) configure -measuringStickMode
$mMeasuringStickMode
+ $itk_component(ged) configure -measuringStickMode
$mMeasuringStickMode
}
mModelAxesColor {
if {$mModelAxesColor == "Triple"} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)!
Finally, a world-class log management solution at an even better price-free!
Download using promo code Free_Logger_4_Dev2Dev. Offer expires
February 28th, so secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsight-sfd2d
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
