From bb12a7034bf5797bcbded9e103f404642acb23b2 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Wed, 22 Nov 2006 03:31:42 +0000
Subject: Added a little performance test for CACHE_xxx_SIZE.

---
 demos/demo.tcl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/demos/demo.tcl b/demos/demo.tcl
index d585e91..7113f43 100644
--- a/demos/demo.tcl
+++ b/demos/demo.tcl
@@ -1,6 +1,6 @@
 #!/bin/wish84.exe
 
-# RCS: @(#) $Id: demo.tcl,v 1.54 2006/11/19 00:51:03 treectrl Exp $
+# RCS: @(#) $Id: demo.tcl,v 1.55 2006/11/22 03:31:42 treectrl Exp $
 
 set VERSION 2.2
 
@@ -1721,3 +1721,14 @@ if {[llength [info commands loupe]]} {
     }
 }
 
+proc RandomPerfTest {} {
+    set ::RandomN 15000
+    DemoSet DemoRandom random.tcl
+    .f2.f1.t item expand all
+    .f2.f1.t style layout styFolder elemTxtName -squeeze x
+    .f2.f1.t style layout styFile elemTxtName -squeeze x
+    .f2.f1.t elem conf elemTxtName -lines 1
+    update
+    puts [time {.f2.f1.t colu conf 0 -width 160 ; update}]
+    return
+}
-- 
cgit v0.12