Mercurial Mercurial > hg > stx-libwidg / 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.
examples
authorClaus Gittinger <cg@exept.de>
Sat, 27 Apr 1996 20:12:06 +0200
changeset 591 c746e5229f3d
parent 590 8392a7c03352
child 592 ace25772463d
examples
ScrView.st file | annotate | diff | comparison | revisions
ScrollableView.st file | annotate | diff | comparison | revisions 
--- a/ScrView.st	Sat Apr 27 19:59:01 1996 +0200
+++ b/ScrView.st	Sat Apr 27 20:12:06 1996 +0200
@@ -114,172 +114,174 @@
 examples
 "
     example1 (simple scrolled text):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example1'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example1'.
+        top extent:200@100.
 
-	scr := ScrollableView for:EditTextView in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := ScrollableView for:EditTextView in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
     example2 (changing the scrolledView later):
-
-	|top scr txtView1 txtView2 browserView|
+                                                                        [exBegin]
+        |top scr txtView1 txtView2 browserView|
 
-	top := StandardSystemView label:'scroll example2'.
-	top extent:300@100.
+        top := StandardSystemView label:'scroll example2'.
+        top extent:300@100.
 
-	scr := ScrollableView in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
+        scr := ScrollableView in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
 
-	top open.
+        top open.
 
-	(Delay forSeconds:5) wait.
+        (Delay forSeconds:5) wait.
 
-	txtView1 := EditTextView new.
-	txtView1 list:#(
-			'wait 5 seconds to see the other text'
-			'line2'
-			'line3'
-			'line4'
-			'line5'
-			'line7'
-			'line8'
-			'line9'
-			'line10'
-		  ).
-	scr scrolledView:txtView1.
+        txtView1 := EditTextView new.
+        txtView1 list:#(
+                        'wait 5 seconds to see the other text'
+                        'line2'
+                        'line3'
+                        'line4'
+                        'line5'
+                        'line7'
+                        'line8'
+                        'line9'
+                        'line10'
+                  ).
+        scr scrolledView:txtView1.
 
-	(Delay forSeconds:5) wait.
+        (Delay forSeconds:5) wait.
 
-	txtView2 := EditTextView new.
-	txtView2 list:#('this is the other views text' 
-			'alternative line2'
-			'alternative line3'
-			'alternative line4'
-			'alternative line5'
-			'alternative line6').
-	scr scrolledView:txtView2.
-
+        txtView2 := EditTextView new.
+        txtView2 list:#('this is the other views text' 
+                        'alternative line2'
+                        'alternative line3'
+                        'alternative line4'
+                        'alternative line5'
+                        'alternative line6').
+        scr scrolledView:txtView2.
+                                                                        [exEnd]
 
 
 
 
     example3 (using a miniscroller):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example3'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example3'.
+        top extent:200@100.
 
-	scr := ScrollableView for:EditTextView miniScroller:true in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := ScrollableView for:EditTextView miniScroller:true in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
-
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
 
     example4 (scrolling in both directions):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example4'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example4'.
+        top extent:200@100.
 
-	scr := HVScrollableView for:EditTextView in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := HVScrollableView for:EditTextView in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
-
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
 
     example5 (using a full scroller vertically, miniscroller horizontally):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example5'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example5'.
+        top extent:200@100.
 
-	scr := HVScrollableView for:EditTextView miniScrollerH:true in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := HVScrollableView for:EditTextView miniScrollerH:true in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
-
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
 
     example6 (using miniscrollers for both directions ):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example6'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example6'.
+        top extent:200@100.
 
-	scr := HVScrollableView for:EditTextView miniScroller:true in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := HVScrollableView for:EditTextView miniScroller:true in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 "
 ! !
 
@@ -951,5 +953,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.30 1996-04-25 17:15:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.31 1996-04-27 18:12:06 cg Exp $'
 ! !
--- a/ScrollableView.st	Sat Apr 27 19:59:01 1996 +0200
+++ b/ScrollableView.st	Sat Apr 27 20:12:06 1996 +0200
@@ -114,172 +114,174 @@
 examples
 "
     example1 (simple scrolled text):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example1'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example1'.
