--- a/ArrowButton.st	Tue Oct 28 20:59:48 1997 +0100
+++ b/ArrowButton.st	Tue Oct 28 21:02:12 1997 +0100
@@ -10,8 +10,6 @@
  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
@@ -333,7 +331,7 @@
 downArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollDown Button"
 
-    <resource: #style (#arrowButtonDownForm)>
+    <resource: #style (#'arrowButton.downForm')>
 
     |form|
 
@@ -348,7 +346,7 @@
         ^ form
     ].
 
-    form := DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
+    form := DownArrowForm := StyleSheet at:'arrowButton.downForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -398,13 +396,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:17 / cg"
+    "Modified: / 26.10.1997 / 17:01:54 / cg"
 !
 
 leftArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollLeft Button"
 
-    <resource: #style (#arrowButtonLeftForm)>
+    <resource: #style (#'arrowButton.leftForm')>
 
     |form|
 
@@ -419,7 +417,7 @@
         ^ form
     ].
 
-    form := LeftArrowForm := StyleSheet at:'arrowButtonLeftForm' default:nil.
+    form := LeftArrowForm := StyleSheet at:'arrowButton.leftForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -469,13 +467,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:14 / cg"
+    "Modified: / 26.10.1997 / 17:01:47 / cg"
 !
 
 rightArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollRight Button"
 
-    <resource: #style (#arrowButtonRightForm)>
+    <resource: #style (#'arrowButton.rightForm')>
 
     |form|
 
@@ -490,7 +488,7 @@
         ^ form
     ].
 
-    form := RightArrowForm := StyleSheet at:'arrowButtonRightForm' default:nil.
+    form := RightArrowForm := StyleSheet at:'arrowButton.rightForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -540,13 +538,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:20 / cg"
+    "Modified: / 26.10.1997 / 17:01:40 / cg"
 !
 
 upArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollUp Button"
 
-    <resource: #style (#arrowButtonUpForm)>
+    <resource: #style (#'arrowButton.upForm')>
 
     |form|
 
@@ -561,7 +559,7 @@
         ^ form
     ].
 
-    form := UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
+    form := UpArrowForm := StyleSheet at:'arrowButton.upForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -611,7 +609,7 @@
 
     ^ form
 
-    "Modified: 10.1.1997 / 15:15:20 / cg"
+    "Modified: / 26.10.1997 / 17:01:32 / cg"
 !
 
 updateStyleCache
@@ -870,5 +868,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.45 1997-10-21 18:27:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.46 1997-10-28 20:01:27 cg Exp $'
 ! !