Michele Ballabio <barra_cuda@xxxxxxxxxxxx> wrote:
>
> So, it doesn't recognize [ at all at the keysym (%K) level.
> No idea why. This is Tcl/Tk 8.4.15 on Linux.
...
> ctrl-+ and ctrl-= -> more context
> ctrl-- -> less context
This is reasonable. I like.
> .mbar.commit add command -label [mc "Show Less Context"] \
> -command show_less_context \
> - -accelerator $M1T-\[
> + -accelerator $M1T-\-
>
> .mbar.commit add command -label [mc "Show More Context"] \
> -command show_more_context \
> - -accelerator $M1T-\]
> + -accelerator "$M1T-+ $M1T-="
Sadly Mac OS X does not like this accelerator in the menu.
It drops the accelerator entirely and just shows nothing.
I changed it to show "$M1T-=", but kept the bindings as
you had them below, so $M1T-+ is an alias.
> @@ -2715,8 +2715,11 @@ bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
> bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
> bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
> bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
> -bind $ui_comm <$M1B-Key-bracketleft> {show_less_context;break}
> -bind $ui_comm <$M1B-Key-bracketright> {show_more_context;break}
> +bind $ui_comm <$M1B-Key-minus> {show_less_context;break}
> +bind $ui_comm <$M1B-Key-KP_Subtract> {show_less_context;break}
> +bind $ui_comm <$M1B-Key-equal> {show_more_context;break}
> +bind $ui_comm <$M1B-Key-plus> {show_more_context;break}
> +bind $ui_comm <$M1B-Key-KP_Add> {show_more_context;break}
>
> bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
> bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
> @@ -2760,8 +2763,11 @@ bind . <$M1B-Key-t> do_add_selection
> bind . <$M1B-Key-T> do_add_selection
> bind . <$M1B-Key-i> do_add_all
> bind . <$M1B-Key-I> do_add_all
> -bind . <$M1B-Key-bracketleft> {show_less_context;break}
> -bind . <$M1B-Key-bracketright> {show_more_context;break}
> +bind . <$M1B-Key-minus> {show_less_context;break}
> +bind . <$M1B-Key-KP_Subtract> {show_less_context;break}
> +bind . <$M1B-Key-equal> {show_more_context;break}
> +bind . <$M1B-Key-plus> {show_more_context;break}
> +bind . <$M1B-Key-KP_Add> {show_more_context;break}
> bind . <$M1B-Key-Return> do_commit
> foreach i [list $ui_index $ui_workdir] {
> bind $i <Button-1> "toggle_or_diff $i %x %y; break"
> --
> 1.5.4.5
>
--
Shawn.
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
