--- a/HorizontalSlider.st	Wed May 11 11:27:04 2005 +0200
+++ b/HorizontalSlider.st	Wed May 11 18:36:22 2005 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg2' }"
+
 Slider subclass:#HorizontalSlider
 	instanceVariableNames:''
 	classVariableNames:''
@@ -48,7 +50,6 @@
     orientation := #horizontal. 
     super initialize.
     sliderHeight := (self horizontalPixelPerMillimeter:10) rounded.
-    orientation := #horizontal
 
     "Modified: / 7.3.1999 / 00:00:47 / cg"
 ! !
@@ -67,7 +68,7 @@
     ].
 
     w := self class defaultExtent x.
-    h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
+    h := (self verticalPixelPerMillimeter:6) rounded.
 
     preferredExtent := w @ h.
     ^ preferredExtent.
@@ -78,5 +79,5 @@
 !HorizontalSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.15 1999-03-07 13:27:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.16 2005-05-11 16:36:22 stefan Exp $'
 ! !

--- a/Slider.st	Wed May 11 11:27:04 2005 +0200
+++ b/Slider.st	Wed May 11 18:36:22 2005 +0200
@@ -249,12 +249,8 @@
 !Slider methodsFor:'event handling'!
 
 buttonPress:butt x:x y:y
-    ""
     self requestFocus.
     super buttonPress:butt x:x y:y
-
-
-
 !
 
 keyPress:key x:x y:y
@@ -401,5 +397,5 @@
 !Slider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.37 2004-04-07 10:44:56 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.38 2005-05-11 16:36:13 stefan Exp $'
 ! !