hg/stx-libtool: comparison Launcher.st

equal deleted inserted replaced

-:2b66e8759af5
+:0189f3d732e2
 adding an entry to a menu:
 see the #setupMenu method; either add another top-menu, or
 add entries to an existing menu.
+All menu setup has been extracted into separate init-methods,
+so there is often only a need to redefine one of those
+(for example, to add your own demos, only redefine setupDemoMenu).
+To add a new master-item with its own pullDown, redefine setupMainMenu
+to include another selector and add the correspoonding menu there.
 "
 !
 documentation
 "
 Also, this app makes first use of the new compatibility framework;
 you will notice, that this is a subclass of ApplicationModel.
 New applications will no longer be built as subclasses of standardSystemView.
+See #customization for information regarding your own private
+launcher functions.
 [author:]
 Claus Gittinger
+[see also:]
+Examples_misc::MyLauncher
+[start with:]
+Launcher open
 "
 ! !
 !Launcher class methodsFor:'accessing'!
 ! !
 !Launcher class methodsFor:'defaults'!
 aboutIcon
+"return the icon shown in the about menu-item and used
+as ST/X about icon"
 |image|
 CachedAboutIcon notNil ifTrue:[^ CachedAboutIcon].
 image := Image fromFile:'SmalltalkX.xbm'.
 "
 CachedAboutIcon := nil.
 Launcher aboutIcon
 "
-"Modified: 28.5.1996 / 20:55:15 / cg"
 "Modified: 9.9.1996 / 22:41:23 / stefan"
+"Modified: 8.1.1997 / 15:01:30 / cg"
 !
 buttonImageSize
 "images in buttonPanel are sized to this.
 Can be redefined in subclasses to return nil (no scaling)
 "Modified: 19.4.1996 / 16:36:17 / cg"
 !
 notifyingEmergencyHandler
+"return a block (used as an emergency handler
+for exceptions), which does errorNotification before going
+into the debugger."
 NotifyingEmergencyHandler isNil ifTrue:[
 NotifyingEmergencyHandler := [:ex | nil errorNotify:ex errorString ]
 ].
 ^ NotifyingEmergencyHandler
 "Created: 7.1.1997 / 22:18:19 / cg"
+"Modified: 8.1.1997 / 15:02:46 / cg"
 !
 smallAboutIcon
