class: MethodRemoveChangeNotificationParameter
added:
#changeClass
#changeMethod
--- a/MethodRemoveChangeNotificationParameter.st Mon Mar 09 19:08:03 2015 +0100
+++ b/MethodRemoveChangeNotificationParameter.st Fri Mar 20 14:17:02 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -11,6 +13,8 @@
"
"{ Package: 'stx:libbasic3' }"
+"{ NameSpace: Smalltalk }"
+
MethodChangeNotificationParameter variableSubclass:#MethodRemoveChangeNotificationParameter
instanceVariableNames:''
classVariableNames:''
@@ -36,11 +40,19 @@
!MethodRemoveChangeNotificationParameter methodsFor:'accessing'!
+changeClass
+ ^ self at:1
+!
+
changeClass:changeClassArg changeSelector:changeSelectorArg
self at:1 put:changeClassArg.
self at:2 put:changeSelectorArg.
!
+changeMethod
+ self shouldNeverBeSent
+!
+
changeSelector
^ self at:2
! !
@@ -48,6 +60,6 @@
!MethodRemoveChangeNotificationParameter class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChangeNotificationParameter.st,v 1.2 2014-02-05 17:51:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChangeNotificationParameter.st,v 1.3 2015-03-20 13:17:02 cg Exp $'
! !