equal
deleted
inserted
replaced
213 self error:'No child with label ''' , label , ''''. |
213 self error:'No child with label ''' , label , ''''. |
214 |
214 |
215 "Created: / 21-06-2011 / 08:49:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
215 "Created: / 21-06-2011 / 08:49:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
216 ! |
216 ! |
217 |
217 |
218 flyByHelpText |
218 helpText |
219 ^ nil |
219 ^ nil |
220 ! |
220 ! |
221 |
221 |
222 icon |
222 icon |
223 "superclass BookmarkEntry says that I am responsible to implement this method" |
223 "superclass BookmarkEntry says that I am responsible to implement this method" |
452 className := className asSymbol. |
452 className := className asSymbol. |
453 |
453 |
454 "Modified: / 18-10-2011 / 13:33:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
454 "Modified: / 18-10-2011 / 13:33:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
455 ! |
455 ! |
456 |
456 |
457 flyByHelpText |
457 helpText |
458 ^ 'Goto ',className |
458 ^ 'Goto ',className |
459 ! ! |
459 ! ! |
460 |
460 |
461 !Bookmark::Class methodsFor:'accessing-defaults'! |
461 !Bookmark::Class methodsFor:'accessing-defaults'! |
462 |
462 |
541 ^ aVisitor visitClass:self |
541 ^ aVisitor visitClass:self |
542 ! ! |
542 ! ! |
543 |
543 |
544 !Bookmark::File methodsFor:'accessing'! |
544 !Bookmark::File methodsFor:'accessing'! |
545 |
545 |
546 flyByHelpText |
546 helpText |
547 ^ 'Goto "', path , '"' |
547 ^ 'Goto "', path , '"' |
548 ! |
548 ! |
549 |
549 |
550 initializeLabel |
550 initializeLabel |
551 |
551 |
743 className:classNameArg selector:selectorArg |
743 className:classNameArg selector:selectorArg |
744 className := classNameArg. |
744 className := classNameArg. |
745 selector := selectorArg. |
745 selector := selectorArg. |
746 ! |
746 ! |
747 |
747 |
748 flyByHelpText |
748 helpText |
749 ^ className,' >> ',selector |
749 ^ className,' >> ',selector |
750 ! |
750 ! |
751 |
751 |
752 selector |
752 selector |
753 ^ selector |
753 ^ selector |
869 ^ aVisitor visitSeparator:self |
869 ^ aVisitor visitSeparator:self |
870 ! ! |
870 ! ! |
871 |
871 |
872 !Bookmark::URL methodsFor:'accessing'! |
872 !Bookmark::URL methodsFor:'accessing'! |
873 |
873 |
874 flyByHelpText |
874 helpText |
875 ^ 'Goto "', url asString , '"' |
875 ^ 'Goto "', url asString , '"' |
876 ! |
876 ! |
877 |
877 |
878 url |
878 url |
879 ^ url |
879 ^ url |