# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1079131840 -3600
# Node ID be6b78e5cd7c5cd4889e7e229e5ecb51ae3dabaf
# Parent  5a01e2a320407e42b89aa766dd41ebe08c4282e9
*** empty log message ***

diff -r 5a01e2a32040 -r be6b78e5cd7c Launcher.st
--- a/Launcher.st	Fri Mar 12 20:59:19 2004 +0100
+++ b/Launcher.st	Fri Mar 12 23:50:40 2004 +0100
@@ -789,9 +789,9 @@
 
     myMenu at:#about 
            putLabels:(resources array:#(
-                                        'about Smalltalk/X ...'
+                                        'About Smalltalk/X...'
                                         '-'
-                                        'licence conditions'
+                                        'Licence Conditions'
                                        ))
            selectors:#(
                                         #openAbout 
@@ -812,17 +812,17 @@
     "setup the classes- pulldown menu"
 
     labels := #(
-        'system browser'
-        'class browser ...'
-        'full class browser ...'
-        'class hierarchy browser ...'
-        'class tree'
+        'System Browser'
+        'Class Browser...'
+        'Full Class Browser...'
+        'Class Hierarchy Browser...'
+        'Class Tree'
         '-'
-        'implementors ...'
-        'senders ...'
-        'special'
+        'Implementors...'
+        'Senders...'
+        'Special'
         '-'
-        'change browser'
+        'Change Browser'
         ).
 
     selectors := #(
