From f598fc05add2a8f06dbd7d75a13920277e7af575 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sun, 21 Jan 2007 22:57:24 +0000
Subject: Use the new "dbwin" stuff.

---
 demos/demo.tcl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/demos/demo.tcl b/demos/demo.tcl
index 7c1dac5..7bbf9b8 100644
--- a/demos/demo.tcl
+++ b/demos/demo.tcl
@@ -1,6 +1,6 @@
 #!/bin/wish84.exe
 
-# RCS: @(#) $Id: demo.tcl,v 1.61 2006/12/08 20:50:26 treectrl Exp $
+# RCS: @(#) $Id: demo.tcl,v 1.62 2007/01/21 22:57:24 treectrl Exp $
 
 set VERSION 2.2
 
@@ -58,10 +58,16 @@ if {[info procs lassign] eq ""} {
 }
 
 if {[catch {
-    package require dbwin 1.0
+    package require dbwin
 }]} {
-    proc dbwin s {puts -nonewline $s}
+    proc dbwin {s} {
+	puts [string trimright $s "\n"]
+    }
+}
+proc dbwintrace {name1 name2 op} {
+    dbwin $::dbwin
 }
+trace add variable ::dbwin write dbwintrace
 
 # This gets called if 'package require' won't work during development.
 proc LoadSharedLibrary {} {
-- 
cgit v0.12