equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
203 UpdateChangeListQuerySignal nameClass:self message:#updateChangeListQuerySignal. |
205 UpdateChangeListQuerySignal nameClass:self message:#updateChangeListQuerySignal. |
204 UpdateChangeListQuerySignal notifierString:'asking if changeList update is wanted'. |
206 UpdateChangeListQuerySignal notifierString:'asking if changeList update is wanted'. |
205 UpdateChangeListQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges]. |
207 UpdateChangeListQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges]. |
206 |
208 |
207 NameSpaceQuerySignal isNil ifTrue:[ |
209 NameSpaceQuerySignal isNil ifTrue:[ |
208 "This could be used BEFORE initialize has been invoked - thats why we initialize |
210 "This could be used BEFORE initialize has been invoked - that's why we initialize |
209 the class var there." |
211 the class var there." |
210 NameSpaceQuerySignal := self nameSpaceQuerySignal |
212 NameSpaceQuerySignal := self nameSpaceQuerySignal |
211 ]. |
213 ]. |
212 UsedNameSpaceQuerySignal isNil ifTrue:[ |
214 UsedNameSpaceQuerySignal isNil ifTrue:[ |
213 "This could be used BEFORE initialize has been invoked - thats why we initialize |
215 "This could be used BEFORE initialize has been invoked - thats why we initialize |
400 ! |
402 ! |
401 |
403 |
402 nameSpaceQuerySignal |
404 nameSpaceQuerySignal |
403 "return the signal used as an upQuery for the current nameSpace. |
405 "return the signal used as an upQuery for the current nameSpace. |
404 Will be used when filing in code. |
406 Will be used when filing in code. |
405 This could be used BEFORE initialize has been invoked - thats why we do not |
407 This could be used BEFORE initialize has been invoked - that's why we do not |
406 simply return the class var here." |
408 simply return the class var here." |
407 |
409 |
408 NameSpaceQuerySignal isNil ifTrue:[ |
410 NameSpaceQuerySignal isNil ifTrue:[ |
409 NameSpaceQuerySignal := QuerySignal new. |
411 NameSpaceQuerySignal := QuerySignal new. |
410 NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal. |
412 NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal. |
485 ! |
487 ! |
486 |
488 |
487 usedNameSpaceQuerySignal |
489 usedNameSpaceQuerySignal |
488 "return the signal used as an upQuery for the used nameSpace. |
490 "return the signal used as an upQuery for the used nameSpace. |
489 Will be used when filing in code. |
491 Will be used when filing in code. |
490 This could be used BEFORE initialize has been invoked - thats why we do not |
492 This could be used BEFORE initialize has been invoked - that's why we do not |
491 simply return the class var here." |
493 simply return the class var here." |
492 |
494 |
493 UsedNameSpaceQuerySignal isNil ifTrue:[ |
495 UsedNameSpaceQuerySignal isNil ifTrue:[ |
494 UsedNameSpaceQuerySignal := QuerySignal new. |
496 UsedNameSpaceQuerySignal := QuerySignal new. |
495 UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal. |
497 UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal. |
827 reorganizeFromString:orgString |
829 reorganizeFromString:orgString |
828 "for ST80 compatibility but without functionality" |
830 "for ST80 compatibility but without functionality" |
829 |
831 |
830 "Created: / 28.3.1998 / 21:21:52 / cg" |
832 "Created: / 28.3.1998 / 21:21:52 / cg" |
831 ! ! |
833 ! ! |
832 |
|
833 |
834 |
834 !ClassDescription methodsFor:'Compatibility-V''Age'! |
835 !ClassDescription methodsFor:'Compatibility-V''Age'! |
835 |
836 |
836 categoriesFor:aSelector are:listOfCategories |
837 categoriesFor:aSelector are:listOfCategories |
837 "to allow fileIn of V'Age code. |
838 "to allow fileIn of V'Age code. |