--- a/ChangesBrowser.st Wed Dec 08 22:22:37 1999 +0100
+++ b/ChangesBrowser.st Thu Dec 09 10:09:09 1999 +0100
@@ -360,7 +360,7 @@
('compress' doCompress )
('compress for class' doCompressClass )
('compare with current version' doCompare )
- ('browse full' doBrowse )
+ ('browse class' doBrowse )
('-' )
('make change a patch' doMakePatch )
).
@@ -372,12 +372,12 @@
].
items := items , #(
- ('-' )
- ('save in ...' doSave )
- ('save to end in ...' doSaveRest )
- ('save for class to end in ...' doSaveClassRest )
- ('save all for class in ...' doSaveClassAll )
- ('-' )
+ ('-' )
+ ('save in...' doSave )
+ ('save to end in...' doSaveRest )
+ ('save for class to end in...' doSaveClassRest )
+ ('save all for class in...' doSaveClassAll )
+ ('-' )
).
editingClassSource ifTrue:[
@@ -608,18 +608,21 @@
!
checkClassIsLoaded:aClass
- |cls|
+ |cls answer|
aClass isMeta ifTrue:[
- cls := aClass soleInstance
+ cls := aClass soleInstance
] ifFalse:[
- cls := aClass
+ cls := aClass
].
cls isLoaded ifFalse:[
- (self confirm:(cls name , ' is an autoloaded class.\I can only compare the methods texts if its loaded first.\\Load the class first ?') withCRs)
- ifTrue:[
- cls autoload
- ]
+ (self confirm:(resources
+ string:'%1 is an autoloaded class.\I can only compare the methods source if its loaded first.\\Shall the class be loaded now ?'
+ with:cls name asText allBold) withCRs)
+ ifFalse:[
+ AbortSignal raise
+ ].
+ cls autoload
].
^ cls isLoaded
@@ -3160,5 +3163,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.179 1999-12-07 14:16:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.180 1999-12-09 09:09:09 cg Exp $'
! !