pd/src desire.tk,1.1.2.224,1.1.2.225 - Pd-cvs

11 Jun 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1941
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
oops (fixing previous commit)
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.224
retrieving revision 1.1.2.225
diff -C2 -d -r1.1.2.224 -r1.1.2.225
*** desire.tk	11 Jun 2006 15:23:14 -0000	1.1.2.224
--- desire.tk	11 Jun 2006 16:09:30 -0000	1.1.2.225
***************
*** 14,22 ****
  #-----------------------------------------------------------------------------------#
! source objective.tcl
! #set argh0 [file normalize [file join [pwd] $argv0]]
! #set our_tcl_dir [file join [file dirname [file dirname $argh0]] lib/pd/bin]
! #puts $our_tcl_dir
! #source $our_tcl_dir/objective.tcl
#-----------------------------------------------------------------------------------#
--- 14,24 ----
  #-----------------------------------------------------------------------------------#
! set argh0 [file normalize [file join [pwd] $argv0]]
! set our_tcl_dir [file join [file dirname [file dirname $argh0]] lib/pd/bin]
! 
! if {[catch {source objective.tcl}]} {
! 	puts "looking for objective.tcl in $our_tcl_dir"
! 	source $our_tcl_dir/objective.tcl
! }
#-----------------------------------------------------------------------------------#
***************
*** 2011,2015 ****
def* Canvas paste {} {
! 	global canvas _
    puts "***************************************"
    set windowx [winfo width .$self.c]
--- 2013,2017 ----
def* Canvas paste {} {
! 	global canvas
    puts "***************************************"
    set windowx [winfo width .$self.c]
***************
*** 2086,2089 ****
--- 2088,2098 ----
  }
+ def* Canvas cut {} {
+ 	$@history atomically {
+ 		$self copy
+ 		$self delete_selection
+ 	}
+ }
+ 
  def* Canvas select_all {} {
    global look