MethodChangeNotificationParameter.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 29 Jan 2012 12:51:41 +0000
branchjv
changeset 3011 1997ff6e7e55
parent 2266 75abf5b4c643
child 3012 4f40b8304d54
permissions -rw-r--r--
trunk branched into /branches/jv
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2266
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libbasic3' }"
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
ChangeNotificationParameter variableSubclass:#MethodChangeNotificationParameter
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'System-Changes-Notifications'
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MethodChangeNotificationParameter class methodsFor:'instance creation'!
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
changeClass:changeClassArg changeSelector:changeSelectorArg
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    ^ (self new:2)
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
        changeClass:changeClassArg changeSelector:changeSelectorArg
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
! !
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
!MethodChangeNotificationParameter methodsFor:'accessing'!
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
changeClass
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
    ^ self at:1
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
changeMethod
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    ^ self at:2
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
! !
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!MethodChangeNotificationParameter class methodsFor:'documentation'!
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
75abf5b4c643 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
version_CVS
3011
1997ff6e7e55 trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2266
diff changeset
    31
    ^ '§Header: /cvs/stx/stx/libbasic3/MethodChangeNotificationParameter.st,v 1.1 2010/04/19 13:26:59 cg Exp §'
1997ff6e7e55 trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2266
diff changeset
    32
! !