Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comment
authorClaus Gittinger <cg@exept.de>
Wed, 28 May 1997 16:20:21 +0200
changeset 401 7212ff304a88
parent 400 d176fd820716
child 402 db4b13aff9c9
comment
HStepSlider.st file | annotate | diff | comparison | revisions
HorizontalSteppingSlider.st file | annotate | diff | comparison | revisions 
--- a/HStepSlider.st	Wed May 28 16:00:37 1997 +0200
+++ b/HStepSlider.st	Wed May 28 16:20:21 1997 +0200
@@ -37,11 +37,20 @@
 "
     HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down
     buttons (which increment/decrement the value).
+
+    [author:]
+        Claus Gittinger
+
+    [see also:]
+        HorizontalScrollBar HorizontalScroller HorizontalSlider
+        ThumbWheel
 "
 !
 
 examples 
 "
+  see more examples in my superclass, SteppingSlider
+                                                                [exBegin]
     |top sl|
 
     top := StandardSystemView extent:200@200.
@@ -49,6 +58,7 @@
     sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)).
     sl scrollAction:[:pos | Transcript showCR:pos].    
     top open
+                                                                [exEnd]
 "
 ! !
 
@@ -63,5 +73,5 @@
 !HorizontalSteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HStepSlider.st,v 1.10 1997-05-28 14:00:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HStepSlider.st,v 1.11 1997-05-28 14:20:21 cg Exp $'
 ! !
--- a/HorizontalSteppingSlider.st	Wed May 28 16:00:37 1997 +0200
+++ b/HorizontalSteppingSlider.st	Wed May 28 16:20:21 1997 +0200
@@ -37,11 +37,20 @@
 "
     HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down
     buttons (which increment/decrement the value).
+
+    [author:]
+        Claus Gittinger
+
+    [see also:]
+        HorizontalScrollBar HorizontalScroller HorizontalSlider
+        ThumbWheel
 "
 !
 
 examples 
 "
+  see more examples in my superclass, SteppingSlider
+                                                                [exBegin]
     |top sl|
 
     top := StandardSystemView extent:200@200.
@@ -49,6 +58,7 @@
     sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)).
     sl scrollAction:[:pos | Transcript showCR:pos].    
     top open
+                                                                [exEnd]
 "
 ! !
 
@@ -63,5 +73,5 @@
 !HorizontalSteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.10 1997-05-28 14:00:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.11 1997-05-28 14:20:21 cg Exp $'
 ! !
hg/stx-libwidg2