pd/src u_main.tk,1.1.1.4.2.7.4.18,1.1.1.4.2.7.4.19 - Pd-cvs

19 Mar 2004


      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 ----