[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.48,1.1.1.4.2.7.4.49 u_object.tk,1.1.2.23,1.1.2.24
carmen rocco
ix9 at users.sourceforge.net
Tue Apr 27 15:59:25 CEST 2004
- Previous message: [PD-cvs] pd/src makefile.mingw.vst,1.1.2.1,1.1.2.2 makefile.nt,1.1.1.3.2.2.2.1,1.1.1.3.2.2.2.2 makefile.nt.vst,1.1.2.1,1.1.2.2 u_main.tk,1.1.1.4.2.7.4.47,1.1.1.4.2.7.4.48 u_object.tk,1.1.2.22,1.1.2.23
- Next message: [PD-cvs] pd/src g_all_guis.h,1.1.1.4.2.2.2.11,1.1.1.4.2.2.2.12 g_dropper.c,1.1.2.2,1.1.2.3 u_main.tk,1.1.1.4.2.7.4.49,1.1.1.4.2.7.4.50 u_object.tk,1.1.2.24,1.1.2.25
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4512
Modified Files:
Tag: impd_0_37
u_main.tk u_object.tk
Log Message:
drop patch on main window opens
Index: u_object.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v
retrieving revision 1.1.2.23
retrieving revision 1.1.2.24
diff -C2 -d -r1.1.2.23 -r1.1.2.24
*** u_object.tk 27 Apr 2004 11:03:31 -0000 1.1.2.23
--- u_object.tk 27 Apr 2004 13:59:23 -0000 1.1.2.24
***************
*** 804,812 ****
}
-
- #drag'n'drop filer
- lappend auto_path .
- package require tkdnd
-
proc dropper_draw {self canvas} {
global _
--- 804,807 ----
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.48
retrieving revision 1.1.1.4.2.7.4.49
diff -C2 -d -r1.1.1.4.2.7.4.48 -r1.1.1.4.2.7.4.49
*** u_main.tk 27 Apr 2004 11:03:31 -0000 1.1.1.4.2.7.4.48
--- u_main.tk 27 Apr 2004 13:59:22 -0000 1.1.1.4.2.7.4.49
***************
*** 88,91 ****
--- 88,93 ----
}
+ package require tkdnd
+
# it's unfortunate but we seem to have to turn off global bindings
# for Text objects to get control-s and control-t to do what we want for
***************
*** 246,257 ****
-filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \
-initialdir $pd_opendir]
! if {$filename != ""} {
! set directory [string range $filename 0 [expr [string last / $filename] - 1]]
! set pd_opendir $directory
! set basename [string range $filename [expr [string last / $filename] + 1] end]
! pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
! }
}
proc menu_send {} {
toplevel .sendpanel
--- 248,263 ----
-filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \
-initialdir $pd_opendir]
! if {$filename != ""} {open_file $filename}
}
+ proc open_file {filename} {
+ set directory [string range $filename 0 [expr [string last / $filename] - 1]]
+ set pd_opendir $directory
+ set basename [string range $filename [expr [string last / $filename] + 1] end]
+ pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
+ }
+
+ dnd bindtarget . text/uri-list <Drop> {open_file %D}
+
proc menu_send {} {
toplevel .sendpanel
- Previous message: [PD-cvs] pd/src makefile.mingw.vst,1.1.2.1,1.1.2.2 makefile.nt,1.1.1.3.2.2.2.1,1.1.1.3.2.2.2.2 makefile.nt.vst,1.1.2.1,1.1.2.2 u_main.tk,1.1.1.4.2.7.4.47,1.1.1.4.2.7.4.48 u_object.tk,1.1.2.22,1.1.2.23
- Next message: [PD-cvs] pd/src g_all_guis.h,1.1.1.4.2.2.2.11,1.1.1.4.2.2.2.12 g_dropper.c,1.1.2.2,1.1.2.3 u_main.tk,1.1.1.4.2.7.4.49,1.1.1.4.2.7.4.50 u_object.tk,1.1.2.24,1.1.2.25
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list