Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
correctly compute height of the middle workspace
authorClaus Gittinger <cg@exept.de>
Tue, 18 Mar 1997 10:58:13 +0100
changeset 88 d6dccf1ad344
parent 87 cc6d70449622
child 89 35c5711729c2
correctly compute height of the middle workspace
InspectorView.st file | annotate | diff | comparison | revisions
NewInspectorView.st file | annotate | diff | comparison | revisions 
--- 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'!
hg/stx-libtool2