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:13:37 +0200
changeset 592 ace25772463d
parent 591 c746e5229f3d
child 593 86dd024ed773
examples
ObjView.st file | annotate | diff | comparison | revisions
ObjectView.st file | annotate | diff | comparison | revisions 
--- a/ObjView.st	Sat Apr 27 20:12:06 1996 +0200
+++ b/ObjView.st	Sat Apr 27 20:13:37 1996 +0200
@@ -150,7 +150,7 @@
     subclassed. Therefore, the examples below are somewhat untypical.
 
     simple example:
-
+                                                                        [exBegin]
         |v o|
 
         v := ObjectView new.
@@ -165,9 +165,10 @@
         v add:o.
 
         v open
+                                                                        [exEnd]
 
     add scrolling:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView.
@@ -183,9 +184,10 @@
         v add:o.
 
         top open
+                                                                        [exEnd]
 
     or, using miniscrollers:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView 
@@ -202,9 +204,10 @@
         v add:o.
 
         top open
+                                                                        [exEnd]
 
     grid:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView 
@@ -222,9 +225,10 @@
         v add:o.
 
         top open
+                                                                        [exEnd]
 
     zoom:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView 
@@ -251,9 +255,10 @@
 
         Delay waitForSeconds:5.
         v zoom:1.
+                                                                        [exEnd]
 
    private benchmark: display 10000 objects ...
-
+                                                                        [exBegin]
         |v top o rnd|
 
         top := HVScrollableView for:ObjectView 
@@ -275,6 +280,7 @@
             Time millisecondsToRun:[
                 v redraw              
             ])
+                                                                        [exEnd]
 "
 ! !
 
@@ -2789,5 +2795,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.34 1996-04-27 08:12:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.35 1996-04-27 18:13:37 cg Exp $'
 ! !
--- a/ObjectView.st	Sat Apr 27 20:12:06 1996 +0200
+++ b/ObjectView.st	Sat Apr 27 20:13:37 1996 +0200
@@ -150,7 +150,7 @@
     subclassed. Therefore, the examples below are somewhat untypical.
 
     simple example:
-
+                                                                        [exBegin]
         |v o|
 
         v := ObjectView new.
@@ -165,9 +165,10 @@
         v add:o.
 
         v open
+                                                                        [exEnd]
 
     add scrolling:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView.
@@ -183,9 +184,10 @@
         v add:o.
 
         top open
+                                                                        [exEnd]
 
     or, using miniscrollers:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView 
@@ -202,9 +204,10 @@
         v add:o.
 
         top open
+                                                                        [exEnd]
 
     grid:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView 
@@ -222,9 +225,10 @@
         v add:o.
 
         top open
+                                                                        [exEnd]
 
     zoom:
-
+                                                                        [exBegin]
         |v top o|
 
         top := HVScrollableView for:ObjectView 
@@ -251,9 +255,10 @@
 
         Delay waitForSeconds:5.
         v zoom:1.
+                                                                        [exEnd]
 
    private benchmark: display 10000 objects ...
-
+                                                                        [exBegin]
         |v top o rnd|
 
         top := HVScrollableView for:ObjectView 
@@ -275,6 +280,7 @@
             Time millisecondsToRun:[
                 v redraw              
             ])
+                                                                        [exEnd]
 "
 ! !
 
@@ -2789,5 +2795,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.34 1996-04-27 08:12:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.35 1996-04-27 18:13:37 cg Exp $'
 ! !
hg/stx-libwidg