--- a/Launcher.st Sat Mar 23 18:58:59 1996 +0100
+++ b/Launcher.st Sat Mar 23 19:41:05 1996 +0100
@@ -1714,23 +1714,23 @@
|m|
myMenu at:#demos
- putLabels:(resources array:#(
- 'goodies'
- 'games'
- 'geometric designs'
- 'simple animations'
- '3D graphics'
- 'graphic editors'
- ))
- selectors:#(
- goodies
- games
- geometricDesigns
- simpleAnimations
- #'3Dgraphics'
- #graphicEditors
- )
- receiver:self.
+ putLabels:(resources array:#(
+ 'goodies'
+ 'games'
+ 'geometric designs'
+ 'simple animations'
+ '3D graphics'
+ 'graphic editors'
+ ))
+ selectors:#(
+ goodies
+ games
+ geometricDesigns
+ simpleAnimations
+ #'3Dgraphics'
+ #graphicEditors
+ )
+ receiver:self.
"
only to show two different ways of defining a popUpMenu,
@@ -1739,124 +1739,128 @@
m := myMenu menuAt:#demos.
m subMenuAt:#games
put:(PopUpMenu
- labels:(resources array:#(
- 'Tetris'
- 'Tic Tac Toe'
- 'Tic Tac Toe (2 players)'
- ))
- selectors:#(
- startTetris
- startTicTacToe
- startTicTacToe2
- )
- receiver:self).
+ labels:(resources array:#(
+ 'Tetris'
+ 'Tic Tac Toe'
+ 'Tic Tac Toe (2 players)'
+ ))
+ selectors:#(
+ startTetris
+ startTicTacToe
+ startTicTacToe2
+ )
+ receiver:self).
"
and labels:selector:args:receiver: here:
"
m subMenuAt:#geometricDesigns
put:(PopUpMenu
- labels:(resources array:#(
- 'Pen demo'
- 'Commander demo'
- '-'
- 'Fractal plants demo'
- 'Fractal patterns demo'
- ))
- selector:#openDemo:
- args:#(
- PenDemo
- CommanderDemo
- nil
- FractalPlantsDemo
- FractalPatternsDemo
- )
- receiver:self).
+ labels:(resources array:#(
+ 'Pen demo'
+ 'Commander demo'
+ '-'
+ 'Fractal plants demo'
+ 'Fractal patterns demo'
+ ))
+ selector:#openDemo:
+ args:#(
+ PenDemo
+ CommanderDemo
+ nil
+ FractalPlantsDemo
+ FractalPatternsDemo
+ )
+ receiver:self).
m subMenuAt:#simpleAnimations
put:(PopUpMenu
- labels:(resources array:#(
- 'Animation'
- 'Globe demo'
- ))
- selector:#openDemo:
- args:#(
- Animation
- GlobeDemo
- )
- receiver:self).
+ labels:(resources array:#(
+ 'Animation'
+ 'Globe demo'
+ ))
+ selector:#openDemo:
+ args:#(
+ Animation
+ GlobeDemo
+ )
+ receiver:self).
m subMenuAt:#'3Dgraphics'
put:(PopUpMenu
- labels:(resources
- array:#(
- 'plane'
- 'tetra'
- 'cube (wireframe)'
- 'cube (solid)'
- 'sphere (wireframe)'
- 'doughnut (wireframe)'
- 'planet'
- 'teapot'
- 'logo'
- 'x/y graph'
- '-'
- 'cube (light)'
- 'cube (light & texture)'
- 'sphere (light)'
- 'colored octahedron'
- ))
- selector:#openDemo:
- args:#(
- GLPlaneDemoView2
- GLTetraDemoView
- GLWireCubeDemoView
- GLCubeDemoView
- GLWireSphereDemoView
- GLDoughnutDemoView
- GLPlanetDemoView
- GLTeapotDemo
- Logo3DView1
- GLXYGraph
- nil
- GLCubeDemoView2
- GLBrickCubeDemoView
- GLSphereDemoView2
- GLOctaHedronDemoView
- )
- receiver:self).
+ labels:(resources
+ array:#(
+ 'plane'
+ 'tetra'
+ 'cube (wireframe)'
+ 'cube (solid)'
+ 'sphere (wireframe)'
+ 'doughnut (wireframe)'
+ 'planet'
+ 'teapot'
+ 'logo'
+ 'rubics cube'
+ 'x/y graph'
+ '-'
+ 'cube (light)'
+ 'cube (light & texture)'
+ 'sphere (light)'
+ 'colored octahedron'
+ ))
+ selector:#openDemo:
+ args:#(
+ GLPlaneDemoView2
+ GLTetraDemoView
+ GLWireCubeDemoView
+ GLCubeDemoView
+ GLWireSphereDemoView
+ GLDoughnutDemoView
+ GLPlanetDemoView
+ GLTeapotDemo
+ Logo3DView1
+ RubicsCubeView
+ GLXYGraph
+ nil
+ GLCubeDemoView2
+ GLBrickCubeDemoView
+ GLSphereDemoView2
+ GLOctaHedronDemoView
+ )
+ receiver:self).
m subMenuAt:#graphicEditors
put:(PopUpMenu
- labels:(resources array:#(
- 'DrawTool'
- 'LogicTool'
- ))
- selector:#openDemo:
- args:#(
- DrawTool
- LogicTool
- )
- receiver:self).
+ labels:(resources array:#(
+ 'DrawTool'
+ 'LogicTool'
+ ))
+ selector:#openDemo:
+ args:#(
+ DrawTool
+ LogicTool
+ )
+ receiver:self).
m subMenuAt:#goodies
put:(PopUpMenu
- labels:(resources array:#(
- 'clock'
- 'calendar'
- '-'
- 'mail tool'
- 'news tool'
- ))
- selector:#openDemo:
- args:#(
- Clock
- Calendar
- nil
- MailView
- NewsView
- )
- receiver:self).
+ labels:(resources array:#(
+ 'clock'
+ 'calendar'
+ '-'
+ 'mail tool'
+ 'news tool'
+ ))
+ selector:#openDemo:
+ args:#(
+ Clock
+ Calendar
+ nil
+ MailView
+ NewsView
+ )
+ receiver:self).
+
+ "Modified: 23.3.1996 / 17:08:08 / cg"
!
setupInfoViewIn:topView
@@ -2394,5 +2398,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.100 1996-03-22 14:39:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.101 1996-03-23 18:41:05 cg Exp $'
! !