equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG |
4 COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
79 ! ! |
81 ! ! |
80 |
82 |
81 !SetInspectorView methodsFor:'private'! |
83 !SetInspectorView methodsFor:'private'! |
82 |
84 |
83 baseInspectedObjectClass |
85 baseInspectedObjectClass |
|
86 "only instvars below that are shown by me in the non-basic tab. |
|
87 This hides uninterresting details in the regular tab" |
|
88 |
84 (inspectedObject class inheritsFrom:Set) ifTrue:[ |
89 (inspectedObject class inheritsFrom:Set) ifTrue:[ |
85 ^ Set |
90 ^ Set |
86 ]. |
91 ]. |
87 ^ Object |
92 ^ Object |
88 ! |
93 ! |
201 |
206 |
202 !SetInspectorView class methodsFor:'documentation'! |
207 !SetInspectorView class methodsFor:'documentation'! |
203 |
208 |
204 version |
209 version |
205 ^ '$Header$' |
210 ^ '$Header$' |
206 ! ! |
211 ! |
207 |
212 |
|
213 version_CVS |
|
214 ^ '$Header$' |
|
215 ! ! |
|
216 |