--- 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.