[PD-cvs] pd/src desire.tk,1.1.2.102,1.1.2.103
chunlee
chunlee at users.sourceforge.net
Fri Nov 4 02:07:40 CET 2005
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14156
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.102
retrieving revision 1.1.2.103
diff -C2 -d -r1.1.2.102 -r1.1.2.103
*** desire.tk 4 Nov 2005 00:34:02 -0000 1.1.2.102
--- desire.tk 4 Nov 2005 01:07:38 -0000 1.1.2.103
***************
*** 1246,1250 ****
def objectbox unclickedit {args} {
puts "$self is being unclicked in [lindex $args 0] edit mode"
! $self edit [lindex $args 0]
#objectbox_edit
}
--- 1246,1251 ----
def objectbox unclickedit {args} {
puts "$self is being unclicked in [lindex $args 0] edit mode"
! #$self edit [lindex $args 0]
! $self edit
#objectbox_edit
}
***************
*** 1723,1727 ****
set id $@focus
if {$@editmode} {set event unclickedit} {set event unclick}
! $id $event $self $cx $cy
}
foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {}
--- 1724,1728 ----
set id $@focus
if {$@editmode} {set event unclickedit} {set event unclick}
! $id $event $cx $cy
}
foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {}
***************
*** 1729,1733 ****
object {
if {$@editmode} {set event unclickedit} {set event unclick}
! $id $event $self $cx $cy
}
}
--- 1730,1734 ----
object {
if {$@editmode} {set event unclickedit} {set event unclick}
! $id $event $cx $cy
}
}
More information about the Pd-cvs
mailing list