diff -r cc6d70449622 -r d6dccf1ad344 InspectorView.st --- a/InspectorView.st Thu Mar 06 15:59:49 1997 +0100 +++ b/InspectorView.st Tue Mar 18 10:58:13 1997 +0100 @@ -52,7 +52,7 @@ !InspectorView methodsFor:'initialization'! initialize - |view| + |view wsHeight| super initialize. @@ -62,8 +62,9 @@ workSpace := Workspace origin:0.0 @ 1.0 corner:1.0 @ 1.0 in:view. userSpace := Workspace origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:self. - workSpace topInset:-18. - inspectorView bottomInset:18. + wsHeight := (workSpace preferredExtentForLines:1 cols:10) y. + workSpace topInset:wsHeight negated. + inspectorView bottomInset:wsHeight. userSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace]. workSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace]. @@ -76,6 +77,8 @@ inspectorView valueChangedAction:[:el||lbl| workSpace list:(Array with:(el displayString)). ]. + + "Modified: 18.3.1997 / 10:57:34 / cg" ! ! !InspectorView methodsFor:'update'!