[debian-users:24468] Re: del キーが back space 動作 on the tkdesk-ja

[Masatoshi Suehiro <suehiro@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>]

末廣ともうします。

On Wed, Oct 11, 2000 at 09:59:54PM +0900, white wrote:

> > Debian に限らず普通に tcl/tk でコーティングするとそうなります。
> > わたしはライブラリレベルでバインドしてしのいでいますけど。
> 
> 具体的にどのようにすれば良いか、おしえていただけないでしょうか？

Tcl/Tk 8.0jp のデフォルトの動作を変えても良いのなら、
/usr/lib/tk8.0jp/kinput.tcl と /usr/lib/tk8.0jp/xim.tcl の中の

bind Text <Delete> {
    if {[%W tag nextrange sel 1.0 end] != ""} {
        %W delete sel.first sel.last
        tkTextSetCursor %W insert
    } else {
        tkTextSetCursor %W insert-1c
        %W delete insert
        %W see insert
    }
}

という部分を次のようにすればよいはずです。

bind Text <Delete> {
    if {[%W tag nextrange sel 1.0 end] != ""} {
        %W delete sel.first sel.last
        tkTextSetCursor %W insert
    } else {
        tkTextSetCursor %W insert
        %W delete insert
        %W see insert
    }
}

つまり、"insert-1c" -> "insert" です。

------
    末廣雅利 E-mail: suehiro@xxxxxxxxxxxxxxxxxxxx