equal
deleted
inserted
replaced
96 declareAllNewFrom:(super inspectorExtraAttributes ? #()); |
96 declareAllNewFrom:(super inspectorExtraAttributes ? #()); |
97 add:(self isMeta |
97 add:(self isMeta |
98 ifFalse:[ '-meta' -> [ self theMetaclass ] ] |
98 ifFalse:[ '-meta' -> [ self theMetaclass ] ] |
99 ifTrue:[ '-nonMeta' -> [ self theNonMetaclass ] ]); |
99 ifTrue:[ '-nonMeta' -> [ self theNonMetaclass ] ]); |
100 yourself |
100 yourself |
|
101 ! ! |
|
102 |
|
103 !Behavior methodsFor:'inspecting'! |
|
104 |
|
105 inspectorValueStringInListFor:anInspector |
|
106 "returns a string to be shown in the inspector's list" |
|
107 |
|
108 |nm| |
|
109 |
|
110 (nm := self name) notEmptyOrNil ifTrue:[ |
|
111 ^ nm |
|
112 ]. |
|
113 ^ super inspectorValueStringInListFor:anInspector |
101 ! ! |
114 ! ! |
102 |
115 |
103 !Block methodsFor:'inspecting'! |
116 !Block methodsFor:'inspecting'! |
104 |
117 |
105 inspectorExtraAttributes |
118 inspectorExtraAttributes |
351 |
364 |
352 inspectorValueStringInListFor:anInspector |
365 inspectorValueStringInListFor:anInspector |
353 "returns a string to be shown in the inspector's list" |
366 "returns a string to be shown in the inspector's list" |
354 |
367 |
355 ^ self storeString contractTo:30. |
368 ^ self storeString contractTo:30. |
356 ! ! |
|
357 |
|
358 !Class methodsFor:'inspecting'! |
|
359 |
|
360 inspectorValueStringInListFor:anInspector |
|
361 "returns a string to be shown in the inspector's list" |
|
362 |
|
363 name notEmptyOrNil ifTrue:[ |
|
364 ^ name |
|
365 ]. |
|
366 ^ super inspectorValueStringInListFor:anInspector |
|
367 ! ! |
369 ! ! |
368 |
370 |
369 !Collection methodsFor:'inspecting'! |
371 !Collection methodsFor:'inspecting'! |
370 |
372 |
371 inspectorValueStringInListFor:anInspector |
373 inspectorValueStringInListFor:anInspector |
1956 ! ! |
1958 ! ! |
1957 |
1959 |
1958 !stx_libtool class methodsFor:'documentation'! |
1960 !stx_libtool class methodsFor:'documentation'! |
1959 |
1961 |
1960 extensionsVersion_CVS |
1962 extensionsVersion_CVS |
1961 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.83 2012-10-15 16:52:15 cg Exp $' |
1963 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.84 2012-10-17 19:04:28 cg Exp $' |
1962 ! ! |
1964 ! ! |