equal
deleted
inserted
replaced
50 ! ! |
50 ! ! |
51 |
51 |
52 !InspectorView methodsFor:'initialization'! |
52 !InspectorView methodsFor:'initialization'! |
53 |
53 |
54 initialize |
54 initialize |
55 |view| |
55 |view wsHeight| |
56 |
56 |
57 super initialize. |
57 super initialize. |
58 |
58 |
59 view := SimpleView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:self. |
59 view := SimpleView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:self. |
60 |
60 |
61 inspectorView := InspectorPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:view. |
61 inspectorView := InspectorPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:view. |
62 workSpace := Workspace origin:0.0 @ 1.0 corner:1.0 @ 1.0 in:view. |
62 workSpace := Workspace origin:0.0 @ 1.0 corner:1.0 @ 1.0 in:view. |
63 userSpace := Workspace origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:self. |
63 userSpace := Workspace origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:self. |
64 |
64 |
65 workSpace topInset:-18. |
65 wsHeight := (workSpace preferredExtentForLines:1 cols:10) y. |
66 inspectorView bottomInset:18. |
66 workSpace topInset:wsHeight negated. |
|
67 inspectorView bottomInset:wsHeight. |
67 |
68 |
68 userSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace]. |
69 userSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace]. |
69 workSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace]. |
70 workSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace]. |
70 |
71 |
71 userSpace doItAction:[:theCode|inspectorView doIt:theCode notifying:workSpace]. |
72 userSpace doItAction:[:theCode|inspectorView doIt:theCode notifying:workSpace]. |
74 inspectorView action:[:el|self updateWorkSpace]. |
75 inspectorView action:[:el|self updateWorkSpace]. |
75 |
76 |
76 inspectorView valueChangedAction:[:el||lbl| |
77 inspectorView valueChangedAction:[:el||lbl| |
77 workSpace list:(Array with:(el displayString)). |
78 workSpace list:(Array with:(el displayString)). |
78 ]. |
79 ]. |
|
80 |
|
81 "Modified: 18.3.1997 / 10:57:34 / cg" |
79 ! ! |
82 ! ! |
80 |
83 |
81 !InspectorView methodsFor:'update'! |
84 !InspectorView methodsFor:'update'! |
82 |
85 |
83 updateWorkSpace |
86 updateWorkSpace |