--- a/Launcher.st Sat May 18 15:52:10 1996 +0200
+++ b/Launcher.st Sat May 18 15:59:37 1996 +0200
@@ -629,24 +629,26 @@
|list box|
Project notNil ifTrue:[
- list := Project allInstances.
- box := ListSelectionBox new.
- box list:(list collect:[:p | p name]).
- box title:(resources string:'select a project').
- box action:[:selection |
- |project|
-
- project := list detect:[:p | p name = selection] ifNone:[nil].
- project isNil ifTrue:[
- Transcript showCr:'no such project.'
- ] ifFalse:[
- project showViews.
- Project current:project
- ]
- ].
- box showAtPointer.
- box destroy
+ list := Project allInstances.
+ box := ListSelectionBox new.
+ box list:(list collect:[:p | p name]).
+ box title:(resources string:'select a project').
+ box action:[:selection |
+ |project|
+
+ project := list detect:[:p | p name = selection] ifNone:[nil].
+ project isNil ifTrue:[
+ Transcript showCR:'no such project.'
+ ] ifFalse:[
+ project showViews.
+ Project current:project
+ ]
+ ].
+ box showAtPointer.
+ box destroy
]
+
+ "Modified: 18.5.1996 / 15:43:19 / cg"
! !
!NewLauncher methodsFor:'actions - settings'!
@@ -1018,7 +1020,7 @@
box initialText:(Language).
box action:[:newLanguage |
self withWaitCursorDo:[
- Transcript showCr:'change language to ' , newLanguage , ' ...'.
+ Transcript showCR:'change language to ' , newLanguage , ' ...'.
idx := translatedLanguages indexOf:newLanguage withoutSeparators.
idx ~~ 0 ifTrue:[
language := listOfLanguages at:idx
@@ -1035,7 +1037,7 @@
box showAtPointer.
box destroy
- "Modified: 26.4.1996 / 17:13:18 / cg"
+ "Modified: 18.5.1996 / 15:43:17 / cg"
!
memorySettings
@@ -1416,8 +1418,8 @@
resourceDir := Smalltalk getSystemFileName:'resources'.
resourceDir isNil ifTrue:[
- self warn:'no styles found (missing ''resources'' directory)'.
- ^ self
+ self warn:'no styles found (missing ''resources'' directory)'.
+ ^ self
].
dir := FileDirectory directoryNamed:resourceDir.
@@ -1436,7 +1438,7 @@
"/ ].
"/ box action:[:newStyle |
"/ transcript topView withCursor:Cursor wait do:[
-"/ Transcript showCr:'change style to ' , newStyle , ' ...'.
+"/ Transcript showCR:'change style to ' , newStyle , ' ...'.
"/ View defaultStyle:newStyle asSymbol.
"/ ]
"/ ].
@@ -1446,13 +1448,13 @@
"/
infoForwarder := Plug new.
infoForwarder respondTo:#showInfo
- with:[
- |nm sheet comment|
- nm := list selection.
- sheet := ViewStyle fromFile:(nm , '.style').
- comment := sheet at:#comment ifAbsent:''.
- infoLabel label:comment withCRs asStringCollection
- ].
+ with:[
+ |nm sheet comment|
+ nm := list selection.
+ sheet := ViewStyle fromFile:(nm , '.style').
+ comment := sheet at:#comment ifAbsent:''.
+ infoLabel label:comment withCRs asStringCollection
+ ].
list := SelectionInList with:listOfStyles.
list onChangeSend:#showInfo to:infoForwarder.
@@ -1477,16 +1479,18 @@
box showAtPointer.
box accepted ifTrue:[
- newStyle := list selection.
- newStyle notNil ifTrue:[
- self withWaitCursorDo:[
- Transcript showCr:'change style to ' , newStyle , ' ...'.
- View defaultStyle:newStyle asSymbol.
- ].
- self reopenLauncher.
- ]
+ newStyle := list selection.
+ newStyle notNil ifTrue:[
+ self withWaitCursorDo:[
+ Transcript showCR:'change style to ' , newStyle , ' ...'.
+ View defaultStyle:newStyle asSymbol.
+ ].
+ self reopenLauncher.
+ ]
].
box destroy
+
+ "Modified: 18.5.1996 / 15:45:32 / cg"
! !
!NewLauncher methodsFor:'actions - tools'!
@@ -1713,10 +1717,10 @@
"some activityNotification to be forwarded to the user;
show it in the transcript here."
- Transcript showCr:someMessage; endEntry
+ Transcript showCR:someMessage; endEntry
"Created: 23.12.1995 / 12:38:29 / cg"
- "Modified: 23.4.1996 / 21:39:10 / cg"
+ "Modified: 18.5.1996 / 15:43:21 / cg"
! !
!NewLauncher methodsFor:'initialize / release'!
@@ -2593,5 +2597,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.123 1996-05-12 13:37:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.124 1996-05-18 13:59:37 cg Exp $'
! !