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