"

 COPYRIGHT (c) 1995 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.

"

AbstractLauncherApplication subclass:#Launcher

	instanceVariableNames:'myMenu buttonPanel infoView projectInfoHolder helpIsOn

		isMainLauncher'

	classVariableNames:'CachedAboutIcon'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!Launcher class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 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.

"

!

customization

"

    Of course, it is possible to change the Launcher class itself

    as appropriate, however, we suggest you create a subclass (say MyLauncher),

    define it as autoloaded in the patches file, and redefine some methods

    in that class. 

    That way, your changes are easier to reintroduce in case of an ST/X upgrade.

    adding more buttons to the button-panel:

      see the method #buttonPanelSpec;

	it defines a list of selectors and icons, which is used by 

	#setupButtonPanelIn:. 

	There, for each entry, a button with that icon is created, 

	which sends a selector-message to the launcher.

	Add entries to that list, and define appropriate methods.

	For example, to add a button which opens a drawTool,

	change #buttonPanelSpec to:

	buttonPanelSpec

	    ^ #(

		#(startSystemBrowser  'SBrowser32x32.xbm')

		#(startFileBrowser    'FBrowser32x32.xbm')

		#(nil nil)

		#(startChangesBrowser 'CBrowser32x32.xbm')

		#(nil nil)

		#(nil nil)

		#(startDrawTool       'DrawTool.xbm')

	     )

	the panel adjusts its height as appropriate - you may want to

	create new (small) icons for a good look.

    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

"

    WARNING:

        This is a old part of the ST/X system, and no

        longer maintained.

        This used to be the launcher some time ago.

        It has been replaced by the NewLauncher, which provides

        a similar look, but is completely implemented using the

        new GUI framework.

        (this launcher is hand-written)

    Used to be a new launcher (w.r.t. the old menu-launcher), 

    combining the old Launchers menu and transcript into

    one view. (you no longer have to move two views around all the time ...).

    Also, this is the first app to make 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.

    Notice:

        Since there can only be one SystemTranscript, opening a new launcher

        will automatically close the current one (except for a remote launcher,

        opened on another display).

    Notice2:

        By the time you read this, this 'new launcher' is already old again;

        we have written a completely new newLauncher, using the GUI painter tools,

        which provides the same functionality, but has all of its GUI, menus and

        icon bitmaps been generated using convenient tools.

        Look into NewLauncher if you need coding examples on GUI programming.

    [author:]

        Claus Gittinger

    [see also:]

        Examples_misc::MyLauncher

    [start with:]

        Launcher open

"

!

examples

"

    As ST/X can handle multiple screens, there is nothing (except fear ;-)

    from preventing you to work with your friend in the same image.

    To do this, evaluate (replace localhost by whatever):

									[exBegin]

	|display2|

	display2 := XWorkstation new initializeFor:'localhost:0'.

	display2 isNil ifTrue:[

	    self warn:'cannot connect.'.

	] ifFalse:[

	    display2 startDispatch.

	    display2 keyboardMap:(Display keyboardMap).

	    Launcher openOnDevice:display2.

	]

									[exEnd]

    But you should be somewhat careful, the other guy may change things so

    that you are blocked (start high prio processes, change classes etc.)

    Anyway, a nice demo ....

"

! !

!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'.

    image notNil ifTrue:[

	|green dark|

	Screen current hasColors ifTrue:[

	    green := (Color redPercent:0 greenPercent:80 bluePercent:20) "darkened".

	    dark := Color grayPercent:10.

	    image photometric:#palette.

	] ifFalse:[

	    dark := Color black.

	    green := Color white.

	    image photometric:#blackIs0.

	].

	image colorMap:(Array with:dark with:green).

"/        Screen current depth > 2 ifTrue:[

"/            image := (Image implementorForDepth:Screen current depth) fromImage:image.

"/        ]

    ].

    CachedAboutIcon := image.

    ^ image

    "

     CachedAboutIcon := nil.

     Launcher aboutIcon

    "

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

     or any other useful size"

    <resource: #style (#'launcher.buttonSize')>

    ^ View styleSheet at:'launcher.buttonSize' default:(32@32)

    "Modified: / 26.10.1997 / 17:07:40 / cg"

!

smallAboutIcon

    "return the icon shown in the about menu-item"

    |image|

    image := self aboutIcon.

    image notNil ifTrue:[

	image := image magnifiedBy:0.4.

    ].

    ^ image

    "

     CachedAboutIcon := nil.

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

