To: lablgtk at kaba.or.jp
Subject: Re: Event weirdness in canvas
From: Michael Welsh Duggan <md5i at cs.cmu.edu>
Date: Sat, 17 May 2003 11:47:26 -0400
In-Reply-To: <87he7vhy03.fsf at cs.cmu.edu> (Michael Welsh Duggan's message of
 "Fri, 16 May 2003 08:33:32 -0400")
Message-ID: <87of2160dt.fsf at cs.cmu.edu>
References: <87he7vhy03.fsf at cs.cmu.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Sender: Michael Welsh Duggan <md5i at md5i.dsl.telerama.com>

The problem ended up being unrelated to lablgtk.  For some reason, on
my system and with my version of gtk, button 1 was causing some form
of grab and ungrab before the button event was propogated.  The
following modification to test.ml tests for this, and causes things
to work correctly:

	`ENTER_NOTIFY e -> 
	  (match GdkEvent.Crossing.mode e with
	  | `GRAB | `UNGRAB -> false
	  | _ ->
	      let () = prerr_string "Enter " in
	      let () = prerr_int !ct in
	      let () = prerr_newline () in
	      let () = ct := !ct + 1 in
	      true)
      | `LEAVE_NOTIFY e -> 
	  (match GdkEvent.Crossing.mode e with
	  | `GRAB | `UNGRAB -> false
	  | _ ->
	      let () = prerr_string "Leave " in
	      let () = prerr_int !ct in
	      let () = prerr_newline () in
	      let () = ct := !ct + 1 in
	      true)

-- 
Michael Welsh Duggan
(md5i@cs.cmu.edu)