--- a/WarnBox.st	Fri Mar 01 14:03:49 1996 +0100
+++ b/WarnBox.st	Fri Mar 01 14:03:56 1996 +0100
@@ -132,10 +132,16 @@
 !WarningBox class methodsFor:'styles'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#warningBoxIcon)>
+
     |img|
 
     img := StyleSheet at:'warningBoxIcon'.
     img notNil ifTrue:[WarnBitmap := img on:Display].
+
+    "Modified: 1.3.1996 / 13:51:43 / cg"
 ! !
 
 !WarningBox methodsFor:'initialization'!
@@ -164,5 +170,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.14 1996-02-11 09:54:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.15 1996-03-01 13:03:56 cg Exp $'
 ! !

--- a/WarningBox.st	Fri Mar 01 14:03:49 1996 +0100
+++ b/WarningBox.st	Fri Mar 01 14:03:56 1996 +0100
@@ -132,10 +132,16 @@
 !WarningBox class methodsFor:'styles'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#warningBoxIcon)>
+
     |img|
 
     img := StyleSheet at:'warningBoxIcon'.
     img notNil ifTrue:[WarnBitmap := img on:Display].
+
+    "Modified: 1.3.1996 / 13:51:43 / cg"
 ! !
 
 !WarningBox methodsFor:'initialization'!
@@ -164,5 +170,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.14 1996-02-11 09:54:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.15 1996-03-01 13:03:56 cg Exp $'
 ! !