Version française
Home     About     Download     Resources     Contact us    
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: -- (:)
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
let ... in
;
;;

Is there some good tutorial for this? My main reference is
http://caml.inria.fr/ocaml/htmlman/manual003.html but that doesn't
really explain these basics too well.

Comments & guidance welcome.

Rich.

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. http://www.merjis.com/
http://www.annexia.org/ Freshmeat projects: http://freshmeat.net/users/rwmj
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:
http://www.annexia.org/freeware/monolith/

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners