LablTkで窓を出すだけ

自分はよく実行してみるほうなので、プログラムを迅速に終了できるといいなということで、Ctrl+wで終了できるようにしてみた。
LablGTKと比べて、APIの設計が直感的・OCaml的で良い(個人の感想です)

ソースコード

let () =
  let top = Tk.openTk ()
  in
  begin
    Tk.bind 
      ~events: [`Modified([`Control], `KeyPressDetail "w")]
      ~action: (fun _ -> Tk.closeTk ())
      top;
    Tk.mainLoop ()
  end

プロジェクト全体

https://github.com/wistery-k/labltk_tutorials/tree/master/just_a_window