"

 COPYRIGHT (c) 1997-1998 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

ToolApplicationModel subclass:#NewLauncher

	instanceVariableNames:'transcript isMainLauncher helpIsOn'

	classVariableNames:'OpenLaunchers NotifyingEmergencyHandler UserAddedTools'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!NewLauncher class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997-1998 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    The future launcher.

    [start with:]

	NewLauncher open

    [see also:]

	Launcher

    [author:]

	Thomas Zwick, eXept Software AG

"

! !

!NewLauncher class methodsFor:'accessing'!

current

    "return the launcher running on the current screen.

     (for access via addMenu/ removeMenu)"

    OpenLaunchers notNil ifTrue:[

	OpenLaunchers do:[:aLauncher |

	    aLauncher window graphicsDevice == Screen current ifTrue:[

		^ aLauncher

	    ]

	].

    ].

    ^ nil

    "Modified: / 29.1.1998 / 22:08:12 / cg"

!

label

    ^'Launcher'

!

openLaunchers

    ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)

! !

!NewLauncher class methodsFor:'defaults'!

notifyingEmergencyHandler

    "return a block (used as an emergency handler

     for exceptions), which does errorNotification before going

     into the debugger."

    "Remember the handlerBlock, to be able to determine if the current

     handler is the notifying one."

    ^ NotifyingEmergencyHandler ? (NotifyingEmergencyHandler := Exception notifyingEmergencyHandler)

!

windowIcon

    ^ Icon stxIcon

    "Created: / 16.8.1998 / 13:11:58 / cg"

    "Modified: / 17.8.1998 / 10:07:09 / cg"

! !

!NewLauncher class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:NewLauncher    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#aboutLicenseConditions

'Show the license conditions of ST/X.'

#classes

'Class functions.'

#classesClassBrowser

'Open a dialog for defining and opening a Class Browser on a class.'

#classesClassHierarchyBrowser

'Open a dialog for defining and opening a Class Hierarchy Browser on a class.'

#classesClassTreeBrowser

'Open a Class Tree on the classes of ST/X.'

#classesFullClassBrowser

'Open a dialog for defining and opening a Full Class Browser on a class.'

#classesImplementors

'Find all methods which implement a particular message'

#classesRemoveAllTracePoints

'Remove all trace- and break-points.'

#classesResourceMethods

'Open a dialog for searching resource methods.'

#classesSenders

'Find all methods which send a particular message.'

#classesShowTracePoints

'Open a list showing all trace- and break-points on methods.'

#classesSpecial

'Special class functions.'

#classesSpecialReferencesToUndeclared

'Open a list of methods refering to undeclared variables.'

#classesSystemBrowser

'Open a System Browser for editing sources of the classes.'

#classesSystemBrowserOnClass

'Open a System Browser on a previously modified class.'

#demos

'Demo functions.'

#demos3D

'3D graphic demos.'

#demos3DcubeSolid

'A rotating solid cube.'

#demos3DcubeWire

'A rotating wireframe cube.'

#demos3Ddoughnut

'A rotating wireframe doughnut.'

#demos3Dlogo

'The ST/X logo.'

#demos3Dplane

'A rotating plane.'

#demos3Dplanet

'Two spheres - one rotating around the other.'

#demos3Drubics

'A rubics cube - with interaction.'

#demos3Dsphere

'A rotating wireframe sphere.'

#demos3Dteapot

'A teopot.'

#demos3Dtetra

'A rotating tetrahedron.'

#demosAnimations

'Simple animation demos.'

#demosCalculator

'Opens a calculator with decimal to hex conversion.'

#demosCalendar

'Opens a GUI on the cal unix program.'

#demosClock

'Opens an analog clock application.'

#demosCommander

'Opens a demo for the Commander class.'

#demosDigitalClock

'Opens a digital clock application'

#demosFTP

'Opens a simple FTP interface demo.'

#demosFractalPatterns

'Opens a view displaying fractals patterns.'

#demosFractalPlants

'Opens a view displaying fractal plants (iterated function systems).'

#demosGUI

'GUI builder demos.'

#demosGUICalculator

'Calculator built using the GUI builder.'

#demosGUIWidgets

'GUI widgets usage.'

#demosGames

'Games.'

#demosGeometric

'Various demos displaying geometric designs.'

#demosGlobe

'Opens a rotating globe animation demo.'

#demosGoodies

'Goodies and Utilities.'

#demosGraphicEditors

'Graphic editing demos.'

#demosGraphicEditorsDrawTool

'Object drawing demo.'

#demosGraphicEditorsLogicTool

'Simulating Logic demo.'

#demosGraphicEditorsPaintTool

'Painting demo.'

#demosMail

'Opens a simple mail viewer demo.'

#demosMandel

'Opens a view displaying the mandelbrot set.'

#demosMoreFractalPatterns

'Opens a view with more fractal patterns.'

#demosNews

'Opens a simple news reader demo.'

#demosPen

'Opens a demo for the Pen class.'

