--- a/Launcher.st Mon May 06 07:59:56 2002 +0200
+++ b/Launcher.st Mon May 06 08:05:46 2002 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libtool' }"
+
AbstractLauncherApplication subclass:#Launcher
instanceVariableNames:'myMenu buttonPanel infoView projectInfoHolder helpIsOn
isMainLauncher'
@@ -1092,33 +1094,33 @@
|icon|
myMenu labels:(resources array:#(
- about
- file
- classes
- tools
- projects
- settings
- demos
- help)).
+ 'About'
+ 'File'
+ 'Classes'
+ 'Tools'
+ 'Projects'
+ 'Settings'
+ 'Demos'
+ 'Help')).
"
if there is a bitmap, change 'about' to the ST/X icon
"
icon := self class smallAboutIcon.
icon notNil ifTrue:[
"/ icon := icon on:device.
- myMenu labels at:1 put:icon.
- myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
+ myMenu labels at:1 put:icon.
+ myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
].
myMenu selectors:#(
- #about
- #file
- #classes
- #tools
- #projects
- #settings
- #demos
- #help).
+ #about
+ #file
+ #classes
+ #tools
+ #projects
+ #settings
+ #demos
+ #help).
"Created: / 8.1.1997 / 13:58:50 / cg"
"Modified: / 29.10.1997 / 03:41:00 / cg"
@@ -1200,23 +1202,23 @@
myMenu at:#settings
putLabels:(resources array:#(
- 'language...'
- 'show keyboard mappings...'
- 'view style...'
- 'fonts...'
- 'printer...'
- 'messages...'
- 'compilation...'
- 'source & debugger...'
- 'tools...'
- 'object memory...'
- 'screen...'
-"/ 'java...'
- 'editing...'
- 'misc...'
+ 'Language...'
+ 'Show keyboard mappings...'
+ 'View style...'
+ 'Fonts...'
+ 'Printer...'
+ 'Messages...'
+ 'Compilation...'
+ 'Source & debugger...'
+ 'Tools...'
+ 'Object memory...'
+ 'Screen...'
+"/ 'Java...'
+ 'Editing...'
+ 'Misc...'
'='
- 'save settings...'
- 'restore settings...'
+ 'Save settings...'
+ 'Restore settings...'
))
selectors:#(
#languageSetting
@@ -1644,44 +1646,50 @@
"/ if so, do not close the real launcher.
(Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
- isMainLauncher ifTrue:[
- launcher := Transcript topView application
- ] ifFalse:[
- launcher := self class current.
- (launcher isNil and: [NewLauncher notNil]) ifTrue: [launcher := NewLauncher current].
- ].
+ isMainLauncher ifTrue:[
+ launcher := Transcript topView application
+ ] ifFalse:[
+ launcher := self class current.
+ (launcher isNil and: [NewLauncher notNil]) ifTrue: [launcher := NewLauncher current].
+ ].
- launcher notNil ifTrue:[
- launcher window graphicsDevice == device ifTrue:[
- OpenLaunchers notNil ifTrue:[
- OpenLaunchers removeIdentical:launcher ifAbsent:nil.
- ].
- launcher class = NewLauncher
- ifTrue: [launcher close]
- ifFalse: [launcher window destroy]
- ]
- ]
+ launcher notNil ifTrue:[
+ launcher window graphicsDevice == device ifTrue:[
+ OpenLaunchers notNil ifTrue:[
+ OpenLaunchers removeIdentical:launcher ifAbsent:nil.
+ ].
+ launcher class = NewLauncher
+ ifTrue: [launcher close]
+ ifFalse: [launcher window destroy]
+ ]
+ ]
].
v := HVScrollableView
- for:TextCollector
- miniScrollerH:true
- miniScrollerV:false
- in:aView.
+ for:TextCollector
+ miniScrollerH:true
+ miniScrollerV:false
+ in:aView.
v origin:(0.0 @ (buttonPanel corner y + View viewSpacing))
corner:(1.0 @ 1.0).
transcript := v scrolledView.
isMainLauncher ifTrue:[
- transcript beTranscript.
+ transcript beTranscript.
+ transcript showCR:'**************** Notice ***********************'.
+ transcript showCR:'** This Launcher is obsolete and no longer **'.
+ transcript showCR:'** maintained. Please use the new launcher: **'.
+ transcript showCR:'** NewLauncher open **'.
+ transcript showCR:'** **'.
+ transcript showCR:'***********************************************'.
] ifFalse:[
- transcript showCR:'**************** Notice ***********************'.
- transcript showCR:'** this is NOT the Transcript **'.
- transcript showCR:'** The real Transcript is on the main screen **'.
- transcript showCR:'** **'.
- transcript showCR:'** Menus affecting common state are disabled **'.
- transcript showCR:'***********************************************'.
+ transcript showCR:'**************** Notice ***********************'.
+ transcript showCR:'** this is NOT the Transcript **'.
+ transcript showCR:'** The real Transcript is on the main screen **'.
+ transcript showCR:'** **'.
+ transcript showCR:'** Menus affecting common state are disabled **'.
+ transcript showCR:'***********************************************'.
]
"Modified: / 18.8.1998 / 15:03:54 / cg"
@@ -1718,5 +1726,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.404 2000-01-11 17:06:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.405 2002-05-06 06:05:46 cg Exp $'
! !