--- 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 $'
! !