[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.28,1.1.1.4.2.7.4.29
Mathieu Bouchard
matju at users.sourceforge.net
Tue Mar 30 08:20:08 CEST 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 \;
}
More information about the Pd-cvs
mailing list