--- a/UIHelpTool.st Mon Feb 25 20:56:30 2002 +0100
+++ b/UIHelpTool.st Mon Feb 25 21:02:03 2002 +0100
@@ -12,6 +12,8 @@
+"{ Package: 'stx:libtool2' }"
+
ToolApplicationModel subclass:#UIHelpTool
instanceVariableNames:'specClass specSelector dictionary dictionaries listSelection
maxCharsPerLine modifiedHolder modified'
@@ -665,7 +667,7 @@
(specClass isClass and: [specClass isLoaded])
ifTrue:
[
- (specClass class implements:specSelector) ifFalse:[
+ (specClass class includesSelector:specSelector) ifFalse:[
dictionaries at: specClass name put: dictionary
].
list := self listOfHelpSpecClasses.
@@ -684,7 +686,6 @@
].
self updateList
-
! !
!UIHelpTool methodsFor:'callbacks'!
@@ -729,7 +730,7 @@
specClass isClass
ifTrue:
[
- (specClass class implements: specSelector)
+ (specClass class includesSelector: specSelector)
ifFalse:
[
^specSelector isNil
@@ -739,9 +740,6 @@
^specClass name, ' >> ', specSelector
].
^'No class and selector defined.'
-
-
-
!
openDocumentation
@@ -797,8 +795,8 @@
|helpSpecSuperClass superHelpSpecKeys helpSpec|
- ((aClass class implements: specSelector)
- and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class implements: specSelector] ifNone: nil) notNil])
+ ((aClass class includesSelector: specSelector)
+ and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class includesSelector: specSelector] ifNone: nil) notNil])
ifTrue:[
superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
helpSpec := Dictionary new.
@@ -891,7 +889,7 @@
helpSpec at: h key put: (self getUnformattedHelpText: h value)
].
- (cls class implements: specSelector)
+ (cls class includesSelector: specSelector)
ifTrue:
[
|superclassHelpKeys implementedHelpSpec hasChanged|
@@ -1093,7 +1091,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 buildFromClass: (specClass := cls name) andSelector: (specSelector := sel).
@@ -1101,7 +1099,6 @@
]
].
^false
-
!
openInterface:aSymbol
--- a/UIPainter.st Mon Feb 25 20:56:30 2002 +0100
+++ b/UIPainter.st Mon Feb 25 21:02:03 2002 +0100
@@ -2173,7 +2173,7 @@
tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol]
ifFalse:[nil].
- (tableSelector notNil and:[cls class implements:tableSelector]) ifTrue:[
+ (tableSelector notNil and:[cls class includesSelector:tableSelector]) ifTrue:[
editor openModalOnClass:cls andSelector:tableSelector
] ifFalse:[
columns := specTool specification columns.
@@ -3404,7 +3404,7 @@
again ifFalse:[
((Smalltalk at:specClass asSymbol) notNil
- and:[ (Smalltalk at:specClass asSymbol) class implements:specSelector ])
+ and:[ (Smalltalk at:specClass asSymbol) class includesSelector:specSelector ])
ifTrue:[
(self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClass with:specSelector))
ifFalse:[
@@ -3703,10 +3703,9 @@
self updateInfoLabel.
modified := false.
painter resetModification.
- (cls class implements: specSelector) ifTrue:[
+ (cls class includesSelector: specSelector) ifTrue:[
self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
].
-
!
doSaveAs
--- a/UIPainterView.st Mon Feb 25 20:56:30 2002 +0100
+++ b/UIPainterView.st Mon Feb 25 21:02:03 2002 +0100
@@ -588,10 +588,10 @@
(selector := aProp model) notNil ifTrue:[
selector isArray ifFalse:[
selector := selector asSymbol.
- (cls implements:selector) ifTrue:[
+ (cls includesSelector:selector) ifTrue:[
skip := false.
(cls isSubclassOf:SimpleDialog) ifTrue:[
- skip := SimpleDialog implements:selector asSymbol
+ skip := SimpleDialog includesSelector:selector asSymbol
].
skip ifFalse:[
methods add:(cls compiledMethodAt:selector)
@@ -603,7 +603,7 @@
(selector := aProp menu) notNil ifTrue:[
selector isArray ifFalse:[
selector := selector asSymbol.
- (cls implements:selector) ifTrue:[
+ (cls includesSelector:selector) ifTrue:[
methods add:(cls compiledMethodAt:selector)
]
].
@@ -614,7 +614,7 @@
aSel isArray ifFalse:[
selector := aSel asSymbol.
- (cls implements:selector) ifTrue:[
+ (cls includesSelector:selector) ifTrue:[
methods add:(cls compiledMethodAt:selector)
]
].
@@ -624,7 +624,7 @@
aSel isArray ifFalse:[
selector := aSel asSymbol.
- (cls implements:selector) ifTrue:[
+ (cls includesSelector:selector) ifTrue:[
methods add:(cls compiledMethodAt:selector)
]
].
@@ -634,7 +634,7 @@
aSel isArray ifFalse:[
selector := aSel asSymbol.
- (cls implements:selector) ifTrue:[
+ (cls includesSelector:selector) ifTrue:[
methods add:(cls compiledMethodAt:selector)
]
].
@@ -646,7 +646,7 @@
(selector := protoSpec menu) notNil ifTrue:[
selector isArray ifFalse:[
selector := selector asSymbol.
- (cls implements:selector) ifTrue:[
+ (cls includesSelector:selector) ifTrue:[
methods add:(cls compiledMethodAt:selector)
]
].
@@ -821,7 +821,7 @@
skip := false.
(cls isSubclassOf:SimpleDialog) ifTrue:[
- skip := SimpleDialog implements:sym
+ skip := SimpleDialog includesSelector:sym
].
(definedMethodSelectors includes:sym) ifTrue:[
skip := true.
@@ -1019,7 +1019,7 @@
self class redefineAspectMethods ifTrue:[
aListOfSelectors do:[:aSelector|
- (aSelector isArray or:[aClass implements:aSelector]) ifFalse:[
+ (aSelector isArray or:[aClass includesSelector:aSelector]) ifFalse:[
aBlock value:aSelector
] ifTrue:[
Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class'
@@ -1036,8 +1036,6 @@
]
]
]
-
-
!
generateHookMethodFor:selectorSpec comment:commentWhen note:noteOrNil defaultCode:defaultCode inClass:targetClass
@@ -1086,7 +1084,7 @@
code := ''.
- (targetClass implements:#postBuildWith:) ifFalse:[
+ (targetClass includesSelector:#postBuildWith:) ifFalse:[
code := code
, (self
generateHookMethodFor:'postBuildWith:aBuilder'
@@ -1095,7 +1093,7 @@
defaultCode:' super postBuildWith:aBuilder'
inClass:targetClass)
].
- (targetClass implements:#postOpenWith:) ifFalse:[
+ (targetClass includesSelector:#postOpenWith:) ifFalse:[
code := code
, (self
generateHookMethodFor:'postOpenWith:aBuilder'
@@ -1104,7 +1102,7 @@
defaultCode:' super postOpenWith:aBuilder'
inClass:targetClass)
].
- (targetClass implements:#closeRequest) ifFalse:[
+ (targetClass includesSelector:#closeRequest) ifFalse:[
code := code
, (self
generateHookMethodFor:'closeRequest'