# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1225103211 -3600
# Node ID d8f4a2f31f44bcafe5d1941bad4c05bcecf4d05b
# Parent  65129021b754b82ea2f29fa645c9c59c21057df9
*** empty log message ***

diff -r 65129021b754 -r d8f4a2f31f44 NewLauncher.st
--- a/NewLauncher.st	Sun Oct 26 21:06:54 2008 +0100
+++ b/NewLauncher.st	Mon Oct 27 11:26:51 2008 +0100
@@ -1331,451 +1331,484 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #activeHelpKey: #demosGoodies
-            #label: 'Goodies'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #demosClock
-                  #label: 'Clock'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Clock'
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: demosGoodies
+            label: 'Goodies'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demosClock
+                  label: 'Clock'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Clock'
+                )
+               (MenuItem
+                  activeHelpKey: demosDigitalClock
+                  label: 'Digital Clock'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'DigitalClockView'
+                )
+               (MenuItem
+                  activeHelpKey: demosBabelFish
+                  label: 'BabelFish'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'SOAP::TranslationServiceApplication'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosDigitalClock
-                  #label: 'Digital Clock'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'DigitalClockView'
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            activeHelpKey: demosGames
+            label: 'Games'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: gamesTetris
+                  label: 'Blocks (Tetris look alike)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Games::Tetris'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosCalendar
-                  #label: 'Calendar'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Calendar'
+               (MenuItem
+                  activeHelpKey: gamesTicTacToe
+                  label: 'Tic Tac Toe'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Games::TicTacToeGame'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosCalculator
-                  #label: 'Calculator'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CalculatorView'
+               (MenuItem
+                  activeHelpKey: gamesTicTacToe2
+                  label: 'Tic Tac Toe (2 Players)'
+                  itemValue: startTicTacToe2
+                  translateLabel: true
+                )
+               (MenuItem
+                  activeHelpKey: gamesPingPong
+                  label: 'PingPong'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Games::PingPongGame'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosBabelFish
-                  #label: 'BabelFish'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'SOAP::TranslationServiceApplication'
+               (MenuItem
+                  activeHelpKey: gamesPingPong2
+                  label: 'PingPong - (2 Players)'
+                  itemValue: startPingPong2
+                  translateLabel: true
+                )
+               (MenuItem
+                  activeHelpKey: gamesReversi
+                  label: 'Reversi (Java)'
+                  itemValue: startReversi
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: 'Towers of Hanoi (Prolog)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Prolog::TowersOfHanoiApplication'
+                )
+               (MenuItem
+                  label: 'MasterMind (Prolog)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Prolog::MasterMind'
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #activeHelpKey: #demosGames
-            #label: 'Games'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #gamesTetris
-                  #label: 'Blocks (Tetris look alike)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Games::Tetris'
+         (MenuItem
+            activeHelpKey: demosGeometric
+            label: 'Geometric Designs'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demosPen
+                  label: 'Pen Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'PenDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #gamesTicTacToe
-                  #label: 'Tic Tac Toe'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Games::TicTacToeGame'
+               (MenuItem
+                  activeHelpKey: demosCommander
+                  label: 'Commander Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CommanderDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #gamesTicTacToe2
-                  #label: 'Tic Tac Toe (2 Players)'
-                  #itemValue: #startTicTacToe2
-                  #translateLabel: true
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  activeHelpKey: demosMandel
+                  label: 'Mandel'
+                  itemValue: openMandelbrotDemo
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #activeHelpKey: #gamesPingPong
-                  #label: 'PingPong'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Games::PingPongGame'
+               (MenuItem
+                  activeHelpKey: demosFractalPlants
+                  label: 'Fractal Plants Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'FractalPlantsDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #gamesPingPong2
-                  #label: 'PingPong - (2 Players)'
-                  #itemValue: #startPingPong2
-                  #translateLabel: true
+               (MenuItem
+                  activeHelpKey: demosFractalPatterns
+                  label: 'Fractal Patterns Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'FractalPatternsDemo'
+                )
+               (MenuItem
+                  activeHelpKey: demosLSystems
+                  label: 'Lindenmayer Patterns Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'LSystemsDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #gamesReversi
-                  #label: 'Reversi (Java)'
-                  #itemValue: #startReversi
-                  #translateLabel: true
+               (MenuItem
+                  activeHelpKey: demosMoreFractalPatterns
+                  label: 'More Fractal Patterns Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'ArmchairUniverseDemo'
+                )
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Towers of Hanoi (Prolog)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Prolog::TowersOfHanoiApplication'
+               (MenuItem
+                  label: 'Jan''s FractalApplication'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Demos::FractalApplication'
                 )
-               #(#MenuItem
-                  #label: 'MasterMind (Prolog)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Prolog::MasterMind'
+               (MenuItem
+                  label: 'Jan''s Superformula'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Demos::SuperFormulaApplication'
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #activeHelpKey: #demosGeometric
-            #label: 'Geometric Designs'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #demosPen
-                  #label: 'Pen Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'PenDemo'
-                )
-               #(#MenuItem
-                  #activeHelpKey: #demosCommander
-                  #label: 'Commander Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CommanderDemo'
-                )
-               #(#MenuItem
-                  #label: '-'
+         (MenuItem
+            activeHelpKey: demosAnimations
+            label: 'Simple Animations'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demosWalkingMan
+                  label: 'Walking Man'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Animation'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosMandel
-                  #label: 'Mandel'
-                  #itemValue: #openMandelbrotDemo
-                  #translateLabel: true
-                )
-               #(#MenuItem
-                  #activeHelpKey: #demosFractalPlants
-                  #label: 'Fractal Plants Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'FractalPlantsDemo'
-                )
-               #(#MenuItem
-                  #activeHelpKey: #demosFractalPatterns
-                  #label: 'Fractal Patterns Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'FractalPatternsDemo'
-                )
-               #(#MenuItem
-                  #activeHelpKey: #demosLSystems
-                  #label: 'Lindenmayer Patterns Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'LSystemsDemo'
+               (MenuItem
+                  activeHelpKey: demosWalkingMan
+                  label: 'Walking Girl'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'WalkingGirl'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosMoreFractalPatterns
-                  #label: 'More Fractal Patterns Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'ArmchairUniverseDemo'
-                )
-               )
-              nil
-              nil
-            )
-          )
-         #(#MenuItem
-            #activeHelpKey: #demosAnimations
-            #label: 'Simple Animations'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #demosWalkingMan
-                  #label: 'Walking Man'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Animation'
+               (MenuItem
+                  activeHelpKey: demosGlobe
+                  label: 'Globe Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GlobeDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosWalkingMan
-                  #label: 'Walking Girl'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'WalkingGirl'
-                )
-               #(#MenuItem
-                  #activeHelpKey: #demosGlobe
-                  #label: 'Globe Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GlobeDemo'
+               (MenuItem
+                  activeHelpKey: chickenFun
+                  label: 'Chicken Fun'
+                  itemValue: startStopDemo:
+                  translateLabel: true
+                  indication: chickenFunIsRunning
+                  argument: 'ChickenFun'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #chickenFun
-                  #label: 'Chicken Fun'
-                  #itemValue: #startStopDemo:
-                  #translateLabel: true
-                  #indication: #chickenFunIsRunning
-                  #argument: 'ChickenFun'
-                )
-               #(#MenuItem
-                  #activeHelpKey: #chickenFun
-                  #label: 'Chicks Eyes'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'ChickenEyes'
+               (MenuItem
+                  activeHelpKey: chickenFun
+                  label: 'Chicks Eyes'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'ChickenEyes'
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #activeHelpKey: #demos3D
-            #label: '3D GL Graphics'
-            #translateLabel: true
-            #isVisible: #displaySupportsGLDrawing
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #demos3Dplane
-                  #label: 'Plane'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLPlaneDemoView2'
+         (MenuItem
+            activeHelpKey: demos3D
+            label: '3D GL Graphics'
+            translateLabel: true
+            isVisible: displaySupportsGLDrawing
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demos3Dplane
+                  label: 'Plane'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLPlaneDemoView2'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3Dtetra
-                  #label: 'Tetra'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLTetraDemoView'
+               (MenuItem
+                  activeHelpKey: demos3Dtetra
+                  label: 'Tetra'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLTetraDemoView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3DcubeWire
-                  #label: 'Cube (Wireframe)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLWireCubeDemoView'
+               (MenuItem
+                  activeHelpKey: demos3DcubeWire
+                  label: 'Cube (Wireframe)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLWireCubeDemoView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3DcubeSolid
-                  #label: 'Cube (Solid)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLCubeDemoView'
+               (MenuItem
+                  activeHelpKey: demos3DcubeSolid
+                  label: 'Cube (Solid)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLCubeDemoView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3Dsphere
-                  #label: 'Sphere (Wireframe)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLWireSphereDemoView'
+               (MenuItem
+                  activeHelpKey: demos3Dsphere
+                  label: 'Sphere (Wireframe)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLWireSphereDemoView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3Ddoughnut
-                  #label: 'Doughnut (Wireframe)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLDoughnutDemoView'
+               (MenuItem
+                  activeHelpKey: demos3Ddoughnut
+                  label: 'Doughnut (Wireframe)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLDoughnutDemoView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3Dplanet
-                  #label: 'Planet'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLPlanetDemoView'
+               (MenuItem
+                  activeHelpKey: demos3Dplanet
+                  label: 'Planet'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLPlanetDemoView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3Dteapot
-                  #label: 'Teapot'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLTeapotDemo'
+               (MenuItem
+                  activeHelpKey: demos3Dteapot
+                  label: 'Teapot'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLTeapotDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demos3Dlogo
-                  #label: 'Logo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'Logo3DView1'
+               (MenuItem
+                  activeHelpKey: demos3Dlogo
+                  label: 'Logo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Logo3DView1'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosCommander
-                  #label: 'Rubics Cube'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'RubicsCubeView'
+               (MenuItem
+                  activeHelpKey: demosCommander
+                  label: 'Rubics Cube'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'RubicsCubeView'
                 )
-               #(#MenuItem
-                  #label: 'X/Y Graph'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLXYGraph'
+               (MenuItem
+                  label: 'X/Y Graph'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLXYGraph'
                 )
-               #(#MenuItem
-                  #label: 'X/Y Graph Widget'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CodingExamples_GUI::GLXYGraph3DDemo'
+               (MenuItem
+                  label: 'X/Y Graph Widget'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CodingExamples_GUI::GLXYGraph3DDemo'
                 )
-               #(#MenuItem
-                  #label: 'X/Y Graph Animated'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CodingExamples_GUI::AnimatedGLXYGraph3DDemo'
+               (MenuItem
+                  label: 'X/Y Graph Animated'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CodingExamples_GUI::AnimatedGLXYGraph3DDemo'
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Cube (Light)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLCubeDemoView2'
+               (MenuItem
+                  label: 'Cube (Light)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLCubeDemoView2'
                 )
-               #(#MenuItem
-                  #label: 'Cube (Light and Texture)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLBrickCubeDemoView'
+               (MenuItem
+                  label: 'Cube (Light and Texture)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLBrickCubeDemoView'
                 )
-               #(#MenuItem
-                  #label: 'Sphere (Light)'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLSphereDemoView2'
+               (MenuItem
+                  label: 'Sphere (Light)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLSphereDemoView2'
                 )
-               #(#MenuItem
-                  #label: 'Colored Octahedron'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'GLOctaHedronDemoView'
+               (MenuItem
+                  label: 'Colored Octahedron'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'GLOctaHedronDemoView'
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #activeHelpKey: #demosGraphicEditors
-            #label: 'Graphic Editors'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #demosGraphicEditorsDrawTool
-                  #label: 'Draw Tool'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'DrawTool'
+         (MenuItem
+            activeHelpKey: demosGraphicEditors
+            label: 'Graphic Editors'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demosGraphicEditorsDrawTool
+                  label: 'Draw Tool'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'DrawTool'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosGraphicEditorsLogicTool
-                  #label: 'Logic Tool'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'LogicTool'
+               (MenuItem
+                  activeHelpKey: demosGraphicEditorsLogicTool
+                  label: 'Logic Tool'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'LogicTool'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosGraphicEditorsPaintTool
-                  #label: 'Paint Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'ColorDrawDemo3'
+               (MenuItem
+                  activeHelpKey: demosGraphicEditorsPaintTool
+                  label: 'Paint Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'ColorDrawDemo3'
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #activeHelpKey: #demosGUI
-            #label: 'GUI'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #activeHelpKey: #demosGUIWidgets
-                  #label: 'Widget Gallery'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CodingExamples_GUI::GUIDemo'
+         (MenuItem
+            activeHelpKey: demosGUI
+            label: 'GUI'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demosGUIWidgets
+                  label: 'Widget Gallery'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CodingExamples_GUI::GUIDemo'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosGUIWidgets
-                  #label: 'Drawing Protocol Demo'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CodingExamples_GUI::DrawingProtocolDemonstration'
+               (MenuItem
+                  activeHelpKey: demosGUIWidgets
+                  label: 'Drawing Protocol Demo'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CodingExamples_GUI::DrawingProtocolDemonstration'
+                )
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  activeHelpKey: demosGUICalculator
+                  label: 'Calculator (simple)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CodingExamples_GUI::GUIDemoCalculator'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosGUICalculator
-                  #label: 'Calculator'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'CodingExamples_GUI::GUIDemoCalculator'
+               (MenuItem
+                  activeHelpKey: demosGUICalculator
+                  label: 'Calculator (nice)'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CodingExamples_GUI::GUIDemoFoxCalculatorClone'
                 )
-               #(#MenuItem
-                  #label: '-'
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: 'Old Stuff'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: demosCalendar
+                  label: 'Calendar'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'Calendar'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosMail
-                  #label: 'Mail Tool'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'MailView'
+               (MenuItem
+                  activeHelpKey: demosCalculator
+                  label: 'Calculator'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'CalculatorView'
+                )
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosNews
-                  #label: 'News Tool'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'NewsView'
+               (MenuItem
+                  activeHelpKey: demosMail
+                  label: 'Mail Tool'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'MailView'
+                )
+               (MenuItem
+                  activeHelpKey: demosNews
+                  label: 'News Tool'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'NewsView'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosFTP
-                  #label: 'FTP Tool'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'FTPTool'
+               (MenuItem
+                  activeHelpKey: demosFTP
+                  label: 'FTP Tool'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'FTPTool'
                 )
-               #(#MenuItem
-                  #activeHelpKey: #demosTelnet
-                  #label: 'Telnet Tool'
-                  #itemValue: #openDemo:
-                  #translateLabel: true
-                  #argument: 'TelnetTool'
+               (MenuItem
+                  activeHelpKey: demosTelnet
+                  label: 'Telnet Tool'
+                  itemValue: openDemo:
+                  translateLabel: true
+                  argument: 'TelnetTool'
                 )
                )
               nil
@@ -4516,5 +4549,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.379 2008-10-26 20:06:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.380 2008-10-27 10:26:51 cg Exp $'
 ! !