checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 29 Apr 1999 09:09:14 +0200
changeset 1889 4faa8705e831
parent 1888 5a6d274027bf
child 1890 ad2a761d19cf
checkin from browser
ScrollBar.st
--- a/ScrollBar.st	Thu Apr 29 09:08:19 1999 +0200
+++ b/ScrollBar.st	Thu Apr 29 09:09:14 1999 +0200
@@ -774,7 +774,7 @@
 
     self createElements.
 
-    (styleSheet at:'scrollBar.disableButtons' default:false) ifTrue:[
+    (styleSheet at:#'scrollBar.disableButtons' default:false) ifTrue:[
         thumb addDependent:self
     ].
 
@@ -821,7 +821,7 @@
         ]
     ]
 
-    "Modified: / 21.5.1998 / 01:25:47 / cg"
+    "Modified: / 29.4.1999 / 08:43:30 / cg"
 !
 
 reinitialize
@@ -911,7 +911,7 @@
 
     |e1 e2 th to|
 
-    (styleSheet at:'scrollBar.disableButtons' default:false) ifFalse:[^ self].
+    (styleSheet at:#'scrollBar.disableButtons' default:false) ifFalse:[^ self].
 
     e1 := e2 := true.
     (th := thumb thumbHeight) notNil ifTrue:[
@@ -931,7 +931,7 @@
     e1 ifTrue:[button1 enable] ifFalse:[button1 disable].
     e2 ifTrue:[button2 enable] ifFalse:[button2 disable].
 
-    "Modified: / 21.5.1998 / 01:25:35 / cg"
+    "Modified: / 29.4.1999 / 08:44:03 / cg"
 ! !
 
 !ScrollBar methodsFor:'private scrollview interface'!
@@ -1060,5 +1060,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.59 1999-04-28 17:52:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.60 1999-04-29 07:09:14 cg Exp $'
 ! !