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