Revision: 53656
http://brlcad.svn.sourceforge.net/brlcad/?rev=53656&view=rev
Author: bob1961
Date: 2012-11-13 15:39:31 +0000 (Tue, 13 Nov 2012)
Log Message:
-----------
Update ArcherCore::gedWrapper to call checkIfSelectedObjExists. This method is
overridden in Archer and calls initDbAttrView if the currently selected object
no longer exists.
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 2012-11-13 06:02:37 UTC
(rev 53655)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2012-11-13 15:39:31 UTC
(rev 53656)
@@ -216,6 +216,7 @@
method beginViewScale {}
method beginViewTranslate {}
method buildCommandView {}
+ method checkIfSelectedObjExists {}
method compSelectCallback {_mstring}
method dblClick {_tags}
method handleTreeSelect {}
@@ -2038,6 +2039,13 @@
}
+::itcl::body Archer::checkIfSelectedObjExists {} {
+ if {![$itk_component(ged) exists $mSelectedObj]} {
+ initDbAttrView $mDbName
+ }
+}
+
+
::itcl::body Archer::compSelectCallback {_mstring} {
switch -- $mCompSelectMode \
$COMP_SELECT_LIST_MODE - \
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2012-11-13 06:02:37 UTC
(rev 53655)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2012-11-13 15:39:31 UTC
(rev 53656)
@@ -569,6 +569,7 @@
method handleMoreArgs {args}
+ method checkIfSelectedObjExists {}
method gedWrapper {_cmd _eflag _hflag _sflag _tflag args}
method buildCommandView {}
@@ -1221,6 +1222,12 @@
return [$itk_component(cmd) get_more_args]
}
+
+::itcl::body ArcherCore::checkIfSelectedObjExists {} {
+ # This is a placeholder that gets overridden.
+}
+
+
::itcl::body ArcherCore::gedWrapper {cmd eflag hflag sflag tflag args} {
SetWaitCursor $this
@@ -1255,6 +1262,7 @@
catch {syncTree}
}
}
+ checkIfSelectedObjExists
SetNormalCursor $this
return $ret
@@ -1515,6 +1523,7 @@
}
}
+
::itcl::body ArcherCore::initImages {} {
set dir $mImgDir
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Monitor your physical, virtual and cloud infrastructure from a single
web console. Get in-depth insight into apps, servers, databases, vmware,
SAP, cloud infrastructure, etc. Download 30-day Free Trial.
Pricing starts from $795 for 25 servers or applications!
http://p.sf.net/sfu/zoho_dev2dev_nov
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
