Revision: 54176
http://brlcad.svn.sourceforge.net/brlcad/?rev=54176&view=rev
Author: bob1961
Date: 2013-01-15 17:28:15 +0000 (Tue, 15 Jan 2013)
Log Message:
-----------
Minor tweak to restore the graphical display after deleting the currently
selected sketch.
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 2013-01-15 14:45:03 UTC
(rev 54175)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2013-01-15 17:28:15 UTC
(rev 54176)
@@ -2047,6 +2047,7 @@
if {![$itk_component(ged) exists $mSelectedObj]} {
$itk_component(ged) configure -primitiveLabels {}
initDbAttrView $mDbName
+ restoreCanvas
}
}
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-01-15 14:45:03 UTC
(rev 54175)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-01-15 17:28:15 UTC
(rev 54176)
@@ -2134,15 +2134,16 @@
set slave [grid slaves $itk_component(canvasF)]
if {[llength $slave] == 1 && $slave != $itk_component(ged)} {
grid forget $slave
- }
- if {!$mViewOnly} {
- grid $itk_component(ged) -row 0 -column 0 -columnspan 3 -sticky news
- } else {
- grid $itk_component(ged) -row 1 -column 0 -sticky news
+ if {!$mViewOnly} {
+ grid $itk_component(ged) -row 0 -column 0 -columnspan 3 -sticky news
+ } else {
+ grid $itk_component(ged) -row 1 -column 0 -sticky news
+ }
}
}
+
::itcl::body ArcherCore::setCanvas {_canvas} {
if {![info exists itk_component(ged)]} {
return
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Master SQL Server Development, Administration, T-SQL, SSAS, SSIS, SSRS
and more. Get SQL Server skills now (including 2012) with LearnDevNow -
200+ hours of step-by-step video tutorials by Microsoft MVPs and experts.
SALE $99.99 this month only - learn more at:
http://p.sf.net/sfu/learnmore_122512
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
