diff -r dcfcb87a48a2 -r fcc0c3c945d4 BrowserView.st
--- a/BrowserView.st	Tue Jan 07 22:25:36 1997 +0100
+++ b/BrowserView.st	Tue Jan 07 23:05:04 1997 +0100
@@ -922,10 +922,11 @@
 "/                classCategoryListView removeIndex:idx.
 "/            ].
 "/        ].
-    ]
+    ].
+    box destroy
 
     "Modified: 19.8.1996 / 23:22:35 / stefan"
-    "Modified: 10.9.1996 / 19:58:14 / cg"
+    "Modified: 7.1.1997 / 23:01:54 / cg"
 !
 
 classCategoryRename
@@ -2163,8 +2164,11 @@
                     codeView modified:false
                 ]
             ]
-        ]
+        ].
+        box destroy.
     ]
+
+    "Modified: 7.1.1997 / 23:02:45 / cg"
 !
 
 classRename
@@ -4153,14 +4157,16 @@
                 ] ifFalse:[
                     mth := cls compiledMethodAt:(selectorString asSymbol).
                     Class fileOutErrorSignal handle:[:ex |
-                        |box|
+                        |box answer|
                         box := YesNoBox 
                                     title:('fileOut error: ' 
                                            , ex errorString 
                                            , '\\continue anyway ?') withCRs
                                     yesText:'continue' 
                                     noText:'abort'.
-                        box confirm ifTrue:[
+                        answer := box confirm.
+                        box destroy.
+                        answer ifTrue:[
                             ex proceed
                         ].
                         self normalLabel.
@@ -4176,7 +4182,7 @@
     ]
 
     "Modified: 17.6.1996 / 16:51:11 / stefan"
-    "Modified: 20.12.1996 / 15:41:37 / cg"
+    "Modified: 7.1.1997 / 23:02:28 / cg"
 !
 
 classMethodMenu
@@ -5511,7 +5517,7 @@
 methodCategoryRemove
     "show number of methods to remove and query user"
 
-    |t box sels count|
+    |t box sels count answer|
 
     currentMethodCategory notNil ifTrue:[
         sels := OrderedCollection new.
@@ -5534,7 +5540,9 @@
                        title:t
                        yesText:(resources at:'remove')
                        noText:(resources at:'abort').
-            box confirm ifFalse:[
+            answer := box confirm.
+            box destroy.
+            answer ifFalse:[
                 ^ self.
             ].
             sels do:[:selector|
@@ -5548,6 +5556,7 @@
     ]
 
     "Modified: 7.6.1996 / 09:13:15 / stefan"
+    "Modified: 7.1.1997 / 23:03:20 / cg"
 !
 
 methodCategoryRename
@@ -9139,6 +9148,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.246 1997-01-05 18:04:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.247 1997-01-07 22:05:04 cg Exp $'
 ! !
 BrowserView initialize!