"

 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'

       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.

    If you like this kind of permanent menu for your applications,

    create a subclass of this, and redefine #initializeLogo and

    #initializeMenu (thats why those two have been implemented as

    separate methods).

    If you like to add more entries to the menu (or a submenu),

    add an entry to the menu (in #initializeMenu) and create a corresponding

    action method, to be called from the menu.

    Then start a new Launcher with:

	Launcher open

    start a new one, BEFORE you close the old one - otherwise you may be

    left without any windows on the screen ...

    If you want to change the launchers menu WITHOUT closing the active one,

    use #addSelector... (see MenuView).

"

! !

!Launcher class methodsFor:'defaults '!

defaultLabel

    ^ 'smallTalk'

! !

!Launcher methodsFor:'initialize / release'!

initialize

    super initialize.

    self initializeMenu.

    self initializeLogo.

    myMenu level:0.

"/    myMenu borderWidth:0.

    myMenu origin:(0.0 @ logoLabel height).

    myMenu resize.

"/    myMenu font:(self font).

"/    self extent:(myMenu extent).

!

initializeLogo

    logoLabel := Label in:self.

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

    logoLabel origin:0.0 @ 0.0.

    logoLabel borderWidth:0.

    logoLabel viewBackground:viewBackground.

    logoLabel backgroundColor:viewBackground.

!

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

    ).

    (Screen current isKindOf:GLXWorkstation) ifTrue:[

	myMenu subMenuAt:#gamesMenu put:(

	    PopUpMenu labels:(resources array:#(

				'Tetris'

				'TicTacToe'

				'-'

				'PenDemo'

				'CommanderDemo' 

				'-'

				'Animation'

				'Globe'

				'-'

				'GL 3D demos'

				'-'

				'LogicTool'

			       ))

		   selectors:#(

				startTetris

				startTicTacToe

				nil

				startPenDemo

				startCommanderDemo

				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)'

				'cube (light & texture)'

				'sphere (wireframe)'

				'sphere (light)'

				'planet'

				'teapot'

				'logo'

			       ))

		    selector:#openDemo:

			args:#(

				GLPlaneDemoView2

				GLTetraDemoView

				GLWireCubeDemoView

				GLCubeDemoView

				GLCubeDemoView2

				GLBrickCubeDemoView

				GLWireSphereDemoView

				GLSphereDemoView2

				GLPlanetDemoView

				GLTeapotDemo

				Logo3DView1

			      )

		    receiver:self

			 for:self

	).

    ] ifFalse:[

	myMenu subMenuAt:#gamesMenu put:(

	    PopUpMenu labels:(resources array:#(

				'Tetris'

				'TicTacToe'

				'-'

				'PenDemo'

				'CommanderDemo' 

				'-'

				'Animation'

				'Globe'

				'-'

				'LogicTool'

			       ))

		    selector:#openDemo:

			args:#(

				Tetris

				TicTacToe

				nil

				PenDemo

				CommanderDemo

				nil

				Animation

				GlobeDemo

				nil

				LogicTool

			      )

		    receiver:self

			 for:self

	)

    ].

    Project notNil ifTrue:[

	myMenu subMenuAt:#projectMenu put:(

	    PopUpMenu labels:(resources array:#(

				'new project'

				'-'

				'select project'

			       ))

		   selectors:#(

				newProject

				nil

				selectProject

			      )

		    receiver:self

			 for:self

	).

    ].

    myMenu subMenuAt:#goodyMenu put:(

	PopUpMenu labels:(resources array:#(

			    'Clock'

			    'Round Clock'

"

			    'Address Book'

"

			    '-'

			    'Calendar'

			    'Directory View'

			    'MailTool'

			    'NewsTool'

			    '-'

			    'DrawTool'

			   ))

	       selectors:#(

			    startClock

			    startRoundClock

"

			    startAddressBook

"

			    nil

			    startCalendar

			    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'

			   ))

	       selectors:#(

			    showAbout

			    nil

			    showOverview

			    showGettingStarted

			    showCustomizing

			    tools

			    programming

			    otherTopics

			    nil

			    startOnlineHelpView

			  )

		receiver:self

		     for:self

    ).

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

	PopUpMenu labels:(resources array:#(

			    'System Browser'

			    'File Browser'

			    'Changes Browser'

			    'Debugger'

			    'Inspector'

			   ))

		selector:#showOnlineHelp:

		    args:#('tools/sbrowser/TOP'

			   'tools/fbrowser/TOP'

			   'tools/cbrowser/TOP'

			   'tools/debugger/TOP'

			   'tools/inspector/misc/TOP')

		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'

			   ))

		selector:#showOnlineHelp:

		    args:#('misc/history'

			   'programming/GC'

			   'programming/language'

			   'programming/errormsg'

			    nil

			   'misc/stc'

			   'misc/smalltalk')

		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'

			   ))

		selector:#showOnlineHelp:

		    args:#('programming/selectors'

			   'programming/viewintro'

			   'programming/debugging'

			   'programming/processes'

			   'programming/timing'

			   'programming/exceptions'

			   'misc/GL')

		receiver:self

		     for:self

    ).

!

realize

    |myExtent|

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

    self extent:myExtent.

    self minExtent:myExtent.

    self maxExtent:myExtent.

    super realize.

    "

     catch errors - dont want a debugger here ...

     (this must be done here, since #initialize runs under another process)

    "

    Processor activeProcess emergencySignalHandler:[:ex |

	|box|

"/ old:

"/        box := YesNoBox title:('Error while launching ...\' , ex errorString , '\\debug ?') withCRs.

"/        "

"/         icon should be whatever WarnBoxes use as icon