ScrollableView.st
changeset 1362 f2a9bc6ad68d
parent 1357 2dfa1f8f820d
child 1378 1841005ef851
--- a/ScrollableView.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/ScrollableView.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 22-oct-1997 at 4:04:37 pm'                  !
-
 SimpleView subclass:#ScrollableView
 	instanceVariableNames:'scrolledView vScrollBar hScrollBar scrollBarPosition lockUpdates
 		hideScrollBars hasHorizontalScrollBar hasVerticalScrollBar
@@ -1330,16 +1328,16 @@
 initStyle
     "initialize style specifics"
 
-    <resource: #style (#scrollBarPosition #scrollBarHiding)>
+    <resource: #style (#'scrollBar.position' #'scrollBar.hiding')>
 
     super initStyle.
 
     viewBackground := MyDefaultViewBackgroundColor. 
-    scrollBarPosition := styleSheet at:'scrollBarPosition' default:#left.
-    hideScrollBars := styleSheet at:'scrollBarHiding' default:false.
+    scrollBarPosition := styleSheet at:'scrollBar.position' default:#left.
+    hideScrollBars := styleSheet at:'scrollBar.hiding' default:false.
 
-    "Created: 6.3.1997 / 18:06:23 / cg"
-    "Modified: 19.3.1997 / 16:32:59 / cg"
+    "Created: / 6.3.1997 / 18:06:23 / cg"
+    "Modified: / 26.10.1997 / 17:07:17 / cg"
 !
 
 initialize
@@ -1894,5 +1892,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.74 1997-10-22 13:16:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.75 1997-10-28 19:24:44 cg Exp $'
 ! !