summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/example/tetris.ml
diff options
context:
space:
mode:
authorPierre Weis <Pierre.Weis@inria.fr>2000-05-22 14:57:26 +0000
committerPierre Weis <Pierre.Weis@inria.fr>2000-05-22 14:57:26 +0000
commite8658a1a37da39f0d5ac87cc450e754accfa24f9 (patch)
tree3f9b29df513e3a0f924bc6f902ec2141ef101f2d /otherlibs/labltk/example/tetris.ml
parent833eb26c3933e9f1a89542e6f3fda321601affaf (diff)
Petites modifs (typos).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3171 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/example/tetris.ml')
-rw-r--r--otherlibs/labltk/example/tetris.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/example/tetris.ml b/otherlibs/labltk/example/tetris.ml
index 70571b114..9f11fc769 100644
--- a/otherlibs/labltk/example/tetris.ml
+++ b/otherlibs/labltk/example/tetris.ml
@@ -577,7 +577,7 @@ let _ =
Textvariable.set scorev (string_of_int !score);
if !line /10 <> pline /10 then
- (* undate the background every 10 lines. *)
+ (* update the background every 10 lines. *)
begin
let num_image = List.length backgrounds - 1 in
let n = !line/10 in
@@ -682,7 +682,7 @@ let _ =
in
let game_init () =
- (* Game Initialization *)
+ (* Game Initialization *)
set_message "Initializing ...";
remove_timer ();
image_load (List.hd backgrounds);