"

 COPYRIGHT (c) 1991 by Claus Gittinger

              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.

"

StandardSystemView subclass:#Launcher

       instanceVariableNames:'myMenu logoLabel exitBox saveBox enterBox'

       classVariableNames:''

       poolDictionaries:''

       category:'Interface-Smalltalk'

!

Launcher comment:'

COPYRIGHT (c) 1991 by Claus Gittinger

              All Rights Reserved

'!

!Launcher class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 by Claus Gittinger

              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.

"

!

version

"

"

!

documentation

"

    Launcher allows startup of smalltalk applications

"

! !

!Launcher class methodsFor:'instance creation'!

new

    ^ super

        extent:(100 @ 100)

        label:'smallTalk'

        icon:(Form fromFile:'SmalltalkX.xbm' resolution:100)

    "Launcher start"

! !

!Launcher methodsFor:'initialize / release'!

initialize

    super initialize.

    self initializeMenu.

    self initializeLogo.

"/    myMenu borderWidth:0.

    myMenu origin:(0.0 @ logoLabel height).

"/    myMenu font:(self font).

"/    self extent:(myMenu extent).

    exitBox := EnterBox2 new.

    exitBox title:(resources at:'save state before exiting ?\\filename for image:') withCRs.

    exitBox abortText:(resources at:'abort').

    exitBox okText:(resources at:'exit').

    exitBox okText2:(resources at:'save & exit').

    saveBox := EnterBox new.

    saveBox title:(resources at:'filename for image:') withCRs.

    saveBox abortText:(resources at:'abort').

    saveBox okText:(resources at:'save').

    enterBox := EnterBox new.

    enterBox abortText:(resources at:'abort').

    enterBox okText:(resources at:'browse').

!

initializeLogo

    logoLabel := Label in:self.

    logoLabel form:(Image fromFile:'bitmaps/SmalltalkX.xbm').

    logoLabel origin:0.0 @ 0.0.

    logoLabel borderWidth:0.

!

initializeMenu

    myMenu := ClickMenuView 

                labels:(resources array:#(

                                'Browsers'

                                'Workspace'

                                'File Browser'

                                'Projects'

                                '-'

                                'Utilities'

                                'Goodies'

                                'Games & Demos'

                                '-'

                                'info & help'

                                '-'

                                'snapshot'

                                '-'

                                'exit'

                        ))

                selectors:#(browserMenu

                            startWorkspace

                            startFileBrowser

                            projectMenu

                            nil

                            utilityMenu

                            goodyMenu

                            gamesMenu

                            nil

                            helpMenu

                            nil

                            saveImage

                            nil

                            exitSmalltalk

                           )

                receiver:self

                      in:self.

    myMenu subMenuAt:#browserMenu put:(

        PopUpMenu labels:(resources array:#(

                            'System Browser'

                            'Class Hierarchy Browser'

                            'Implementors'

                            'Senders'

                            '-'

                            'Changes Browser'

                            '-'

                            'Directory Browser'

                           ))

               selectors:#(

                            startSystemBrowser

                            startHierarchyBrowser

                            startImplementorsBrowser

                            startSendersBrowser

                            nil

                            startChangesBrowser

                            nil

                            startDirectoryBrowser

                           )

                receiver:self

                     for:self

    ).

    myMenu subMenuAt:#utilityMenu put:(

        PopUpMenu labels:(resources array:#(

                            'Transcript'

                            '-'

                            'Window tree'

                            'View inspect'

                            'View destroy'

                            'Class tree'

                            '-'

                            'Event monitor'

                            'Process monitor'

                            'Memory monitor'

                            'Memory usage'

                            '-'

                            'collect Garbage'

                            'collect Garbage & compress'

                            '-'

                            'full screen hardcopy'

                            'screen area hardcopy'

                            'view hardcopy'

                            '-'

                            'ScreenSaver'

                           ))

               selectors:#(

                            startTranscript

                            nil

                            startWindowTreeView

                            viewInspector

                            viewKiller

                            startClassTreeView

                            nil

                            startEventMonitor

                            startProcessMonitor

                            startMemoryMonitor

                            startMemoryUsage

                            nil

                            garbageCollect

                            compressingGarbageCollect

                            nil

                            fullScreenHardcopy

                            screenHardcopy

                            viewHardcopy

                            nil

                            screenSaverMenu

                           )

                receiver:self

                     for:self

    ).

    (myMenu subMenuAt:#utilityMenu) subMenuAt:#screenSaverMenu put:(

        PopUpMenu labels:(resources array:#(

                            'simple'

                            'spotlight'

                            'moving spotlight'

                           ))

               selectors:#(

                            startScreenSaver1

                            startScreenSaver2

                            startScreenSaver3

                           )

                receiver:self

                     for:self

    ).

    (Display isKindOf:GLXWorkstation) ifTrue:[

        myMenu subMenuAt:#gamesMenu put:(

            PopUpMenu labels:(resources array:#(

                                'Tetris'

                                'TicTacToe'

                                '-'

                                'Animation'

                                'Globe'

                                '-'

                                'GL 3D demos'

                                '-'

                                'LogicTool'

                               ))

                   selectors:#(

                                startTetris

                                startTicTacToe

                                nil

                                startAnimation

                                startGlobeDemo

                                nil

                                glDemos

                                nil

                                startLogicTool

                              )

                    receiver:self

                         for:self

        ).

        (myMenu subMenuAt:#gamesMenu) subMenuAt:#glDemos put:(

            PopUpMenu labels:(resources array:#(

                                'plane'

                                'tetra'

                                'cube (wireframe)'

                                'cube (solid)'

                                'cube (light)'

                                'sphere (wireframe)'

                                'sphere (light)'

                                'planet'

                                'teapot'

                                'logo'

                               ))

                   selectors:#(

                                startGLPlaneDemo

                                startGLTetraDemo

                                startGLWireCubeDemo

                                startGLCubeDemo

                                startGLCubeDemo2

                                startGLWireSphereDemo

                                startGLSphereDemo

                                startGLPlanetDemo

                                startGLTeapotDemo

                                startGLLogoDemo1

                              )

                    receiver:self

                         for:self

        ).

    ] ifFalse:[

        myMenu subMenuAt:#gamesMenu put:(

            PopUpMenu labels:(resources array:#(

                                'Tetris'

                                'TicTacToe'

                                '-'

                                'Animation'

                                'Globe'

                                '-'

                                'LogicTool'

                               ))

                   selectors:#(

                                startTetris

                                startTicTacToe

                                nil

                                startAnimation

                                startGlobeDemo

                                nil

                                startLogicTool

                              )

                    receiver:self

                         for:self

        )

    ].

    myMenu subMenuAt:#goodyMenu put:(

        PopUpMenu labels:(resources array:#(

                            'Clock'

                            'Round Clock'

"

                            'Address Book'

"

                            '-'

                            'Directory View'

                            'MailTool'

                            'NewsTool'

                            '-'

                            'DrawTool'

                           ))

               selectors:#(

                            startClock

                            startRoundClock

