BrowserView.st
changeset 81 b3b4d34c5ada
parent 79 d78f92a07d5d
child 85 d9713a3ca092
--- a/BrowserView.st	Thu Mar 09 11:59:29 1995 +0100
+++ b/BrowserView.st	Sat Mar 18 06:18:44 1995 +0100
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.2 1995-03-09 03:30:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.3 1995-03-18 05:18:05 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.2 1995-03-09 03:30:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.3 1995-03-18 05:18:05 claus Exp $
 "
 !
 
@@ -1484,7 +1484,6 @@
     h := instanceToggle height.
     instanceToggle origin:(0.0 @ 1.0) corner:(0.5 @ 1.0).
     instanceToggle topInset:h negated.
-    instanceToggle bottomInset:halfSpace.
 
     instanceToggle turnOn.
     instanceToggle pressAction:instanceAction.
@@ -1494,13 +1493,15 @@
     h := classToggle height.
     classToggle origin:(0.5 @ 1.0) corner:(1.0 @ 1.0).
     classToggle topInset:h negated.
-    classToggle bottomInset:halfSpace.
 
     classToggle turnOff.
     classToggle pressAction:classAction.
     classToggle releaseAction:instanceAction.
 
     StyleSheet is3D ifTrue:[
+	instanceToggle bottomInset:halfSpace.
+	classToggle bottomInset:halfSpace.
+
 	instanceToggle leftInset:halfSpace.
 	classToggle leftInset:halfSpace.
 	instanceToggle rightInset:ViewSpacing - halfSpace.
@@ -1560,7 +1561,7 @@
 			    (frame height
 			      - ViewSpacing
 			      - instanceToggle height
-			      - instanceToggle borderWidth
+			      "-" + instanceToggle borderWidth
 			      + v borderWidth)]
 			in:frame.