[PD-cvs] pd/src pd_base.tk,1.1.2.3,1.1.2.4

[carmen rocco]

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