[vine-users:057822] Re: canna ユーザー辞書登録 (tkaddwdc)

[Kenji Sasaki <kjsasaki@xxxxxxxxxxxxxxxx>]

> 尹＠五島です
> 
> cannaのユーザー辞書への登録に、GUIで登録が行えるtkaddwdcを、
> vine用に修正して使っています。Tcl/Tkで作成されています。
> (オリジナルは http://www-jlc.kek.jp/~fujiik/mklinux/memo/tkaddwdc.html です。)
> 
> ただ、日本語の入力ができず、別の場所から(エディタ等から)コピーペーストして使っています。
> Tcl/Tkでは直接日本語を入力できないのでしょうか?

以下を tkaddwdc の 適当な場所に追加(全部いれてもOKでした)

      # for Tcl/Tk8.0jp Control-o/Control-o
      bind Entry <Control-o>   { kinput_start %W over }
      bind Text  <Control-o>   { kinput_start %W over }
      # for Tcl/Tk8.0jp Shift-space/Shift-space
      bind Entry <Shift-space> { kinput_start %W over }
      bind Text  <Shift-space> { kinput_start %W over }
      # for Tcl/Tk8.3 Control-backslash/Shift-space
      catch { tk useinputmethods 1 }

# グループとユーザがセレクト出来て登録できるとナイス?