--- 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 $'
! !