equal
deleted
inserted
replaced
211 |
211 |
212 self do:[:e|e label = label ifTrue:[^e]]. |
212 self do:[:e|e label = label ifTrue:[^e]]. |
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 ! |
|
217 |
|
218 flyByHelpText |
|
219 ^ nil |
216 ! |
220 ! |
217 |
221 |
218 icon |
222 icon |
219 "superclass BookmarkEntry says that I am responsible to implement this method" |
223 "superclass BookmarkEntry says that I am responsible to implement this method" |
220 |
224 |
446 ]. |
450 ]. |
447 |
451 |
448 className := className asSymbol. |
452 className := className asSymbol. |
449 |
453 |
450 "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 ! |
|
456 |
|
457 flyByHelpText |
|
458 ^ 'Goto ',className |
451 ! ! |
459 ! ! |
452 |
460 |
453 !Bookmark::Class methodsFor:'accessing-defaults'! |
461 !Bookmark::Class methodsFor:'accessing-defaults'! |
454 |
462 |
455 defaultLabel |
463 defaultLabel |
532 |
540 |
533 ^ aVisitor visitClass:self |
541 ^ aVisitor visitClass:self |
534 ! ! |
542 ! ! |
535 |
543 |
536 !Bookmark::File methodsFor:'accessing'! |
544 !Bookmark::File methodsFor:'accessing'! |
|
545 |
|
546 flyByHelpText |
|
547 ^ 'Goto "', path , '"' |
|
548 ! |
537 |
549 |
538 initializeLabel |
550 initializeLabel |
539 |
551 |
540 label := path asFilename baseName |
552 label := path asFilename baseName |
541 |
553 |
731 className:classNameArg selector:selectorArg |
743 className:classNameArg selector:selectorArg |
732 className := classNameArg. |
744 className := classNameArg. |
733 selector := selectorArg. |
745 selector := selectorArg. |
734 ! |
746 ! |
735 |
747 |
|
748 flyByHelpText |
|
749 ^ className,' >> ',selector |
|
750 ! |
|
751 |
736 selector |
752 selector |
737 ^ selector |
753 ^ selector |
738 |
754 |
739 ! |
755 ! |
740 |
756 |
853 ^ aVisitor visitSeparator:self |
869 ^ aVisitor visitSeparator:self |
854 ! ! |
870 ! ! |
855 |
871 |
856 !Bookmark::URL methodsFor:'accessing'! |
872 !Bookmark::URL methodsFor:'accessing'! |
857 |
873 |
|
874 flyByHelpText |
|
875 ^ 'Goto "', url asString , '"' |
|
876 ! |
|
877 |
858 url |
878 url |
859 ^ url |
879 ^ url |
860 ! |
880 ! |
861 |
881 |
862 url:aString |
882 url:aString |
904 ! ! |
924 ! ! |
905 |
925 |
906 !Bookmark class methodsFor:'documentation'! |
926 !Bookmark class methodsFor:'documentation'! |
907 |
927 |
908 version |
928 version |
909 ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.12 2015-02-07 18:05:29 cg Exp $' |
929 ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.13 2015-02-20 15:36:59 cg Exp $' |
910 ! |
930 ! |
911 |
931 |
912 version_CVS |
932 version_CVS |
913 ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.12 2015-02-07 18:05:29 cg Exp $' |
933 ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.13 2015-02-20 15:36:59 cg Exp $' |
914 ! |
934 ! |
915 |
935 |
916 version_SVN |
936 version_SVN |
917 ^ '$Id: Bookmark.st,v 1.12 2015-02-07 18:05:29 cg Exp $' |
937 ^ '$Id: Bookmark.st,v 1.13 2015-02-20 15:36:59 cg Exp $' |
918 ! ! |
938 ! ! |
919 |
939 |