Date: Thu, 29 May 2003 01:34:30 +0200
From: Nicolas FRANCOIS (AKA El Bofo) <nicolas.francois at free.fr>
To: Liste LablGtk <lablgtk at kaba.or.jp>
Subject: Problem with GToolbox.popup_menu
Message-Id: <20030529013430.54d3f943.nicolas.francois at free.fr>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit

I used to compile correctly this sequence :

  method choisis_objet ev f typeliste =
    let l = objets_proches_filtre repere ev liste_construction typeliste
in
      match l with
	| [] -> raise TooFar
	| [d] -> f d
	| _ ->
	    let listeentree =
	      List.map
		(fun t -> `I (!t#objet_nom, (fun () -> f t)))
		l
	    in
	    GToolbox.popup_menu ~entries:listeentree
	      ~x:(ev.xint + 10) ~y:(ev.yint + 10)

But on my last upgrade og LablGtk (last CVS 2003), there is a problem :

ocamlc -c -I /usr/local/lib/ocaml/lablgtk automate.ml
File "automate.ml", line 216, characters 11-23:
Expecting function has type button:int -> time:int -> unit
This argument cannot be applied with label ~x
make[1]: *** [automate.cmo] Error 2
make[1]: Leaving directory
`/mnt/travail/caml/workinprogress/drgeocaml/courant'
make: *** [byte-code] Error 2

The problem comes from the line 

            GToolbox.popup_menu ~entries:listeentree
	      ~x:(ev.xint + 10) ~y:(ev.yint + 10)

The obvious explanation is that the format of this function has changed. I
checked the sources, but didn't see any mention of those options
button:int and time:int.

Can you help me ?

\bye

-- 

**************************************************
                  Nicolas FRANCOIS
              nicolas.francois@free.fr
           http://nicolas.francois.free.fr

  By filing this bug report you have challenged
     the honor of my family. Prepare to die !
                     (General Klingon License)
**************************************************