packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch

   1 Index: u_main.tk
   2 ===================================================================
   3 RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
   4 retrieving revision 1.17.2.16
   5 diff -u -w -r1.17.2.16 u_main.tk
   6 --- u_main.tk   8 Jul 2007 21:56:30 -0000       1.17.2.16
   7 +++ u_main.tk   9 Jul 2007 16:29:16 -0000
   8 @@ -1618,6 +1619,7 @@
   9  }
  10
  11  proc pdtk_canvas_ctrlkey {name key shift} {
  12 +        global pd_nt
  13  # first get rid of ".c" suffix; we'll refer to the toplevel instead
  14      set topname [string trimright $name .c]
  15  #   puts stderr [concat ctrl-key $key $topname]
  16 @@ -1658,7 +1659,11 @@
  17          if {$key == "v" || $key == "V"} {menu_paste $topname}
  18          if {$key == "d" || $key == "D"} {menu_duplicate $topname}
  19          if {$key == "a" || $key == "A"} {menu_selectall $topname}
  20 +                 if {$pd_nt == 2} { # by default, Cmd-T opens the font panel on Mac OS X
  21 +                               if {$key == "t" || $key == "T"} {menu_font $topname}
  22 +                 } else {
  23          if {$key == "t" || $key == "T"} {menu_texteditor $topname}
  24 +                 }
  25          if {$key == "f" || $key == "F"} {menu_findobject $topname}
  26          if {$key == "g" || $key == "G"} {menu_findagain $topname}
  27      }