diff options
| author | forsyth <forsyth@vitanuova.com> | 2011-03-15 23:08:01 +0000 |
|---|---|---|
| committer | forsyth <forsyth@vitanuova.com> | 2011-03-15 23:08:01 +0000 |
| commit | 3a78c580bfacbdc12a08507f98b0dfb3c9b78f94 (patch) | |
| tree | b2471da01552630d5252cd1a9a06049b859d4a42 /libtk | |
| parent | ac8b4d5f4a50fb746cf5b209e94a64c7ec53e912 (diff) | |
20110315-2307
Diffstat (limited to 'libtk')
| -rw-r--r-- | libtk/textw.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libtk/textw.c b/libtk/textw.c index 141273fb..62ffdf9f 100644 --- a/libtk/textw.c +++ b/libtk/textw.c @@ -98,15 +98,15 @@ static TkEbind tktbinds[] = { {TkKey|CNTL('<'), "%W tkTextSetCursor {insert linestart}"}, {TkKey|CNTL('b'), "%W tkTextSetCursor insert-1c"}, {TkKey|Left, "%W tkTextSetCursor insert-1c"}, - {TkKey|CNTL('d'), "%W delete insert"}, + {TkKey|CNTL('d'), "%W tkTextDelIns"}, {TkKey|CNTL('e'), "%W tkTextSetCursor {insert lineend}"}, {TkKey|End, "%W tkTextSetCursor {insert lineend}"}, {TkKey|CNTL('>'), "%W tkTextSetCursor {insert lineend}"}, {TkKey|CNTL('f'), "%W tkTextSetCursor insert+1c"}, {TkKey|Right, "%W tkTextSetCursor insert+1c"}, {TkKey|CNTL('h'), "%W tkTextDelIns -c"}, - {TkKey|DEL, "%W tkTextDelIns +c"}, - {TkKey|CNTL('k'), "%W delete insert {insert lineend}"}, + {TkKey|DEL, "%W tkTextDelIns"}, + {TkKey|CNTL('k'), "%W tkTextDelIns +l"}, {TkKey|CNTL('n'), "%W tkTextSetCursor {insert+1l}"}, {TkKey|Down, "%W tkTextSetCursor {insert+1l}"}, {TkKey|CNTL('o'), "%W tkTextInsert {\n}; %W mark set insert insert-1c"}, @@ -2613,6 +2613,8 @@ tktextdelins(Tk *tk, char *arg, char **val) sprint(buf, "insert-%dc insert", n); tktextdelete(tk, buf, nil); } + else if(arg[0] == '+' && arg[1] == 'l') + tktextdelete(tk, "insert {insert lineend}", nil); else tktextdelete(tk, "insert", nil); tktextsee(tk, "insert", nil); |