"

 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'

	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)

! !

!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

'Opens a HTML-Browser on the license conditions of ST/X.'

#classes

'Classes functions.'

#classesClassBrowser

'Opens a dia log for defining and opening a Class Browser on a class.'

#classesClassHierarchyBrowser

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

#classesClassTreeBrowser

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

#classesFullClassBrowser

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

#classesImplementors

'Opens a dialog for defining a selector and listing all methods implementing that selector.'

#classesRemoveAllTracePoints

'Removes all trace points set in methods.'

#classesResourceMethods

'Opens a dialog for searching resource methods.'

#classesSenders

'Opens a dialog for defining a selector and listing all methods sending that selector.'

#classesShowTracePoints

'Opens a list showing all trace points set in methods.'

#classesSpecial

'Special class functions.'

#classesSpecialReferencesToUndeclared

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

#classesSystemBrowser

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

#classesSystemBrowserOnClass

'Opens a System Browser on the selected class.'

#demos

'Demos functions.'

#fileApplicationBuilder

'Opens a Application Builder for building stand alone ST/X-applications.'

#fileFileBrowser

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

#fileLibraryBuilder

'Opens a Library Builder for building class libraries.'

#fileModules

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

#fileSaveImage

'Saves the current image of ST/X.'

#fileSaveImageAs

'Opens a dialog for selecting a file in order to save the current image of ST/X.'

#helpClassDocumentation

'Opens a HTML-Browser with the documentation of the classes in ST/X.'

#helpIndex

'Opens a HTML-Browser with the index of the documentation of ST/X.'

#helpPrintDocumentation

'Opens a HTML-Browser with a manual for a printing of the documentation of ST/X.'

#helpSTXOnlineDocumentation

'Opens a HTML-Browser with the online documentation of ST/X.'

#helpWhatsNew

'Opens a HTML-Browser with the last brand new features of ST/X.'

#settingsCompilation

'Opens a dialog for changing the settings of the compilation of smalltalk sources.'

#settingsFonts

'Opens a dialog for changing of the font styles for the view classes.'

#settingsKeyboardMappings

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

#settingsLanguage

'Opens a dialog for changing the national language.'

#settingsLoadSettings

'Opens a dialog for loading stored values of settings.'

#settingsMessages

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

#settingsMisc

'Opens a dialog for changing other settings.'

#settingsObjectMemory

'Opens a dialog for changing the settings of the object memories.'

#settingsPrinter

'Opens a dialog for changing the settings for the printer.'

#settingsSaveSettings

'Opens a dialog for saving values of the current settings.'

#settingsScreen

'Opens a dialog for changing the settings for the screen.'

#settingsSourceAndDebugger

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

#settingsViewStyle

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

#system

'System functions.'

#systemEventTrace

'Changes the mouse cursor to a cross hair for moving it to a view in order to turn on/off an event trace.'

#systemEventView

'Opens a view for outputting view events on a xterm.'

#systemGarbageCollect

'Destroys all objects having no references to other objects.'

#systemGarbageCollectAndCompress

'Destroys all objects having no references to other objects and compresses the memory.'

#systemInterruptLatency

'Opens a Interrupt Latency Monitor for showing methods which block interrupts for longer than a given time goal.'

#systemMemory

'Opens a Memory Monitor for showing (graphically) the memory segments in ST/X.'

#systemMemoryUsage

'Opens a list showing the memory usages of the classes.'

#systemProcesses

'Opens a Process Monitor for showing (and editing) current running processes in ST/X.'

#systemSemaphores

'Opens a Semaphores Monitor for showing (and editing) current running semaphores in ST/X.'

#tools

'Tools functions.'

#toolsChangesBrowser

'Opens a Changes Browser containing all changes of the smalltalk source code made by the user.'

#toolsGUIPainter

'Opens a GUI Painter for building graphical user interfaces.'

#toolsImageEditor

'Opens a Image Editor for building bitmap images used by buttons, tool bars, etc.'

#toolsMenuEditor

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

#toolsMisc

'Tools misc functions.'

#toolsMiscNewLauncher

'Reopens a new launcher.'