+"return the icon shown in the about menu-item"
 |image|
 image := self aboutIcon.
 image notNil ifTrue:[
 image := image magnifiedBy:0.4.
 Launcher aboutIcon.
 Launcher smallAboutIcon.
 "
 "Modified: 9.9.1996 / 22:42:12 / stefan"
+"Modified: 8.1.1997 / 15:02:56 / cg"
 ! !
 !Launcher methodsFor:'actions - about & help'!
 about
+"show an about box"
 |box|
 box := AboutBox new.
 box autoHideAfter:10 with:[].
 box showAtCenter
+"Modified: 8.1.1997 / 14:37:07 / cg"
 !
 showBookPrintDocument
+"open an HTML browser on the 'book'-printing document"
 self showDocumentation:'BOOK.html'
 "Modified: 31.8.1995 / 13:11:28 / claus"
 "Created: 12.9.1996 / 01:53:30 / cg"
+"Modified: 8.1.1997 / 14:42:59 / cg"
 !
 showDocumentation:aRelativeDocFilePath
+"open an HTML browser on some document"
 "
 although that one is not yet finished,
 its better than nothing ...
 "
 HTMLDocumentView notNil ifTrue:[
 other HTML viewer to see the documentation.
 The documentation is found in the ''doc/online'' directory.'.
 "Modified: 31.8.1995 / 13:11:08 / claus"
-"Modified: 21.5.1996 / 14:15:57 / cg"
+"Modified: 8.1.1997 / 14:42:42 / cg"
 !
 showLicenceConditions
+"open an HTML browser on the 'LICENCE' document"
 |lang doc|
 ((lang := Smalltalk language) = 'de'
 or:[lang = 'german']) ifTrue:[
 doc := 'german/LICENCE.STX.html'
 doc := resources at:'LICENCEFILE' default:doc.
 self showDocumentation:('../' , doc)
 "Created: 14.9.1996 / 12:35:00 / cg"
 "Modified: 23.9.1996 / 17:03:15 / stefan"
-"Modified: 11.11.1996 / 14:17:07 / cg"
+"Modified: 8.1.1997 / 14:39:57 / cg"
 !
 startClassDocumentation
+"open an HTML browser on the 'classDoc/TOP' document"
 self showDocumentation:'classDoc/TOP.html'
 "Modified: 31.8.1995 / 13:11:28 / claus"
 "Created: 22.4.1996 / 21:03:56 / cg"
+"Modified: 8.1.1997 / 14:42:04 / cg"
 !
 startDocumentationIndex
+"open an HTML browser on the 'index' document"
 self showDocumentation:'index.html'
 "Modified: 31.8.1995 / 13:11:28 / claus"
 "Created: 17.4.1996 / 22:08:55 / cg"
+"Modified: 8.1.1997 / 14:41:23 / cg"
 !
 startDocumentationTool
+"open an HTML browser on the 'TOP' document"
 self showDocumentation:'TOP.html'
 "Modified: 31.8.1995 / 13:11:28 / claus"
+"Modified: 8.1.1997 / 14:41:38 / cg"
 !
 startWhatsNewDocumentation
+"open an HTML browser on the 'whatsNew.html' document"
 self showDocumentation:'whatsNew.html'
 "Modified: 31.8.1995 / 13:11:28 / claus"
 "Created: 18.10.1996 / 14:00:35 / cg"
+"Modified: 8.1.1997 / 14:39:32 / cg"
 !
 toggleActiveHelp:aBoolean
+"turn on/off active help"
 ActiveHelp notNil ifTrue:[
 helpIsOn := aBoolean.
 helpIsOn ifTrue:[
 ActiveHelp start
 ] ifFalse:[
 ActiveHelp stop
 ]
 ].
+"Modified: 8.1.1997 / 14:37:30 / cg"
 ! !
 !Launcher methodsFor:'actions - classes'!
 browseImplementors
+"open an implementors- browser after asking for a selector"
 |enterBox|
 enterBox := EnterBox title:(resources at:'Browse implementors of:') withCRs.
 enterBox okText:(resources at:'browse').
 enterBox action:[:selectorName |
 |cls|
 self withWaitCursorDo:[SystemBrowser browseImplementorsOf:selectorName]
 ].
 enterBox showAtPointer
+"Modified: 8.1.1997 / 14:44:09 / cg"
 !
 browseResources
+"open a resource- browser after asking for a resource string"
 |enterBox t|
 enterBox := EnterBox title:(resources at:'Resource symbol (nil for any):') withCRs.
 enterBox okText:(resources at:'browse').
 enterBox action:[:resourceName |
 ]
 ].
 enterBox showAtPointer
 "Created: 28.5.1996 / 13:15:16 / cg"
-"Modified: 29.5.1996 / 17:30:38 / cg"
+"Modified: 8.1.1997 / 14:44:41 / cg"
 !
 browseSenders
+"open a senders- browser after asking for a selector"
 |enterBox|
 enterBox := EnterBox title:(resources at:'Browse senders of:') withCRs.
 enterBox okText:(resources at:'browse').
 enterBox action:[:selectorName |
 |cls|
 self withWaitCursorDo:[SystemBrowser browseAllCallsOn:selectorName]
 ].
 enterBox showAtPointer
+"Modified: 8.1.1997 / 14:46:46 / cg"
 !
 startChangesBrowser
+"open a changebrowser"
 self withWaitCursorDo:[ChangesBrowser open]
+"Modified: 8.1.1997 / 14:47:07 / cg"
 !
 startClassBrowser
+"open a classBrowser; asks for class"
 SystemBrowser askThenBrowseClass
+"Modified: 8.1.1997 / 14:48:16 / cg"
 !
 startClassHierarchyBrowser
+"open a classHierarchyBrowser; asks for class"
 SystemBrowser askThenBrowseClassHierarchy
+"Modified: 8.1.1997 / 14:48:28 / cg"
 !
 startClassTreeView
+"open a classHierarchyTree view"
 self withWaitCursorDo:[ClassTreeGraphView open]
+"Modified: 8.1.1997 / 14:48:38 / cg"
 !
 startFileBrowser
+"open a fileBrowser"
 self withWaitCursorDo:[FileBrowser open]
+"Modified: 8.1.1997 / 14:48:47 / cg"
 !
 startFullClassBrowser
+"open a fullClass systemBrowser; asks for class"
 SystemBrowser askThenBrowseFullClassProtocol
+"Modified: 8.1.1997 / 14:48:06 / cg"
 !
 startJavaBrowser
+"open a javaBrowser (not included in the standard distribution)"
 JavaBrowser notNil ifTrue:[
 self withWaitCursorDo:[JavaBrowser open]
 ]
 "Created: 18.4.1996 / 15:55:44 / cg"
-"Modified: 19.4.1996 / 16:39:08 / cg"
+"Modified: 8.1.1997 / 14:47:31 / cg"
 !
 startSystemBrowser
+"open a systemBrowser"
 self withWaitCursorDo:[SystemBrowser open]
+"Modified: 8.1.1997 / 14:47:43 / cg"
 !
 startWorkspace
+"open a workspace"
 Workspace open
+"Modified: 8.1.1997 / 14:47:49 / cg"
 ! !
 !Launcher methodsFor:'actions - demos'!
 openDemo:className
+"open a demo, given its name.
+Looks in both the Smalltalk- and the Demos-Namespace
+for that class."
 self openApplication:className nameSpace:Demos
-"Modified: 8.1.1997 / 12:50:05 / cg"
+"Modified: 8.1.1997 / 14:51:02 / cg"
 !
 startTetris
+"opens a tetris game"
 self openDemo:'Tetris'
-"Modified: 8.1.1997 / 12:51:39 / cg"
+"Modified: 8.1.1997 / 14:49:15 / cg"
 !
 startTicTacToe
+"opens a ticTacToe game against the machine"
 self openDemo:'TicTacToeGame'
-"Modified: 8.1.1997 / 12:51:49 / cg"
+"Modified: 8.1.1997 / 14:49:37 / cg"
 !
 startTicTacToe2
+"opens a 2-user ticTacToe game"
 self openApplication:'TicTacToeGame' nameSpace:Demos with:#open2UserGame
-"Modified: 8.1.1997 / 12:52:50 / cg"
+"Modified: 8.1.1997 / 14:49:29 / cg"
 ! !
 !Launcher methodsFor:'actions - file'!
 exit
+"stop ST/X - after asking for confirmation"
 (self confirm:(resources string:'Are you certain you want to exit without saving ?'))
 ifTrue:[
 self saveAllViews.
 Smalltalk exit
 ]
+"Modified: 8.1.1997 / 14:50:00 / cg"
 !
 objectModuleDialog
+"opens a moduleInfo dialog"
 |allModules moduleNames
 allObjects methodObjects methodNames
 cObjects cObjectNames
 otherObjects otherObjectNames
 box l handles unloadButton
 box open.
 box destroy.
 "Modified: 17.9.1995 / 16:47:50 / claus"
-"Modified: 1.11.1996 / 16:36:14 / cg"
+"Modified: 8.1.1997 / 14:50:15 / cg"
 !
 snapshot
+"saves a snapshot image, after asking for a fileName"
 |fileName|
 fileName := DialogBox
 request:(resources at:'filename for image:') withCRs
 initialAnswer:(ObjectMemory nameForSnapshot)
 ] valueNowOrOnUnwindDo:[
 self restoreCursors.
 ].
 ].
-"Modified: 1.6.1996 / 17:02:45 / cg"
+"Modified: 8.1.1997 / 14:50:29 / cg"
 !
 snapshotAndExit
+"saves a snapshot image and exits, after asking for a fileName"
 |fileName ok|
 fileName := DialogBox
 request:(resources at:'filename for image:') withCRs
 initialAnswer:(ObjectMemory nameForSnapshot)
 "
 Smalltalk exit
 ]
 ].
-"Modified: 1.6.1996 / 17:02:07 / cg"
+"Modified: 8.1.1997 / 14:50:36 / cg"
 ! !
 !Launcher methodsFor:'actions - goodies'!
 openGoodie:className
+"open a goodie, given its name.
+Looks in both the Smalltalk- and the Goodies-Namespace
+for that class."
 self openApplication:className nameSpace:Goodies
-"Modified: 8.1.1997 / 12:50:46 / cg"
+"Modified: 8.1.1997 / 14:51:18 / cg"
 !
 startCalendar
+"open a calendar goodie"
 self openGoodie:'Calendar'
-"Modified: 8.1.1997 / 12:50:59 / cg"
+"Modified: 8.1.1997 / 14:51:29 / cg"
 !
 startClock
+"open a clock goodie"
 self openGoodie:'RoundClock'
-"Modified: 8.1.1997 / 12:51:07 / cg"
+"Modified: 8.1.1997 / 14:51:34 / cg"
 !
 startMailTool
+"open a mailView goodie"
 self openGoodie:'MailView'
-"Modified: 8.1.1997 / 12:51:19 / cg"
+"Modified: 8.1.1997 / 14:51:42 / cg"
 !
 startNewsTool
+"open a newsTool goodie"
 self openGoodie:'NewsView'
-"Modified: 8.1.1997 / 12:51:24 / cg"
+"Modified: 8.1.1997 / 14:51:48 / cg"
 ! !
 !Launcher methodsFor:'actions - projects'!
 newProject
+"creates a new project & opens a projectView for it"
 Project notNil ifTrue:[
 (ProjectView for:(Project new)) open
 ]
+"Modified: 8.1.1997 / 14:52:07 / cg"
 !
 selectProject
