[PD-cvs] pd/src desire.tk,1.1.2.61,1.1.2.62

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11322

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixing stuff


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.61
retrieving revision 1.1.2.62
diff -C2 -d -r1.1.2.61 -r1.1.2.62
*** desire.tk	16 Sep 2005 21:04:36 -0000	1.1.2.61
--- desire.tk	17 Sep 2005 19:15:03 -0000	1.1.2.62
***************
*** 1089,1093 ****
        slash  {menu_audio 1}
        period {menu_audio 0}
!       e      {menu_editmode $topname}
      }
  }
--- 1089,1093 ----
        slash  {menu_audio 1}
        period {menu_audio 0}
!       e      {menu_editmode $name}
      }
  }
***************
*** 1531,1535 ****
  # agree, but could i do this a bit later? --chun
  
! def canvas click {x y b f} {
      global wire_from rightclick_object OS select_area mouse font look
      set c .x$self.c
--- 1531,1535 ----
  # agree, but could i do this a bit later? --chun
  
! def* canvas click {x y b f} {
      global wire_from rightclick_object OS select_area mouse font look
      set c .x$self.c
***************
*** 1590,1594 ****
  				set old_obj [lindex $@selection 0]
  				if {$@select_by == "click"} {
! 					objectbox_complete $old_obj $c
  				}
  				set @obj_in_edit 0
--- 1590,1594 ----
  				set old_obj [lindex $@selection 0]
  				if {$@select_by == "click"} {
! 					objectbox_complete $old_obj $self
  				}
  				set @obj_in_edit 0
***************
*** 2045,2055 ****
  
  class_new view {thing}
! def view erase {canvas} {item_delete $self $canvas}
! def view   click     {args} {}
! def view   clickedit {args} {}
! def view unclick     {args} {}
! def view unclickedit {args} {}
! def view  motion     {args} {}
! def view  motionedit {args} {}
  
  proc item {self canvas suffix type coords args} {
--- 2045,2057 ----
  
  class_new view {thing}
! def* view erase {canvas} {item_delete $self $canvas}
! def* view   click     {args} {}
! def* view   clickedit {args} {}
! def* view unclick     {args} {}
! def* view unclickedit {args} {}
! def* view  motion     {args} {}
! def* view  motionedit {args} {}
! def* view wb_activate {args} {}
! def* view wb_select   {args} {}
  
  proc item {self canvas suffix type coords args} {