diff -r ed1910b1dd06 -r b36bdfb0af38 AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Thu Apr 22 19:45:14 1999 +0200
+++ b/AbstractLauncherApplication.st	Fri Apr 23 11:39:25 1999 +0200
@@ -64,18 +64,6 @@
     "Modified: 15.1.1997 / 21:15:38 / cg"
 ! !
 
-!AbstractLauncherApplication methodsFor:'actions - classes'!
-
-startChangesBrowser
-    "open a changebrowser"
-
-    self withWaitCursorDo:[
-        UserPreferences current changesBrowserClass open
-    ]
-
-    "Modified: / 17.10.1998 / 14:38:18 / cg"
-! !
-
 !AbstractLauncherApplication methodsFor:'private'!
 
 findWindow:title
@@ -146,41 +134,47 @@
 
 !
 
-openApplication: className
+openApplication: classOrClassName
      "open an application, given by the classe name."
 
-    self openApplication:className nameSpace:nil
+    self openApplication:classOrClassName nameSpace:nil
 !
 
-openApplication:className nameSpace:aNameSpace
+openApplication:classOrClassName nameSpace:aNameSpace
     "open some application, given the classes name.
      Look for it in Smalltalk and the given nameSpace"
 
-    self openApplication:className nameSpace:aNameSpace with:#open
+    self openApplication:classOrClassName nameSpace:aNameSpace with:#open
 !
 
-openApplication:className nameSpace:aNameSpace with:aSelector
+openApplication:classOrClassName nameSpace:aNameSpace with:aSelector
     "open some application, given the classes name.
      Look for it in Smalltalk and the given nameSpace"
 
     |cls|
 
-    cls := Smalltalk at:className asSymbol.
-    cls isNil ifTrue:[
-	"/ look if its in the nameSpace
-	aNameSpace notNil ifTrue:[
-	    cls := aNameSpace at:className asSymbol
-	]
+    classOrClassName isBehavior ifTrue:[
+        cls := classOrClassName.
+    ] ifFalse:[
+        cls := Smalltalk at:classOrClassName asSymbol.
+        cls isNil ifTrue:[
+            "/ look if its in the nameSpace
+            aNameSpace notNil ifTrue:[
+                cls := aNameSpace at:classOrClassName asSymbol
+            ]
+        ].
+        cls isNil ifTrue:[
+            self warn:(resources string:'Sorry, the %1 class is not available.' with:classOrClassName).
+            ^ self
+        ].
     ].
 
-    cls isNil ifTrue:[
-	self warn:(resources string:'Sorry, the %1 class is not available.' with:className).
-    ] ifFalse:[
-	Autoload autoloadFailedSignal handle:[:ex |
-	    self warn:(resources string:'Sorry, the %1 class seems to be not available.' with:className)
-	] do:[
-	    self withWaitCursorDo:[cls perform:aSelector]
-	]
+    Autoload autoloadFailedSignal handle:[:ex |
+        self warn:(resources string:'Sorry, the %1 class seems to be not available.' with:cls name)
+    ] do:[
+        self withWaitCursorDo:[
+            cls perform:aSelector
+        ]
     ]
 
 !
@@ -931,6 +925,12 @@
     Project notNil ifTrue: [(ProjectView for: Project new) open]
 !
 
+openTerminal
+    self openApplication:#VT100TerminalView 
+
+    "Created: / 27.7.1998 / 12:48:30 / cg"
+!
+
 selectProject
     "asks for and switch to another project"
 
@@ -957,6 +957,22 @@
     ]
 !
 
+startChangesBrowser
+    "open a changebrowser - either new or old GUI, depending on userPrefs"
+
+    self openApplication:(UserPreferences current changesBrowserClass)
+
+    "Modified: / 17.10.1998 / 14:38:18 / cg"
+!
+
+startNewChangesBrowser
+    "opens the new changeBrowser"
+
+    self openApplication:#NewChangesBrowser
+
+    "Created: / 6.6.1998 / 19:47:26 / cg"
+!
+
 startNewLauncher
     "opens the new launcher"
 
@@ -967,6 +983,14 @@
 
 !
 
+startOldChangesBrowser
+    "opens the old changeBrowser"
+
+    self openApplication:#ChangesBrowser
+
+    "Created: / 6.6.1998 / 19:47:26 / cg"
+!
+
 startOldLauncher
     "opens the old launcher"
 
@@ -4305,5 +4329,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.24 1999-04-22 17:45:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.25 1999-04-23 09:39:25 cg Exp $'
 ! !