[PD-cvs] pd/src poe.tcl,1.1.2.2.2.22,1.1.2.2.2.23

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11218

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
compatibility with newer Tcl 8.5


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.22
retrieving revision 1.1.2.2.2.23
diff -C2 -d -r1.1.2.2.2.22 -r1.1.2.2.2.23
*** poe.tcl	13 Aug 2007 05:25:52 -0000	1.1.2.2.2.22
--- poe.tcl	18 Aug 2007 08:21:24 -0000	1.1.2.2.2.23
***************
*** 36,39 ****
--- 36,40 ----
  set _(Class:_class) Class
  set _(Class:_super) {Thing}
+ set have_expand [expr ![catch {set a {foo bar}; list {expand}$a}]]
  
  proc proc* {name args body} {
***************
*** 116,120 ****
  }
  
! if {$tcl_version >= 8.5} {
  	set dispatch {
  		set i 0; set class $::_($self:_class)
--- 117,121 ----
  }
  
! if {$have_expand} {
  	set dispatch {
  		set i 0; set class $::_($self:_class)
***************
*** 140,144 ****
  	if {[llength $methods] < $i} {error "no more supermethods"}
  }
! if {$tcl_version >= 8.5} {
  	append super {[lindex $methods $i] $self {expand}$args}
  } else {
--- 141,145 ----
  	if {[llength $methods] < $i} {error "no more supermethods"}
  }
! if {$have_expand} {
  	append super {[lindex $methods $i] $self {expand}$args}
  } else {