1 ClassChange subclass:#MethodRemoveChange

     2 	instanceVariableNames:'selector'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	category:'System-Changes'

     6 !

     7 

     8 !MethodRemoveChange class methodsFor:'documentation'!

     9 

    10 history

    11 

    12     "Created: / 16.2.1998 / 12:47:20 / cg"

    13     "Created: #class:selector: / 16.2.1998 / 12:47:39 / cg"

    14     "Created: #printOn: / 16.2.1998 / 12:50:42 / cg"

    15     "Created: #className:selector: / 16.2.1998 / 12:51:57 / cg"

    16 ! !

    17 

    18 !MethodRemoveChange methodsFor:'accessing'!

    19 

    20 class:cls selector:sel

    21     className := cls name.

    22     selector := sel

    23 

    24     "Modified: / 27.8.1995 / 22:56:03 / claus"

    25     "Created: / 16.2.1998 / 12:47:39 / cg"

    26 !

    27 

    28 className:clsName selector:sel

    29     className := clsName.

    30     selector := sel

    31 

    32     "Modified: / 27.8.1995 / 22:56:03 / claus"

    33     "Created: / 16.2.1998 / 12:51:57 / cg"

    34 ! !

    35 

    36 !MethodRemoveChange methodsFor:'printing'!

    37 

    38 printOn:aStream

    39     aStream     

    40         nextPutAll:className; 

    41         nextPutAll:' removeSelector:'; 

    42         nextPutAll:selector storeString

    43 

    44     "Created: / 16.2.1998 / 12:50:42 / cg"

    45 ! !

    46 

    47 !MethodRemoveChange class methodsFor:'documentation'!

    48 

    49 version

    50     ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.1 1998-02-16 13:59:14 cg Exp $'

    51 ! !