equal
deleted
inserted
replaced
94 label |
94 label |
95 label isNil ifTrue:[ |
95 label isNil ifTrue:[ |
96 showPrefix ifTrue:[ |
96 showPrefix ifTrue:[ |
97 label := klass name. |
97 label := klass name. |
98 (context notNil and:[klass isJavaClass]) ifTrue:[ |
98 (context notNil and:[klass isJavaClass]) ifTrue:[ |
99 context language isJava ifTrue:[ |
99 | lang | |
|
100 |
|
101 lang := context language. |
|
102 (lang notNil and:[lang isJava]) ifTrue:[ |
100 label := klass javaName |
103 label := klass javaName |
101 ] ifFalse:[ |
104 ] ifFalse:[ |
102 context language isSmalltalk ifTrue:[ |
105 (lang notNil and:[lang isSmalltalk]) ifTrue:[ |
103 label := 'JAVA ' , (klass binaryName copyReplaceAll: $/ with: Character space) |
106 label := 'JAVA ' , (klass binaryName copyReplaceAll: $/ with: Character space) |
104 ] |
107 ] ifFalse:[ |
|
108 label := klass nameWithoutNameSpacePrefix. |
|
109 ]. |
105 ] |
110 ] |
106 ]. |
111 ]. |
107 ] ifFalse:[ |
112 ] ifFalse:[ |
108 label := klass nameWithoutNameSpacePrefix. |
113 label := klass nameWithoutNameSpacePrefix. |
109 ]. |
114 ]. |
110 ]. |
115 ]. |
111 |
116 |
112 ^label |
117 ^label |
113 |
118 |
114 "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
119 "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
115 "Modified: / 24-07-2014 / 17:30:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120 "Modified: / 07-08-2014 / 16:19:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
116 ! |
121 ! |
117 |
122 |
118 showPrefix |
123 showPrefix |
119 ^ showPrefix |
124 ^ showPrefix |
120 ! |
125 ! |