--- a/HorizontalSteppingSlider.st	Fri Nov 10 07:20:31 2006 +0100
+++ b/HorizontalSteppingSlider.st	Mon Nov 13 17:11:31 2006 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg2' }"
+
 SteppingSlider subclass:#HorizontalSteppingSlider
 	instanceVariableNames:''
 	classVariableNames:''
@@ -39,33 +41,33 @@
     buttons (which increment/decrement the value).
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 
     [see also:]
-        HorizontalScrollBar HorizontalScroller HorizontalSlider
-        ThumbWheel
+	HorizontalScrollBar HorizontalScroller HorizontalSlider
+	ThumbWheel
 "
 !
 
-examples 
+examples
 "
   see more examples in my superclass, SteppingSlider
-                                                                [exBegin]
+								[exBegin]
     |top sl|
 
     top := StandardSystemView extent:200@200.
     sl := HorizontalSteppingSlider in:top.
     sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)).
-    sl scrollAction:[:pos | Transcript showCR:pos].    
+    sl scrollAction:[:pos | Transcript showCR:pos].
     top open
-                                                                [exEnd]
+								[exEnd]
 "
 ! !
 
 !HorizontalSteppingSlider methodsFor:'initialization'!
 
 initialize
-    orientation := #horizontal. 
+    orientation := #horizontal.
     super initialize.
 
 
@@ -74,5 +76,5 @@
 !HorizontalSteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.12 1999-08-10 09:01:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.13 2006-11-13 16:11:30 cg Exp $'
 ! !