[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.66,1.1.1.4.2.7.4.67
Mathieu Bouchard
matju at users.sourceforge.net
Mon May 10 18:02:24 CEST 2004
- Previous message: [PD-cvs] pd/src ChangeLog,1.1.2.5,1.1.2.6 g_dropper.c,1.1.2.16,1.1.2.17 u_object.tk,1.1.2.40,1.1.2.41
- Next message: [PD-cvs] pd/src m_pd.h,1.1.1.4.2.10.2.8,1.1.1.4.2.10.2.9 m_binbuf.c,1.1.1.4.2.4.2.3,1.1.1.4.2.4.2.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27192
Modified Files:
Tag: impd_0_37
u_main.tk
Log Message:
bugfix
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.66
retrieving revision 1.1.1.4.2.7.4.67
diff -C2 -d -r1.1.1.4.2.7.4.66 -r1.1.1.4.2.7.4.67
*** u_main.tk 9 May 2004 15:13:43 -0000 1.1.1.4.2.7.4.66
--- u_main.tk 10 May 2004 16:02:21 -0000 1.1.1.4.2.7.4.67
***************
*** 577,581 ****
foreach {a b} {pos 12 what 32 mode 4 action 4 sel 4} {
label $f.$a -width $b -font {courier 9} \
! -background #cccccc -foreground black
}
label $f.mode_l -text " Mode: "
--- 577,581 ----
foreach {a b} {pos 12 what 32 mode 4 action 4 sel 4} {
label $f.$a -width $b -font {courier 9} \
! -background #cccccc -foreground black -anchor w
}
label $f.mode_l -text " Mode: "
***************
*** 805,809 ****
focus $name.c
pdtk_canvas_editval $name $editable
! bind $name.c <Motion> "+statusbar_update $name %x %y"
global pd_nt
--- 805,809 ----
focus $name.c
pdtk_canvas_editval $name $editable
! #bind $name.c <Motion> "+statusbar_update $name %x %y"
global pd_nt
***************
*** 879,883 ****
proc pdtk_canvas_click {canvas x y b f} {
pdtk_canvas_click2 $canvas $x $y $b $f
! statusbar_update [string trimright $canvas .c] $x $y
}
--- 879,883 ----
proc pdtk_canvas_click {canvas x y b f} {
pdtk_canvas_click2 $canvas $x $y $b $f
! statusbar_update [canvastosym $canvas] $x $y
}
***************
*** 919,923 ****
# selection
set already [expr [lsearch $_($self:selection) $id]>=0]
- puts "f = $f"
if {($f&1) && !$already} {
pd "$self select-object x$id ;"
--- 919,922 ----
***************
*** 955,959 ****
proc pdtk_canvas_motion {canvas x y mods state} {
pdtk_canvas_motion2 $canvas $x $y $mods $state
! statusbar_update [string trimright $canvas .c] $x $y
}
--- 954,958 ----
proc pdtk_canvas_motion {canvas x y mods state} {
pdtk_canvas_motion2 $canvas $x $y $mods $state
! statusbar_update [canvastosym $canvas] $x $y
}
***************
*** 1053,1057 ****
wire {}
}
! pd "[canvastosym $canvas] motion $cx $cy $mods ;"
}
--- 1052,1056 ----
wire {}
}
! # pd "[canvastosym $canvas] motion $cx $cy $mods ;"
}
***************
*** 1068,1072 ****
proc pdtk_canvas_mouseup {canvas x y b} {
pdtk_canvas_mouseup2 $canvas $x $y $b
! statusbar_update [string trimright $canvas .c] $x $y
}
--- 1067,1071 ----
proc pdtk_canvas_mouseup {canvas x y b} {
pdtk_canvas_mouseup2 $canvas $x $y $b
! statusbar_update [canvastosym $canvas] $x $y
}
***************
*** 1173,1177 ****
}
}
! statusbar_update [string trimright $canvas .c] $x $y
}
--- 1172,1176 ----
}
}
! statusbar_update [canvastosym $canvas] $x $y
}
***************
*** 1191,1200 ****
}
}
! statusbar_update [string trimright $canvas .c] $x $y
}
proc pdtk_canvas_altkey {name key iso} {
set key [string tolower $key]
! set topname [string trimright $name .c]
puts pdtk_canvas_altkey
global accels
--- 1190,1199 ----
}
}
! statusbar_update [canvastosym $canvas] $x $y
}
proc pdtk_canvas_altkey {name key iso} {
set key [string tolower $key]
! set topname [canvastosym $name]
puts pdtk_canvas_altkey
global accels
***************
*** 1210,1214 ****
# first get rid of ".c" suffix; we'll refer to the toplevel instead
set key [string tolower $key]
! set topname [string trimright $name .c]
switch -- $key {
q {if {$shift} {menu_really_quit} else {menu_quit}; return}
--- 1209,1213 ----
# first get rid of ".c" suffix; we'll refer to the toplevel instead
set key [string tolower $key]
! set topname [canvastosym $name]
switch -- $key {
q {if {$shift} {menu_really_quit} else {menu_quit}; return}
***************
*** 1713,1717 ****
if {[lsearch $fi snd]>=0} {lappend props snd "send-symbol: " entry {-width 20}}
if {[lsearch $fi rcv]>=0} {lappend props rcv "receive-symbol: " entry {-width 20}}
! lappend props lab "label: " entry {-width 29}
lappend props ldx "label x offset: " entry {-width 5}
lappend props ldy "label y offset: " entry {-width 5}
--- 1712,1716 ----
if {[lsearch $fi snd]>=0} {lappend props snd "send-symbol: " entry {-width 20}}
if {[lsearch $fi rcv]>=0} {lappend props rcv "receive-symbol: " entry {-width 20}}
! lappend props lab "label: " entry {-width 20}
lappend props ldx "label x offset: " entry {-width 5}
lappend props ldy "label y offset: " entry {-width 5}
***************
*** 1972,1976 ****
proc texteditor_send {name} {
! set topname [string trimright $name .text]
for {set i 0} {[$name compare [concat 0.0 + [expr $i+1] chars] < end]} {incr i 1} {
scan [$name get [concat 0.0 + $i chars]] %c keynum
--- 1971,1975 ----
proc texteditor_send {name} {
! regsub {\.text$} $name name
for {set i 0} {[$name compare [concat 0.0 + [expr $i+1] chars] < end]} {incr i 1} {
scan [$name get [concat 0.0 + $i chars]] %c keynum
***************
*** 1980,1984 ****
proc texteditor_ok {name} {
! set topname [string trimright $name .text]
texteditor_send $name
destroy $topname
--- 1979,1983 ----
proc texteditor_ok {name} {
! regsub {\.text$} $name topname
texteditor_send $name
destroy $topname
***************
*** 2418,2422 ****
listener_append .tcl [.tcl.entry get]
.tcl.entry delete 0 end
! post "tcl: $l\nreturns: [eval $l]"
}
--- 2417,2421 ----
listener_append .tcl [.tcl.entry get]
.tcl.entry delete 0 end
! post %s "tcl: $l\nreturns: [eval $l]"
}
- Previous message: [PD-cvs] pd/src ChangeLog,1.1.2.5,1.1.2.6 g_dropper.c,1.1.2.16,1.1.2.17 u_object.tk,1.1.2.40,1.1.2.41
- Next message: [PD-cvs] pd/src m_pd.h,1.1.1.4.2.10.2.8,1.1.1.4.2.10.2.9 m_binbuf.c,1.1.1.4.2.4.2.3,1.1.1.4.2.4.2.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list