--- a/OldLauncher.st	Wed Aug 24 01:49:53 1994 +0200
+++ b/OldLauncher.st	Wed Aug 24 06:03:06 1994 +0200
@@ -11,7 +11,7 @@
 "
 
 StandardSystemView subclass:#Launcher
-       instanceVariableNames:'myMenu logoLabel exitBox saveBox enterBox'
+       instanceVariableNames:'myMenu logoLabel'
        classVariableNames:''
        poolDictionaries:''
        category:'Interface-Smalltalk'
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.14 1994-08-23 23:48:50 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.15 1994-08-24 04:03:06 claus Exp $
 '!
 
 !Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.14 1994-08-23 23:48:50 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.15 1994-08-24 04:03:06 claus Exp $
 "
 !
 
@@ -76,20 +76,6 @@
 "/    myMenu font:(self font).
 "/    self extent:(myMenu extent).
 
-    exitBox := EnterBox2 new.
-    exitBox title:(resources at:'save state before exiting ?\\filename for image:') withCRs.
-    exitBox abortText:(resources at:'abort').
-    exitBox okText:(resources at:'exit').
-    exitBox okText2:(resources at:'save & exit').
-
-    saveBox := EnterBox new.
-    saveBox title:(resources at:'filename for image:') withCRs.
-    saveBox abortText:(resources at:'abort').
-    saveBox okText:(resources at:'save').
-
-    enterBox := EnterBox new.
-    enterBox abortText:(resources at:'abort').
-    enterBox okText:(resources at:'browse').
 !
 
 initializeLogo
@@ -497,18 +483,10 @@
 !
 
 destroy
-    exitBox notNil ifTrue:[
-        exitBox destroy.
-        exitBox := nil
-    ].
-    saveBox notNil ifTrue:[
-        saveBox destroy.
-        saveBox := nil
-    ].
-    enterBox notNil ifTrue:[
-        enterBox destroy.
-        enterBox := nil
-    ].
+    "re-confirm when clisng Launcher - since if you closed
+     the last launcher, you might loose the possibility to
+     communicate with the system ..."
+
     (self confirm:(resources string:'close Launcher ?')) ifTrue:[
         super destroy
     ]
@@ -586,7 +564,11 @@
 !
 
 startHierarchyBrowser
+    |enterBox|
+
+    enterBox := EnterBox new.
     enterBox title:(resources at:'name of class:') withCRs.
+    " enterBox abortText:(resources at:'abort')." "this is the default anyway"
     enterBox okText:(resources at:'browse').
 
     enterBox action:[:className |
@@ -603,7 +585,11 @@
 !
 
 startImplementorsBrowser
+    |enterBox|
+
+    enterBox := EnterBox new.
     enterBox title:(resources at:'selector:') withCRs.
+    " enterBox abortText:(resources at:'abort')." "this is the default anyway"
     enterBox okText:(resources at:'browse').
 
     enterBox action:[:selectorName |
@@ -613,7 +599,11 @@
 !
 
 startSendersBrowser
+    |enterBox|
+
+    enterBox := EnterBox new.
     enterBox title:(resources at:'selector:') withCRs.
+    " enterBox abortText:(resources at:'abort')." "this is the default anyway"
     enterBox okText:(resources at:'browse').
 
     enterBox action:[:selectorName |
@@ -643,12 +633,12 @@
 !
 
 saveImage
-    saveBox isNil ifTrue:[
-        saveBox := EnterBox new.
-        saveBox title:(resources at:'filename for image:') withCRs.
-        " saveBox abortText:(resources at:'abort')."    "this is the default anyway ..."
-        saveBox okText:(resources at:'save')
-    ].
+    |saveBox|
+
+    saveBox := EnterBox new.
+    saveBox title:(resources at:'filename for image:') withCRs.
+    " saveBox abortText:(resources at:'abort')."    "this is the default anyway ..."
+    saveBox okText:(resources at:'save').
 
     "this is a kludge - put into above if-block once
      stack contexts survive a snapout/snapin
@@ -663,13 +653,13 @@
 !
 
 exitSmalltalk
-    exitBox isNil ifTrue:[
-        exitBox := EnterBox2 new.
-        exitBox title:(resources at:'save state before exiting ?\\filename for image:') withCRs.
-        " exitBox abortText:(resources at:'abort')."    "this is the default anyway ..."
-        exitBox okText:(resources at:'exit').
-        exitBox okText2:(resources at:'save & exit').
-    ].
+    |exitBox|
+
+    exitBox := EnterBox2 new.
+    exitBox title:(resources at:'save state before exiting ?\\filename for image:') withCRs.
+    " exitBox abortText:(resources at:'abort')."    "this is the default anyway ..."
+    exitBox okText:(resources at:'exit').
+    exitBox okText2:(resources at:'save & exit').
 
     exitBox action:[:dummyName | 
         self closeDownViews.