--- a/STXInstaller.st Thu Jul 18 22:29:56 1996 +0200
+++ b/STXInstaller.st Mon Jul 22 11:47:54 1996 +0200
@@ -265,7 +265,7 @@
askForDestination
"open a dialog to enter destination directories"
- |d cm l green dark
+ |d cm l green dark img
stxLibDirHolder stxBinDirHolder
|
@@ -290,6 +290,11 @@
d := DialogBox new.
d label:'ST/X CD Installation'.
+ img := Image fromFile:'SmalltalkX.xbm'.
+
+ l := d addTextLabel:img.
+ l adjust:#left; foregroundColor:green backgroundColor:dark.
+
l := d addTextLabel:'Smalltalk/X CD installation.'.
l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
d addVerticalSpace.
@@ -352,6 +357,7 @@
whatToDo := Dialog
choose:('detected existing installation in '
, stxLibDir asText allBold)
+ label:'Attention'
labels:#('remove first' 'overwrite' 'cancel')
values:#(remove over nil)
default:nil.