--- a/AbstractSourceCodeManager.st Thu Dec 21 18:26:48 2000 +0100
+++ b/AbstractSourceCodeManager.st Thu Dec 28 15:52:33 2000 +0100
@@ -402,7 +402,7 @@
#all - check in all"
|checkInClassPackageOnly clsPackage otherPackages methodsFromOtherPackages
- msg answer isDefaultAnswer defaultAnswer|
+ msg answer isDefaultAnswer defaultAnswer labels actions|
checkInClassPackageOnly := false.
@@ -442,7 +442,15 @@
msg := msg , ''' contains %4 method(s) for %2 other packages.\\Change those to belong to the ''%3'' package ?'.
].
-
+ SourceCodeManagerUtilities yesToAllNotification isHandled
+ ifTrue:[
+ labels := #('cancel' 'no' 'yes to all' 'yes').
+ actions := #(nil false #yesToAll true).
+ ] ifFalse:[
+ labels := #('cancel' 'no' 'yes').
+ actions := #(nil false true).
+ ].
+
answer := OptionBox
request:(msg bindWith:(otherPackages first allBold)
with:(otherPackages size)
@@ -450,8 +458,8 @@
with:methodsFromOtherPackages size) withCRs
label:'Change packageID ?'
form:(InfoBox iconBitmap)
- buttonLabels:#('cancel' 'no' 'yes to all' 'yes')
- values:#(nil false #yesToAll true )
+ buttonLabels:labels
+ values:actions
default:defaultAnswer.
].
@@ -1941,6 +1949,6 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.140 2000-12-11 21:01:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.141 2000-12-28 14:52:33 cg Exp $'
! !
AbstractSourceCodeManager initialize!