关于OCaml，请问＆＃39; Button.flash＆＃39;工作？

Question

我是OCaml GUI编程的新人。 我想知道＆＃39; Button.flash＆＃39;在Tk模块上工作。

这是我的代码;

open Tk
open Printf


(*
 *   +--------------------------------------------+
 *   |                  Window                    |
 *   +--------------------------------------------+
 *   |                +---------+                 |
 *   |                | BUtton  |                 |
 *   |                +---------+                 |
 *   +--------------------------------------------+
 *) 

let top = openTk() 
let frame = Frame.create top
let label = Label.create frame ~text:"hoge"
let hoge_button = Button.create frame ~text:"hoge"
let f () =  Button.flash hoge_button; Unix.sleep 1 
let fuga_button = Button.create frame ~text:"fuga" ~command:(f);;


let () = 
    pack [coe label; coe fuga_button; coe hoge_button] ~side:`Left;
    pack [coe frame] ~side:`Top;
    mainLoop()

我编译了它。当我按下fuga按钮，然后hoge按钮不闪烁。我以为我应该更新一些参数？ 但我不知道该怎么办。