--- a/ObjectView.st	Fri Mar 28 21:28:29 1997 +0100
+++ b/ObjectView.st	Fri Mar 28 23:00:14 1997 +0100
@@ -267,7 +267,7 @@
         v := top scrolledView.
 
         rnd := Random new.
-        1000 timesRepeat:[
+        10000 timesRepeat:[
             o := DrawLine new.
             o origin:(rnd nextIntegerBetween:0 and:700) @ (rnd nextIntegerBetween:0 and:700)
               corner:(rnd nextIntegerBetween:0 and:700) @ (rnd nextIntegerBetween:0 and:700).
@@ -2925,5 +2925,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.55 1997-02-12 10:19:58 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.56 1997-03-28 22:00:14 cg Exp $'
 ! !