--- a/SimpleView.st	Sat Sep 09 04:28:20 1995 +0200
+++ b/SimpleView.st	Sun Sep 10 16:50:55 1995 +0200
@@ -44,7 +44,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.18 1995-09-07 12:29:55 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.19 1995-09-10 14:50:17 claus Exp $
 '!
 
 !SimpleView class methodsFor:'documentation'!
@@ -65,7 +65,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.18 1995-09-07 12:29:55 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.19 1995-09-10 14:50:17 claus Exp $
 "
 !
 
@@ -1150,6 +1150,16 @@
     ^ styleSheet is3D
 !
 
+styleSheet 
+    "return the styleSheet. This is set at early view-creation time,
+     from the defaultStyleSheet which is valid at that time.
+     It is not affected by later defaultStyle changes"
+
+    ^ styleSheet
+
+    "Created: 10.9.1995 / 11:02:20 / claus"
+!
+
 viewGravity:gravity
     "set the viewGravity - thats the direction where the view will move
      when the superView is resized."

--- a/ViewStyle.st	Sat Sep 09 04:28:20 1995 +0200
+++ b/ViewStyle.st	Sun Sep 10 16:50:55 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.4 1995-06-27 02:20:33 claus Exp $
+$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.5 1995-09-10 14:50:26 claus Exp $
 '!
 
 !ViewStyle class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.4 1995-06-27 02:20:33 claus Exp $
+$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.5 1995-09-10 14:50:26 claus Exp $
 "
 !
 
@@ -126,7 +126,17 @@
 !
 
 at:aKey
+    |sCls val|
+
+    sCls := thisContext sender receiver.
+    sCls isBehavior ifFalse:[sCls := sCls class].
+    (sCls isSubclassOf:SimpleView) ifTrue:[
+	val := self at:(sCls name , '.' , aKey) default:nil.
+	val notNil ifTrue:[^ val].
+    ].
     ^ self at:aKey default:nil
+
+    "Modified: 10.9.1995 / 10:59:38 / claus"
 !
 
 is3D

--- a/styles/mswindows3.style	Sat Sep 09 04:28:20 1995 +0200
+++ b/styles/mswindows3.style	Sun Sep 10 16:50:55 1995 +0200
@@ -1,6 +1,6 @@
 ; View defaultStyle:#win95 
 ;
-; $Header: /cvs/stx/stx/libview/styles/mswindows3.style,v 1.2 1995-08-27 00:33:16 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/mswindows3.style,v 1.3 1995-09-10 14:50:55 claus Exp $
 
 comment  'new win lookalike - unfinished'
 
@@ -22,6 +22,13 @@
 viewBackground                  =viewGrey
 popupBorderWidth                1     
 
+checkToggleActiveLevel          -2
+checkTogglePassiveLevel          -2
+checkToggleForegroundColor      Color black
+checkToggleBackgroundColor      Color white
+checkToggleActiveForegroundColor      Color black
+checkToggleActiveBackgroundColor      Color white
+
 #if Display hasGreyscales
 menuHilightForegroundColor      Color white
 menuHilightBackgroundColor      Color blue
@@ -91,4 +98,3 @@
 
 activeHelpBackgroundColor         Color yellow lightened
 activeHelpBorderWidth             2
-