Revision: 42904
http://brlcad.svn.sourceforge.net/brlcad/?rev=42904&view=rev
Author: bob1961
Date: 2011-02-02 16:46:50 +0000 (Wed, 02 Feb 2011)
Log Message:
-----------
Added code to remember Archer's window size.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-02-02 16:45:18 UTC
(rev 42903)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-02-02 16:46:50 UTC
(rev 42904)
@@ -307,6 +307,7 @@
method doAboutArcher {}
method doarcherHelp {}
method doarcherMan {}
+ method handleConfigure {}
method launchDisplayMenuBegin {_dm _m _x _y}
method launchDisplayMenuEnd {}
method fbActivePaneCallback {_pane}
@@ -558,8 +559,11 @@
$itk_component(primaryToolbar) itemconfigure new -state normal
$itk_component(primaryToolbar) itemconfigure preferences -state normal
+
::update
Load ""
+
+ bind [namespace tail $this] <Configure> [::itcl::code $this
handleConfigure]
}
@@ -4644,7 +4648,14 @@
}
+::itcl::body Archer::handleConfigure {} {
+ if {$mWindowGeometry != ""} {
+ wm geometry [namespace tail $this] $mWindowGeometry
+ }
+ bind [namespace tail $this] <Configure> {}
+}
+
::itcl::body Archer::launchDisplayMenuBegin {_dm _m _x _y} {
set mCurrentPaneName $_dm
tk_popup $_m $_x $_y
@@ -8725,6 +8736,8 @@
puts $_pfile "set mVPaneToggle1 $mVPaneToggle1"
puts $_pfile "set mVPaneToggle3 $mVPaneToggle3"
puts $_pfile "set mVPaneToggle5 $mVPaneToggle5"
+
+ puts $_pfile "set mWindowGeometry [winfo geometry [namespace tail $this]]"
}
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
