diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2010-04-03 06:43:51 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2010-04-03 06:43:51 +0000 |
| commit | f5fc4d52079c0eb2a91e2cbc3c7c23f6554e43cb (patch) | |
| tree | feeec35aaf445ec41d4b1cb9e529a3193b2ad217 /otherlibs/labltk/examples_camltk | |
| parent | ab550592efa74f1f67a705f84251cce7e32a64c6 (diff) | |
fix for tk86 and removal of tkanim
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10230 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/examples_camltk')
| -rw-r--r-- | otherlibs/labltk/examples_camltk/eyes.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/examples_camltk/tetris.ml | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/otherlibs/labltk/examples_camltk/eyes.ml b/otherlibs/labltk/examples_camltk/eyes.ml index b5195307c..c93146231 100644 --- a/otherlibs/labltk/examples_camltk/eyes.ml +++ b/otherlibs/labltk/examples_camltk/eyes.ml @@ -25,7 +25,7 @@ let _ = pack [fw] []; let c = Canvas.create fw [Width (Pixels 200); Height (Pixels 200)] in let create_eye cx cy wx wy ewx ewy bnd = - let o2 = + let _o2 = Canvas.create_oval c (Pixels (cx - wx)) (Pixels (cy - wy)) (Pixels (cx + wx)) (Pixels (cy + wy)) diff --git a/otherlibs/labltk/examples_camltk/tetris.ml b/otherlibs/labltk/examples_camltk/tetris.ml index e8bb69e47..835343475 100644 --- a/otherlibs/labltk/examples_camltk/tetris.ml +++ b/otherlibs/labltk/examples_camltk/tetris.ml @@ -215,7 +215,6 @@ let init fw = let scorev = Textvariable.create () and linev = Textvariable.create () and levv = Textvariable.create () - and namev = Textvariable.create () in let f = Frame.create fw [BorderWidth (Pixels 2)] in let c = Canvas.create f [Width (Pixels (block_size * 10)); |