caml-list - the Caml user's mailing list
 help / color / mirror / Atom feed
From: Richard Jones <rich@annexia.org>
To: caml-list@inria.fr
Subject: Re: [Caml-list] lablgtk newbie question
Date: Tue, 22 Apr 2003 12:42:36 +0100	[thread overview]
Message-ID: <20030422114236.GB11783@redhat.com> (raw)
In-Reply-To: <20030422105529.GA11783@redhat.com>

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


  reply	other threads:[~2003-04-22 11:42 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-04-22 10:55 Richard Jones
2003-04-22 11:42 ` Richard Jones [this message]
2003-04-22 13:01 ` Benjamin Monate
2003-04-22 13:08 ` Eric C. Cooper
2003-04-22 13:12 ` Jacques Garrigue
2003-04-22 13:28   ` Richard Jones

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20030422114236.GB11783@redhat.com \
    --to=rich@annexia.org \
    --cc=caml-list@inria.fr \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).