--- a/Launcher.st Tue Feb 20 21:50:15 1996 +0100
+++ b/Launcher.st Tue Feb 20 23:41:45 1996 +0100
@@ -1832,159 +1832,161 @@
|l s icon|
myMenu labels:(resources array:#(
- 'about'
- 'file'
- 'classes'
- 'tools'
- 'projects'
- 'settings'
- 'demos'
- 'help')).
+ 'about'
+ 'file'
+ 'classes'
+ 'tools'
+ 'projects'
+ 'settings'
+ 'demos'
+ 'help')).
"
if there is a bitmap, change 'about' to the ST/X icon
"
icon := self class smallAboutIcon.
icon notNil ifTrue:[
- myMenu labels at:1 put:icon.
- myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
+ myMenu labels at:1 put:icon.
+ myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
].
myMenu selectors:#(
- #about
- #file
- #classes
- #tools
- #projects
- #settings
- #demos
- #help).
+ #about
+ #file
+ #classes
+ #tools
+ #projects
+ #settings
+ #demos
+ #help).
myMenu at:#about
- putLabels:(resources array:#(
- 'about Smalltalk/X ...'
- ))
- selectors:#(
- #about
- )
- receiver:self.
+ putLabels:(resources array:#(
+ 'about Smalltalk/X ...'
+ ))
+ selectors:#(
+ #about
+ )
+ receiver:self.
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.
myMenu at:#classes
- putLabels:(resources array:#(
- 'system browser'
- 'class browser'
- 'full class browser'
- 'class hierarchy browser'
- 'class tree'
- '-'
- 'implementors'
- 'senders'
- '-'
- 'change browser'
- ))
- selectors:#(
- #startSystemBrowser
- #startClassBrowser
- #startFullClassBrowser
- #startClassHierarchyBrowser
- #startClassTreeView
- nil
- #browseImplementors
- #browseSenders
- nil
- #startChangesBrowser
- )
- receiver:self.
+ putLabels:(resources array:#(
+ 'system browser'
+ 'class browser ...'
+ 'full class browser ...'
+ 'class hierarchy browser ...'
+ 'class tree'
+ '-'
+ 'implementors ...'
+ 'senders ...'
+ '-'
+ 'change browser'
+ ))
+ selectors:#(
+ #startSystemBrowser
+ #startClassBrowser
+ #startFullClassBrowser
+ #startClassHierarchyBrowser
+ #startClassTreeView
+ nil
+ #browseImplementors
+ #browseSenders
+ nil
+ #startChangesBrowser
+ )
+ receiver:self.
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.
myMenu at:#settings
- putLabels:(resources array:#(
- 'language'
- 'show keyboard mappings'
- 'view style'
- 'printer'
- 'messages'
- 'compilation'
- 'memory'
- 'misc'
- ))
- selectors:#(
- #languageSetting
- #keyboardSetting
- #viewStyleSetting
- #printerSettings
- #messageSettings
- #compilerSettings
- #memorySettings
- #miscSettings
- )
- receiver:self.
+ putLabels:(resources array:#(
+ 'language ...'
+ 'show keyboard mappings ...'
+ 'view style ...'
+ 'printer ...'
+ 'messages ...'
+ 'compilation ...'
+ 'object memory ...'
+ 'misc ...'
+ ))
+ selectors:#(
+ #languageSetting
+ #keyboardSetting
+ #viewStyleSetting
+ #printerSettings
+ #messageSettings
+ #compilerSettings
+ #memorySettings
+ #miscSettings
+ )
+ receiver:self.
self setupToolsMenu.
self setupDemoMenu.
ActiveHelp notNil ifTrue:[
- l := #(
- '\c active help'
- 'ST/X documentation'
- ).
- s := #(
- #toggleActiveHelp:
- #startDocumentationTool
- )
+ l := #(
+ '\c active help'
+ 'ST/X documentation'
+ ).
+ s := #(
+ #toggleActiveHelp:
+ #startDocumentationTool
+ )
] ifFalse:[
- l := #(
- 'ST/X documentation'
- ).
- s := #(
- #startDocumentationTool
- )
+ l := #(
+ 'ST/X documentation'
+ ).
+ s := #(
+ #startDocumentationTool
+ )
].
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
].
+
+ "Modified: 20.2.1996 / 23:40:45 / cg"
!
setupOtherViewsIn:aTopView
@@ -2199,5 +2201,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.81 1996-02-11 16:01:42 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.82 1996-02-20 22:41:45 cg Exp $'
! !