OldLauncher.st
changeset 53 2fc78a0165e7
parent 52 7b48409ae088
child 56 d0cb937cbcaa
--- a/OldLauncher.st	Thu Nov 17 15:47:59 1994 +0100
+++ b/OldLauncher.st	Mon Nov 21 17:51:30 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.17 1994-11-17 14:46:53 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.18 1994-11-21 16:51:15 claus Exp $
 '!
 
 !Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.17 1994-11-17 14:46:53 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.18 1994-11-21 16:51:15 claus Exp $
 "
 !
 
@@ -231,6 +231,9 @@
 				'Tetris'
 				'TicTacToe'
 				'-'
+				'PenDemo'
+				'CommanderDemo' 
+				'-'
 				'Animation'
 				'Globe'
 				'-'
@@ -242,6 +245,9 @@
 				startTetris
 				startTicTacToe
 				nil
+				startPenDemo
+				startCommanderDemo
+				nil
 				startAnimation
 				startGlobeDemo
 				nil
@@ -286,6 +292,9 @@
 				'Tetris'
 				'TicTacToe'
 				'-'
+				'PenDemo'
+				'CommanderDemo' 
+				'-'
 				'Animation'
 				'Globe'
 				'-'
@@ -295,6 +304,9 @@
 				startTetris
 				startTicTacToe
 				nil
+				startPenDemo
+				startCommanderDemo
+				nil
 				startAnimation
 				startGlobeDemo
 				nil
@@ -330,6 +342,7 @@
 			    'Address Book'
 "
 			    '-'
+			    'Calendar '
 			    'Directory View'
 			    'MailTool'
 			    'NewsTool'
@@ -343,6 +356,7 @@
 			    startAddressBook
 "
 			    nil
+			    startCalendar
 			    startDirectoryView
 			    startMailTool
 			    startNewsTool
@@ -889,6 +903,10 @@
     Clock open
 !
 
+startCalendar
+    Calendar open
+!
+
 startRoundClock
     RoundClock2 open
 ! !
@@ -903,6 +921,14 @@
     GlobeDemo open
 !
 
+startPenDemo
+    PenDemo open
+!
+
+startCommanderDemo
+    CommanderDemo open
+!
+
 startRoundGlobeDemo
     RoundGlobeDemo open
 !