--- a/SimpleView.st	Thu Aug 24 22:39:36 1995 +0200
+++ b/SimpleView.st	Sun Aug 27 02:33:33 1995 +0200
@@ -44,7 +44,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.14 1995-08-08 01:24:37 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.15 1995-08-27 00:32:10 claus Exp $
 '!
 
 !SimpleView class methodsFor:'documentation'!
@@ -65,7 +65,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.14 1995-08-08 01:24:37 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.15 1995-08-27 00:32:10 claus Exp $
 "
 !
 
@@ -2990,15 +2990,15 @@
 !
 
 left
-    "return the x position of the left border"
+    "return the x position of the left border (in pixels)"
 
     ^ left
 !
 
 corner
-    "return the lower right corner-point"
-
-    ^ (left + width - 1) @ (top + height - 1)
+    "return the lower right corner-point (in pixels)"
+
+    ^ (left + width "- 1") @ (top + height "- 1")
 !
 
 bottomInset
@@ -3022,15 +3022,15 @@
 !
 
 right
-    "return the x position of the right border"
-
-    ^ left + width - 1
+    "return the x position of the right edge  (in pixels)"
+
+    ^ left + width "- 1"
 !
 
 bottom
-    "return the y position of the actual bottom border (in pixels)"
-
-    ^ top + height - 1
+    "return the y position of the actual bottom edge (in pixels)"
+
+    ^ top + height "- 1"
 !
 
 relativeExtent
@@ -4236,8 +4236,8 @@
     ^ nil "/ Controller
 !
 
-initStyle
-    "this method sets up all style dependent things"
+initStyleSheet
+    "this method gets the styleSheet"
 
     "
      when coming here the first time, we read the styleSheet
@@ -4247,8 +4247,13 @@
 	self class updateStyleCache
     ].
 
-"/    style := DefaultStyle.
     styleSheet := StyleSheet.
+!
+
+initStyle
+    "this method sets up all style dependent things"
+
+    self initStyleSheet.
 
     borderWidth := DefaultBorderWidth.
     borderWidth isNil ifTrue:[borderWidth := 1].