startLauncherHelp

    "open an HTML browser on the 'launcher-help' document"

    self showDocumentation:'help/launcher/launcher.html'

    "Modified: / 31.8.1995 / 13:11:28 / claus"

    "Modified: / 8.1.1997 / 14:41:23 / cg"

    "Created: / 31.10.1997 / 15:59:28 / 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'!

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"

!

startJavaBrowser

    "open a javaBrowser (not included in the standard distribution)"

    |jb|

    (jb := Smalltalk at:#JavaBrowser) notNil ifTrue:[

        self withWaitCursorDo:[jb open]

    ]

    "Created: 18.4.1996 / 15:55:44 / 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 / 14:51:02 / cg"

!

openGame:className

    "open a game, given its name.

     Looks in both the Smalltalk- and the Games-Namespace

     for that class."

    self openApplication:className nameSpace:Games

    "Modified: 8.1.1997 / 14:51:18 / cg"

    "Created: 28.1.1997 / 00:49:21 / cg"

!

startTetris

    "opens a tetris game"

    self openGame:'Tetris'

    "Modified: 28.1.1997 / 00:49:40 / cg"

!

startTicTacToe

    "opens a ticTacToe game against the machine"

    self openGame:'TicTacToeGame'

    "Modified: 28.1.1997 / 00:49:44 / cg"

!

startTicTacToe2

    "opens a 2-user ticTacToe game"

    self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame

    "Modified: 28.1.1997 / 00:49:50 / 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:[

        Smalltalk exit

    ]

    "Modified: 8.1.1997 / 14:50:00 / cg"

!

snapshot

    "saves a snapshot image, after asking for a fileName"

    |fileName|

    fileName := DialogBox

		    request:(resources at:'filename for image:') withCRs

	      initialAnswer:(ObjectMemory nameForSnapshot) 

		    okLabel:(resources at:'save')

		      title:(resources string:'save image')

		   onCancel:nil.

    fileName notNil ifTrue:[

	self showCursor:Cursor write.

	[

	    (ObjectMemory snapShotOn:fileName) ifFalse:[

		"

		 snapshot failed for some reason (disk full, no permission etc.)

		"

		self warn:(resources string:'failed to save snapshot image (disk full or not writable)').

	    ]

	] valueNowOrOnUnwindDo:[

	    self restoreCursors.

	].

    ].

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

		    okLabel:(resources at:'save & exit')

		      title:(resources string:'save image & exit')

		   onCancel:nil.

    fileName notNil ifTrue:[

	self showCursor:Cursor write.

	[

	    ok := ObjectMemory snapShotOn:fileName.

	] valueNowOrOnUnwindDo:[

	    self restoreCursors.

	].

	ok ifFalse:[

	    "

	     snapshot failed for some reason (disk full, no permission etc.)

	     Do NOT exit in this case.

	    "

	    self warn:(resources string:'failed to save snapshot image (disk full or not writable)').

	] ifTrue:[

	    "

	     saveAllViews tells all views to shutdown neatly 

	     (i.e. offer a chance to save the contents to a file).

	     This is NOT required - all data should be in the snapshot ...

	     ... however, if remote disks/mountable filesystems are involved,

	     which may not be present the next time, it may make sense to 

	     uncomment it and query for saving - time will show which is better.

	    "

"

	    self saveAllViews.

"

	    Smalltalk exit

	]

    ].

    "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 / 14:51:18 / cg"

!

startCalendar

    "open a calendar goodie"

    self openGoodie:'Calendar'

    "Modified: 8.1.1997 / 14:51:29 / cg"

!

startClock

    "open a clock goodie"

    self openGoodie:'RoundClock'

    "Modified: 8.1.1997 / 14:51:34 / cg"

!

startMailTool

    "open a mailView goodie"

    self openGoodie:'MailView'

    "Modified: 8.1.1997 / 14:51:42 / cg"

!

startNewsTool

    "open a newsTool goodie"

    self openGoodie:'NewsView'

    "Modified: 8.1.1997 / 14:51:48 / cg"

! !

!Launcher methodsFor:'actions - tools'!

globalGarbageCollect

    "perform a non-compressing garbageCollect"

    self withWaitCursorDo:[ObjectMemory reclaimSymbols]