#demosTelnet

'Opens a Telnet terminal demo.'

#demosWalkingMan

'Opens a walking man animation demo.'

#fileApplicationBuilder

'Open an Application Builder for building stand alone ST/X-applications.'

#fileFileBrowser

'Open a File Browser for loading, saving, and editing source files, etc.'

#fileLibraryBuilder

'Open a Library Builder for building binary class libraries.'

#fileModules

'Open a dialog for showing (and unloading) class libraries and other modules.'

#fileSaveImage

'Save the current snapshot image of ST/X.'

#fileSaveImageAs

'Open a file dialog to save the current snapshot image of ST/X.'

#gamesTetris

'The tetris game - written in Smalltalk.'

#gamesTicTacToe

'Play TicTacToe against the computer.'

#gamesTicTacToe2

'Play TicTacToe against a friend.'

#helpActiveHelp

'Toggle display of active help texts in browsers.'

#helpClassDocumentation

'Show the smalltalk class documentation.'

#helpIndex

'Show the index of the online documentation.'

#helpPrintDocumentation

'Print various parts of the ST/X documentation.'

#helpSTXOnlineDocumentation

'Show the ST/X online documentation.'

#helpWhatsNew

'Showing the latest news about ST/X.'

#settingsCompilation

'Open a dialog for changing compiler settings.'

#settingsFonts

'Open a dialog for changing of the font defaults.'

#settingsKeyboardMappings

'Open a dialog for inspecting the mappings of the keyboard.'

#settingsLanguage

'Open a dialog for changing the national language.'

#settingsLoadSettings

'Open a dialog to restore the settings from a file.'

#settingsMessages

'Open a dialog for changing the settings for reporting infos/errors.'

#settingsMisc

'Open a dialog for changing other settings.'

#settingsObjectMemory

'Open a dialog for changing the object memory settings.'

#settingsPrinter

'Open a dialog for changing the printer settings.'

#settingsSaveSettings

'Open a dialog for saving the current settings to a file.'

#settingsScreen

'Open a dialog for changing the display screen settings.'

#settingsSourceAndDebugger

'Open a dialog for changing the settings of the source code management.'

#settingsViewStyle

'Open a dialog for changing the current view style.'

#system

'System functions.'

#systemEventTrace

'Select a view to toggle the event trace for it.'

#systemEventView

'Open a view and trace its window events on the console.'

#systemGarbageCollect

'Reclaim unused memory.'

#systemGarbageCollectAndCompress

'Reclaim unused memory and minimize the amount of used memory.'

#systemInterruptLatency

'Open an Interrupt Latency Monitor displaying methods which block interrupts for longer than a given time goal.'

#systemMemory

'Display object memory statistics.'

#systemMemoryUsage

'Display object memory usage by class.'

#systemProcesses

'Open a Process Monitor displaying ST/X processes.'

#systemSemaphores

'Open a Semaphore Monitor displaying ST/X semaphores.'

#tools

'Tool functions.'

#toolsChangesBrowser

'Open a Changes Browser on changes made to the current smalltalk environment.'

#toolsGUIPainter

'Open a GUI Painter for graphical user interface construction.'

#toolsImageEditor

'Open a Bitmap Image Editor.'

#toolsMenuEditor

'Open a Menu Editor for building menu bars, popup menus, and tool bars.'

#toolsMisc

'Misc Tool functions.'

#toolsMiscNewLauncher

'(Re-)open a new launcher.'

#toolsMiscOldLauncher

'Open an old launcher.'

#toolsMiscProjects

'Project functions.'

#toolsMiscProjectsNewProject

'Create a new project.'

#toolsMiscProjectsSelectProject

'Select an existing project and reopen its windows.'

#toolsOldChangesBrowser

'Open the old changes browser.'

#toolsProjects

''

#toolsTerminal

'Open a terminal view (aka xterm)'

#toolsWorkspace

'Open a Workspace for evaluating smalltalk expressions.'

#windows

'Window functions.'

#windowsDeiconifyAll

'Restore all minimized ST/X windows.'

#windowsFindAndDestroy

'Open a dialog for selecting an ST/X window by label and destroy it.'

#windowsFindAndRaise

'Open dialog for selecting an ST/X window by label and raise it.'

#windowsGrapScreen

'Grab the whole screen and save it to a bitmap-file.'

#windowsGrapScreenArea

'Grab an area of the screen and save it to a bitmap-file.'

#windowsGrapWindow

'Grab a window and save it to a bitmap-file.'

#windowsIconifyAll

'Minimize all ST/X windows to icons.'

#windowsSelectAndDestroy

'Select a window and destroys it.'

#windowsSelectAndInspect

'Select an ST/X window and opens an Inspector on it.'

#windowsViewTree

'Select an ST/X window and display its widget hierarchyin.'

#windowsViewTreeAllViews

'Display the widget hierarchies of all ST/X windows.'

)

! !

!NewLauncher class methodsFor:'image specs'!

helpIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,