+"asks for and switch to another project"
 |list box|
 Project notNil ifTrue:[
 list := Project allInstances.
 box := ListSelectionBox new.
 ].
 box showAtPointer.
 box destroy
 ]
-"Modified: 5.7.1996 / 13:12:53 / cg"
+"Modified: 8.1.1997 / 14:52:20 / cg"
 ! !
 !Launcher methodsFor:'actions - settings'!
 compilerSettings
+"open a dialog on compiler related settings"
 |box warnings warnSTX warnUnderscore warnOldStyle allowUnderscore immutableArrays
 warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
 stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
 stcLibraries stcLibraryPath cc ccOptions historyLines catchRedefs keepSourceOptions keepSource
 constantFoldingOptions constantFolding justInTimeCompilation fullSingleStep
 ].
 box destroy
 "Modified: 10.9.1995 / 19:19:18 / claus"
 "Modified: 9.9.1996 / 22:42:47 / stefan"
-"Modified: 5.11.1996 / 18:00:06 / cg"
+"Modified: 8.1.1997 / 14:52:36 / cg"
 !
 displaySettings
+"open a dialog on display related settings"
 |box
 sizes sizeNames sizeList sizeX sizeY deepIcons
 isColorMonitor useFixPalette idx ditherStyles ditherSyms ditherList
 y component screen visual|
 ].
 ].
 box destroy
 "Modified: 9.9.1996 / 22:43:04 / stefan"
-"Modified: 30.9.1996 / 23:25:22 / cg"
+"Modified: 8.1.1997 / 14:52:42 / cg"
 !
 fontSettings
+"open a dialog on font related settings"
 (self fontBoxForEncoding:nil) ifTrue:[
 self reopenLauncher.
 ]
 "Created: 26.2.1996 / 22:52:51 / cg"
-"Modified: 27.2.1996 / 02:05:05 / cg"
+"Modified: 8.1.1997 / 14:52:49 / cg"
 !
 keyboardSetting
+"open a dialog on keyboard related settings"
 |mappings listOfRawKeys listOfFunctions
 box l
 list1 list2 listView1 listView2
 frame selectionForwarder macroForwarder macroTextView y|
 box accepted ifTrue:[
 "no action yet ..."
 ].
 box destroy
-"Modified: 31.5.1996 / 22:55:51 / cg"
 "Modified: 9.9.1996 / 22:43:17 / stefan"
+"Modified: 8.1.1997 / 14:52:55 / cg"
 !
 languageSetting
+"open a dialog on language related settings"
 |listOfLanguages translatedLanguages switch box|
 "
 get list of supported languages from the launchers resources ...
 "
 addHelpButtonFor:'Launcher/languageSetting.html'.
 box open.
 box destroy
 "Modified: 9.9.1996 / 22:43:27 / stefan"
-"Modified: 18.10.1996 / 15:09:16 / cg"
+"Modified: 8.1.1997 / 14:53:01 / cg"
 !
 memorySettings
+"open a dialog on objectMemory related settings"
 |box igcLimit igcFreeLimit igcFreeAmount newSpaceSize
 compressLimit
 oldIncr component fields codeLimit codeTrigger|
 "/
 ObjectMemory dynamicCodeLimit:codeLimit value.
 ObjectMemory dynamicCodeGCTrigger:codeTrigger value.
 ].
 box destroy
-"Modified: 17.10.1996 / 20:21:16 / cg"
+"Modified: 8.1.1997 / 14:53:07 / cg"
 !
 messageSettings
+"open a dialog on infoMessage related settings"
 |box vmInfo vmErrors displayErrors classInfos|
 vmInfo := ObjectMemory infoPrinting asValue.
 vmErrors := ObjectMemory debugPrinting asValue.
 classInfos := Object infoPrinting asValue.
 Object infoPrinting:classInfos value.
 DeviceWorkstation errorPrinting:displayErrors value.
 ].
 box destroy
-"Modified: 29.5.1996 / 14:16:19 / cg"
+"Modified: 8.1.1997 / 14:53:14 / cg"
 !
 miscSettings
+"open a dialog on misc other settings"
 |box check logDoits shadows updChanges changeFileName returnFocus
 loadBinaries compileLazy hostNameInLabel useManager hasManager
 repository repositoryHolder localSourceFirst
 showAccelerators sourceCacheDir cacheEntry
 component localCheck oldIndent nm fn manager
 ]
 ].
 box destroy
 "Modified: 9.9.1996 / 22:43:36 / stefan"
-"Modified: 7.1.1997 / 22:22:19 / cg"
+"Modified: 8.1.1997 / 14:53:22 / cg"
 !
 printerSettings
+"open a dialog on printer related settings"
 |box
 possiblePrinters possibleTypes printerType printCommand
 pageFormat landscape updater
 formatLabel formatComponent landscapeLabel landscapeComponent
 topMargin leftMargin rightMargin bottomMargin unitList unit
 Printer supportsColor:supportsColor value.
 ].
 ].
 box destroy
-"Modified: 5.9.1996 / 21:45:19 / cg"
 "Modified: 9.9.1996 / 22:43:51 / stefan"
+"Modified: 8.1.1997 / 14:53:31 / cg"
 !
 restoreSettings
+"restore settings from a settings-file."
 "a temporary kludge - we need a central systemSettings object for this,
 which can be saved/restored with a single store/read."
 |fileName|
 Smalltalk fileIn:fileName.
 self reopenLauncher.
 ].
-"Modified: 9.11.1996 / 01:53:21 / cg"
+"Modified: 8.1.1997 / 14:53:52 / cg"
 !
 saveSettings
+"save settings to a settings-file."
 "a temporary kludge - we need a central systemSettings object for this,
 which can be saved/restored with a single store/read."
 |s screen fileName|
 "
 Transcript topView application saveSettings
 "
-"Modified: 7.1.1997 / 22:24:51 / cg"
+"Modified: 8.1.1997 / 14:54:00 / cg"
 !
 viewStyleSetting
+"open a dialog on viewStyle related settings"
 |listOfStyles resourceDir dir box
 list listView scrView infoLabel infoForwarder newStyle|
 "
 search resources directory for a list of .style files ...
 self reopenLauncher.
 ]
 ].
 box destroy
-"Modified: 5.7.1996 / 13:13:22 / cg"
+"Modified: 8.1.1997 / 14:54:08 / cg"
 ! !
 !Launcher methodsFor:'actions - tools'!
 compressingGarbageCollect
+"perform a compressing garbageCollect"
 ObjectMemory verboseGarbageCollect
 "Created: 12.5.1996 / 15:30:15 / cg"
+"Modified: 8.1.1997 / 14:54:21 / cg"
 !
 findAndDestroyWindow
+"find a window (by name) and destroy it"
 |v|
 v := self findWindow.
 v notNil ifTrue:[
 v destroy.
 ].
 "Created: 28.10.1996 / 14:39:23 / cg"
+"Modified: 8.1.1997 / 14:54:52 / cg"
 !
 findAndRaiseWindow
