--- 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'!
--- a/NewInspectorView.st Thu Mar 06 15:59:49 1997 +0100
+++ b/NewInspectorView.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'!