[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.18,1.1.1.4.2.7.4.19
Mathieu Bouchard
matju at users.sourceforge.net
Fri Mar 19 21:47:14 CET 2004
- Previous message: [PD-cvs] pd/src g_all_guis.c,1.1.1.4.2.4.2.5,1.1.1.4.2.4.2.6 m_glob.c,1.1.1.2.2.3.2.3,1.1.1.2.2.3.2.4 s_print.c,1.1.1.1.16.2.2.2,1.1.1.1.16.2.2.3
- Next message: [PD-cvs] pd/src s_print.c,1.1.1.1.16.2.2.3,1.1.1.1.16.2.2.4 m_glob.c,1.1.1.2.2.3.2.4,1.1.1.2.2.3.2.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30503
Modified Files:
Tag: impd_0_37
u_main.tk
Log Message:
re-fixed menu problem
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.18
retrieving revision 1.1.1.4.2.7.4.19
diff -C2 -d -r1.1.1.4.2.7.4.18 -r1.1.1.4.2.7.4.19
*** u_main.tk 19 Mar 2004 01:59:13 -0000 1.1.1.4.2.7.4.18
--- u_main.tk 19 Mar 2004 20:47:11 -0000 1.1.1.4.2.7.4.19
***************
*** 208,214 ****
-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] ;"
}
--- 208,214 ----
-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] ;"
}
***************
*** 809,813 ****
if {[info exists accels(alt+$key)]} {
set cmd $accels(alt+$key)
! regsub -all %W $cmd $context cmd
puts $cmd
eval $cmd
--- 809,813 ----
if {[info exists accels(alt+$key)]} {
set cmd $accels(alt+$key)
! regsub -all %W $cmd $topname cmd
puts $cmd
eval $cmd
***************
*** 826,830 ****
if {[info exists accels(ctrl+$key)]} {
set cmd $accels(ctrl+$key)
! regsub -all %W $cmd $context cmd
puts $cmd
eval $cmd
--- 826,830 ----
if {[info exists accels(ctrl+$key)]} {
set cmd $accels(ctrl+$key)
! regsub -all %W $cmd $topname cmd
puts $cmd
eval $cmd
***************
*** 2133,2138 ****
############ .pdrc editor
- # unhandled aliases:
-
set pdrc_options {
-r int "sample rate"
--- 2133,2136 ----
- Previous message: [PD-cvs] pd/src g_all_guis.c,1.1.1.4.2.4.2.5,1.1.1.4.2.4.2.6 m_glob.c,1.1.1.2.2.3.2.3,1.1.1.2.2.3.2.4 s_print.c,1.1.1.1.16.2.2.2,1.1.1.1.16.2.2.3
- Next message: [PD-cvs] pd/src s_print.c,1.1.1.1.16.2.2.3,1.1.1.1.16.2.2.4 m_glob.c,1.1.1.2.2.3.2.4,1.1.1.2.2.3.2.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list