equal
deleted
inserted
replaced
483 |
483 |
484 ! ! |
484 ! ! |
485 |
485 |
486 !MethodDictionary methodsFor:'queries'! |
486 !MethodDictionary methodsFor:'queries'! |
487 |
487 |
|
488 includesKey:key |
|
489 "return true, if there is an entry stored under key |
|
490 (i.e. there is a method for that selector)" |
|
491 |
|
492 |sz "{ Class: SmallInteger }"| |
|
493 |
|
494 sz := self basicSize. |
|
495 1 to:sz by:2 do:[:i | |
|
496 (self basicAt:i) == key ifTrue:[^ true]. |
|
497 ]. |
|
498 |
|
499 ^ false |
|
500 |
|
501 "Created: 30.7.1997 / 11:01:37 / cg" |
|
502 ! |
|
503 |
488 keys |
504 keys |
489 "return a collection containing all keys of the receiver" |
505 "return a collection containing all keys of the receiver" |
490 |
506 |
491 |sz "{ Class: SmallInteger }" |
507 |sz "{ Class: SmallInteger }" |
492 keys key| |
508 keys key| |
534 ! ! |
550 ! ! |
535 |
551 |
536 !MethodDictionary class methodsFor:'documentation'! |
552 !MethodDictionary class methodsFor:'documentation'! |
537 |
553 |
538 version |
554 version |
539 ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.18 1997-02-15 16:01:48 ca Exp $' |
555 ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.19 1997-07-30 09:02:05 cg Exp $' |
540 ! ! |
556 ! ! |