Revision: 40905
http://brlcad.svn.sourceforge.net/brlcad/?rev=40905&view=rev
Author: bob1961
Date: 2010-10-06 17:05:43 +0000 (Wed, 06 Oct 2010)
Log Message:
-----------
Removed updateToggleMode from ArcherCore.
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 2010-10-06 17:03:35 UTC
(rev 40904)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-10-06 17:05:43 UTC
(rev 40905)
@@ -524,7 +524,6 @@
pack $itk_component(advancedTabs) -fill both -expand yes
::update
initMode
- updateToggleMode
setTreeView
updateCreationButtons 0
@@ -548,7 +547,8 @@
$itk_component(primaryToolbar) itemconfigure new -state normal
$itk_component(primaryToolbar) itemconfigure preferences -state normal
- after idle [::itcl::code $this Load ""]
+ ::update
+ Load ""
}
@@ -1549,6 +1549,7 @@
}
$itk_component(ged) refresh_off
+
set mDbTitle [$itk_component(ged) title]
set mDbUnits [$itk_component(ged) units -s]
@@ -1588,7 +1589,7 @@
beginViewRotate
}
$itk_component(ged) refresh_on
- $itk_component(ged) refresh
+ $itk_component(ged) refresh_all
SetNormalCursor $this
}
@@ -5995,11 +5996,6 @@
$itk_component(hpane) fraction $mHPaneFraction1 $mHPaneFraction2
$itk_component(vpane) show attrView
- set toggle3 $mVPaneToggle3
- set toggle5 $mVPaneToggle5
- set mVPaneToggle3 $toggle3
- set mVPaneToggle5 $toggle5
-
# How screwed up is this?
$itk_component(vpane) fraction $mVPaneFraction3 $mVPaneFraction4
$mVPaneFraction5
update
@@ -8347,7 +8343,6 @@
if {!$mDelayCommandViewBuild} {
::update
initMode
- updateToggleMode
}
}
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-10-06 17:03:35 UTC
(rev 40904)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-10-06 17:05:43 UTC
(rev 40905)
@@ -508,13 +508,8 @@
method showViewParams {}
method showScale {}
- # pane commands
- method updateToggleMode {}
-
method launchNirt {}
method launchRtApp {_app _size}
- #method refreshDisplay {}
- #method mouseRay {_dm _x _y}
method updateDisplaySettings {}
@@ -4672,14 +4667,6 @@
refreshDisplay
}
-::itcl::body ArcherCore::updateToggleMode {} {
- set toggle3 $mVPaneToggle3
- set toggle5 $mVPaneToggle5
- set mVPaneToggle3 $toggle3
- set mVPaneToggle5 $toggle5
-}
-
-
::itcl::body ArcherCore::launchNirt {} {
putString "nirt -b"
putString [$itk_component(ged) nirt -b]
@@ -4707,7 +4694,8 @@
}
set mCurrentPaneName ""
- $itk_component(ged) pane_refresh $pane
+# $itk_component(ged) pane_refresh $pane
+ $itk_component(ged) refresh_all
}
::itcl::body ArcherCore::putString {_str} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1, ECMAScript5, and DOM L2 & L3.
Spend less time writing and rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
