--- a/OldLauncher.st Wed Feb 10 02:36:31 1999 +0100
+++ b/OldLauncher.st Thu Feb 11 11:22:12 1999 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:2.10.9 on 9-sep-1996 at 22:53:09' !
-
StandardSystemView subclass:#OldLauncher
instanceVariableNames:'myMenu logoLabel'
classVariableNames:''
@@ -19,7 +17,7 @@
category:'Interface-Smalltalk'
!
-!OldLauncher class methodsFor:'documentation'!
+!OldLauncher class methodsFor:'documentation'!
copyright
"
@@ -57,7 +55,7 @@
"
! !
-!OldLauncher class methodsFor:'defaults '!
+!OldLauncher class methodsFor:'defaults '!
defaultLabel
^ 'smallTalk'
@@ -72,7 +70,17 @@
!OldLauncher methodsFor:'demo menu actions'!
openDemo:className
- (Smalltalk at:className) open
+ |cls|
+
+ cls := (Smalltalk at:className).
+ cls isNil ifTrue:[
+ cls := Demos at:className.
+ cls isNil ifTrue:[
+ cls := Games at:className.
+ ].
+ ].
+ cls open
+
!
startAnimation
@@ -155,31 +163,31 @@
!OldLauncher methodsFor:'goody menu actions'!
startAddressBook
- AddressBook open
+ self openDemo:#AddressBook
!
startCalendar
- Calendar open
+ self openDemo:#Calendar
!
startClock
- Clock open
+ self openDemo:#Clock
!
startDrawTool
- DrawView open
+ self openDemo:#DrawView
!
startMailTool
- MailView open
+ self openDemo:#MailView
!
startNewsTool
- NewsView open
+ self openDemo:#NewsView
!
startRoundClock
- RoundClock2 open
+ self openDemo:#RoundClock2
!
startXterm
@@ -997,8 +1005,8 @@
]
! !
-!OldLauncher class methodsFor:'documentation'!
+!OldLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.36 1996-09-09 21:56:52 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.37 1999-02-11 10:22:12 cg Exp $'
! !