--- a/SimpleView.st	Thu Jan 09 12:49:30 1997 +0100
+++ b/SimpleView.st	Thu Jan 09 13:48:29 1997 +0100
@@ -1025,6 +1025,18 @@
     "
 !
 
+styleSheet
+    "return the view style sheet information (a dictionary)"
+
+    ^ StyleSheet
+
+    "
+     View styleSheet
+    "
+
+    "Modified: 9.1.1997 / 13:47:42 / cg"
+!
+
 styleSheet:aViewStyle
     "set the view style from a style-sheet"
 
@@ -6477,6 +6489,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.149 1996-12-19 13:53:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.150 1997-01-09 12:48:29 cg Exp $'
 ! !
 SimpleView initialize!