+"find a window (by name) and raise it"
 |v|
 v := self findWindow.
 v notNil ifTrue:[
 v raiseDeiconified.
 ].
-"Modified: 28.10.1996 / 14:39:04 / cg"
+"Modified: 8.1.1997 / 14:54:59 / cg"
-!
-findWindow
-"a helper for find & destroy and find & raise operations;
-let user choose a view and return it; return nil on cancel"
-|knownTopViews nameList box|
-knownTopViews := IdentitySet new.
-Screen allScreens do:[:aScreen |
-aScreen knownViews do:[:aView |
-aView notNil ifTrue:[
-knownTopViews add:aView topView
-]
-]
-].
-knownTopViews := knownTopViews select:[:aView | aView windowGroup notNil
-and:[aView windowGroup isModal not]].
-knownTopViews := knownTopViews asOrderedCollection.
-knownTopViews sort:[:v1 :v2 | v1 label < v2 label].
-nameList := knownTopViews collect:[:v |
-|isDead wg p|
-((wg := v windowGroup) notNil
-and:[(p := wg process) notNil
-and:[p state ~~ #dead]]) ifTrue:[
-v label
-] ifFalse:[
-v label , ' (dead ?)'
-]
-].
-box := ListSelectionBox new.
-box noEnterField.
-box list:nameList.
-box label:(resources string:'view selection').
-box title:(resources string:'select a view to raise deiconified:') withCRs.
-box action:[:selection |
-|v|
-v := knownTopViews at:box selectionIndex.
-box destroy.
-^ v
-].
-box extent:400@300.
-box showAtPointer.
-^ nil
-"Modified: 16.10.1996 / 12:41:39 / cg"
-"Created: 28.10.1996 / 14:38:41 / cg"
 !
 fullScreenHardcopy
 "after a second (to allow redraw of views under menu ...),
 save the contents of the whole screen."
 "Modified: 23.9.1996 / 14:36:14 / cg"
 !
 garbageCollect
+"perform a non-compressing garbageCollect"
 ObjectMemory reclaimSymbols
 "Created: 12.5.1996 / 15:28:03 / cg"
+"Modified: 8.1.1997 / 14:54:29 / cg"
 !
 globalGarbageCollect
+"perform a non-compressing garbageCollect"
 ObjectMemory reclaimSymbols
 "Created: 12.5.1996 / 15:28:13 / cg"
+"Modified: 8.1.1997 / 14:54:36 / cg"
 !
 removeAllBreakAndTracePoints
+"remove all break- and trace points"
 MessageTracer cleanup
+"Modified: 8.1.1997 / 14:55:27 / cg"
 !
 screenHardcopy
 "after a second (to allow redraw of views under menu ...),
 let user specify a rectangular area on the screen
 "Modified: 23.9.1996 / 14:36:28 / cg"
 !
 startEventMonitor
+"open an eventMonitor view"
 EventMonitor open
+"Modified: 8.1.1997 / 14:55:40 / cg"
 !
 startFullWindowTreeView
+"open a windowTree view (on all views)"
 WindowTreeView open
+"Modified: 8.1.1997 / 14:56:04 / cg"
 !
 startMemoryMonitor
+"open a memoryMonitor view"
 MemoryMonitor open
+"Modified: 8.1.1997 / 14:56:14 / cg"
 !
 startMemoryUsageView
+"open a memoryUsage view"
 MemoryUsageView open
+"Modified: 8.1.1997 / 14:56:21 / cg"
 !
 startProcessMonitor
+"open a processMonitor view"
 ProcessMonitor open
+"Modified: 8.1.1997 / 14:56:27 / cg"
 !
 startStopEventTrace
+"start/stop event tracing for a particular view"
 |v wg|
 v := Screen current viewFromUser.
 v notNil ifTrue:[
 v := v topView.
 wg traceEvents:(wg preEventHook isNil)
 ]
 ]
 "Created: 7.3.1996 / 14:44:22 / cg"
-"Modified: 24.4.1996 / 10:27:11 / cg"
+"Modified: 8.1.1997 / 14:56:44 / cg"
 !
 startWindowTreeView
+"open a windowTree view (on a topView)"
 |v|
 v := self pickAView.
 v notNil ifTrue:[
 WindowTreeView openOn:v topView
 ]
+"Modified: 8.1.1997 / 14:55:59 / cg"
 !
 viewDestroy
 "let user pick a view and destroy it.
 Even allow destroying non-smalltalk views
 ! !
 !Launcher methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
+"care for project changes & update my infoView"
 ((something == #currentProject)
 or:[changedObject == Project]) ifTrue:[
 self changed:#info.
 ^ self
 ].
+"Modified: 8.1.1997 / 14:57:07 / cg"
 ! !
 !Launcher methodsFor:'dynamic menus'!
 addMenu:name withItems:items actions:actions
 ! !
 !Launcher methodsFor:'help'!
 helpTextFor:aComponent
+"activeHelp interface: return some help text for a component"
 |sel s buttons|
 aComponent == transcript ifTrue:[
 s := 'TRANSCRIPT_HELP'
 ].
 s notNil ifTrue:[
 ^ resources string:s
 ].
 ^ nil
-"Modified: 26.2.1996 / 23:08:19 / cg"
+"Modified: 8.1.1997 / 14:57:34 / cg"
 ! !
 !Launcher methodsFor:'infoview update'!
 info
+"update the infoView from the current project"
 |project projectName projectDir packageName defNameSpace msg args|
 (Project isNil or:[(project := Project current) isNil]) ifTrue:[
 projectName := '* none *'.
 projectDir := '.'.
 with:defNameSpace name.
 ].
 ^ resources string:msg withArgs:args
-"Modified: 2.1.1997 / 20:26:44 / cg"
+"Modified: 8.1.1997 / 14:57:47 / cg"
 !
 showActivity:someMessage
 "some activityNotification to be forwarded to the user;
 show it in the transcript here."
 "Created: 23.12.1995 / 12:38:29 / cg"
 "Modified: 5.7.1996 / 13:13:15 / cg"
 ! !
-!Launcher methodsFor:'initialize / release'!
+!Launcher methodsFor:'initialize - menus'!
-addTopViewsToCurrentProject
-"ignored here - the launcher is always global (i.e. not project private)."
-^ self
-!
-buttonPanelSpec
-"return a spec for the buttons in the panel;
-entries consists of selector and bitmap-filename.
-nil selectors are taken as separators (see setupButtonPanel)"
-^ #(
-#(startSystemBrowser 'SBrowser32x32.xbm')
-#(startFileBrowser   'FBrowser32x32.xbm')
-"/        #(startWorkspace      'Workspace32x32.xbm')
-#(nil nil)
-#(startChangesBrowser 'CBrowser32x32.xbm')
-"/        #(nil nil)
-"/        #(nil nil)
-"/        #(startDocumentationTool 'book11.ico')
-)
-"Created: 4.12.1995 / 20:16:18 / cg"
-"Modified: 19.4.1996 / 16:37:46 / cg"
-!
-closeDownViews
-OpenLaunchers remove:self ifAbsent:nil.
-super closeDownViews.
-"Created: 5.7.1996 / 13:33:36 / cg"
-!
-closeRequest
-(self confirm:(resources string:'really close %1 ?' with:self class name)) ifTrue:[
-super closeRequest
-]
-!
 disableDangerousMenuItemsInRemoteLauncher
 "if I am a remote launcher (multidisplay operation),
 disable menus which are dangerous or affect common state.
 These operations have to
 "Created: 5.7.1996 / 17:00:50 / cg"
 "Modified: 5.7.1996 / 17:01:30 / cg"
 !
-focusSequence
+setupAboutMenu
-^ (Array with:myMenu)
+"setup the about- pulldown menu"
-,
-(buttonPanel subViews select:[:element | element isKindOf:Button])
+myMenu at:#about
-"/      , (Array with:Transcript)
+putLabels:(resources array:#(
-!
+'about Smalltalk/X ...'
+'-'
-openInterface
+'licence conditions'
-"sent by my superclass to open up my interface"
+))
+selectors:#(
-|top icn w scrn sz|
+#about
+nil
-"/ if there is already a transcript on my device,
+#showLicenceConditions
-"/ I am a slave launcher with limited functionality.
+)
+receiver:self.
-Transcript notNil ifTrue:[
-Transcript ~~ Stderr ifTrue:[
+"Created: 8.1.1997 / 14:03:20 / cg"
-isMainLauncher := (Transcript graphicsDevice == device).
+"Modified: 8.1.1997 / 14:04:19 / cg"
-] ifFalse:[
+!
-isMainLauncher := true
-]
+setupClassesMenu
-] ifFalse:[
+"setup the classes- pulldown menu"
-isMainLauncher := true
-].
+myMenu at:#classes
+putLabels:(resources array:#(
-top := StandardSystemView onDevice:device.
+'system browser'
-top label:'Smalltalk/X'; iconLabel:'ST/X Launcher'.
+'class browser ...'
-top extent:(400@300 ).
+'full class browser ...'
+'class hierarchy browser ...'
-icn := self class aboutIcon.
+'class tree'
-icn notNil ifTrue:[
+'-'
-icn := icn magnifiedTo:(sz := Screen current preferredIconSize).
+'implementors ...'
-].
+'senders ...'
+'resource ...'
-((scrn := Screen current) supportsDeepIcons not
+'-'
-and:[scrn supportsIconViews
+'change browser'
-and:[scrn depth > 1]]) ifTrue:[
+))
-w := View extent:sz.
+selectors:#(
-w viewBackground:icn.
+#startSystemBrowser
-top iconView:w
+#startClassBrowser
-] ifFalse:[
+#startFullClassBrowser
-top icon:icn.
+#startClassHierarchyBrowser
-].
+#startClassTreeView
+nil
-"/    (scrn := Screen current) supportsDeepIcons ifTrue:[
+#browseImplementors
-"/        icn := self class aboutIcon.
+#browseSenders
-"/        icn notNil ifTrue:[
+#browseResources
-"/            icn := icn magnifiedTo:(sz := scrn preferredIconSize).
+nil
-"/            icn := Depth8Image fromImage:icn.
+#startChangesBrowser
-"/            top icon:icn
+)
-"/        ].
+receiver:self.
-"/    ] ifFalse:[
+JavaBrowser notNil ifTrue:[
-"/        scrn supportsIconViews ifTrue:[
+(myMenu subMenuAt:#classes)
-"/            icn := self class aboutIcon.
+addLabels:(resources array:#('-' 'java browser'))
-"/            icn notNil ifTrue:[
+selectors:#(nil startJavaBrowser)
-"/                icn := icn magnifiedTo:(sz := scrn preferredIconSize).
+after:#startClassTreeView
-"/                w := View extent:sz.
+].
-"/                w viewBackground:icn.
-"/                top iconView:w
+"Created: 8.1.1997 / 14:05:44 / cg"
-"/            ].
-"/        ]
-"/    ].
-self setupViewsIn:top.
-top application:self.
-"
-open with higher prio to allow interaction even while things
-are running ...
-"
-top openWithPriority:(Processor userSchedulingPriority + 1).
-OpenLaunchers isNil ifTrue:[
-OpenLaunchers := OrderedCollection new.
-].
-OpenLaunchers add:self.
-"Modified: 25.7.1996 / 21:12:09 / cg"
-!
-release
-infoProcess notNil ifTrue:[
-infoProcess terminate.
-infoProcess := nil.
-].
-OpenLaunchers remove:self ifAbsent:nil.
-super release
-"Modified: 5.7.1996 / 11:48:56 / cg"
-!
-restarted
-"image restart - since WindowGroup recreates the process with
-the default priority, we have to raise the prio again.
-Mhmh - this looks like a bug to me ...
-Also, the cursor (which was stored as a write or waitCursor) must
-be reset to normal."
-Processor activeProcess priority:(Processor userSchedulingPriority + 1).
-super restarted
-"Modified: 1.6.1996 / 16:58:25 / cg"
-!
-saveAndTerminateRequest
-"some windowManagers can send this, to shutDown an application
-but let it save its state before, for later restart.
-Although I have not yet encountered such a windowManager,
-we are already prepared for this ;-)"
-self snapshot.
-super saveAndTerminateRequest
-"Created: 5.7.1996 / 13:07:45 / cg"
-"Modified: 5.7.1996 / 13:08:55 / cg"
-!
-setupButtonPanelIn:aTopView
-"create the buttonPanel"
-|spc mh buttonSize|
-spc := View viewSpacing // 2.
-buttonPanel := HorizontalPanelView in:aTopView.
-buttonPanel level:-1; borderWidth:0.
-buttonPanel horizontalLayout:#leftSpace.
-buttonSize := self class buttonImageSize.
-"/
-"/ the buttonSpec is a collection of:
-"/   #( selector  iconFileName )
-"/ or:
-"/   #( selector  (className iconQuerySelector) )
-"/ or"
-"/   #( nil )
-"/
-self buttonPanelSpec do:[:entry |
-|sel b sep img iconSpec|
-sel := entry at:1.
-sel isNil ifTrue:[
-sep := View in:buttonPanel.
-sep extent:32@1; borderWidth:0.
-] ifFalse:[
-b := Button in:buttonPanel.
-iconSpec := entry at:2.
-iconSpec isArray ifTrue:[
-img := (Smalltalk classNamed:(iconSpec at:1)) perform:(iconSpec at:2).
-] ifFalse:[
-img := Image fromFile:iconSpec.
-].
-(img notNil and:[buttonSize notNil]) ifTrue:[
-img extent ~= buttonSize ifTrue:[
-img := img magnifiedTo:buttonSize
-]
-].
-b form:img.
-b model:self; changeMessage:sel
-]
-].
-mh := myMenu height.
-buttonPanel origin:0.0 @ (mh + spc)
-corner:(1.0 @ (mh + spc + buttonPanel preferredExtent y)).
-buttonPanel leftInset:spc; rightInset:spc.
-"Modified: 29.5.1996 / 19:23:04 / cg"
 !
 setupDemoMenu
-"setup the demo pulldown menu"
+"setup the demo- pulldown menu"
 |m|
 myMenu at:#demos
 putLabels:(resources array:#(
 MailView
 NewsView
 )
 receiver:self).
