hg/stx-libtool: comparison Launcher.st

equal deleted inserted replaced

-:5a01e2a32040
+:be6b78e5cd7c
 "setup the about- pulldown menu"
 myMenu at:#about
 putLabels:(resources array:#(
-'about Smalltalk/X ...'
+'About Smalltalk/X...'
 '-'
-'licence conditions'
+'Licence Conditions'
 ))
 selectors:#(
 #openAbout
 nil
 #openLicenseConditions
 |m labels selectors jb|
 "setup the classes- pulldown menu"
 labels := #(
-'system browser'
+'System Browser'
-'class browser ...'
+'Class Browser...'
-'full class browser ...'
+'Full Class Browser...'
-'class hierarchy browser ...'
+'Class Hierarchy Browser...'
-'class tree'
+'Class Tree'
 '-'
-'implementors ...'
+'Implementors...'
-'senders ...'
+'Senders...'
-'special'
+'Special'
 '-'
-'change browser'
+'Change Browser'
 ).
 selectors := #(
 #startSystemBrowser
 #startClassBrowser
 m := myMenu menuAt:#classes.
 m subMenuAt:#special
 put:(PopUpMenu
 itemList: #(
-('references to undeclared'      #browseUndeclared             )
+('References to Undeclared'      #browseUndeclared             )
-('resource methods ...'          #browseResources              )
+('Resource Methods...'           #browseResources              )
-('show break/trace points'       #browseAllBreakAndTracePoints )
+('Show Break/Trace Points'       #browseAllBreakAndTracePoints )
 ('-'                                                           )
-('remove all break/trace points' #removeAllBreakAndTracePoints )
+('Remove all Break/trace Points' #removeAllBreakAndTracePoints )
 )
 resources:resources
 ).
 ((jb := Smalltalk at:#JavaBrowser) notNil
 and:[jb isLoaded]) ifTrue:[
 (myMenu subMenuAt:#classes)
-addLabels:(resources array:#('-' 'java browser'))
+addLabels:(resources array:#('-' 'Java Browser'))
 selectors:#(nil startJavaBrowser)
 after:#startClassTreeView
 ].
 "Created: / 8.1.1997 / 14:05:44 / cg"
 <resource: #programMenu>
 |m|
 myMenu at:#demos
-	   putLabels:(resources array:#(
+putLabels:(resources array:#(
-					'goodies'
+'Goodies'
-					'games'
+'Games'
-					'geometric designs'
+'Geometric Designs'
-					'simple animations'
+'Simple Animations'
-					'3D graphics'
+'3D Graphics'
-					'graphic editors'
+'Graphic Editors'
-				       ))
+))
-	   selectors:#(
+selectors:#(
-					goodies
+goodies
-					games
+games
-					geometricDesigns
+geometricDesigns
-					simpleAnimations
+simpleAnimations
-					#'3Dgraphics'
+#'3Dgraphics'
-					#graphicEditors
+#graphicEditors
-		      )
+)
-	   receiver:self.
+receiver:self.
 "
 only to show two different ways of defining a popUpMenu,
 we use labels:selectors:receiver: here:
 "
 m := myMenu menuAt:#demos.
 m subMenuAt:#games
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('Tetris'                  startTetris     )
+('Tetris'                  startTetris     )
-			   ('Tic Tac Toe'             startTicTacToe  )
+('Tic Tac Toe'             startTicTacToe  )
-			   ('Tic Tac Toe (2 players)' startTicTacToe2 )
+('Tic Tac Toe (2 players)' startTicTacToe2 )
-			  )
+)
-		resources:resources).
+resources:resources).
 "
 and labels:selector:args:receiver: here:
 "
 m subMenuAt:#geometricDesigns
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('Pen demo'                   #openDemo:  nil PenDemo              )
+('Pen demo'                   #openDemo:  nil PenDemo              )
-			   ('Commander demo'             #openDemo:  nil CommanderDemo        )
+('Commander demo'             #openDemo:  nil CommanderDemo        )
-			   ('-'                                                               )
+('-'                                                               )
-			   ('Mandelbrot demo'            #openDemo:  nil ComplexIterationView )
+('Mandelbrot demo'            #openDemo:  nil ComplexIterationView )
-			   ('Fractal plants demo'        #openDemo:  nil FractalPlantsDemo    )
+('Fractal plants demo'        #openDemo:  nil FractalPlantsDemo    )
-			   ('Fractal patterns demo'      #openDemo:  nil FractalPatternsDemo  )
+('Fractal patterns demo'      #openDemo:  nil FractalPatternsDemo  )
-			   ('more fractal patterns demo' #openDemo:  nil ArmchairUniverseDemo )
+('more fractal patterns demo' #openDemo:  nil ArmchairUniverseDemo )
-			  )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#simpleAnimations
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('Animation'     #openDemo: nil Animation )
+('Animation'     #openDemo: nil Animation )
-			   ('Globe demo'    #openDemo: nil GlobeDemo )
+('Globe demo'    #openDemo: nil GlobeDemo )
-			 )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#'3Dgraphics'
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			    ('plane'                  #openDemo:  nil  GLPlaneDemoView2      )
+('plane'                  #openDemo:  nil  GLPlaneDemoView2      )
-			    ('tetra'                  #openDemo:  nil  GLTetraDemoView       )
+('tetra'                  #openDemo:  nil  GLTetraDemoView       )
-			    ('cube (wireframe)'       #openDemo:  nil  GLWireCubeDemoView    )
+('cube (wireframe)'       #openDemo:  nil  GLWireCubeDemoView    )
-			    ('cube (solid)'           #openDemo:  nil  GLCubeDemoView        )
+('cube (solid)'           #openDemo:  nil  GLCubeDemoView        )
-			    ('sphere (wireframe)'     #openDemo:  nil  GLWireSphereDemoView  )
+('sphere (wireframe)'     #openDemo:  nil  GLWireSphereDemoView  )
-			    ('doughnut (wireframe)'   #openDemo:  nil  GLDoughnutDemoView    )
+('doughnut (wireframe)'   #openDemo:  nil  GLDoughnutDemoView    )
-			    ('planet'                 #openDemo:  nil  GLPlanetDemoView      )
+('planet'                 #openDemo:  nil  GLPlanetDemoView      )
-			    ('teapot'                 #openDemo:  nil  GLTeapotDemo          )
+('teapot'                 #openDemo:  nil  GLTeapotDemo          )
-			    ('logo'                   #openDemo:  nil  Logo3DView1           )
+('logo'                   #openDemo:  nil  Logo3DView1           )
-			    ('rubics cube'            #openDemo:  nil  RubicsCubeView        )
+('rubics cube'            #openDemo:  nil  RubicsCubeView        )
-			    ('x/y graph'              #openDemo:  nil  GLXYGraph             )
+('x/y graph'              #openDemo:  nil  GLXYGraph             )
-			    ('x/y graph widget'       #openDemo:  nil  #'CodingExamples_GUI::GLXYGraph3DDemo'        )
+('x/y graph widget'       #openDemo:  nil  #'CodingExamples_GUI::GLXYGraph3DDemo'        )
-			    ('x/y graph animated'     #openDemo:  nil  #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo')
+('x/y graph animated'     #openDemo:  nil  #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo')
-			    ('-'                                                             )
+('-'                                                             )
-			    ('cube (light)'           #openDemo:  nil  GLCubeDemoView2       )
+('cube (light)'           #openDemo:  nil  GLCubeDemoView2       )
-			    ('cube (light & texture)' #openDemo:  nil  GLBrickCubeDemoView   )
+('cube (light & texture)' #openDemo:  nil  GLBrickCubeDemoView   )
-			    ('sphere (light)'         #openDemo:  nil  GLSphereDemoView2     )
+('sphere (light)'         #openDemo:  nil  GLSphereDemoView2     )
-			    ('colored octahedron'     #openDemo:  nil  GLOctaHedronDemoView  )
+('colored octahedron'     #openDemo:  nil  GLOctaHedronDemoView  )
-			  )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#graphicEditors
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('DrawTool'   #openDemo:  nil  DrawTool       )
+('DrawTool'   #openDemo:  nil  DrawTool       )
-			   ('LogicTool'  #openDemo:  nil  LogicTool      )
+('LogicTool'  #openDemo:  nil  LogicTool      )
-			   ('Paint Demo' #openDemo:  nil  ColorDrawDemo3 )
+('Paint Demo' #openDemo:  nil  ColorDrawDemo3 )
-			  )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#goodies
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			    ('clock'          #openDemo:  nil  Clock            )
+('clock'          #openDemo:  nil  Clock            )
-			    ('digital clock'  #openDemo:  nil  DigitalClockView )
+('digital clock'  #openDemo:  nil  DigitalClockView )
-			    ('calendar'       #openDemo:  nil  Calendar         )
+('calendar'       #openDemo:  nil  Calendar         )
-			    ('calculator'     #openDemo:  nil  CalculatorView   )
+('calculator'     #openDemo:  nil  CalculatorView   )
-			    ('-'                                                )
+('-'                                                )
-			    ('mail tool'      #openDemo:  nil  MailView         )
+('mail tool'      #openDemo:  nil  MailView         )
-			    ('news tool'      #openDemo:  nil  NewsView         )
+('news tool'      #openDemo:  nil  NewsView         )
-			    ('ftp tool'       #openDemo:  nil  FTPTool          )
+('ftp tool'       #openDemo:  nil  FTPTool          )
-			    ('telnet tool'    #openDemo:  nil  TelnetTool       )
+('telnet tool'    #openDemo:  nil  TelnetTool       )
-			   )
+)
-		resources:resources).
+resources:resources).
 "Modified: / 28.7.1998 / 15:17:12 / cg"
 !
 setupFileMenu
 "setup the file- pulldown menu"
 |l s|
 l := #(
-		'file browser'
+'File Browser'
-		'-'
+'-'
-		'modules ...'
+'Modules...'
-		'-'
+'-'
-		'snapshot ...'
+'Snapshot...'
-		'snapshot & exit ...'
+'Snapshot & Exit...'
-		'exit smalltalk ...'
+'Exit Smalltalk...'
-	 ).
+).
 s := #(
-		#startFileBrowser
+#startFileBrowser
-		nil
+nil
-		#objectModuleDialog
+#objectModuleDialog
-		nil
+nil
-		#snapshot
+#snapshot
-		#snapshotAndExit
+#snapshotAndExit
-		#exit
+#exit
-	 ).
+).
 myMenu at:#file
-	   putLabels:(resources array:l)
+putLabels:(resources array:l)
-	   selectors:s
+selectors:s
-	   receiver:self.
+receiver:self.
 "Created: / 8.1.1997 / 14:04:15 / cg"
 "Modified: / 29.10.1997 / 03:40:49 / cg"
 !
 "setup the help- pulldown menu"
 |l s|
 ActiveHelp notNil ifTrue:[
-	l := #(
+l := #(
-		'what''s new'
+'What''s New'
-		'index'
+'Index'
-		'-'
+'-'
-		'ST/X online documentation'
+'ST/X Online Documentation'
-		'class documentation'
+'Class Documentation'
-		'-'
+'-'
-		'print documentation ...'
+'Print Documentation...'
-		'-'
+'-'
-		'active help \c'
+'Active Help \c'
-	      ).
+).
-	s := #(
+s := #(
-		#startWhatsNewDocumentation
+#startWhatsNewDocumentation
-		#startDocumentationIndex
+#startDocumentationIndex
-		nil
+nil
-		#startDocumentationTool
+#startDocumentationTool
-		#startClassDocumentation
+#startClassDocumentation
-		nil
+nil
-		#showBookPrintDocument
+#showBookPrintDocument
-		nil
+nil
-		#toggleActiveHelp:
+#toggleActiveHelp:
-	      )
+)
 ] ifFalse:[
-	l := #(
+l := #(
-		'what''s new'
+'what''s new'
-		'index'
+'index'
-		'-'
+'-'
-		'ST/X online documentation'
+'ST/X online documentation'
-		'class documentation'
+'class documentation'
-		'-'
+'-'
-		'print documentation ...'
+'print documentation ...'
-	      ).
+).
-	s := #(
+s := #(
-		#startWhatsNewDocumentation
+#startWhatsNewDocumentation
-		#startDocumentationIndex
+#startDocumentationIndex
-		nil
+nil
-		#startDocumentationTool
+#startDocumentationTool
-		#startClassDocumentation
+#startClassDocumentation
-		nil
+nil
-		#showBookPrintDocument
+#showBookPrintDocument
-	      )
+)
 ].
 myMenu at:#help
-	   putLabels:(resources array:l)
+putLabels:(resources array:l)
-	   selectors:s
+selectors:s
-	   receiver:self.
+receiver:self.
 (ActiveHelp notNil
 and:[ActiveHelp isActive]) ifTrue:[
-	(myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
+(myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
 ].
 "Created: / 8.1.1997 / 14:08:09 / cg"
 "Modified: / 29.10.1997 / 03:40:53 / cg"
 !
 "setup the projects- pulldown menu"
 <resource: #programMenu >
 myMenu at:#projects
-	   putLabels:(resources array:#(
+putLabels:(resources array:#(
-					'new project'
+'New Project'
-					'-'
+'-'
-					'select project ...'
+'Select Project...'
-					))
+))
-	   selectors:#(
+selectors:#(
-					#newProject
+#newProject
-					nil
+nil
-					#selectProject
+#selectProject
-		      )
+)
-	   receiver:self.
+receiver:self.
 "Created: / 8.1.1997 / 14:06:18 / cg"
 "Modified: / 29.10.1997 / 03:41:09 / cg"
 !
 <resource: #programMenu>
 |m |
 myMenu at:#tools
-	   putLabels:(resources array:#(
+putLabels:(resources array:#(
-					'workspace'
+'Workspace'
-					'-'
+'-'
-					'GUI builder'
+'GUI builder'
-					'-'
+'-'
-					'new launcher'
+'New Launcher'
-					'-'
+'-'
-					'monitors'
+'Monitors'
-					'-'
+'-'
-					'views'
+'Views'
-					'-'
+'-'
-					'hardcopy'
+'Hardcopy'
-					'-'
+'-'
-					'misc'
+'misc'
-					))
+))
-	   selectors:#(
+selectors:#(
-					#startWorkspace
+#startWorkspace
-					nil
+nil
-					#startGUIBuilder
+#startGUIBuilder
-					nil
+nil
-					#startNewLauncher
+#startNewLauncher
-					nil
+nil
-					#monitors
+#monitors
-					nil
+nil
-					#views
+#views
-					nil
+nil
-					#hardcopy
+#hardcopy
-					nil
+nil
-					#misc
+#misc
-		      )
+)
-	   receiver:self.
+receiver:self.
 m := myMenu menuAt:#tools.
 m subMenuAt:#monitors
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('process'      #startApplication:  nil  #ProcessMonitor          )
+('Process'      #startApplication:  nil  #ProcessMonitor          )
-			   ('semaphores'   #startApplication:  nil  #SemaphoreMonitor        )
+('Semaphores'   #startApplication:  nil  #SemaphoreMonitor        )
-			   ('memory'       #startApplication:  nil  #MemoryMonitor           )
+('Memory'       #startApplication:  nil  #MemoryMonitor           )
-			   ('irq latency'  #startApplication:  nil  #InterruptLatencyMonitor )
+('Irq Latency'  #startApplication:  nil  #InterruptLatencyMonitor )
-			   ('event view'   #startApplication:  nil  #EventMonitor            )
+('Event View'   #startApplication:  nil  #EventMonitor            )
-			   ('event trace'  #startApplication:  nil  #StopEventTrace          )
+('Event Trace'  #startApplication:  nil  #StopEventTrace          )
-			   ('-'                                                              )
+('-'                                                              )
-			   ('memory usage' #startApplication:  nil  #MemoryUsageView         )
+('Memory usage' #startApplication:  nil  #MemoryUsageView         )
-			  )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#views
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('iconify all'           #iconifyAllWindows        )
+('Iconify all'           #iconifyAllWindows        )
-			   ('de-iconify all'        #deIconifyAllWindows      )
+('Deiconify all'         #deIconifyAllWindows      )
-			   ('-'                                               )
+('-'                                               )
-			   ('find & raise ...'      #findAndRaiseWindow       )
+('Find & Raise...'       #findAndRaiseWindow       )
-			   ('-'                                               )
+('-'                                               )
-			   ('view tree (all views)' #startFullWindowTreeView  )
+('View Tree (all views)' #startFullWindowTreeView  )
-			   ('view tree'             #startWindowTreeView      )
+('View Tree'             #startWindowTreeView      )
-			   ('-'                                               )
+('-'                                               )
-			   ('select & inspect view' #viewInspect              )
+('Select & Inspect View' #viewInspect              )
-			   ('-'                                               )
+('-'                                               )
-			   ('select & destroy view' #viewDestroy              )
+('Select & Destroy View' #viewDestroy              )
-			   ('find & destroy ...'    #findAndDestroyWindow     )
+('Find & Destroy...'     #findAndDestroyWindow     )
-			  )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#misc
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('garbage collect'            #garbageCollect            )
+('Garbage Collect'            #garbageCollect            )
-			   ('garbage collect & compress' #compressingGarbageCollect )
+('Garbage Collect & Compress' #compressingGarbageCollect )
-			  )
+)
-		resources:resources).
+resources:resources).
 m subMenuAt:#hardcopy
 put:(PopUpMenu
-		itemList:#(
+itemList:#(
-			   ('screen' #fullScreenHardcopy )
+('Screen' #fullScreenHardcopy )
-			   ('area'   #screenHardcopy     )
+('Area'   #screenHardcopy     )
-			   ('view'   #viewHardcopy       )
+('View'   #viewHardcopy       )
-			  )
+)
-		resources:resources).
+resources:resources).
 "Modified: / 31.10.1997 / 16:01:53 / cg"
 "Modified: / 19.12.1997 / 13:15:27 / stefan"
 ! !
 ! !
 !Launcher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.405 2002-05-06 06:05:46 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.406 2004-03-12 22:50:40 cg Exp $'
 ! !

changeset 5709	be6b78e5cd7c
parent 3647	dae513f07a2e
child 12123	4bde08cebd48
child 15143	afe9ea05ebe9