311 |
311 |
312 hasInterface:aJavaInterface |
312 hasInterface:aJavaInterface |
313 "return true, if I respond to all methods as |
313 "return true, if I respond to all methods as |
314 required by the argument, an aJavaInterface" |
314 required by the argument, an aJavaInterface" |
315 |
315 |
316 interfaces size > 0 ifTrue:[ |
316 interfaces notEmptyOrNil ifTrue:[ |
317 self interfaces do:[:if | |
317 (self interfaces includesIdentical:aJavaInterface) ifTrue:[ |
318 aJavaInterface == if ifTrue:[ |
318 ^ true |
319 ^ true |
319 ] |
320 ]. |
|
321 ] |
|
322 ]. |
320 ]. |
323 superclass isJavaClass ifTrue:[ |
321 superclass isJavaClass ifTrue:[ |
324 ^ superclass hasInterface:aJavaInterface |
322 ^ superclass hasInterface:aJavaInterface |
325 ]. |
323 ]. |
326 ^ false. |
324 ^ false. |
327 |
325 |
328 "/ aJavaInterface methodDictionary keysAndValuesDo:[:sel :mthd | |
326 "/ aJavaInterface methodDictionary keysAndValuesDo:[:sel :mthd | |
329 "/ (self canUnderstand:sel) ifFalse:[ |
327 "/ (self canUnderstand:sel) ifFalse:[ |
330 "/ ^ false. |
328 "/ ^ false. |
331 "/ ] |
329 "/ ] |
332 "/ ]. |
330 "/ ]. |
333 ^ true |
331 "/ ^ true |
334 |
332 |
335 "Modified: / 28.1.1998 / 01:46:16 / cg" |
333 "Modified: / 28-01-1998 / 01:46:16 / cg" |
336 |
334 "Modified: / 14-02-2017 / 10:17:30 / stefan" |
337 ! |
335 ! |
338 |
336 |
339 isAbstract |
337 isAbstract |
340 "return true, if the receiver is abstract |
338 "return true, if the receiver is abstract |
341 (i.e. may not have instances)" |
339 (i.e. may not have instances)" |