diff options
| author | treectrl <treectrl> | 2007-01-21 22:57:24 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2007-01-21 22:57:24 (GMT) |
| commit | f598fc05add2a8f06dbd7d75a13920277e7af575 (patch) | |
| tree | 655f150a45bafae1ea54736749ab92cc00d6ce26 /demos | |
| parent | 129c8372dfd55d627d328f12330d13f70d9b74ef (diff) | |
| download | tktreectrl-f598fc05add2a8f06dbd7d75a13920277e7af575.zip tktreectrl-f598fc05add2a8f06dbd7d75a13920277e7af575.tar.gz tktreectrl-f598fc05add2a8f06dbd7d75a13920277e7af575.tar.bz2 | |
Use the new "dbwin" stuff.
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/demo.tcl | 12 |
1 files 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 {} { |