Tk上のカーソル表示を消す

カーソルを消した〜い

• X11 の場合
  次の内容のファイル null.xbm を作成し -cursor オプションを使って '-cursor "@null.xbm black"' として指定 する（null_bits[] の後ろの { のところの改行がないとエラーになって しまう…）

       #define null_width 1
       #define null_height 1
       #define null_x_hot 0
       #define null_y_hot 0
       static char null_bits[] = {
       0x00};
       

• Windows の場合
  空の Windows アイコンカーソル null.Ico を 作成しそれを -cursor オプションを使って '-cursor "@null.Ico"'とし て指定する
  • カーソルの作成：フリーウェアがあるのでそれを使った（というかほ とんど？添付の雛形アイコンファイルを null.Ico に改名しただけ）
    
  • http://www.vector.co.jp/soft/win95/amuse/se066144.html
    カーソルエディッタ
    Vector→Windows→アミューズメント→マウス→マウスカーソル

指定秒後に消す

proc delcursor {} {
    global tcl_platform
    if {$tcl_platform(platform)=="windows"} {
        . configure -cursor "@null.Ico"
    } else {
        . configure -cursor "@null.xbm black"
    }
}

set cursor_motion 1
set cursor_vanish 0
proc cursorVanish {delay} {
    global cursor_motion cursor_vanish
    if {!$cursor_motion && !$cursor_vanish} {
	delcursor
	set cursor_vanish 1
    }
    set cursor_motion 0
    after $delay cursorVanish $delay
}
after 0 cursorVanish 4000
bind . <Motion> {
    %W configure -cursor left_ptr
    set cursor_vanish 0
    set cursor_motion 1
}