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