pd/src desire.tk,1.1.2.61,1.1.2.62 - Pd-cvs

17 Sep 2005


      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} {