equal
deleted
inserted
replaced
491 |
491 |
492 initializeIcon |
492 initializeIcon |
493 |
493 |
494 | cls | |
494 | cls | |
495 cls := Smalltalk at: className asSymbol. |
495 cls := Smalltalk at: className asSymbol. |
496 cls ifNotNil:[icon := SystemBrowser iconForClass: cls]. |
496 cls notNil ifTrue:[icon := SystemBrowser iconForClass: cls]. |
497 |
497 |
498 "Created: / 05-05-2011 / 23:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
498 "Created: / 05-05-2011 / 23:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
499 "Modified: / 30-06-2011 / 19:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
499 "Modified: / 30-06-2011 / 19:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
500 "Modified: / 29-11-2011 / 11:20:52 / cg" |
500 ! |
501 ! |
501 |
502 |
502 initializeLabel |
503 initializeLabel |
503 |
504 |
504 className isNil ifTrue:[^self]. |
505 className isNil ifTrue:[^self]. |
897 ! ! |
898 ! ! |
898 |
899 |
899 !Bookmark class methodsFor:'documentation'! |
900 !Bookmark class methodsFor:'documentation'! |
900 |
901 |
901 version_CVS |
902 version_CVS |
902 ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.7 2011-11-18 13:33:21 cg Exp $' |
903 ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.8 2011-11-29 10:20:58 cg Exp $' |
903 ! |
904 ! |
904 |
905 |
905 version_SVN |
906 version_SVN |
906 ^ '§Id§' |
907 ^ '§Id§' |
907 ! ! |
908 ! ! |