--- a/NewLauncher.st	Fri Sep 18 14:43:17 2009 +0200
+++ b/NewLauncher.st	Fri Sep 18 18:18:55 2009 +0200
@@ -3392,6 +3392,15 @@
     ^ holder
 !
 
+historyManagerActive
+    "Answer whether the history manager is active."
+
+    ^[HistoryManager isActive]
+
+    "Created: / 20-06-2004 / 16:05:41 / masca"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+!
+
 isMainLauncherHolder
     ^ [ isMainLauncher ]
 !
@@ -3532,7 +3541,7 @@
     SourceCodeManager notNil ifTrue:[
         SourceCodeManager isCVS ifTrue:[
             cvsRepository := SourceCodeManager repositoryName.
-            (cvsRepository startsWith:':pserver:') ifTrue:[
+            (cvsRepository notNil and:[cvsRepository startsWith:':pserver:']) ifTrue:[
                 cvsRepository := cvsRepository copyFrom:':pserver:'size+1.
             ].
         ] ifFalse:[
@@ -4439,6 +4448,12 @@
 
 !NewLauncher methodsFor:'user actions-file'!
 
+clearTranscript
+    Transcript current contents:''
+
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+!
+
 saveImage
     "save image"
 
@@ -4524,6 +4539,17 @@
 
 startSQLWorkspace
     self openApplication:'SQL::ODBCScratchpad'.
+!
+
+toggleHistoryManager
+    "Toggle history manager usage."
+
+    HistoryManager isActive
+        ifTrue: [HistoryManager deactivate]
+        ifFalse: [HistoryManager activate]
+
+    "Created: / 20-06-2004 / 16:08:09 / masca"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
 ! !
 
 !NewLauncher methodsFor:'user actions-windows'!
@@ -4602,5 +4628,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.386 2009-06-07 10:16:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.387 2009-09-18 16:18:55 cg Exp $'
 ! !