[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.43,1.1.1.4.2.7.4.44

[Mathieu Bouchard]

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
      }