+        top extent:200@100.
 
-	scr := ScrollableView for:EditTextView in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := ScrollableView for:EditTextView in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
     example2 (changing the scrolledView later):
-
-	|top scr txtView1 txtView2 browserView|
+                                                                        [exBegin]
+        |top scr txtView1 txtView2 browserView|
 
-	top := StandardSystemView label:'scroll example2'.
-	top extent:300@100.
+        top := StandardSystemView label:'scroll example2'.
+        top extent:300@100.
 
-	scr := ScrollableView in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
+        scr := ScrollableView in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
 
-	top open.
+        top open.
 
-	(Delay forSeconds:5) wait.
+        (Delay forSeconds:5) wait.
 
-	txtView1 := EditTextView new.
-	txtView1 list:#(
-			'wait 5 seconds to see the other text'
-			'line2'
-			'line3'
-			'line4'
-			'line5'
-			'line7'
-			'line8'
-			'line9'
-			'line10'
-		  ).
-	scr scrolledView:txtView1.
+        txtView1 := EditTextView new.
+        txtView1 list:#(
+                        'wait 5 seconds to see the other text'
+                        'line2'
+                        'line3'
+                        'line4'
+                        'line5'
+                        'line7'
+                        'line8'
+                        'line9'
+                        'line10'
+                  ).
+        scr scrolledView:txtView1.
 
-	(Delay forSeconds:5) wait.
+        (Delay forSeconds:5) wait.
 
-	txtView2 := EditTextView new.
-	txtView2 list:#('this is the other views text' 
-			'alternative line2'
-			'alternative line3'
-			'alternative line4'
-			'alternative line5'
-			'alternative line6').
-	scr scrolledView:txtView2.
-
+        txtView2 := EditTextView new.
+        txtView2 list:#('this is the other views text' 
+                        'alternative line2'
+                        'alternative line3'
+                        'alternative line4'
+                        'alternative line5'
+                        'alternative line6').
+        scr scrolledView:txtView2.
+                                                                        [exEnd]
 
 
 
 
     example3 (using a miniscroller):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example3'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example3'.
+        top extent:200@100.
 
-	scr := ScrollableView for:EditTextView miniScroller:true in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := ScrollableView for:EditTextView miniScroller:true in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
-
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
 
     example4 (scrolling in both directions):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example4'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example4'.
+        top extent:200@100.
 
-	scr := HVScrollableView for:EditTextView in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := HVScrollableView for:EditTextView in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
-
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
 
     example5 (using a full scroller vertically, miniscroller horizontally):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example5'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example5'.
+        top extent:200@100.
 
-	scr := HVScrollableView for:EditTextView miniScrollerH:true in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := HVScrollableView for:EditTextView miniScrollerH:true in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
-
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 
 
 
     example6 (using miniscrollers for both directions ):
-
-	|top scr txt|
+                                                                        [exBegin]
+        |top scr txt|
 
-	top := StandardSystemView label:'scroll example6'.
-	top extent:200@100.
+        top := StandardSystemView label:'scroll example6'.
+        top extent:200@100.
 
-	scr := HVScrollableView for:EditTextView miniScroller:true in:top.
-	scr origin:0.0@0.0 corner:1.0@1.0.
-	txt := scr scrolledView.
+        scr := HVScrollableView for:EditTextView miniScroller:true in:top.
+        scr origin:0.0@0.0 corner:1.0@1.0.
+        txt := scr scrolledView.
 
-	txt list:#('line1'
-		   'line2'
-		   'line3'
-		   'line4'
-		   'line5'
-		   'line7'
-		   'line8'
-		   'line9'
-		   'line10'
-		  ).
-	top open
+        txt list:#('line1'
+                   'line2'
+                   'line3'
+                   'line4'
+                   'line5'
+                   'line7'
+                   'line8'
+                   'line9'
+                   'line10'
+                  ).
+        top open
+                                                                        [exEnd]
 "
 ! !
 
@@ -951,5 +953,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.30 1996-04-25 17:15:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.31 1996-04-27 18:12:06 cg Exp $'
 ! !
hg/stx-libwidg