class: TabListEditor
changed:
#doGenerateAspectMethod
#doSave
oops - package was not always preserved when compiling
(generated methods where reassigned)
--- a/TabListEditor.st Tue Jan 28 21:58:50 2014 +0100
+++ b/TabListEditor.st Tue Jan 28 21:59:00 2014 +0100
@@ -1578,9 +1578,11 @@
' ^ list\' ,
'!! !!\\'.
- (ReadStream on:(code withCRs)) fileIn
+ Class packageQuerySignal answer:cls package do:[
+ (ReadStream on:(code withCRs)) fileIn
+ ]
-
+ "Modified: / 28-01-2014 / 21:57:09 / cg"
!
doMoveTabUpOrDown:what
@@ -1679,8 +1681,9 @@
Class packageQuerySignal
answer:package
do:[
- (ReadStream on:code) fileIn.
-
+ Class packageQuerySignal answer:cls package do:[
+ (ReadStream on:code) fileIn.
+ ].
(cls canUnderstand:specSelector) ifFalse:[
(YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[
self doGenerateAspectMethod
@@ -1691,6 +1694,8 @@
self addHistoryEntryForClass:cls selector:specSelector.
self clearModified.
hasSaved := true.
+
+ "Modified: / 28-01-2014 / 21:56:54 / cg"
!
openDocumentation