Revision: 42263
http://brlcad.svn.sourceforge.net/brlcad/?rev=42263&view=rev
Author: bob1961
Date: 2011-01-14 15:28:54 +0000 (Fri, 14 Jan 2011)
Log Message:
-----------
Move raytracePlus to the public section.
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-01-14 15:02:32 UTC
(rev 42262)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-01-14 15:28:54 UTC
(rev 42263)
@@ -151,10 +151,10 @@
method pluginUpdateStatusBar {msg}
method importFg4Sections {_slist _wlist _delta}
- method setDefaultBindingMode {_mode}
# General
method askToRevert {}
+ method raytracePlus {}
# ArcherCore Override Section
method 3ptarb {args}
@@ -227,6 +227,7 @@
method vmake {args}
method initImages {}
method initFbImages {}
+ method setDefaultBindingMode {_mode}
# Object Edit Management
method checkpoint {_obj _type}
@@ -314,7 +315,6 @@
method fbModeToggle {}
method fbToggle {}
method rtEndCallback {_aborted}
- method raytracePlus {}
#XXX Need to split up menuStatusCB into one method per menu
method menuStatusCB {_w}
@@ -938,6 +938,30 @@
}
+::itcl::body Archer::raytracePlus {} {
+ $itk_component(primaryToolbar) itemconfigure raytrace \
+ -image $mImage_rtAbort \
+ -command "$itk_component(rtcntrl) abort"
+ $itk_component(rtcntrl) raytracePlus
+}
+
+
+::itcl::body Archer::askToRevert {} {
+ if {!$mNeedSave} {
+ return 0
+ }
+
+ $itk_component(revertDialog) center [namespace tail $this]
+ ::update
+ if {[$itk_component(revertDialog) activate]} {
+ revert
+ return 1
+ }
+
+ return 0
+}
+
+
::itcl::body Archer::3ptarb {args} {
eval ArcherCore::gedWrapper 3ptarb 0 0 1 1 $args
}
@@ -1966,22 +1990,6 @@
################################### Protected Section
###################################
-::itcl::body Archer::askToRevert {} {
- if {!$mNeedSave} {
- return 0
- }
-
- $itk_component(revertDialog) center [namespace tail $this]
- ::update
- if {[$itk_component(revertDialog) activate]} {
- revert
- return 1
- }
-
- return 0
-}
-
-
################################### ArcherCore Override Section
###################################
::itcl::body Archer::buildCommandView {} {
@@ -4673,14 +4681,6 @@
}
-::itcl::body Archer::raytracePlus {} {
- $itk_component(primaryToolbar) itemconfigure raytrace \
- -image $mImage_rtAbort \
- -command "$itk_component(rtcntrl) abort"
- $itk_component(rtcntrl) raytracePlus
-}
-
-
::itcl::body Archer::menuStatusCB {_w} {
if {$mDoStatus} {
# entry might not support -label (i.e. tearoffs)
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Protect Your Site and Customers from Malware Attacks
Learn about various malware tactics and how to avoid them. Understand
malware threats, the impact they can have on your business, and how you
can protect your company and customers by using code signing.
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
