Version française
Home     About     Download     Resources     Contact us    

This site is updated infrequently. For up-to-date information, please visit the new OCaml website at

Browse thread
[Caml-list] lablgtk newbie question
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: 2003-04-22 (11:42)
From: Richard Jones <rich@a...>
Subject: Re: [Caml-list] lablgtk newbie question
More newbie questions ...

Below is my program so far.

It works, but it doesn't "look like" any of the example lablgtk
programs.  In particularly, I'm using a lot of ...

	let _ = ...

basically to execute an imperative statement. Perhaps this is a legacy
of the fact that I'm a very experienced imperative programmer.

I think I'm really confused about these:

let ... in

Is there some good tutorial for this? My main reference is but that doesn't
really explain these basics too well.

Comments & guidance welcome.


open GMain
open GWindow
open GdkKeysyms

(* Top-level window *)
let window = GWindow.window ~width:500 ~height:300 ~title:"Editor" ()

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

(* Menu bar *)
let menubar = GMenu.menu_bar ~packing:vbox#pack ()
let menubar_factory = new GMenu.factory menubar
let accel_group = menubar_factory#accel_group
let pages_menu = menubar_factory#add_submenu "Pages"
let edit_menu = menubar_factory#add_submenu "Edit"

(* Pages menu *)
let pages_factory = new GMenu.factory pages_menu ~accel_group
let _ = pages_factory#add_item "New blank page" ~key:_N
let _ = pages_factory#add_item "Search ..." ~key:_S

(* Edit menu *)
let edit_factory = new GMenu.factory edit_menu ~accel_group
let _ = edit_factory#add_item "Cut" ~key:_X
let _ = edit_factory#add_item "Copy" ~key:_C
let _ = edit_factory#add_item "Paste" ~key:_V

let main () =
  window#connect#destroy ~callback: Main.quit;
  window#show ();
  Main.main ();;

(* Run the main program *)
let _ = main ();;

Richard Jones, Red Hat Inc. (London) and Merjis Ltd. Freshmeat projects:
MONOLITH is an advanced framework for writing web applications in C, easier
than using Perl & Java, much faster and smaller, reusable widget-based arch,
database-backed, discussion, chat, calendaring:

To unsubscribe, mail Archives:
Bug reports: FAQ:
Beginner's list: