(************************************************************
   can.ml		Created      : Sat Feb 22 03:09:14 2003
  			Last modified: Sat Feb 22 03:16:06 2003
  Compile: ocamlc.opt -I +labltk labltk.cma can.ml -o can #
  FTP Directory: sources/ocaml #
************************************************************)
(**
   とっても簡単なお絵書き
  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)

open Tk



let _ =
  let ord2 = 100 in
  let window = openTk () in
  let canvas = Canvas.create ~background:`White ~name:"canvas" window in
  let oval = Canvas.create_oval ~x1:0 ~y1:0 ~x2:ord2 ~y2:ord2 ~fill:`Yellow canvas in
  pack [canvas];
  mainLoop ()