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

Modified Files: Tag: devel_0_39 pd_base.tk Log Message: tk8.4 compatability for inspector

Index: pd_base.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/pd_base.tk,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** pd_base.tk 11 Sep 2005 11:31:49 -0000 1.1.2.3 --- pd_base.tk 11 Sep 2005 11:48:37 -0000 1.1.2.4 *************** *** 329,332 **** --- 329,333 ---- if {![info exists ($t:inspect)] || ($($t:inspect:type) ne [dict get $($t) $id type])} { foreach c [winfo children .ic] {destroy $c} + set n 0 foreach k [concat id $keys] { text .i$t.$k -wrap none -width 8 -height 1 -bd 0 *************** *** 338,344 **** bind .i$t.${k}v <Any-KeyRelease> "::pd::item_mua $p $t abs [dict create $k [.i$t.${k}v get 1.0 end] ] 1" grid .i$t.$k .i$t.${k}v -sticky nsew ! grid rowconfigure .i$t .i$t.${k}v -weight 1 ! grid columnconfigure .i$t .i$t.${k}v -weight 3 ! grid columnconfigure .i$t .i$t.$k -weight 1} set ($t:inspect:type) [dict get $($t) $id type] } --- 339,352 ---- bind .i$t.${k}v <Any-KeyRelease> "::pd::item_mua $p $t abs [dict create $k [.i$t.${k}v get 1.0 end] ] 1" grid .i$t.$k .i$t.${k}v -sticky nsew ! ! #tk<8.5 needs numerical index ! grid columnconfigure .i$t 1 -weight 3 ! grid columnconfigure .i$t 0 -weight 1 ! grid rowconfigure .i$t $n -weight 1 ! # grid rowconfigure .i$t .i$t.${k}v -weight 1 ! # grid columnconfigure .i$t .i$t.${k}v -weight 3 ! # grid columnconfigure .i$t .i$t.$k -weight 1 ! incr n ! } set ($t:inspect:type) [dict get $($t) $id type] }