# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 843034463 -7200
# Node ID 42997b231783aa1e8c861a3f016f8153cc6d0097
# Parent  289347193c3e63fddf795d64c84e0b1539851a2e
double confirm removal of directory, if its name
does not include stx or smalltalk.

diff -r 289347193c3e -r 42997b231783 STXInstaller.st
--- a/STXInstaller.st	Tue Sep 17 01:47:56 1996 +0200
+++ b/STXInstaller.st	Wed Sep 18 10:14:23 1996 +0200
@@ -524,6 +524,16 @@
                         default:nil.     
         whatToDo isNil ifTrue:[^false].
         whatToDo == #remove ifTrue:[
+            ((stxLibDir findString:'stx') == 0
+            and:[(stxLibDir findString:'smalltalk') == 0]) ifTrue:[
+                "/ confirm again
+                (self confirm:(resources 
+                                string:'are you certain that the directory to remove
+is really an smalltalk directory ?
+
+Remove it now ?')) ifFalse:[ ^ true].
+            ].
+
             (OperatingSystem recursiveRemoveDirectory:stxLibDir)
             ifFalse:[
                 self warn:(resources string:'mhmh - could not remove old installation.')