[PD-dev] rebinding tab and shift-tab in dialog windows

Krzysztof Czaja czaja at chopin.edu.pl
Sat Jun 7 15:22:20 CEST 2003


hi all,

the diff below (against 0.36) patches Tab/Shift-Tab behaviour:

. clears the actual binding for shift-tab

. restores the bindings in iemgui_dialog window (the same could
be done in other dialogs, but let this patch be tested by others
first).

Also included are the two fixes previously reported:

. tcl/tk 8.4 map event fix

. mozilla/netscape fix

Krzysztof

--- ../src/u_main.tk	2002-11-28 06:58:14.000000000 +0100
+++ pd.tk	2003-06-07 15:07:00.000000000 +0200
@@ -34,7 +34,7 @@
  # "text" dialogs below.  Also we have to get rid of tab's changing the focus.

  bind all <Key-Tab> ""
-bind all <Shift-Key-Tab> ""
+bind all <<PrevWindow>> ""
  bind Text <Control-t> {}
  bind Text <Control-s> {}
  # puts stderr [bind all]
@@ -234,6 +234,7 @@

  proc menu_documentation {} {
      global help_directory
+    global pd_nt

      set filename [tk_getOpenFile -defaultextension .pd \
      -filetypes { {{documentation} {.pd .txt .htm}} } \
@@ -831,7 +832,7 @@
      bind $name.c <KeyRelease> {pdtk_canvas_keyup %W %K %A}
      bind $name.c <Motion> {pdtk_canvas_motion %W %x %y 0}
      bind $name.c <Alt-Motion> {pdtk_canvas_motion %W %x %y 4}
-    bind $name.c <Map> {pdtk_canvas_map %W %s}
+    bind $name.c <Map> {pdtk_canvas_map %W 0}
  #    bind $name.c <Unmap> {puts stderr map}
      focus $name.c
  #    puts stderr "all done"
@@ -2187,6 +2188,14 @@
      label $id.space5 -text ""
      pack $id.space5 -side top

+    if {[info tclversion] < 8.4} {
+ 
bind $id <Key-Tab> {tkTabToWindow [tk_focusNext %W]}
+ 
bind $id <<PrevWindow>> {tkTabToWindow [tk_focusPrev %W]}
+    } else {
+ 
bind $id <Key-Tab> {tk::TabToWindow [tk_focusNext %W]}
+ 
bind $id <<PrevWindow>> {tk::TabToWindow [tk_focusPrev %W]}
+    }
+
      bind $id.dim.w_ent <KeyPress-Return> [concat iemgui_ok $id]
      bind $id.dim.h_ent <KeyPress-Return> [concat iemgui_ok $id]





More information about the Pd-dev mailing list