[brlcad-commits] CVS: brlcad/src/tclscripts/archer Archer.tcl, 1.50, 1.51

[Bob P. <bo...@us...>]

Update of /cvsroot/brlcad/brlcad/src/tclscripts/archer
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv14039

Modified Files:
	Archer.tcl 
Log Message:
Added code to change the prompt. Also move a few class variables to ArcherCore.

Index: Archer.tcl
===================================================================
RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/archer/Archer.tcl,v
retrieving revision 1.50
retrieving revision 1.51
diff -w -u -r1.50 -r1.51
--- Archer.tcl	13 Dec 2007 20:53:51 -0000	1.50
+++ Archer.tcl	14 Dec 2007 21:33:51 -0000	1.51
@@ -100,7 +100,7 @@
     }
 }
 
-LoadArcherLibs $env(ARCHER_HOME)
+LoadArcherLibs
 package require ArcherCore 1.0
 package provide Archer 1.0
 
@@ -114,9 +114,6 @@
 
     public {
 	# Public Class Variables
-	common archer ""
-	common splash ""
-	common showWindow 0
 	common plugins ""
 
 	# Plugins Section
@@ -386,10 +383,6 @@
 	}
     }
 
-    # Remove buttons added by ArcherCore
-#    $itk_component(primaryToolbar) delete open
-#    $itk_component(primaryToolbar) delete save
-
     # Populate the primary toolbar
     $itk_component(primaryToolbar) insert 0 button new \
 	-balloonstr "Create a new geometry file" \
@@ -741,6 +734,10 @@
     set mInstanceInit 0
     updateTheme
 
+    # Change the command window's prompt
+    $itk_component(cmd) configure -prompt "Archer> "
+    $itk_component(cmd) reinitialize
+
     eval itk_initialize $args
 }