InspectorView.st
changeset 88 d6dccf1ad344
parent 39 03af455029eb
child 809 6f127dd5e578
equal deleted inserted replaced
87:cc6d70449622 88:d6dccf1ad344
    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