checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 23 Dec 1999 19:31:06 +0100
changeset 2502 0a1eec9feab0
parent 2501 e86fae15642d
child 2503 f4ce62eef9c7
checkin from browser
NewLauncher.st
--- a/NewLauncher.st	Thu Dec 23 17:10:33 1999 +0100
+++ b/NewLauncher.st	Thu Dec 23 19:31:06 1999 +0100
@@ -294,6 +294,9 @@
 #gamesPingPong2
 'Play classic PingPong against a friend.'
 
+#gamesReversi
+'The game of reversi (an embedded Java applet)'
+
 #gamesTetris
 'The tetris game - written in Smalltalk.'
 
@@ -681,7 +684,7 @@
                   #value: #packageDialog
                   #activeHelpKey: #filePackages
                   #enabled: #enableDangerousMenuItemsInRemoteLauncher
-		  #isVisible: #packageDialogVisible
+                  #isVisible: #packageDialogVisible
                 )
                #(#MenuItem
                   #label: '-'
@@ -1332,6 +1335,12 @@
                         #value: #startPingPong2
                         #activeHelpKey: #gamesPingPong2
                       )
+                     #(#MenuItem
+                        #label: 'Reversi (Java)'
+                        #translateLabel: true
+                        #value: #startReversi
+                        #activeHelpKey: #gamesReversi
+                      )
                      )
                     nil
                     nil
@@ -2196,10 +2205,6 @@
     ^ holder
 !
 
-packageDialogVisible
-    ^ false
-!
-
 javaSupportPresent
     "return a 'valueHolder', which returns true if the java support
      is available."
@@ -2216,6 +2221,10 @@
     "Created: / 20.6.1998 / 16:54:31 / cg"
 !
 
+packageDialogVisible
+    ^ false
+!
+
 showActiveHelpMenuItem
     ^ false
 ! !
@@ -2719,6 +2728,14 @@
     "Modified: / 13.12.1999 / 22:24:15 / cg"
 !
 
+startReversi
+    "opens a reversi game (java)"
+
+    self openApplication:'JavaAppletDemo3' nameSpace:CodingExamples_GUI
+
+    "Modified: / 13.12.1999 / 22:24:15 / cg"
+!
+
 startTicTacToe2
     "opens a 2-user ticTacToe game"
 
@@ -2864,5 +2881,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.161 1999-12-16 20:59:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.162 1999-12-23 18:31:06 cg Exp $'
 ! !