-"Modified: 8.1.1997 / 12:30:42 / cg"
+"Modified: 8.1.1997 / 14:04:22 / cg"
 !
-setupInfoViewIn:topView
+setupFileMenu
-|spc halfSpc|
+"setup the file- pulldown menu"
-spc := View viewSpacing.
+|l s|
-infoView := Label label:'' in:topView.
-infoView adjust:#left; borderWidth:0.
-infoView level:-1.
-transcript superView bottomInset:(infoView height + spc).
-infoView is3D ifTrue:[
-halfSpc := spc // 2.
-] ifFalse:[
-halfSpc := 0
-].
-infoView topInset:(infoView height negated - spc + transcript borderWidth);
-bottomInset:halfSpc;
-leftInset:halfSpc;
-rightInset:halfSpc.
-infoView origin:0.0 @ 1.0 corner:1.0 @ 1.0.
-infoView model:self; aspect:#info; labelMessage:#info.
-Project notNil ifTrue:[
-Project addDependent:self.
-]
-"
-Launcher open
-"
-"Modified: 9.9.1996 / 22:44:15 / stefan"
-!
-setupMenu
-"setup the pulldown menu"
-|l s icon|
-myMenu labels:(resources array:#(
-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 selectors:#(
-#about
-#file
-#classes
-#tools
-#projects
-#settings
-#demos
-#help).
-myMenu at:#about
-putLabels:(resources array:#(
-'about Smalltalk/X ...'
-'-'
-'licence conditions'
-))
-selectors:#(
-#about
-nil
-#showLicenceConditions
-)
-receiver:self.
 l := #(
 'file browser'
 '-'
 'modules ...'
 myMenu at:#file
 putLabels:(resources array:l)
 selectors:s
 receiver:self.
