[PD-cvs] pd/src desire.tk,1.1.2.224,1.1.2.225

Mathieu Bouchard matju at users.sourceforge.net
Sun Jun 11 18:09:32 CEST 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





More information about the Pd-cvs mailing list