--- a/OldLauncher.st Wed Apr 14 12:43:34 1999 +0200
+++ b/OldLauncher.st Thu Apr 15 14:41:54 1999 +0200
@@ -41,7 +41,8 @@
This used to be the launcher a few years ago.
It has been replaced by the Launcher, which itself
got obsoleted by the NewLauncher.
-
+ (However, some may still like it, since it takes up less
+ screen real-estate ;-)
OldLauncher allows startup of smalltalk applications.
@@ -67,6 +68,10 @@
defaultLabel
^ 'smallTalk'
+!
+
+isVisualStartable
+ ^ true
! !
!OldLauncher methodsFor:'accessing'!
@@ -133,6 +138,16 @@
self showOnlineHelp:'getstart/TOP'
!
+showHTMLDocumentation
+ (HTMLDocumentView notNil
+ and:[HTMLDocumentView isLoaded]) ifTrue:[
+ HTMLDocumentView openFullOnDocumentationFile:'TOP.html'.
+ ] ifFalse:[
+ self warn:'No HTMLDocumentView-class available'
+ ].
+
+!
+
showOnlineHelp:baseName
self showDocumentFile:baseName
!
@@ -250,11 +265,11 @@
'Goodies'
'Games & Demos'
'-'
- 'info & help'
+ 'Info & Help'
'-'
- 'snapshot'
+ 'Snapshot'
'-'
- 'exit'
+ 'Exit'
))
selectors:#(browserMenu
startWorkspace
@@ -303,6 +318,7 @@
myMenu subMenuAt:#utilityMenu put:(
PopUpMenu labels:(resources array:#(
'Transcript'
+ 'New Launcher'
'-'
'Window tree'
'View inspect'
@@ -314,17 +330,18 @@
'Memory monitor'
'Memory usage'
'-'
- 'collect Garbage'
- 'collect Garbage & compress'
+ 'Collect Garbage'
+ 'Collect Garbage & compress'
'-'
- 'full screen hardcopy'
- 'screen area hardcopy'
- 'view hardcopy'
+ 'Full screen Hardcopy'
+ 'Screen area Hardcopy'
+ 'View Hardcopy'
'-'
'ScreenSaver'
))
selectors:#(
startTranscript
+ startNewLauncher
nil
startWindowTreeView
viewInspector
@@ -351,9 +368,9 @@
(myMenu subMenuAt:#utilityMenu) subMenuAt:#screenSaverMenu put:(
PopUpMenu labels:(resources array:#(
- 'simple'
- 'spotlight'
- 'moving spotlight'
+ 'Simple'
+ 'Spotlight'
+ 'Moving spotlight'
))
selectors:#(
startScreenSaver1
@@ -463,9 +480,9 @@
Project notNil ifTrue:[
myMenu subMenuAt:#projectMenu put:(
PopUpMenu labels:(resources array:#(
- 'new project'
+ 'New project'
'-'
- 'select project'
+ 'Select project'
))
selectors:#(
newProject
@@ -514,6 +531,7 @@
myMenu subMenuAt:#helpMenu put:(
PopUpMenu labels:(resources array:#(
'About'
+ 'Online HTML Documentation'
'-'
'Overview'
'Getting started'
@@ -526,6 +544,7 @@
))
selectors:#(
showAbout
+ showHTMLDocumentation
nil
showOverview
showGettingStarted
@@ -567,8 +586,8 @@
'Language & primitives'
'Error messages'
'-'
- 'stc manual page'
- 'smalltalk manual page'
+ 'Stc manual page'
+ 'Smalltalk manual page'
))
selector:#showOnlineHelp:
args:#('misc/history'
@@ -585,12 +604,12 @@
(myMenu subMenuAt:#helpMenu) subMenuAt:#programming put:(
PopUpMenu labels:(resources array:#(
- 'useful selectors'
- 'views - quick intro'
- 'breakpoints & tracing'
- 'processes'
- 'timers & delays'
- 'exceptions & signals'
+ 'Useful selectors'
+ 'Views - quick intro'
+ 'Breakpoints & tracing'
+ 'Processes'
+ 'Timers & delays'
+ 'Exceptions & signals'
'GL 3D graphics'
))
selector:#showOnlineHelp:
@@ -1020,5 +1039,5 @@
!OldLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.39 1999-03-06 12:25:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.40 1999-04-15 12:41:54 cg Exp $'
! !