-myMenu at:#classes
+"Created: 8.1.1997 / 14:04:15 / cg"
-putLabels:(resources array:#(
+!
-'system browser'
-'class browser ...'
+setupHelpMenu
-'full class browser ...'
+"setup the help- pulldown menu"
-'class hierarchy browser ...'
-'class tree'
+|l s|
-'-'
-'implementors ...'
-'senders ...'
-'resource ...'
-'-'
-'change browser'
-))
-selectors:#(
-#startSystemBrowser
-#startClassBrowser
-#startFullClassBrowser
-#startClassHierarchyBrowser
-#startClassTreeView
-nil
-#browseImplementors
-#browseSenders
-#browseResources
-nil
-#startChangesBrowser
-)
-receiver:self.
-JavaBrowser notNil ifTrue:[
-(myMenu subMenuAt:#classes)
-addLabels:(resources array:#('-' 'java browser'))
-selectors:#(nil startJavaBrowser)
-after:#startClassTreeView
-].
-myMenu at:#projects
-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 ...'
-'fonts ...'
-'printer ...'
-'messages ...'
-'compilation ...'
-'object memory ...'
-'screen ...'
-'misc ...'
-'='
-'save settings ...'
-'restore settings ...'
-))
-selectors:#(
-#languageSetting
-#keyboardSetting
-#viewStyleSetting
-#fontSettings
-#printerSettings
-#messageSettings
-#compilerSettings
-#memorySettings
-#displaySettings
-#miscSettings
-nil
-#saveSettings
-#restoreSettings
-)
-receiver:self.
-self setupToolsMenu.
-self setupDemoMenu.
 ActiveHelp notNil ifTrue:[
 l := #(
 'what''s new'
 'index'
 (ActiveHelp notNil
 and:[ActiveHelp isActive]) ifTrue:[
 (myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
 ].
+"Created: 8.1.1997 / 14:08:09 / cg"
+!
+setupMainMenu
+"setup the pulldown menus main items.
+Extracted into a separate method, to allow subclasses to
+add their own entries"
+|l s icon|
+myMenu labels:(resources array:#(
+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 selectors:#(
+#about
+#file
+#classes
+#tools
+#projects
+#settings
+#demos
+#help).
+"Created: 8.1.1997 / 13:58:50 / cg"
+!
+setupMenu
+"setup the pulldown menu"
+|mainItems|
+self setupMainMenu.
+mainItems := myMenu selectors.
+(mainItems includes:#about) ifTrue:[
+"/ if not redefined without an about-menu ...
+self setupAboutMenu
+].
+(mainItems includes:#file) ifTrue:[
+"/ if not redefined without a file-menu ...
+self setupFileMenu
+].
+(mainItems includes:#classes) ifTrue:[
+"/ if not redefined without a classes-menu ...
+self setupClassesMenu
+].
+(mainItems includes:#projects) ifTrue:[
+"/ if not redefined without a projects-menu ...
+self setupProjectsMenu
+].
+(mainItems includes:#settings) ifTrue:[
+"/ if not redefined without a settings-menu ...
+self setupSettingsMenu
+].
+(mainItems includes:#tools) ifTrue:[
+"/ if not redefined without a tools-menu ...
+self setupToolsMenu
+].
+(mainItems includes:#demos) ifTrue:[
+"/ if not redefined without a demos-menu ...
+self setupDemoMenu
+].
+(mainItems includes:#help) ifTrue:[
+"/ if not redefined without a help-menu ...
+self setupHelpMenu
+].
 self disableDangerousMenuItemsInRemoteLauncher
-"Modified: 9.11.1996 / 01:49:40 / cg"
+"Modified: 8.1.1997 / 14:09:47 / cg"
 !
-setupOtherViewsIn:aTopView
+setupProjectsMenu
-"a hook - allows redefinition in your personal subclass.
+"setup the projects- pulldown menu"
-For example, add a clock:"
+myMenu at:#projects
-"
+putLabels:(resources array:#(
-|sz clock space halfSpace|
+'new project'
+'-'
-sz := buttonPanel innerHeight - (buttonPanel level abs*2).
+'select project ...'
-space := View viewSpacing.
+))
-halfSpace := space // 2.
+selectors:#(
+#newProject
-buttonPanel rightInset:sz+(space  * 2).
+nil
+#selectProject
-clock := ClockView in:buttonPanel topView.
+)
-clock borderWidth:1.
+receiver:self.
-clock showSeconds:false.
-clock extent:(sz @ sz).
+"Created: 8.1.1997 / 14:06:18 / cg"
-clock origin:(1.0 @ (buttonPanel origin y + halfSpace)).
+!
-clock leftInset:sz negated - 2 - halfSpace.
-clock rightInset:halfSpace.
+setupSettingsMenu
-clock level:1.
+"setup the settings- pulldown menu"
-"
+myMenu at:#settings
+putLabels:(resources array:#(
+'language ...'
+'show keyboard mappings ...'
+'view style ...'
+'fonts ...'
+'printer ...'
+'messages ...'
+'compilation ...'
+'object memory ...'
+'screen ...'
+'misc ...'
+'='
+'save settings ...'
+'restore settings ...'
+))
+selectors:#(
+#languageSetting
+#keyboardSetting
+#viewStyleSetting
+#fontSettings
+#printerSettings
+#messageSettings
+#compilerSettings
+#memorySettings
+#displaySettings
+#miscSettings
+nil
+#saveSettings
+#restoreSettings
+)
+receiver:self.
+"Created: 8.1.1997 / 14:07:00 / cg"
 !
 setupToolsMenu
