equal
deleted
inserted
replaced
7024 |
7024 |
7025 cls := self theClass. |
7025 cls := self theClass. |
7026 name := cls notNil ifTrue:[cls nameInBrowser] ifFalse:[className]. |
7026 name := cls notNil ifTrue:[cls nameInBrowser] ifFalse:[className]. |
7027 name printOn:aGCOrStream. |
7027 name printOn:aGCOrStream. |
7028 meta ifTrue:[ |
7028 meta ifTrue:[ |
7029 aGCOrStream |
7029 "/ aGCOrStream emphasis:#bold. |
7030 emphasis:#bold; |
7030 aGCOrStream nextPutAll:' class'. |
7031 nextPutAll:' class'; |
7031 "/ aGCOrStream emphasis:nil. |
7032 emphasis:nil. |
|
7033 ]. |
7032 ]. |
7034 selector notNil ifTrue:[ |
7033 selector notNil ifTrue:[ |
7035 aGCOrStream |
7034 aGCOrStream |
7036 nextPutAll:' >> '; |
7035 nextPutAll:' » '; |
7037 nextPutAll:selector. |
7036 emphasis:#bold; |
|
7037 nextPutAll:selector; |
|
7038 emphasis:nil. |
7038 ]. |
7039 ]. |
7039 |
7040 |
7040 "Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7041 "Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7041 "Modified: / 03-07-2011 / 13:44:32 / cg" |
7042 "Modified: / 03-07-2011 / 13:44:32 / cg" |
7042 "Modified: / 14-10-2013 / 12:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7043 "Modified: / 14-10-2013 / 12:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |