4

我正在开发一个我想使用 lablgtk 和 lwt 的程序。我有在 lwt 线程上获取数据的函数，然后我想使用 lablgtk 在 GUI 中显示数据。我正在努力将 lablgtk 集成到 lwt 框架中。下面是一个提炼版本，它演示了我的问题，即我可以启动 GUI，但没有其他任何反应。任何帮助是极大的赞赏。

(* gtk_and_lwt.ml *)

let (>>=) = Lwt.bind

let locale = GtkMain.Main.init ()

let window = GWindow.window ~width:300 ~height:200 ()

let vbox = GPack.vbox ~border_width:2 ~packing:window#add ()

let my_table =
  GPack.table
    ~rows:1
    ~columns:2
    ~row_spacings:5
    ~col_spacings:5
    ~border_width:5
    ~packing:vbox#pack
    ()

let _ =
  GMisc.label
    ~text:"User Input"
    ~packing:(my_table#attach ~left:0 ~top:1 ~right:1 ~bottom:2)
    ()

let my_label =
  GMisc.label
    ~text:"Fetching User Input..."
    ~packing:(my_table#attach ~left:1 ~top:0 ~right:2 ~bottom:1)
    ()

let rec get_user_input () =
  Lwt_io.read_line Lwt_io.stdin
  >>= fun s -> my_label#set_text s |> Lwt.return
  >>= get_user_input

let main () =

  (* Kill the process when the user clicks the "X" button in top left cornet*)
  let _ = window#connect#destroy ~callback:GMain.Main.quit in

  window#show ();
  Lwt.async (get_user_input);
  Lwt.return @@ GMain.Main.main ()

let _ = Lwt_main.run @@ main ()

我正在编译ocamlfind ocamlc -g -package lwt,lwt.syntax,lwt.unix,lablgtk2 -linkpkg gtk_and_lwt.ml -o GtkAndLwt

4

0 回答 0