--- a/HVScrollableView.st Tue Oct 15 13:27:35 1996 +0200
+++ b/HVScrollableView.st Tue Oct 15 14:05:48 1996 +0200
@@ -17,7 +17,7 @@
category:'Views-Basic'
!
-!HVScrollableView class methodsFor:'documentation'!
+!HVScrollableView class methodsFor:'documentation'!
copyright
"
@@ -43,6 +43,122 @@
[author:]
Claus Gittinger
"
+!
+
+examples
+"
+ See more examples in ScrollableView - all of those work
+ also by replacing ScrollableView with HVScrollableView.
+
+
+ example (simple scrolled text):
+ [exBegin]
+ |top scr txt|
+
+ top := StandardSystemView label:'scroll example'.
+ top extent:200@100.
+
+ scr := HVScrollableView for:EditTextView in:top.
+ scr origin:0.0@0.0 corner:1.0@1.0.
+ txt := scr scrolledView.
+
+ txt list:#('line1'
+ 'a long line which may require scrolling.'
+ 'line3'
+ 'line4'
+ 'line5'
+ 'line7'
+ 'line8'
+ 'line9'
+ 'line10'
+ ).
+ top open
+ [exEnd]
+ example (horizontal miniScroller):
+ [exBegin]
+ |top scr txt|
+
+ top := StandardSystemView label:'scroll example'.
+ top extent:200@100.
+
+ scr := HVScrollableView
+ for:EditTextView
+ miniScrollerH:true
+ miniScrollerV:false
+ in:top.
+ scr origin:0.0@0.0 corner:1.0@1.0.
+ txt := scr scrolledView.
+
+ txt list:#('line1'
+ 'a long line which may require scrolling.'
+ 'line3'
+ 'line4'
+ 'line5'
+ 'line7'
+ 'line8'
+ 'line9'
+ 'line10'
+ ).
+ top open
+ [exEnd]
+
+ example (vertical miniScroller):
+ [exBegin]
+ |top scr txt|
+
+ top := StandardSystemView label:'scroll example'.
+ top extent:200@100.
+
+ scr := HVScrollableView
+ for:EditTextView
+ miniScrollerH:false
+ miniScrollerV:true
+ in:top.
+ scr origin:0.0@0.0 corner:1.0@1.0.
+ txt := scr scrolledView.
+
+ txt list:#('line1'
+ 'a long line which may require scrolling.'
+ 'line3'
+ 'line4'
+ 'line5'
+ 'line7'
+ 'line8'
+ 'line9'
+ 'line10'
+ ).
+ top open
+ [exEnd]
+
+ example (both scrollers are miniScroller):
+ [exBegin]
+ |top scr txt|
+
+ top := StandardSystemView label:'scroll example'.
+ top extent:200@100.
+
+ scr := HVScrollableView
+ for:EditTextView
+ miniScrollerH:true
+ miniScrollerV:true
+ in:top.
+ scr origin:0.0@0.0 corner:1.0@1.0.
+ txt := scr scrolledView.
+
+ txt list:#('line1'
+ 'a long line which may require scrolling.'
+ 'line3'
+ 'line4'
+ 'line5'
+ 'line7'
+ 'line8'
+ 'line9'
+ 'line10'
+ ).
+ top open
+ [exEnd]
+"
+
! !
!HVScrollableView methodsFor:'accessing - components'!
@@ -347,8 +463,8 @@
"Created: 24.5.1996 / 17:15:43 / cg"
! !
-!HVScrollableView class methodsFor:'documentation'!
+!HVScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.21 1996-08-05 11:48:39 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.22 1996-10-15 12:05:48 cg Exp $'
! !