Question

我正在制作一个程序，我想使用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

进行编译

集成GTK和Lwt

0 个答案: