--- a/OldLauncher.st Sat Mar 18 06:18:44 1995 +0100
+++ b/OldLauncher.st Mon Mar 20 06:43:11 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.23 1995-03-06 21:25:48 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.24 1995-03-20 05:43:11 claus Exp $
'!
!Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.23 1995-03-06 21:25:48 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.24 1995-03-20 05:43:11 claus Exp $
"
!
@@ -272,18 +272,19 @@
'teapot'
'logo'
))
- selectors:#(
- startGLPlaneDemo
- startGLTetraDemo
- startGLWireCubeDemo
- startGLCubeDemo
- startGLCubeDemo2
- startGLBrickCubeDemo
- startGLWireSphereDemo
- startGLSphereDemo
- startGLPlanetDemo
- startGLTeapotDemo
- startGLLogoDemo1
+ selector:#openDemo:
+ args:#(
+ GLPlaneDemoView2
+ GLTetraDemoView
+ GLWireCubeDemoView
+ GLCubeDemoView
+ GLCubeDemoView2
+ GLBrickCubeDemoView
+ GLWireSphereDemoView
+ GLSphereDemoView2
+ GLPlanetDemoView
+ GLTeapotDemo
+ Logo3DView1
)
receiver:self
for:self
@@ -302,17 +303,18 @@
'-'
'LogicTool'
))
- selectors:#(
- startTetris
- startTicTacToe
+ selector:#openDemo:
+ args:#(
+ Tetris
+ TicTacToe
nil
- startPenDemo
- startCommanderDemo
+ PenDemo
+ CommanderDemo
nil
- startAnimation
- startGlobeDemo
+ Animation
+ GlobeDemo
nil
- startLogicTool
+ LogicTool
)
receiver:self
for:self
@@ -381,10 +383,7 @@
'programming'
'other topics'
'-'
-"
'Help Browser'
-"
- 'Manual Browser'
))
selectors:#(
showAbout
@@ -396,10 +395,7 @@
programming
otherTopics
nil
-"
- startHelpView
-"
- startManualBrowser
+ startOnlineHelpView
)
receiver:self
for:self
@@ -414,13 +410,12 @@
'Debugger'
'Inspector'
))
- selectors:#(
- showSystemBrowserDocumentation
- showFileBrowserDocumentation
- showChangesBrowserDocumentation
- showDebuggerDocumentation
- showInspectorDocumentation
- )
+ selector:#showOnlineHelp:
+ args:#('tools/sbrowser/TOP'
+ 'tools/fbrowser/TOP'
+ 'tools/cbrowser/TOP'
+ 'tools/debugger/TOP'
+ 'tools/inspector/misc/TOP')
receiver:self
for:self
@@ -436,15 +431,14 @@
'stc manual page'
'smalltalk manual page'
))
- selectors:#(
- showHistoryDocumentation
- showGCDocumentation
- showLanguageDocumentation
- showErrorMessageDocumentation
+ selector:#showOnlineHelp:
+ args:#('misc/history'
+ 'programming/GC'
+ 'programming/language'
+ 'programming/errormsg'
nil
- showSTCManualPage
- showSmalltalkManualPage
- )
+ 'misc/stc'
+ 'misc/smalltalk')
receiver:self
for:self
@@ -460,15 +454,14 @@
'exceptions & signals'
'GL 3D graphics'
))
- selectors:#(
- showUsefulSelectors
- showQuickViewIntro
- showDebuggingInfo
- showProcessInfo
- showTimerInfo
- showExceptionInfo
- showGLDocumentation
- )
+ selector:#showOnlineHelp:
+ args:#('programming/selectors'
+ 'misc/quick_view_intro'
+ 'programming/debugging'
+ 'programming/processes'
+ 'programming/timing'
+ 'programming/exceptions'
+ 'misc/GL')
receiver:self
for:self
@@ -936,84 +929,8 @@
!Launcher methodsFor:'demo menu actions'!
-startAnimation
- Animation open
-!
-
-startGlobeDemo
- GlobeDemo open
-!
-
-startPenDemo
- PenDemo open
-!
-
-startCommanderDemo
- CommanderDemo open
-!
-
-startRoundGlobeDemo
- RoundGlobeDemo open
-!
-
-startGLSphereDemo
- GLSphereDemoView2 open
-!
-
-startGLTeapotDemo
- GLTeapotDemo open
-!
-
-startGLPlaneDemo
- GLPlaneDemoView2 open
-!
-
-startGLWireCubeDemo
- GLWireCubeDemoView open
-!
-
-startGLWireSphereDemo
- GLWireSphereDemoView open
-!
-
-startGLPlanetDemo
- GLPlanetDemoView open
-!
-
-startGLCubeDemo
- GLCubeDemoView open
-!
-
-startGLCubeDemo2
- GLCubeDemoView2 open
-!
-
-startGLBrickCubeDemo
- GLBrickCubeDemoView open
-!
-
-startGLTetraDemo
- GLTetraDemoView open
-!
-
-startGLLogoDemo1
- Logo3DView1 open
-!
-
-startTetris
- Tetris open
-!
-
-startTicTacToe
- TicTacToe open
-!
-
-startDrawTool
- DrawTool open
-!
-
-startLogicTool
- LogicTool open
+openDemo:className
+ (Smalltalk at:className) open
! !
!Launcher methodsFor:'doc menu actions'!
@@ -1065,109 +982,22 @@
!
showOverview
- self showDocumentFile:'doc/overview'
+ self showDocumentFile:'misc/overview'
!
showCustomizing
- self showDocumentFile:'doc/manuals/customizing'
+ self showOnlineHelp:'custom/TOP'
!
showGettingStarted
- self showDocumentFile:'doc/manuals/gettingStarted'
-!
-
-showSystemBrowserDocumentation
- self showDocumentFile:'doc/misc/sbrowser'
-!
-
-showFileBrowserDocumentation
- self showDocumentFile:'doc/misc/fbrowser'
-!
-
-showChangesBrowserDocumentation
- self showDocumentFile:'doc/misc/cbrowser'
-!
-
-showDebuggerDocumentation
- self showDocumentFile:'doc/misc/debugger'
-!
-
-showInspectorDocumentation
- self showDocumentFile:'doc/misc/inspector'
-!
-
-showHistoryDocumentation
- self showDocumentFile:'doc/misc/history'
-!
-
-showGCDocumentation
- self showDocumentFile:'doc/misc/GC'
-!
-
-showGLDocumentation
- self showDocumentFile:'doc/misc/GL'
-!
-
-showLanguageDocumentation
- self showDocumentFile:'doc/misc/language'
-!
-
-showErrorMessageDocumentation
- self showDocumentFile:'doc/misc/errormsg'
-!
-
-showSTCManualPage
- self showDocumentFile:'doc/misc/stc'
+ self showOnlineHelp:'getstart/TOP'
!
-showSmalltalkManualPage
- self showDocumentFile:'doc/misc/smalltalk'
-!
-
-showUsefulSelectors
- self showDocumentFile:'doc/misc/beginner'
-!
-
-showQuickViewIntro
- self showDocumentFile:'doc/misc/quick_view_intro'
-!
-
-showDebuggingInfo
- self showDocumentFile:'doc/misc/debugging'
-!
-
-showProcessInfo
- self showDocumentFile:'doc/misc/processes'
-!
-
-showExceptionInfo
- self showDocumentFile:'doc/misc/exceptions'
-!
+showOnlineHelp:baseName
+ self warn:'HTML online help support is is not included in this package.
+Use any HTML viewer on the files found in doc/online.
-showTimerInfo
- self showDocumentFile:'doc/misc/timing'
-!
-
-startHelpView
- self warn:'The HelpSystem is still under construction.
-
-You will see a pre-pre release.'.
- HelpView start
-!
-
-startManualBrowser
- ManualBrowser isLoaded ifFalse:[
- ManualBrowser autoload.
- "
- did it load ?
- "
- ManualBrowser isLoaded ifFalse:[
- self warn:'The ManualBrowser is a Tomcat add-on; not included in this package.'.
- ^self
- ]
- ].
- self warn:'The HelpSystem is still under construction.
-
-You will see a pre release.'.
- ManualBrowser new
+Starting view on ascii version of the text ....
+'.
+ self showDocumentFile:'doc/online/english/' , baseName , '.txt'
! !