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]