--- a/ArrowButton.st	Tue Oct 21 20:15:06 1997 +0200
+++ b/ArrowButton.st	Tue Oct 21 20:28:05 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:08:27 pm'                  !
+
 Button subclass:#ArrowButton
 	instanceVariableNames:'arrowStyle direction'
 	classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm
@@ -615,48 +617,48 @@
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
-    <resource: #style (#arrowButtonStyle 
-                       #arrowButtonActiveLevel #arrowButtonPassiveLevel
-                       #arrowButtonBackgroundColor #arrowButtonForegroundColor
-                       #arrowButtonActiveBackgroundColor #arrowButtonActiveForegroundColor
-                       #arrowButtonEnteredBackgroundColor #arrowButtonEnteredForegroundColor
-                       #arrowButtonDisabledForegroundColor 
-                       #arrowButtonDownForm #arrowButtonUpForm
-                       #arrowButtonLeftForm #arrowButtonRightForm
-                       #arrowButtonDownFormFile #arrowButtonUpFormFile
-                       #arrowButtonLeftFormFile #arrowButtonRightFormFile)>
+    <resource: #style (#'arrowButton.style' 
+                       #'arrowButton.activeLevel' #'arrowButton.passiveLevel'
+                       #'arrowButton.backgroundColor' #'arrowButton.foregroundColor'
+                       #'arrowButton.activeBackgroundColor' #'arrowButton.activeForegroundColor'
+                       #'arrowButton.enteredBackgroundColor' #'arrowButton.enteredForegroundColor'
+                       #'arrowButton.disabledForegroundColor' 
+                       #'arrowButton.downForm' #'arrowButton.upForm'
+                       #'arrowButton.leftForm' #'arrowButton.rightForm'
+                       #'arrowButton.downFormFile' #'arrowButton.upFormFile'
+                       #'arrowButton.leftFormFile' #'arrowButton.rightFormFile')>
 
-    DefaultArrowStyle := StyleSheet at:'arrowButtonStyle' default:StyleSheet name.
+    DefaultArrowStyle := StyleSheet at:'arrowButton.style' default:StyleSheet name.
     DefaultArrowStyle := DefaultArrowStyle asSymbol.
 
-    DefaultArrowButtonActiveLevel := StyleSheet at:'arrowButtonActiveLevel' default:nil.
-    DefaultArrowButtonPassiveLevel := StyleSheet at:'arrowButtonPassiveLevel' default:nil.
+    DefaultArrowButtonActiveLevel := StyleSheet at:'arrowButton.activeLevel' default:nil.
+    DefaultArrowButtonPassiveLevel := StyleSheet at:'arrowButton.passiveLevel' default:nil.
 
-    DefaultBackgroundColor := StyleSheet colorAt:'arrowButtonBackgroundColor'.
-    DefaultForegroundColor := StyleSheet colorAt:'arrowButtonForegroundColor'.
-    DefaultActiveBackgroundColor := StyleSheet colorAt:'arrowButtonActiveBackgroundColor'.
-    DefaultActiveForegroundColor := StyleSheet colorAt:'arrowButtonActiveForegroundColor'.
-    DefaultEnteredBackgroundColor := StyleSheet colorAt:'arrowButtonEnteredBackgroundColor'.
-    DefaultEnteredForegroundColor := StyleSheet colorAt:'arrowButtonEnteredForegroundColor'.
-    DefaultDisabledForegroundColor := StyleSheet colorAt:'arrowButtonDisabledForegroundColor'.
+    DefaultBackgroundColor := StyleSheet colorAt:'arrowButton.backgroundColor'.
+    DefaultForegroundColor := StyleSheet colorAt:'arrowButton.foregroundColor'.
+    DefaultActiveBackgroundColor := StyleSheet colorAt:'arrowButton.activeBackgroundColor'.
+    DefaultActiveForegroundColor := StyleSheet colorAt:'arrowButton.activeForegroundColor'.
+    DefaultEnteredBackgroundColor := StyleSheet colorAt:'arrowButton.enteredBackgroundColor'.
+    DefaultEnteredForegroundColor := StyleSheet colorAt:'arrowButton.enteredForegroundColor'.
+    DefaultDisabledForegroundColor := StyleSheet colorAt:'arrowButton.disabledForegroundColor'.
 
-    DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
-    UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
-    LeftArrowForm := StyleSheet at:'arrowButtonLeftForm' default:nil.
-    RightArrowForm := StyleSheet at:'arrowButtonRightForm' default:nil.
+    DownArrowForm := StyleSheet at:'arrowButton.downForm' default:nil.
+    UpArrowForm := StyleSheet at:'arrowButton.upForm' default:nil.
+    LeftArrowForm := StyleSheet at:'arrowButton.leftForm' default:nil.
+    RightArrowForm := StyleSheet at:'arrowButton.rightForm' default:nil.
 
     UpArrowFormFile := DownArrowFormFile := LeftArrowFormFile := RightArrowFormFile := nil.
     UpArrowForm isNil ifTrue:[
-        UpArrowFormFile := StyleSheet at:'arrowButtonUpFormFile' default:'ScrollUp.xbm'.
+        UpArrowFormFile := StyleSheet at:'arrowButton.upFormFile' default:'ScrollUp.xbm'.
     ].
     DownArrowForm isNil ifTrue:[
-        DownArrowFormFile := StyleSheet at:'arrowButtonDownFormFile' default:'ScrollDn.xbm'.
+        DownArrowFormFile := StyleSheet at:'arrowButton.downFormFile' default:'ScrollDn.xbm'.
     ].
     LeftArrowForm isNil ifTrue:[
-        LeftArrowFormFile := StyleSheet at:'arrowButtonLeftFormFile' default:'ScrollLt.xbm'.
+        LeftArrowFormFile := StyleSheet at:'arrowButton.leftFormFile' default:'ScrollLt.xbm'.
     ].
     RightArrowForm isNil ifTrue:[
-        RightArrowFormFile := StyleSheet at:'arrowButtonRightFormFile' default:'ScrollRt.xbm'.
+        RightArrowFormFile := StyleSheet at:'arrowButton.rightFormFile' default:'ScrollRt.xbm'.
     ].
 
     "
@@ -664,7 +666,7 @@
     "
 
     "Modified: 31.8.1995 / 03:01:14 / claus"
-    "Modified: 1.3.1996 / 13:45:57 / cg"
+    "Modified: 20.10.1997 / 13:50:57 / cg"
 ! !
 
 !ArrowButton methodsFor:'accessing'!
@@ -868,5 +870,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.44 1997-09-10 21:07:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.45 1997-10-21 18:27:09 cg Exp $'
 ! !