LTCD_070816.ISO

LT/Demo/TreeDemo.CPZ

@@ -0,0 +1,33 @@
+/*
+This uses LtfPutSExt/LtfPrintF because updates
+to within a tree while a tree is collapsed get
+messed-up if "live"(like using ordinary PrintF/PutS.)
+The insert point is confused by hiding of
+data in collapsed trees.  Therefore, the window main
+Ltf is taken off-line by disabling preemption so there
+are no screen updates until all data has been inserted.
+
+There is a special Ltf function which is also
+available to take an Ltf off-line.  See $LK,"LtfSafeInsert","MN:LtfSafeInsert"$.
+For this example, however, I wanted to use LtfPrintF
+and disabled Preemption myself.
+*/
+
+#include "/LT/Demo/TreeDemoJoin"
+
+void TreeDemo()
+{
+  U8 f=0;
+  BoolU4 old_preempt;
+  Ltf *l=Fs->cur_ltf;
+  GetFFlags(&f,SysText("ST_FILE_UTIL_FLAGS"),"+r");
+  old_preempt=Preempt(OFF);
+  LtfPutSExt(l,"$$TR-C+AL,\"\"$$\r\n");
+  LtfPutSExt(l,"$$ID,+2$$");
+  TreeSub(l,FindFiles("/LT/*",f));
+  LtfPutSExt(l,"$$ID,-2$$");
+  LtfRecalc(l);
+  Preempt(old_preempt);
+}
+ 
+TreeDemo;