"

                            startAddressBook

"

                            nil

                            startDirectoryView

                            startMailTool

                            startNewsTool

                            nil

                            startDrawTool

                          )

                receiver:self

                     for:self

    ).

    myMenu subMenuAt:#helpMenu put:(

        PopUpMenu labels:(resources array:#(

                            'About'

                            '-'

                            'Overview'

                            'Getting started'

                            'Customizing'

                            'Tools'

                            'programming'

                            'other topics'

                            '-'

"

                            'Help Browser'

"

                            'Manual Browser'

                           ))

               selectors:#(

                            showAbout

                            nil

                            showOverview

                            showGettingStarted

                            showCustomizing

                            tools

                            programming

                            otherTopics

                            nil

"

                            startHelpView

"

                            startManualBrowser

                          )

                receiver:self

                     for:self

    ).

    (myMenu subMenuAt:#helpMenu) subMenuAt:#tools put:(

        PopUpMenu labels:(resources array:#(

                            'System Browser'

                            'File Browser'

                            'Changes Browser'

                            'Debugger'

                            'Inspector'

                           ))

               selectors:#(

                            showSystemBrowserDocumentation

                            showFileBrowserDocumentation

                            showChangesBrowserDocumentation

                            showDebuggerDocumentation

                            showInspectorDocumentation

                          )

                receiver:self

                     for:self

    ).

    (myMenu subMenuAt:#helpMenu) subMenuAt:#otherTopics put:(

        PopUpMenu labels:(resources array:#(

                            'ST/X history'

                            'Garbage collection'

                            'Language & primitives'

                            'Error messages'

                            '-'

                            'stc manual page'

                            'smalltalk manual page'

                           ))

               selectors:#(

                            showHistoryDocumentation

                            showGCDocumentation

                            showLanguageDocumentation

                            showErrorMessageDocumentation

                            nil

                            showSTCManualPage

                            showSmalltalkManualPage

                          )

                receiver:self

                     for:self

    ).

    (myMenu subMenuAt:#helpMenu) subMenuAt:#programming put:(

        PopUpMenu labels:(resources array:#(

                            'useful selectors'

                            'views - quick intro'

                            'breakpoints & tracing'

                            'processes'

                            'timers & delays'

                            'exceptions & signals'

                            'GL 3D graphics'

                           ))

               selectors:#(

                            showUsefulSelectors

                            showQuickViewIntro

                            showDebuggingInfo

                            showProcessInfo

                            showTimerInfo

                            showExceptionInfo

                            showGLDocumentation

                          )

                receiver:self

                     for:self

    ).

!

realize

    |myExtent|

    myExtent := (myMenu extent + (0 @ (logoLabel height))).

    self extent:myExtent.

    self minExtent:myExtent.

    self maxExtent:myExtent.

!

reinitialize

    "sent after snapin - first reinit menuview,

     then adjust my size"