more code moved to superclass
authorClaus Gittinger <cg@exept.de>
Wed, 28 May 1997 16:21:05 +0200
changeset 402 db4b13aff9c9
parent 401 7212ff304a88
child 403 d196d6184d74
more code moved to superclass
HSlider.st
HorizontalSlider.st
StepSlider.st
SteppingSlider.st
--- 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 $'
 ! !