--- a/Plug.st	Mon Feb 11 10:29:58 2002 +0100
+++ b/Plug.st	Mon Feb 25 21:00:09 2002 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 Model subclass:#Plug
 	instanceVariableNames:'simulatedProtocol'
 	classVariableNames:''
@@ -213,7 +215,7 @@
      The value returned from aBlock will be the value returned from the
      message."
 
-    (self class implements:aSelector) ifFalse:[
+    (self class includesSelector:aSelector) ifFalse:[
         (self class superclass canUnderstand:aSelector) ifTrue:[
 
             "/ sorry - this implementation is too quick of a hack.
@@ -253,5 +255,5 @@
 !Plug class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.17 2000-01-25 10:12:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.18 2002-02-25 19:59:46 cg Exp $'
 ! !

--- a/ResourceSpecEditor.st	Mon Feb 11 10:29:58 2002 +0100
+++ b/ResourceSpecEditor.st	Mon Feb 25 21:00:09 2002 +0100
@@ -292,7 +292,7 @@
     (specClass isSymbol and: [(cls := Smalltalk at: specClass) isClass])
     ifTrue:
     [
-        (cls class implements: specSelector)
+        (cls class includesSelector: specSelector)
         ifFalse: 
         [
             ^specSelector isNil 
@@ -302,7 +302,6 @@
         ^specClass, ' >> ', specSelector
     ].
     ^'No class and selector defined.'
-
 ! !
 
 !ResourceSpecEditor methodsFor:'initialization'!
@@ -416,7 +415,7 @@
     "updates the history, if there was loaded a resource spec"
 
     |cls|             
-    ((cls := self resolveClassNamed) notNil and: [cls class implements: specSelector])
+    ((cls := self resolveClassNamed) notNil and: [cls class includesSelector: specSelector])
     ifTrue:
     [
         |className message|
@@ -471,7 +470,7 @@
         msg := aString asCollectionOfWords.
         (msg size == 2 and:
         [(cls := self resolveName:(msg at:1)) notNil and:
-        [cls class implements: (sel := (msg at: 2) asSymbol)]])
+        [cls class includesSelector: (sel := (msg at: 2) asSymbol)]])
         ifTrue:
         [               
             self isStandAlone 
@@ -584,7 +583,7 @@
     ] ifFalse:[
         (cls := self resolveName: specClass) notNil 
         ifTrue:[
-            resourceClass := cls withAllSuperclasses detect: [:cls| cls class implements: resourceSelector] ifNone: [cls]
+            resourceClass := cls withAllSuperclasses detect: [:cls| cls class includesSelector: resourceSelector] ifNone: [cls]
         ]
     ].
 
@@ -689,5 +688,5 @@
 !ResourceSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.21 2001-10-30 18:32:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.22 2002-02-25 20:00:09 cg Exp $'
 ! !