[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