src/gtk/newgui/gui_starter.ml

   1
   2 open Gettext
   3 open GMain
   4
   5 let _s x = _s "Gui_starter" x
   6 let _b x = _b "Gui_starter" x
   7
   8 let home_dir = (try Sys.getenv "HOME" with _ -> ".")
   9 let config_dir_basename =
  10   if Autoconf.windows then "mldonkey" else ".mldonkey"
  11 let config_dir = Filename.concat home_dir config_dir_basename
  12
  13 let _ =
  14   let filename = Filename.concat config_dir "gui_starter_strings" in
  15   Unix2.safe_mkdir (Filename.dirname filename);
  16   set_strings_file filename
  17
  18 let main () =
  19   ignore (GMain.Main.init ());
  20   let window = GWindow.window ~title:(_s "MLdonkey GUI starter") ~border_width:10
  21     ~width:300 ~height:150 () in
  22   let vbox_2 = GPack.vbox ~homogeneous:false ~packing: window#add ()in
  23   let wl_3 =
  24     GMisc.label ~text: (_s "\n     Start the GTK gui ?     \n\nChange the 'ask_for_gui' option to false to remove this message.\n\n") ~justify:`CENTER ~line_wrap:true
  25       ~xalign:(-1.0) ~yalign:(-1.0)
  26       ~packing:(vbox_2#pack ~expand:true ~fill:true) ()
  27   in
  28   let hbox_4 =
  29     GPack.hbox ~homogeneous:true
  30       ~packing:(vbox_2#pack ~expand:false ~fill:true) ()
  31   in
  32   let wb_5 =
  33     GButton.button ~packing:(hbox_4#pack ~expand:true ~fill:true) ()
  34   in
  35   let wl_7 =
  36     GMisc.label ~text:(_s "YES") ~justify:`CENTER ~line_wrap:true ~xalign:(-1.0)
  37       ~yalign:(-1.0) ~packing:(wb_5#add) ()
  38   in
  39   let wb_6 =
  40     GButton.button ~packing:(hbox_4#pack ~expand:true ~fill:true) ()
  41   in
  42   let wl_8 =
  43     GMisc.label ~text:(_s "NO") ~justify:`CENTER ~line_wrap:true ~xalign:(-1.0)
  44       ~yalign:(-1.0) ~packing:(wb_6#add) ()
  45   in
  46   ignore (window#connect#destroy ~callback:GMain.Main.quit);
  47   ignore (wb_5#connect#clicked ~callback:
  48   (fun () ->
  49       ignore (Sys.command (Printf.sprintf "%s &" Sys.argv.(1)));
  50       GMain.Main.quit ();
  51       ));
  52   ignore (wb_6#connect#clicked ~callback:
  53   (fun () ->
  54       GMain.Main.quit ();
  55   ));
  56   window#show ();
  57   GMain.Main.main ()
  58
  59 let _ = main ()
  60