--- a/HorizontalSlider.st Mon Oct 10 04:13:44 1994 +0100
+++ b/HorizontalSlider.st Mon Oct 10 04:13:51 1994 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
HorizontalSlider comment:'
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.1 1994-08-11 23:53:54 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.2 1994-10-10 03:13:15 claus Exp $
'!
!HorizontalSlider class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.1 1994-08-11 23:53:54 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.2 1994-10-10 03:13:15 claus Exp $
"
!
@@ -62,12 +62,8 @@
initStyle
super initStyle.
- tallyMarks := 1.
- style == #iris ifTrue:[
- tallyLevel := 1.
- ] ifFalse:[
- tallyLevel := -1.
- ]
+ tallyMarks := StyleSheet at:'sliderNTallyMarks' default:1.
+ tallyLevel := StyleSheet at:'sliderTallyLevel' default:-1.
! !
!HorizontalSlider methodsFor:'accessing'!
@@ -111,13 +107,13 @@
do not create new Rectangle if its the same anyway
"
thumbFrame notNil ifTrue:[
- (ny == thumbFrame top) ifTrue:[
- (nx == thumbFrame left) ifTrue:[
- (nh == thumbFrame height) ifTrue:[
- (nw == thumbFrame width) ifTrue:[ ^ self]
- ]
- ]
- ]
+ (ny == thumbFrame top) ifTrue:[
+ (nx == thumbFrame left) ifTrue:[
+ (nh == thumbFrame height) ifTrue:[
+ (nw == thumbFrame width) ifTrue:[ ^ self]
+ ]
+ ]
+ ]
].
thumbFrame := Rectangle left:nx top:ny width:nw height:nh
! !