equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
13 |
13 |
14 "{ NameSpace: NewInspector }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 VariableVerticalPanel subclass:#NewInspectorView |
16 VariableVerticalPanel subclass:#NewInspectorView |
17 instanceVariableNames:'inspectorView userSpace workSpace inspectedObject' |
17 instanceVariableNames:'inspectorView userSpace workSpace inspectedObject' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
23 !NewInspectorView class methodsFor:'documentation'! |
23 !NewInspectorView class methodsFor:'documentation'! |
24 |
24 |
25 copyright |
25 copyright |
26 " |
26 " |
27 COPYRIGHT (c) 1997 by eXept Software AG |
27 COPYRIGHT (c) 1997 by eXept Software AG |
28 All Rights Reserved |
28 All Rights Reserved |
29 |
29 |
30 This software is furnished under a license and may be used |
30 This software is furnished under a license and may be used |
31 only in accordance with the terms of that license and with the |
31 only in accordance with the terms of that license and with the |
32 inclusion of the above copyright notice. This software may not |
32 inclusion of the above copyright notice. This software may not |
33 be provided or otherwise made available to, or used by, any |
33 be provided or otherwise made available to, or used by, any |
40 |
40 |
41 documentation |
41 documentation |
42 " |
42 " |
43 a new (multipane) inspector; |
43 a new (multipane) inspector; |
44 open with: |
44 open with: |
45 NewInspector::NewInspectorView inspect:Object |
45 Tools::NewInspectorView inspect:Object |
46 |
46 |
47 install as standard inspector: |
47 install as standard inspector: |
48 Smalltalk at:#Inspector put:(NewInspector::NewInspectorView) |
48 Smalltalk at:#Inspector put:(Tools::NewInspectorView) |
49 |
49 |
50 [open with:] |
50 [open with:] |
51 NewInspector::NewInspectorView |
51 Tools::NewInspectorView |
52 inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display) |
52 inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display) |
53 |
53 |
54 [author:] |
54 [author:] |
55 Claus Atzkern |
55 Claus Atzkern |
56 " |
56 " |
57 ! |
57 ! |
58 |
58 |
59 examples |
59 examples |
60 |
60 |
61 " |
61 " |
62 open an inspector on an array |
62 open an inspector on an array |
63 [exBegin] |
63 [exBegin] |
64 |array| |
64 |array| |
65 |
65 |
66 array := Array new:5. |
66 array := Array new:5. |
67 array at:1 put:(Array new:400). |
67 array at:1 put:(Array new:400). |
68 NewInspector::NewInspectorView inspect:array |
68 Tools::NewInspectorView inspect:array |
69 [exEnd] |
69 [exEnd] |
70 " |
70 " |
71 ! ! |
71 ! ! |
72 |
72 |
73 !NewInspectorView class methodsFor:'instance creation'! |
73 !NewInspectorView class methodsFor:'instance creation'! |
74 |
74 |
127 workSpace doItAction:[:theCode|inspectorView doIt:theCode notifying:workSpace]. |
127 workSpace doItAction:[:theCode|inspectorView doIt:theCode notifying:workSpace]. |
128 |
128 |
129 inspectorView action:[:el|self updateWorkSpace]. |
129 inspectorView action:[:el|self updateWorkSpace]. |
130 |
130 |
131 inspectorView valueChangedAction:[:el||lbl| |
131 inspectorView valueChangedAction:[:el||lbl| |
132 workSpace list:(Array with:(el displayString)). |
132 workSpace list:(Array with:(el displayString)). |
133 ]. |
133 ]. |
134 |
134 |
135 "Modified: 18.3.1997 / 10:57:34 / cg" |
135 "Modified: 18.3.1997 / 10:57:34 / cg" |
136 ! ! |
136 ! ! |
137 |
137 |