-"setup the tools pulldown menu"
+"setup the tools- pulldown menu"
 |m|
 myMenu at:#tools
 putLabels:(resources array:#(
 #screenHardcopy
 #viewHardcopy
 )
 receiver:self).
-"Modified: 28.10.1996 / 14:40:03 / cg"
+"Modified: 8.1.1997 / 14:04:25 / cg"
+! !
+!Launcher methodsFor:'initialize / release'!
+addTopViewsToCurrentProject
+"ignored here - the launcher is always global (i.e. not project private)."
+^ self
+!
+buttonPanelSpec
+"return a spec for the buttons in the panel;
+entries consists of selector and bitmap-filename.
+nil selectors are taken as separators (see setupButtonPanel)"
+^ #(
+#(startSystemBrowser 'SBrowser32x32.xbm')
+#(startFileBrowser   'FBrowser32x32.xbm')
+"/        #(startWorkspace      'Workspace32x32.xbm')
+#(nil nil)
+#(startChangesBrowser 'CBrowser32x32.xbm')
+"/        #(nil nil)
+"/        #(nil nil)
+"/        #(startDocumentationTool 'book11.ico')
+)
+"Created: 4.12.1995 / 20:16:18 / cg"
+"Modified: 19.4.1996 / 16:37:46 / cg"
+!
+closeDownViews
+OpenLaunchers remove:self ifAbsent:nil.
+super closeDownViews.
+"Created: 5.7.1996 / 13:33:36 / cg"
+!
+closeRequest
+(self confirm:(resources string:'really close %1 ?' with:self class name)) ifTrue:[
+super closeRequest
+]
+!
+focusSequence
+^ (Array with:myMenu)
+,
+(buttonPanel subViews select:[:element | element isKindOf:Button])
+"/      , (Array with:Transcript)
+!
+openInterface
+"sent by my superclass to open up my interface"
+|top icn w scrn sz|
+"/ if there is already a transcript on my device,
+"/ I am a slave launcher with limited functionality.
+Transcript notNil ifTrue:[
+Transcript ~~ Stderr ifTrue:[
+isMainLauncher := (Transcript graphicsDevice == device).
+] ifFalse:[
+isMainLauncher := true
+]
+] ifFalse:[
+isMainLauncher := true
+].
+top := StandardSystemView onDevice:device.
+top label:'Smalltalk/X'; iconLabel:'ST/X Launcher'.
+top extent:(400@300 ).
+icn := self class aboutIcon.
+icn notNil ifTrue:[
+icn := icn magnifiedTo:(sz := Screen current preferredIconSize).
+].
+((scrn := Screen current) supportsDeepIcons not
+and:[scrn supportsIconViews
+and:[scrn depth > 1]]) ifTrue:[
+w := View extent:sz.
+w viewBackground:icn.
+top iconView:w
+] ifFalse:[
+top icon:icn.
+].
+"/    (scrn := Screen current) supportsDeepIcons ifTrue:[
+"/        icn := self class aboutIcon.
+"/        icn notNil ifTrue:[
+"/            icn := icn magnifiedTo:(sz := scrn preferredIconSize).
+"/            icn := Depth8Image fromImage:icn.
+"/            top icon:icn
+"/        ].
+"/    ] ifFalse:[
+"/        scrn supportsIconViews ifTrue:[
+"/            icn := self class aboutIcon.
+"/            icn notNil ifTrue:[
+"/                icn := icn magnifiedTo:(sz := scrn preferredIconSize).
+"/                w := View extent:sz.
+"/                w viewBackground:icn.
+"/                top iconView:w
+"/            ].
+"/        ]
+"/    ].
+self setupViewsIn:top.
+top application:self.
+"
+open with higher prio to allow interaction even while things
+are running ...
+"
+top openWithPriority:(Processor userSchedulingPriority + 1).
+OpenLaunchers isNil ifTrue:[
+OpenLaunchers := OrderedCollection new.
+].
+OpenLaunchers add:self.
+"Modified: 25.7.1996 / 21:12:09 / cg"
+!
+release
+infoProcess notNil ifTrue:[
+infoProcess terminate.
+infoProcess := nil.
+].
+OpenLaunchers remove:self ifAbsent:nil.
+super release
+"Modified: 5.7.1996 / 11:48:56 / cg"
+!
+restarted
+"image restart - since WindowGroup recreates the process with
+the default priority, we have to raise the prio again.
+Mhmh - this looks like a bug to me ...
+Also, the cursor (which was stored as a write or waitCursor) must
+be reset to normal."
+Processor activeProcess priority:(Processor userSchedulingPriority + 1).
+super restarted
+"Modified: 1.6.1996 / 16:58:25 / cg"
+!
+saveAndTerminateRequest
+"some windowManagers can send this, to shutDown an application
+but let it save its state before, for later restart.
+Although I have not yet encountered such a windowManager,
+we are already prepared for this ;-)"
+self snapshot.
+super saveAndTerminateRequest
+"Created: 5.7.1996 / 13:07:45 / cg"
+"Modified: 5.7.1996 / 13:08:55 / cg"
+!
+setupButtonPanelIn:aTopView
+"create the buttonPanel"
+|spc mh buttonSize|
+spc := View viewSpacing // 2.
+buttonPanel := HorizontalPanelView in:aTopView.
+buttonPanel level:-1; borderWidth:0.
+buttonPanel horizontalLayout:#leftSpace.
+buttonSize := self class buttonImageSize.
+"/
+"/ the buttonSpec is a collection of:
+"/   #( selector  iconFileName )
+"/ or:
+"/   #( selector  (className iconQuerySelector) )
+"/ or"
+"/   #( nil )
+"/
+self buttonPanelSpec do:[:entry |
+|sel b sep img iconSpec|
+sel := entry at:1.
+sel isNil ifTrue:[
+sep := View in:buttonPanel.
+sep extent:32@1; borderWidth:0.
+] ifFalse:[
+b := Button in:buttonPanel.
+iconSpec := entry at:2.
+iconSpec isArray ifTrue:[
+img := (Smalltalk classNamed:(iconSpec at:1)) perform:(iconSpec at:2).
+] ifFalse:[
+img := Image fromFile:iconSpec.
+].
+(img notNil and:[buttonSize notNil]) ifTrue:[
+img extent ~= buttonSize ifTrue:[
+img := img magnifiedTo:buttonSize
+]
+].
+b form:img.
+b model:self; changeMessage:sel
+]
+].
+mh := myMenu height.
+buttonPanel origin:0.0 @ (mh + spc)
+corner:(1.0 @ (mh + spc + buttonPanel preferredExtent y)).
+buttonPanel leftInset:spc; rightInset:spc.
+"Modified: 29.5.1996 / 19:23:04 / cg"
+!
+setupInfoViewIn:topView
+"create the infoView"
+|spc halfSpc|
+spc := View viewSpacing.
+infoView := Label label:'' in:topView.
+infoView adjust:#left; borderWidth:0.
+infoView level:-1.
+transcript superView bottomInset:(infoView height + spc).
+infoView is3D ifTrue:[
+halfSpc := spc // 2.
+] ifFalse:[
+halfSpc := 0
+].
+infoView topInset:(infoView height negated - spc + transcript borderWidth);
+bottomInset:halfSpc;
+leftInset:halfSpc;
+rightInset:halfSpc.
+infoView origin:0.0 @ 1.0 corner:1.0 @ 1.0.
+infoView model:self; aspect:#info; labelMessage:#info.
+Project notNil ifTrue:[
+Project addDependent:self.
+]
+"
+Launcher open
+"
+"Modified: 9.9.1996 / 22:44:15 / stefan"
+"Modified: 8.1.1997 / 14:58:22 / cg"
+!
+setupOtherViewsIn:aTopView
+"a hook - allows redefinition in your personal subclass.
+For example, add a clock:"
+"
+|sz clock space halfSpace|
+sz := buttonPanel innerHeight - (buttonPanel level abs*2).
+space := View viewSpacing.
+halfSpace := space // 2.
+buttonPanel rightInset:sz+(space  * 2).
+clock := ClockView in:buttonPanel topView.
+clock borderWidth:1.
+clock showSeconds:false.
+clock extent:(sz @ sz).
+clock origin:(1.0 @ (buttonPanel origin y + halfSpace)).
+clock leftInset:sz negated - 2 - halfSpace.
+clock rightInset:halfSpace.
+clock level:1.
+"
 !
 setupTranscriptIn:aView
