[PD-cvs] externals/miXed/test/toxy tclversion.pd,NONE,1.1 default.wid,1.3,1.4

[krzyszcz at users.sourceforge.net]

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}
  }