--- a/HSlider.st Wed May 28 16:20:21 1997 +0200
+++ b/HSlider.st Wed May 28 16:21:05 1997 +0200
@@ -17,7 +17,7 @@
category:'Views-Interactors'
!
-!HorizontalSlider class methodsFor:'documentation'!
+!HorizontalSlider class methodsFor:'documentation'!
copyright
"
@@ -72,8 +72,8 @@
"Modified: 19.7.1996 / 20:44:30 / cg"
! !
-!HorizontalSlider class methodsFor:'documentation'!
+!HorizontalSlider class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HSlider.st,v 1.13 1996-07-19 18:49:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HSlider.st,v 1.14 1997-05-28 14:21:05 cg Exp $'
! !
--- a/HorizontalSlider.st Wed May 28 16:20:21 1997 +0200
+++ b/HorizontalSlider.st Wed May 28 16:21:05 1997 +0200
@@ -17,7 +17,7 @@
category:'Views-Interactors'
!
-!HorizontalSlider class methodsFor:'documentation'!
+!HorizontalSlider class methodsFor:'documentation'!
copyright
"
@@ -72,8 +72,8 @@
"Modified: 19.7.1996 / 20:44:30 / cg"
! !
-!HorizontalSlider class methodsFor:'documentation'!
+!HorizontalSlider class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.13 1996-07-19 18:49:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.14 1997-05-28 14:21:05 cg Exp $'
! !
--- a/StepSlider.st Wed May 28 16:20:21 1997 +0200
+++ b/StepSlider.st Wed May 28 16:21:05 1997 +0200
@@ -207,10 +207,12 @@
super initialize.
stepIncrement := 1.
+ buttonLayout := #around.
+
self scrollDownAction:[self scrollStepUp].
self scrollUpAction:[self scrollStepDown].
- "Modified: 28.5.1997 / 15:06:05 / cg"
+ "Modified: 28.5.1997 / 16:12:04 / cg"
! !
!SteppingSlider methodsFor:'misc'!
@@ -267,5 +269,5 @@
!SteppingSlider class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/StepSlider.st,v 1.8 1997-05-28 14:00:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/StepSlider.st,v 1.9 1997-05-28 14:21:01 cg Exp $'
! !
--- a/SteppingSlider.st Wed May 28 16:20:21 1997 +0200
+++ b/SteppingSlider.st Wed May 28 16:21:05 1997 +0200
@@ -207,10 +207,12 @@
super initialize.
stepIncrement := 1.
+ buttonLayout := #around.
+
self scrollDownAction:[self scrollStepUp].
self scrollUpAction:[self scrollStepDown].
- "Modified: 28.5.1997 / 15:06:05 / cg"
+ "Modified: 28.5.1997 / 16:12:04 / cg"
! !
!SteppingSlider methodsFor:'misc'!
@@ -267,5 +269,5 @@
!SteppingSlider class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.8 1997-05-28 14:00:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.9 1997-05-28 14:21:01 cg Exp $'
! !