+"create the transcript view"
 |v launcher|
 "/ check if this is an additional launcher on a remote display.
 "/ if so, do not close the real launcher.
 transcript showCR:'**                                           **'.
 transcript showCR:'** Menus affecting common state are disabled **'.
 transcript showCR:'***********************************************'.
 ]
-"Modified: 5.7.1996 / 17:55:15 / cg"
+"Modified: 8.1.1997 / 14:58:32 / cg"
 !
 setupViewsIn:topView
 "create the pulldown menu, buttonPanel and transcript view"
 "Modified: 9.9.1996 / 22:44:31 / stefan"
 ! !
 !Launcher methodsFor:'private'!
+findWindow
+"a helper for find & destroy and find & raise operations;
+let user choose a view and return it; return nil on cancel"
+|knownTopViews nameList box|
+knownTopViews := IdentitySet new.
+Screen allScreens do:[:aScreen |
+aScreen knownViews do:[:aView |
+aView notNil ifTrue:[
+knownTopViews add:aView topView
+]
+]
+].
+knownTopViews := knownTopViews select:[:aView | aView windowGroup notNil
+and:[aView windowGroup isModal not]].
+knownTopViews := knownTopViews asOrderedCollection.
+knownTopViews sort:[:v1 :v2 | v1 label < v2 label].
+nameList := knownTopViews collect:[:v |
+|isDead wg p|
+((wg := v windowGroup) notNil
+and:[(p := wg process) notNil
+and:[p state ~~ #dead]]) ifTrue:[
+v label
+] ifFalse:[
+v label , ' (dead ?)'
+]
+].
+box := ListSelectionBox new.
+box noEnterField.
+box list:nameList.
+box label:(resources string:'view selection').
+box title:(resources string:'select a view to raise deiconified:') withCRs.
+box action:[:selection |
+|v|
+v := knownTopViews at:box selectionIndex.
+box destroy.
+^ v
+].
+box extent:400@300.
+box showAtPointer.
+^ nil
+"Modified: 16.10.1996 / 12:41:39 / cg"
+"Created: 28.10.1996 / 14:38:41 / cg"
+!
 fontBoxForEncoding:encodingMatch
+"open a fontBox, showing fonts which match some encoding
+(used when changing to japanese ...)"
 |box y b
 labelDef buttonDef listDef menuDef textDef
 models labels allOfThem filter|
 encodingMatch notNil ifTrue:[
 ].
 box destroy.
 ^ box accepted
 "Created: 27.2.1996 / 01:44:16 / cg"
-"Modified: 30.5.1996 / 09:18:57 / cg"
 "Modified: 17.6.1996 / 13:38:48 / stefan"
+"Modified: 8.1.1997 / 14:59:11 / cg"
 !
 openApplication:className nameSpace:aNameSpace
+"open some application, given the classes name.
+Look for it in Smalltalk and the given nameSpace"
 self openApplication:className nameSpace:aNameSpace with:#open
-"Modified: 8.1.1997 / 12:52:24 / cg"
+"Modified: 8.1.1997 / 14:59:42 / cg"
 !
 openApplication:className nameSpace:aNameSpace with:aSelector
+"open some application, given the classes name.
+Look for it in Smalltalk and the given nameSpace"
 |cls|
 cls := Smalltalk at:className asSymbol.
 cls isNil ifTrue:[
 "/ look if its in the nameSpace
 cls perform:aSelector
 ]
 ]
 "Created: 8.1.1997 / 12:52:13 / cg"
-"Modified: 8.1.1997 / 12:54:15 / cg"
+"Modified: 8.1.1997 / 14:59:47 / cg"
 !
 pickAView
+"let user pick a view and return it"
 |v|
 (Delay forSeconds:1) wait.
 v := Screen current viewFromUser.
 v isNil ifTrue:[
 self warn:'sorry, this is not a smalltalk view'.
 ^ nil
 ].
 ^ v
+"Modified: 8.1.1997 / 14:59:57 / cg"
 !
 reopenLauncher
-"for now (since style & language settings currently do
+"reopen a new launcher.
+for now (since style & language settings currently do
 not affect living views ...)"
 |contents fontPref enc newLauncher|
 "/ moved the stuff below to the language-setting
 contents := transcript endEntry; list.
 newLauncher := self class open.
 newLauncher window waitUntilVisible.
 newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor
-"Modified: 18.10.1996 / 15:04:06 / cg"
+"Modified: 8.1.1997 / 15:00:15 / cg"
 !
 saveAllViews
 "tell each topview that we are going to terminate and give it chance
 to save its contents."
 ! !
 !Launcher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.223 1997-01-08 11:55:38 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.224 1997-01-08 14:04:08 cg Exp $'
 ! !

changeset 921	0189f3d732e2
parent 920	2b66e8759af5
child 922	c72dae45cf15