To: Jun.Furuse at inria.fr
Cc: lablgtk at kaba.or.jp
Subject: Re: How to receive configure events of non toplevel widgets ?
In-Reply-To: <20010220181814U.Jun.Furuse at inria.fr>
References: <20010220181814U.Jun.Furuse at inria.fr>
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-Id: <20010221113413F.wakita at is.titech.ac.jp>
Date: Wed, 21 Feb 2001 11:34:13 +0900
From: Ken Wakita <wakita at is.titech.ac.jp>
Lines: 36


I changed your code a bit and found that the button does not receive
configure event but expose events when its container is resized.

Ken

----------------------------------------------------------------------

open GMain

let window = GWindow.window ~show:true ()

let button = GButton.button ~label: "test" ~packing: window#add ()

let _ =
  window#connect#destroy ~callback: Main.quit;
  
  button#event#connect#any ~callback: (fun ev ->
    let ev = match GdkEvent.get_type ev with
      `NOTHING           -> "nothing"
    | `EXPOSE            -> "expose"
    | `ENTER_NOTIFY      -> "enter_notify"
    | `LEAVE_NOTIFY      -> "leave_notify"
    | `FOCUS_CHANGE      -> "focus_change"
    | `CONFIGURE         -> "configure"
    | `MAP               -> "map"
    | `PROPERTY_NOTIFY   -> "property_notify"
    | `PROXIMITY_IN      -> "proximity_in"
    | `PROXIMITY_OUT     -> "proximity_out"
    | `CLIENT_EVENT      -> "client_event"
    | `VISIBILITY_NOTIFY -> "visibility_notify"
    | `NO_EXPOSE         -> "no_expose"
    | _                  -> "some other" in
    Printf.fprintf stderr "[%s] event occured.\n%t" ev flush; false);

  Main.main ()