Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11623
Modified Files: Tag: impd_0_37 u_main.tk Log Message: fix for win/mac
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.43 retrieving revision 1.1.1.4.2.7.4.44 diff -C2 -d -r1.1.1.4.2.7.4.43 -r1.1.1.4.2.7.4.44 *** u_main.tk 19 Apr 2004 02:30:48 -0000 1.1.1.4.2.7.4.43 --- u_main.tk 19 Apr 2004 23:42:20 -0000 1.1.1.4.2.7.4.44 *************** *** 568,572 **** toplevel $name -menu $name.m wm geometry $name $geometry ! canvas $name.c -width $width -height $height -background white \ -yscrollcommand "$name.scrollvert set" \ -xscrollcommand "$name.scrollhort set" \ --- 568,574 ---- toplevel $name -menu $name.m wm geometry $name $geometry ! canvas $name.c \ ! -width $width -height $height \ ! -background white \ -yscrollcommand "$name.scrollvert set" \ -xscrollcommand "$name.scrollhort set" \ *************** *** 771,774 **** --- 773,780 ---- #scale $name.bbar.bg -orient horizontal -showvalue false -from 0 -to 255 -command {} #pack $name.bbar.bg -side right + # set bw [expr [winfo size + # $name [$name.c cget -width] [winfo screenwidth $name] + # set mh [winfo screenheight $name] + }
*************** *** 802,806 **** #puts stderr "($label) $canvas $cx $cy $b $f : $tags " foreach tag $stack { ! if {[regexp {^([a-f0-9]{7})} [$canvas gettags $tag] id]} { global _ if {[info exists _($id:class)]} {set class $_($id:class)} {set class unknown} --- 808,812 ---- #puts stderr "($label) $canvas $cx $cy $b $f : $tags " foreach tag $stack { ! if {[regexp {^([a-f0-9]{6,8})} [$canvas gettags $tag] id]} { global _ if {[info exists _($id:class)]} {set class $_($id:class)} {set class unknown} *************** *** 810,814 **** } foreach tag $stack { ! if {[regexp {^l([a-f0-9]{7})} [$canvas gettags $tag] id]} { #puts stderr "(.....) this is a wire" return [list "wire" $id] --- 816,820 ---- } foreach tag $stack { ! if {[regexp {^l([a-f0-9]{6,8})} [$canvas gettags $tag] id]} { #puts stderr "(.....) this is a wire" return [list "wire" $id] *************** *** 925,928 **** --- 931,935 ---- lappend l $cx $cy $canvas coords lnew $l + #$canvas coords lnew [lindex $l 0] [lindex $l 1] [lindex $l end-1] [lindex $l end] return }