.
--- a/FBrowser.st Wed Aug 16 02:43:32 1995 +0200
+++ b/FBrowser.st Wed Aug 16 17:36:40 1995 +0200
@@ -27,7 +27,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.42 1995-08-10 18:37:44 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.43 1995-08-16 15:36:30 claus Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.42 1995-08-10 18:37:44 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.43 1995-08-16 15:36:30 claus Exp $
"
!
@@ -588,14 +588,17 @@
#( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 )
with: texts do:[:bitMask :access |
+ |ch|
+
bitMask isNil ifTrue:[
modeString := modeString , (resources string:access)
] ifFalse:[
(bits bitAnd:bitMask) == 0 ifTrue:[
- modeString := modeString copyWith:$-
+ ch := $-
] ifFalse:[
- modeString := modeString copyWith:access
- ]
+ ch := access
+ ].
+ modeString := modeString copyWith:ch
]
].
^ modeString
--- a/FileBrowser.st Wed Aug 16 02:43:32 1995 +0200
+++ b/FileBrowser.st Wed Aug 16 17:36:40 1995 +0200
@@ -27,7 +27,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.42 1995-08-10 18:37:44 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.43 1995-08-16 15:36:30 claus Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.42 1995-08-10 18:37:44 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.43 1995-08-16 15:36:30 claus Exp $
"
!
@@ -588,14 +588,17 @@
#( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 )
with: texts do:[:bitMask :access |
+ |ch|
+
bitMask isNil ifTrue:[
modeString := modeString , (resources string:access)
] ifFalse:[
(bits bitAnd:bitMask) == 0 ifTrue:[
- modeString := modeString copyWith:$-
+ ch := $-
] ifFalse:[
- modeString := modeString copyWith:access
- ]
+ ch := access
+ ].
+ modeString := modeString copyWith:ch
]
].
^ modeString
--- a/Launcher.st Wed Aug 16 02:43:32 1995 +0200
+++ b/Launcher.st Wed Aug 16 17:36:40 1995 +0200
@@ -37,7 +37,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.25 1995-08-16 00:43:32 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.26 1995-08-16 15:36:40 claus Exp $
"
!
@@ -536,13 +536,17 @@
labels:(resources array:#(
'Pen demo'
'Commander demo'
+ '-'
'Fractal plants demo'
+ 'Fractal patterns demo'
))
selector:#openDemo:
args:#(
PenDemo
CommanderDemo
+ nil
FractalPlantsDemo
+ FractalPatternsDemo
)
receiver:self).
@@ -1105,7 +1109,7 @@
box addCheckBox:(resources string:'catch method redefinitions') on:catchRedefs.
box addHorizontalLine.
- check := box addCheckBox:(resources string:'allow loading of binary object files') on:loadBinaries.
+ check := box addCheckBox:(resources string:'load binary objects, if present') on:loadBinaries.
compilationList := box addPopUpList:(resources string:'compilation to machine code') on:stcCompilation.
stcCompilation selectionIndex:( stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
@@ -1282,10 +1286,12 @@
].
self warn:'Sorry, the ST/X HTML reader is not (yet)
-included in this architectures release
+included in this architectures release.
Please use Mosaic, netscape, chimera or any
-other HTML viewer to see the documentation.'.
+other HTML viewer to see the documentation.
+
+The documentation is found in the ''doc/online'' directory.'.
! !
!NewLauncher methodsFor:'actions - tools'!