Update of /cvsroot/pure-data/externals/miXed/test/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21748/test/toxy
Modified Files: default.wid Added Files: tclversion.pd Log Message: widget tracing backward compatible to tcl8.3
--- NEW FILE: tclversion.pd --- #N canvas 68 131 532 301 24; #X obj 38 191 tot .; #X obj 38 29 loadbang; #X msg 38 138 query concat set [info tclversion]; #X msg 38 243; #X obj 38 86 t b b; #X msg 147 191 set; #X connect 0 0 3 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 4 0 2 0; #X connect 4 1 5 0; #X connect 5 0 3 0;
Index: default.wid =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/default.wid,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** default.wid 19 Feb 2004 22:23:18 -0000 1.3 --- default.wid 25 Feb 2004 10:54:43 -0000 1.4 *************** *** 30,37 **** } } else { ! trace add variable $res write "::toxy::itembindtrace $varname" } if {![info exists $varname.last]} { set $varname.last "" } ! trace add variable $varname write "::toxy::itemdotrace $target" return } else { return 0 } --- 30,45 ---- } } else { ! if {[info tclversion] < 8.4} { ! trace variable $res w "::toxy::itembindtrace $varname" ! } else { ! trace add variable $res write "::toxy::itembindtrace $varname" ! } } if {![info exists $varname.last]} { set $varname.last "" } ! if {[info tclversion] < 8.4} { ! trace variable $varname w "::toxy::itemdotrace $target" ! } else { ! trace add variable $varname write "::toxy::itemdotrace $target" ! } return } else { return 0 } *************** *** 46,51 **** } } elseif {$res != ""} { ! catch { trace remove variable \ ! $res write "::toxy::itembindtrace $varname" } } } --- 54,63 ---- } } elseif {$res != ""} { ! if {[info tclversion] < 8.4} { ! catch { trace vdelete $res w "::toxy::itembindtrace $varname" } ! } else { ! catch { trace remove variable \ ! $res write "::toxy::itembindtrace $varname" } ! } } } *************** *** 55,59 **** ::toxy::itemremovetrace -variable $path $varname.var ::toxy::itemremovetrace -textvariable $path $varname.txt ! unset -nocomplain $varname.last $varname.var $varname.txt $varname catch {destroy $path} } --- 67,75 ---- ::toxy::itemremovetrace -variable $path $varname.var ::toxy::itemremovetrace -textvariable $path $varname.txt ! if {[info tclversion] < 8.4} { ! catch { unset $varname.last $varname.var $varname.txt $varname } ! } else { ! unset -nocomplain $varname.last $varname.var $varname.txt $varname ! } catch {destroy $path} }