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