pd/src u_main.tk,1.1.1.4.2.7.4.28,1.1.1.4.2.7.4.29 - Pd-cvs

30 Mar 2004


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18612
Modified Files:
      Tag: impd_0_37
    u_main.tk 
Log Message:
cool new statusbar!
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.28
retrieving revision 1.1.1.4.2.7.4.29
diff -C2 -d -r1.1.1.4.2.7.4.28 -r1.1.1.4.2.7.4.29
*** u_main.tk	30 Mar 2004 04:57:55 -0000	1.1.1.4.2.7.4.28
--- u_main.tk	30 Mar 2004 06:20:06 -0000	1.1.1.4.2.7.4.29
***************
*** 528,533 ****
  }
! proc stat_pos_update {name x y} {
!     $name.stat.pos configure -text "($x,$y)"
  }
--- 528,547 ----
  }
! proc stat_pos_update {self x y} {
!     set canvas $self.c
!     $self.stat.pos configure -text "([$canvas canvasx $x],[$canvas canvasy $y])"
!     set stack [$canvas find overlapping [expr $x-2] [expr $y-2] [expr $x+2] [expr $y+2]]
!     set tags [$canvas gettags [lindex $stack end]]
!     if {[regexp {^([a-f0-9]{7})} $tags tag]} {
! 	    global _
! 	    if {[info exists _($tag:class)]} {set class $_($tag:class)} {set class unknown}
! 	    $self.stat.what configure -text "$tag [$class]"
! 	    return
!     }
!     if {[regexp {^l([a-f0-9]{7})} $tags tag]} {
! 	    $self.stat.what configure -text "$tag wire"
! 	    return
!     }
!     $self.stat.what configure -text "..."
  }
***************
*** 551,555 ****
--- 565,572 ----
    label $name.stat.pos -width 12 -font {courier 9} \
    	-background #cccccc -foreground black
+ 	label $name.stat.what -width 32 -font {courier 9} -anchor w \
+ 		-background #cccccc -foreground black
    pack $name.stat.pos -side left
+ 	pack $name.stat.what -side left -padx 8
    pack $name.stat -side bottom -fill x -expand no
      }
***************
*** 885,890 ****
  }
! proc pdtk_canvas_motion {name x y mods} {
!     pd [canvastosym $name] motion [$name canvasx $x] [$name canvasy $y] $mods ;
  }
--- 902,907 ----
  }
! proc pdtk_canvas_motion {canvas x y mods} {
!     pd [canvastosym $canvas] motion [$canvas canvasx $x] [$canvas canvasy $y] $mods ;
  }