@@ -848,11 +848,11 @@
     m subMenuAt:#special 
       put:(PopUpMenu
                 itemList: #(
-                            ('references to undeclared'      #browseUndeclared             )
-                            ('resource methods ...'          #browseResources              )
-                            ('show break/trace points'       #browseAllBreakAndTracePoints )
+                            ('References to Undeclared'      #browseUndeclared             )
+                            ('Resource Methods...'           #browseResources              )
+                            ('Show Break/Trace Points'       #browseAllBreakAndTracePoints )
                             ('-'                                                           )
-                            ('remove all break/trace points' #removeAllBreakAndTracePoints )
+                            ('Remove all Break/trace Points' #removeAllBreakAndTracePoints )
                            )
                 resources:resources
           ).
@@ -860,7 +860,7 @@
     ((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
     ].
@@ -877,23 +877,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,
@@ -902,84 +902,84 @@
     m := myMenu menuAt:#demos.
     m subMenuAt:#games
       put:(PopUpMenu
-		itemList:#(
-			   ('Tetris'                  startTetris     )
-			   ('Tic Tac Toe'             startTicTacToe  )
-			   ('Tic Tac Toe (2 players)' startTicTacToe2 )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('Tetris'                  startTetris     )
+                           ('Tic Tac Toe'             startTicTacToe  )
+                           ('Tic Tac Toe (2 players)' startTicTacToe2 )
+                          )
+                resources:resources).
 
     "
      and labels:selector:args:receiver: here:
     "
     m subMenuAt:#geometricDesigns
       put:(PopUpMenu
-		itemList:#(
-			   ('Pen demo'                   #openDemo:  nil PenDemo              )
-			   ('Commander demo'             #openDemo:  nil CommanderDemo        )
-			   ('-'                                                               )
-			   ('Mandelbrot demo'            #openDemo:  nil ComplexIterationView )
-			   ('Fractal plants demo'        #openDemo:  nil FractalPlantsDemo    )
-			   ('Fractal patterns demo'      #openDemo:  nil FractalPatternsDemo  )
-			   ('more fractal patterns demo' #openDemo:  nil ArmchairUniverseDemo )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('Pen demo'                   #openDemo:  nil PenDemo              )
+                           ('Commander demo'             #openDemo:  nil CommanderDemo        )
+                           ('-'                                                               )
+                           ('Mandelbrot demo'            #openDemo:  nil ComplexIterationView )
+                           ('Fractal plants demo'        #openDemo:  nil FractalPlantsDemo    )
+                           ('Fractal patterns demo'      #openDemo:  nil FractalPatternsDemo  )
+                           ('more fractal patterns demo' #openDemo:  nil ArmchairUniverseDemo )
+                          )
+                resources:resources).
 
     m subMenuAt:#simpleAnimations 
       put:(PopUpMenu
-		itemList:#(
-			   ('Animation'     #openDemo: nil Animation )
-			   ('Globe demo'    #openDemo: nil GlobeDemo )
-			 )
-		resources:resources).
+                itemList:#(
+                           ('Animation'     #openDemo: nil Animation )
+                           ('Globe demo'    #openDemo: nil GlobeDemo )
+                         )
+                resources:resources).
 
     m subMenuAt:#'3Dgraphics' 
       put:(PopUpMenu
-		itemList:#( 
-			    ('plane'                  #openDemo:  nil  GLPlaneDemoView2      )
-			    ('tetra'                  #openDemo:  nil  GLTetraDemoView       )
-			    ('cube (wireframe)'       #openDemo:  nil  GLWireCubeDemoView    )
-			    ('cube (solid)'           #openDemo:  nil  GLCubeDemoView        )
-			    ('sphere (wireframe)'     #openDemo:  nil  GLWireSphereDemoView  )
-			    ('doughnut (wireframe)'   #openDemo:  nil  GLDoughnutDemoView    )
-			    ('planet'                 #openDemo:  nil  GLPlanetDemoView      )
-			    ('teapot'                 #openDemo:  nil  GLTeapotDemo          )
-			    ('logo'                   #openDemo:  nil  Logo3DView1           )
-			    ('rubics cube'            #openDemo:  nil  RubicsCubeView        )
-			    ('x/y graph'              #openDemo:  nil  GLXYGraph             )
-			    ('x/y graph widget'       #openDemo:  nil  #'CodingExamples_GUI::GLXYGraph3DDemo'        )
-			    ('x/y graph animated'     #openDemo:  nil  #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo')
-			    ('-'                                                             )
-			    ('cube (light)'           #openDemo:  nil  GLCubeDemoView2       )
-			    ('cube (light & texture)' #openDemo:  nil  GLBrickCubeDemoView   )
-			    ('sphere (light)'         #openDemo:  nil  GLSphereDemoView2     )
-			    ('colored octahedron'     #openDemo:  nil  GLOctaHedronDemoView  )
-			  )
-		resources:resources).
+                itemList:#( 
+                            ('plane'                  #openDemo:  nil  GLPlaneDemoView2      )
+                            ('tetra'                  #openDemo:  nil  GLTetraDemoView       )
+                            ('cube (wireframe)'       #openDemo:  nil  GLWireCubeDemoView    )
+                            ('cube (solid)'           #openDemo:  nil  GLCubeDemoView        )
+                            ('sphere (wireframe)'     #openDemo:  nil  GLWireSphereDemoView  )
+                            ('doughnut (wireframe)'   #openDemo:  nil  GLDoughnutDemoView    )
+                            ('planet'                 #openDemo:  nil  GLPlanetDemoView      )
+                            ('teapot'                 #openDemo:  nil  GLTeapotDemo          )
+                            ('logo'                   #openDemo:  nil  Logo3DView1           )
+                            ('rubics cube'            #openDemo:  nil  RubicsCubeView        )
+                            ('x/y graph'              #openDemo:  nil  GLXYGraph             )
+                            ('x/y graph widget'       #openDemo:  nil  #'CodingExamples_GUI::GLXYGraph3DDemo'        )
+                            ('x/y graph animated'     #openDemo:  nil  #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo')
+                            ('-'                                                             )
+                            ('cube (light)'           #openDemo:  nil  GLCubeDemoView2       )
+                            ('cube (light & texture)' #openDemo:  nil  GLBrickCubeDemoView   )
+                            ('sphere (light)'         #openDemo:  nil  GLSphereDemoView2     )
+                            ('colored octahedron'     #openDemo:  nil  GLOctaHedronDemoView  )
+                          )
+                resources:resources).
 
     m subMenuAt:#graphicEditors 
       put:(PopUpMenu
-		itemList:#(
-			   ('DrawTool'   #openDemo:  nil  DrawTool       )
-			   ('LogicTool'  #openDemo:  nil  LogicTool      )
-			   ('Paint Demo' #openDemo:  nil  ColorDrawDemo3 )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('DrawTool'   #openDemo:  nil  DrawTool       )
+                           ('LogicTool'  #openDemo:  nil  LogicTool      )
+                           ('Paint Demo' #openDemo:  nil  ColorDrawDemo3 )
+                          )
+                resources:resources).
 
     m subMenuAt:#goodies 
       put:(PopUpMenu
-		itemList:#(
-			    ('clock'          #openDemo:  nil  Clock            )
-			    ('digital clock'  #openDemo:  nil  DigitalClockView )
-			    ('calendar'       #openDemo:  nil  Calendar         )
-			    ('calculator'     #openDemo:  nil  CalculatorView   )
-			    ('-'                                                )
-			    ('mail tool'      #openDemo:  nil  MailView         )
-			    ('news tool'      #openDemo:  nil  NewsView         )
-			    ('ftp tool'       #openDemo:  nil  FTPTool          )
-			    ('telnet tool'    #openDemo:  nil  TelnetTool       )
-			   )
-		resources:resources).
+                itemList:#(
+                            ('clock'          #openDemo:  nil  Clock            )
+                            ('digital clock'  #openDemo:  nil  DigitalClockView )
+                            ('calendar'       #openDemo:  nil  Calendar         )
+                            ('calculator'     #openDemo:  nil  CalculatorView   )
+                            ('-'                                                )
+                            ('mail tool'      #openDemo:  nil  MailView         )
+                            ('news tool'      #openDemo:  nil  NewsView         )
+                            ('ftp tool'       #openDemo:  nil  FTPTool          )
+                            ('telnet tool'    #openDemo:  nil  TelnetTool       )
+                           )
+                resources:resources).
 
     "Modified: / 28.7.1998 / 15:17:12 / cg"
 !
@@ -992,28 +992,28 @@
     |l s|
 
     l := #(
-		'file browser'
-		'-'
-		'modules ...'
-		'-'
-		'snapshot ...'
-		'snapshot & exit ...'
-		'exit smalltalk ...'
-	 ).
+                'File Browser'
+                '-'
+                'Modules...'
+                '-'
+                'Snapshot...'
+                'Snapshot & Exit...'
+                'Exit Smalltalk...'
+         ).
     s := #(
-		#startFileBrowser
-		nil
-		#objectModuleDialog 
-		nil
-		#snapshot
-		#snapshotAndExit
-		#exit
-	 ).
+                #startFileBrowser
+                nil
+                #objectModuleDialog 
+                nil
+                #snapshot
+                #snapshotAndExit
+                #exit
+         ).
 
     myMenu at:#file
-	   putLabels:(resources array:l)
-	   selectors:s
-	   receiver:self.
+           putLabels:(resources array:l)
+           selectors:s
+           receiver:self.
 
     "Created: / 8.1.1997 / 14:04:15 / cg"
     "Modified: / 29.10.1997 / 03:40:49 / cg"
@@ -1027,57 +1027,57 @@
     |l s|
 
     ActiveHelp notNil ifTrue:[
-	l := #(
-		'what''s new'
-		'index'
-		'-'
-		'ST/X online documentation'
-		'class documentation'
-		'-'
-		'print documentation ...'
-		'-'
-		'active help \c'
-	      ).
-	s := #(
-		#startWhatsNewDocumentation
-		#startDocumentationIndex
-		nil
-		#startDocumentationTool
-		#startClassDocumentation
-		nil
-		#showBookPrintDocument
-		nil
-		#toggleActiveHelp:
-	      )
+        l := #(
+                'What''s New'
+                'Index'
+                '-'
+                'ST/X Online Documentation'
+                'Class Documentation'
+                '-'
+                'Print Documentation...'
+                '-'
+                'Active Help \c'
+              ).
+        s := #(
+                #startWhatsNewDocumentation
+                #startDocumentationIndex
+                nil
+                #startDocumentationTool
+                #startClassDocumentation
+                nil
+                #showBookPrintDocument
+                nil
+                #toggleActiveHelp:
+              )
     ] ifFalse:[
-	l := #(
-		'what''s new'
-		'index'
-		'-'
-		'ST/X online documentation'
-		'class documentation'
-		'-'
-		'print documentation ...'
-	      ).
-	s := #(
-		#startWhatsNewDocumentation
-		#startDocumentationIndex
-		nil
-		#startDocumentationTool
-		#startClassDocumentation
-		nil
-		#showBookPrintDocument
-	      )
+        l := #(
+                'what''s new'
+                'index'
+                '-'
+                'ST/X online documentation'
+                'class documentation'
+                '-'
+                'print documentation ...'
+              ).
+        s := #(
+                #startWhatsNewDocumentation
+                #startDocumentationIndex
+                nil
+                #startDocumentationTool
+                #startClassDocumentation
+                nil
+                #showBookPrintDocument
+              )
     ].
 
     myMenu at:#help 
-	   putLabels:(resources array:l)
-	   selectors:s
-	   receiver:self.
+           putLabels:(resources array:l)
+           selectors:s
+           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"
@@ -1179,17 +1179,17 @@
     <resource: #programMenu >
 
     myMenu at:#projects 
-	   putLabels:(resources array:#(
-					'new project'
-					'-'
-					'select project ...'
-					))
-	   selectors:#(
-					#newProject 
-					nil
-					#selectProject 
-		      )
-	   receiver:self.
+           putLabels:(resources array:#(
+                                        'New Project'
+                                        '-'
+                                        'Select Project...'
+                                        ))
+           selectors:#(
+                                        #newProject 
+                                        nil
+                                        #selectProject 
+                      )
+           receiver:self.
 
     "Created: / 8.1.1997 / 14:06:18 / cg"
     "Modified: / 29.10.1997 / 03:41:09 / cg"
@@ -1253,88 +1253,88 @@
     |m |
 
     myMenu at:#tools 
-	   putLabels:(resources array:#(
-					'workspace'
-					'-'
-					'GUI builder'
-					'-'
-					'new launcher'
-					'-'
-					'monitors'
-					'-'
-					'views'
-					'-'
-					'hardcopy'
-					'-'
-					'misc'
-					))
-	   selectors:#(
-					#startWorkspace 
-					nil
-					#startGUIBuilder
-					nil
-					#startNewLauncher
-					nil
-					#monitors
-					nil
-					#views
-					nil
-					#hardcopy 
-					nil
-					#misc 
-		      )
-	   receiver:self.
+           putLabels:(resources array:#(
+                                        'Workspace'
+                                        '-'
+                                        'GUI builder'
+                                        '-'
+                                        'New Launcher'
+                                        '-'
+                                        'Monitors'
+                                        '-'
+                                        'Views'
+                                        '-'
+                                        'Hardcopy'
+                                        '-'
+                                        'misc'
+                                        ))
+           selectors:#(
+                                        #startWorkspace 
+                                        nil
+                                        #startGUIBuilder
+                                        nil
+                                        #startNewLauncher
+                                        nil
+                                        #monitors
+                                        nil
+                                        #views
+                                        nil
+                                        #hardcopy 
+                                        nil
+                                        #misc 
+                      )
+           receiver:self.
 
 
     m := myMenu menuAt:#tools.
     m subMenuAt:#monitors 
       put:(PopUpMenu
-		itemList:#(
-			   ('process'      #startApplication:  nil  #ProcessMonitor          )
-			   ('semaphores'   #startApplication:  nil  #SemaphoreMonitor        )
-			   ('memory'       #startApplication:  nil  #MemoryMonitor           )
-			   ('irq latency'  #startApplication:  nil  #InterruptLatencyMonitor )
-			   ('event view'   #startApplication:  nil  #EventMonitor            )
-			   ('event trace'  #startApplication:  nil  #StopEventTrace          )
-			   ('-'                                                              )
-			   ('memory usage' #startApplication:  nil  #MemoryUsageView         )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('Process'      #startApplication:  nil  #ProcessMonitor          )
+                           ('Semaphores'   #startApplication:  nil  #SemaphoreMonitor        )
+                           ('Memory'       #startApplication:  nil  #MemoryMonitor           )
+                           ('Irq Latency'  #startApplication:  nil  #InterruptLatencyMonitor )
+                           ('Event View'   #startApplication:  nil  #EventMonitor            )
+                           ('Event Trace'  #startApplication:  nil  #StopEventTrace          )
+                           ('-'                                                              )
+                           ('Memory usage' #startApplication:  nil  #MemoryUsageView         )
+                          )
+                resources:resources).
 
     m subMenuAt:#views 
       put:(PopUpMenu
-		itemList:#(
-			   ('iconify all'           #iconifyAllWindows        )
-			   ('de-iconify all'        #deIconifyAllWindows      )
-			   ('-'                                               )
-			   ('find & raise ...'      #findAndRaiseWindow       )
-			   ('-'                                               )
-			   ('view tree (all views)' #startFullWindowTreeView  )
-			   ('view tree'             #startWindowTreeView      )
-			   ('-'                                               )
-			   ('select & inspect view' #viewInspect              )
-			   ('-'                                               )
-			   ('select & destroy view' #viewDestroy              )
-			   ('find & destroy ...'    #findAndDestroyWindow     )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('Iconify all'           #iconifyAllWindows        )
+                           ('Deiconify all'         #deIconifyAllWindows      )
+                           ('-'                                               )
+                           ('Find & Raise...'       #findAndRaiseWindow       )
+                           ('-'                                               )
+                           ('View Tree (all views)' #startFullWindowTreeView  )
+                           ('View Tree'             #startWindowTreeView      )
+                           ('-'                                               )
+                           ('Select & Inspect View' #viewInspect              )
+                           ('-'                                               )
+                           ('Select & Destroy View' #viewDestroy              )
+                           ('Find & Destroy...'     #findAndDestroyWindow     )
+                          )
+                resources:resources).
 
     m subMenuAt:#misc 
       put:(PopUpMenu
-		itemList:#(
-			   ('garbage collect'            #garbageCollect            )
-			   ('garbage collect & compress' #compressingGarbageCollect )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('Garbage Collect'            #garbageCollect            )
+                           ('Garbage Collect & Compress' #compressingGarbageCollect )
+                          )
+                resources:resources).
 
     m subMenuAt:#hardcopy 
       put:(PopUpMenu
-		itemList:#(
-			   ('screen' #fullScreenHardcopy )
-			   ('area'   #screenHardcopy     )
-			   ('view'   #viewHardcopy       )
-			  )
-		resources:resources).
+                itemList:#(
+                           ('Screen' #fullScreenHardcopy )
+                           ('Area'   #screenHardcopy     )
+                           ('View'   #viewHardcopy       )
+                          )
+                resources:resources).
 
     "Modified: / 31.10.1997 / 16:01:53 / cg"
     "Modified: / 19.12.1997 / 13:15:27 / stefan"
@@ -1726,5 +1726,5 @@
 !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 $'
 ! !