pd/src desire.tk,1.1.2.102,1.1.2.103 - Pd-cvs

4 Nov 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
        }
      }