equal
deleted
inserted
replaced
695 ! ! |
695 ! ! |
696 |
696 |
697 !ClassDescription methodsFor:'Compatibility-ST80'! |
697 !ClassDescription methodsFor:'Compatibility-ST80'! |
698 |
698 |
699 addInstVarName:anotherInstVar |
699 addInstVarName:anotherInstVar |
700 |sel newClass args newNames| |
700 ^ self addInstVarName:anotherInstVar afterIndex: nil |
701 |
701 |
702 newNames := self instanceVariableString , ' ' , anotherInstVar. |
702 "Modified: / 25-02-2009 / 14:51:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
703 "Modified: / 18-01-2011 / 17:57:23 / cg" |
|
704 "Modified: / 31-01-2014 / 02:00:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
705 ! |
|
706 |
|
707 addInstVarName:anotherInstVar afterIndex: indexOrNil |
|
708 |newClass newNames| |
|
709 |
|
710 indexOrNil notNil ifTrue:[ |
|
711 | oldNames | |
|
712 |
|
713 oldNames := self instVarNames asOrderedCollection. |
|
714 oldNames := oldNames add: anotherInstVar afterIndex: (indexOrNil min: oldNames size). |
|
715 newNames := oldNames asStringWith:' '. |
|
716 ] ifFalse:[ |
|
717 newNames := self instanceVariableString , ' ' , anotherInstVar. |
|
718 ]. |
|
719 |
|
720 |
703 |
721 |
704 self isMeta ifTrue:[ |
722 self isMeta ifTrue:[ |
705 ^ self instanceVariableNames:newNames. |
723 ^ self instanceVariableNames:newNames. |
706 ]. |
724 ]. |
707 "Jan Vrany: I replaced original Claus code. |
725 "Jan Vrany: I replaced original Claus code. |
757 ]. |
775 ]. |
758 |
776 |
759 ^ newClass |
777 ^ newClass |
760 " |
778 " |
761 |
779 |
762 "Modified: / 25-02-2009 / 14:51:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
780 "Created: / 31-01-2014 / 01:51:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
763 "Modified: / 18-01-2011 / 17:57:23 / cg" |
|
764 ! |
781 ! |
765 |
782 |
766 organization |
783 organization |
767 "for ST80 compatibility; |
784 "for ST80 compatibility; |
768 read the documentation in ClassOrganizer for more info." |
785 read the documentation in ClassOrganizer for more info." |
819 reorganizeFromString:orgString |
836 reorganizeFromString:orgString |
820 "for ST80 compatibility but without functionality" |
837 "for ST80 compatibility but without functionality" |
821 |
838 |
822 "Created: / 28.3.1998 / 21:21:52 / cg" |
839 "Created: / 28.3.1998 / 21:21:52 / cg" |
823 ! ! |
840 ! ! |
|
841 |
824 |
842 |
825 !ClassDescription methodsFor:'Compatibility-V''Age'! |
843 !ClassDescription methodsFor:'Compatibility-V''Age'! |
826 |
844 |
827 categoriesFor:aSelector are:listOfCategories |
845 categoriesFor:aSelector are:listOfCategories |
828 "to allow fileIn of V'Age code. |
846 "to allow fileIn of V'Age code. |