# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 858679093 -3600
# Node ID d6dccf1ad344bfd7475bc195673bb3eec90bb89c
# Parent  cc6d70449622ee29e2b27dc4d34cae71d13a613e
correctly compute height of the middle workspace

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'!
diff -r cc6d70449622 -r d6dccf1ad344 NewInspectorView.st
--- 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'!