#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Wed, 07 Sep 2016 15:00:03 +0200
changeset 5841 d3aa2a43a495
parent 5837 9f78a5caa596
child 5842 78747ab7d231
#DOCUMENTATION by cg class: TextView comment/format in: #examples
TextView.st
--- a/TextView.st	Thu Sep 01 12:31:56 2016 +0200
+++ b/TextView.st	Wed Sep 07 15:00:03 2016 +0200
@@ -178,8 +178,25 @@
         EditTextView openOn:'Makefile'
                                                         [exEnd]
 
+
+    configuring the TextView to NOT expand tabs and scan for special lines
+    (to avoid reading all lines, when usig a virtualArray)
+                                                        [exBegin]
+        |a m|
+        
+        a := VirtualArray new 
+                setSize:100000000;
+                generator:[:lNr | Transcript show:'called for '; showCR:lNr. 
+                                  'this is line: ',lNr printString ].
+        m := a asValue.        
+        (ScrollableView forView:TextView new) 
+            expandTabsWhenUpdating:false; 
+            checkLineEndConventionWhenUpdating:false;
+            model:m; 
+            open; inspect.         
+                                                        [exEnd]
+
 "
-
 ! !
 
 !TextView class methodsFor:'instance creation'!