diff options
Diffstat (limited to 'demos/demo.tcl')
-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 {} { |