pd/src u_main.tk,1.17.2.16,1.17.2.17 - Pd-cvs

9 Jul 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28230
Modified Files:
      Tag: branch-v0-39-2-extended
    u_main.tk 
Log Message:
map Cmd-T to open the fontpanel, like most Mac OS X apps
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.16
retrieving revision 1.17.2.17
diff -C2 -d -r1.17.2.16 -r1.17.2.17
*** u_main.tk	8 Jul 2007 21:56:30 -0000	1.17.2.16
--- u_main.tk	9 Jul 2007 17:08:37 -0000	1.17.2.17
***************
*** 1619,1622 ****
--- 1619,1623 ----
proc pdtk_canvas_ctrlkey {name key shift} {
+ 	 global pd_nt
  # first get rid of ".c" suffix; we'll refer to the toplevel instead
      set topname [string trimright $name .c]
***************
*** 1659,1663 ****
          if {$key == "d" || $key == "D"} {menu_duplicate $topname}
          if {$key == "a" || $key == "A"} {menu_selectall $topname}
!         if {$key == "t" || $key == "T"} {menu_texteditor $topname}
          if {$key == "f" || $key == "F"} {menu_findobject $topname}
          if {$key == "g" || $key == "G"} {menu_findagain $topname}
--- 1660,1668 ----
          if {$key == "d" || $key == "D"} {menu_duplicate $topname}
          if {$key == "a" || $key == "A"} {menu_selectall $topname}
!         if {$pd_nt == 2} { # by default, Cmd-T opens the font panel on Mac OS X
!             if {$key == "t" || $key == "T"} {menu_font $topname}
!         } else {
!             if {$key == "t" || $key == "T"} {menu_texteditor $topname}
!         }
          if {$key == "f" || $key == "F"} {menu_findobject $topname}
          if {$key == "g" || $key == "G"} {menu_findagain $topname}