--- 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.