Date: Thu,  8 Aug 2002 20:30:32 -0700
From-Tims-Fingers: true
To: lablgtk at kaba.or.jp
Subject: Can't get keypresses from a GMisc.drawing_area
Message-Id: <20020809033428.1EC147F66 at lobus.fungible.com>
From: tim at fungible.com (Tim Freeman)

Here's modified source code derived from the lissajous.ml lablgtk
example.  I want to be able to get keypresses from a
GMisc.drawing_area.  I can get expose events fine.  If I use strace, I
see system call activity when I type at the window, so the X eventmask
is set right.

Any idea how I can get the following code to print "key pressed!" when
I press a key over the window?  

let main () =
  let window = GWindow.window ~border_width: 10 () in
  let area =
    GMisc.drawing_area ~width:200 ~height:200 ~packing:window#add () in
    area#misc#realize ();
    let expose_event _ =
      Format.printf "expose_event.\n@?";
      false
    in
    let key_press_event _ =
      Format.printf "key pressed!\n@?";
      false;
    in
      area#event#connect#expose ~callback:expose_event;
      area#event#connect#key_press ~callback:key_press_event;
      window#show ();
      GMain.Main.main ();;
        
 main()

-- 
Tim Freeman       
tim@fungible.com
GPG public key fingerprint ECDF 46F8 3B80 BB9E 575D  7180 76DF FE00 34B1 5C78