#toolsMiscOldLauncher

'Opens an old launcher.'

#toolsMiscProjects

'Projects functions.'

#toolsMiscProjectsNewProject

'Creates a new project for working in a separate environment.'

#toolsMiscProjectsSelectProject

'Select an existing project for working in that environment.'

#toolsProjects

''

#toolsWorkspace

'Opens a Workspace for evaluating smalltalk expressions.'

#windows

'Windows functions.'

#windowsDeiconifyAll

'Opens all icons on the desktop of ST/X to their windows.'

#windowsFindAndDestroy

'Opens a dialog for selecting a window of ST/X by label and for destroying it.'

#windowsFindAndRaise

'Opens dialog for selecting a window of ST/X by label and for raising it.'

#windowsGrapScreen

'Opens a dialog for saving the contents of the screen as a bitmap.'

#windowsGrapScreenArea

'Changes the mouse cursor for selecting an area of the screen and opens a dialog for saving that area as a bitmap.'

#windowsGrapWindow

'Changes the mouse cursor for selecting a window of ST/X and opens a dialog for saving the contents of the window as a bitmap.'

#windowsIconifyAll

'Closes all windows of ST/X to their icons on the desktop.'

#windowsSelectAndDestroy

'Changes the mouse cursor to a cross hair for moving it over a window of ST/X in order to destroy it.'

#windowsSelectAndInspect

'Changes the mouse cursor to a cross hair for moving it over a window of ST/X in order to inspect it.'

#windowsViewTree

'Changes the mouse cursor to a cross hair for moving it over a window of ST/X in order to inspect the view tree of it.'

#windowsViewTreeAllViews

'Opens an inspector showing the view trees of all windows of ST/X.'

)

! !

!NewLauncher class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec

     NewLauncher new openInterface:#windowSpec

     NewLauncher open

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Launcher'

              #layout: #(#LayoutFrame 407 0 353 0 697 0 554 0)

              #label: 'Launcher'

              #min: #(#Point 374 240)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 407 353 698 555)

              #menu: #menu

              #usePreferredExtent: false

              #icon: #stxIcon

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#MenuPanelSpec

                    #name: 'menuToolbarView'

                    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)

                    #menu: #menuToolbar

                    #style: #(#FontDescription #helvetica #medium #roman 10)

                )

                 #(#ArbitraryComponentSpec

                    #name: 'transcriptView'

                    #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #miniScrollerHorizontal: true

                    #component: #TextCollector

                    #hasBorder: false

                )

                 #(#UISubSpecification

                    #name: 'infoBarSubSpec'

                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)

                    #majorKey: #ToolApplicationModel

                    #minorKey: #windowSpecForInfoBarWithClock

                )

              )

          )

      )

! !

!NewLauncher class methodsFor:'menu specs'!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:NewLauncher andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'About'

                #activeHelpKey: #about

                #labelImage: #(#ResourceRetriever nil #menuIcon)

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'About Smalltalk/X...'

                          #translateLabel: true

                          #value: #openAbout

                          #activeHelpKey: #aboutSTX

                      )

                       #(#MenuItem

                          #label: 'License Conditions'

                          #translateLabel: true

                          #value: #openLicenseConditions

                          #activeHelpKey: #aboutLicenseConditions

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'About This Application...'

                          #translateLabel: true

                          #value: #openAboutThisApplication

                          #activeHelpKey: #aboutThisAppliaction

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'File'

                #translateLabel: true

                #activeHelpKey: #file

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'File Browser'

                          #translateLabel: true

                          #value: #openApplication:

                          #activeHelpKey: #fileFileBrowser

                          #argument: 'FileBrowser'

                          #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon 'File Browser')

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Modules...'

                          #translateLabel: true

                          #value: #objectModuleDialog

                          #activeHelpKey: #fileModules

                          #enabled: #enableDangerousMenuItemsInRemoteLauncher

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Library Builder'

                          #translateLabel: true

                          #value: #openApplication:

                          #activeHelpKey: #fileLibraryBuilder

                          #argument: 'LibraryBuilder'

                      )

                       #(#MenuItem