--- a/Plug.st Thu Dec 07 17:48:43 1995 +0100
+++ b/Plug.st Thu Dec 07 22:25:39 1995 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:2.10.5 on 26-mar-1995 at 4:21:12 am'!
-
Model subclass:#Plug
instanceVariableNames:'simulatedProtocol'
classVariableNames:''
@@ -35,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.6 1995-11-11 16:04:51 cg Exp $'
-!
-
documentation
"
A Plug is an objcet which simulates a protocol and evaluates
@@ -68,6 +62,15 @@
^ super basicNew privateInitialize
! !
+!Plug methodsFor:'initialization'!
+
+privateInitialize
+ "this method is NOT called initialize to allow plugging that
+ selector ..."
+
+ simulatedProtocol := IdentityDictionary new.
+! !
+
!Plug methodsFor:'message sending'!
doesNotUnderstand:aMessage
@@ -80,6 +83,12 @@
^ block valueWithArguments:(aMessage arguments)
! !
+!Plug methodsFor:'protocol definition'!
+
+respondTo:aSelector with:aBlock
+ simulatedProtocol at:aSelector put:aBlock
+! !
+
!Plug methodsFor:'queries'!
respondsTo:aSelector
@@ -87,18 +96,8 @@
^ super respondsTo:aSelector
! !
-!Plug methodsFor:'protocol definition'!
-
-respondTo:aSelector with:aBlock
- simulatedProtocol at:aSelector put:aBlock
-! !
-
-!Plug methodsFor:'initialization'!
+!Plug class methodsFor:'documentation'!
-privateInitialize
- "this method is NOT called initialize to allow plugging that
- selector ..."
-
- simulatedProtocol := IdentityDictionary new.
+version
+ ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.7 1995-12-07 21:25:39 cg Exp $'
! !
-