From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from majordomo@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id MAA11116; Wed, 25 Apr 2001 12:02:10 +0200 (MET DST)
X-Authentication-Warning: pauillac.inria.fr: majordomo set sender to owner-caml-list@pauillac.inria.fr using -f
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id MAA29291 for <caml-list@pauillac.inria.fr>; Wed, 25 Apr 2001 12:02:08 +0200 (MET DST)
Received: from faure.inria.fr (faure.inria.fr [128.93.12.23])
	by nez-perce.inria.fr (8.11.1/8.10.0) with ESMTP id f3PA27P09833
	for <caml-list@inria.fr>; Wed, 25 Apr 2001 12:02:07 +0200 (MET DST)
Received: from inria.fr (localhost [127.0.0.1])
	by faure.inria.fr (8.11.1/8.10.0) with ESMTP id f3PA27i13091
	for <caml-list@inria.fr>; Wed, 25 Apr 2001 12:02:07 +0200
Message-ID: <3AE6A09F.B995BF1F@inria.fr>
Date: Wed, 25 Apr 2001 12:02:07 +0200
From: Christophe Macabiau <christophe.macabiau@inria.fr>
Organization: Inria
X-Mailer: Mozilla 4.75 [en] (X11; U; Linux 2.2.12-20 i686)
X-Accept-Language: en
MIME-Version: 1.0
CC: caml-list@inria.fr
Subject: Re: [Caml-list] Cygwin ocaml crashes
References: <200104231416.QAA15311@ilt.fhg.de> <AAEBJHFJOIPMMIILCEPBOEBKCJAA.mattias.waldau@abc.se> <200104240700.JAA18515@ilt.fhg.de> <20010424094448.J1751@alan-schm1p.inria.fr>
Content-Type: multipart/mixed;
 boundary="------------7BA83C8D017663594000326A"
Sender: owner-caml-list@pauillac.inria.fr
Precedence: bulk

This is a multi-part message in MIME format.
--------------7BA83C8D017663594000326A
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Alan Schmitt wrote:

> Hi,
>
> I guess I went too fast sending my message yesterday. I had rebuilt a
> cvs Ocaml on a couple months old cygwin and it did not work. Then I
> got a new cygwin and it still did not work. This morning I rebuilt
> Ocaml on the new cygwin and it does work.
>
> Alan
>
> >Hi,
> >
> >I rebuilt Ocaml with the latest Cygwin version and now it works.
> >
> >Rolf
> >
>
> --
> The hacker: someone who figured things out and made something cool happen.
> -------------------
> To unsubscribe, mail caml-list-request@inria.fr.  Archives: http://caml.inria.fr

Hi,

I have the same problem (segmentation fault, STATUS_ACCESS_VIOLATION) using labltk;
I compiled ocaml 3.01 on the new cygwin 1.1.8-2. I don't have the problem of
undefined function, this works well :

$ ocaml.exe
        Objective Caml version 3.01
# fdas
  ;;
Characters 0-4:
Unbound value fdas
#quit;;
$

but when I use labltk (see the file ihm2.ml), the program crashs when I try to
erase the canvas.

Christophe

--------------7BA83C8D017663594000326A
Content-Type: text/plain; charset=us-ascii;
 name="ihm2.ml"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="ihm2.ml"

open Tk

(***********************************)
(* Pour la creation de l'interface *)
(***********************************)
let button_create ?(relief=`Raised) owner name  =
  Button.create ~relief ~text:name owner

and frame_create owner =
  Frame.create ~relief:`Groove ~borderwidth:2 owner

and menubutton_create owner name =
  Menubutton.create ~text:name owner 

(**************************************)
(* Creation d'un item texte du canvas *)
(**************************************)
let texte_create canvas (name,x,y) =
  ignore(Canvas.create_text ~x:x ~y:y ~fill:`Red ~text:name canvas)

(*******************************************)
(* Creation du canvas, creation des items  *)
(**&****************************************)
let new_def top name =
  let wgt = Toplevel.create top in
  Wm.title_set wgt name;
  let frm = Frame.create wgt in
  let cvs = Canvas.create frm in
  pack ~expand:true ~fill:`Both [cvs];
  pack ~expand:true ~fill:`Both [frm];
  let ref =[("Texte0",20,20);("Texte1",60,60);("Texte2",90,90)] in
  List.iter ~f:(function r -> texte_create cvs r) ref;

  let b = Button.create ~text:"erase" ~command:(function _ -> Canvas.delete cvs (Canvas.find cvs ~specs:[`All])) wgt in
  pack ~side:`Bottom [b]


let win = openTk();;

(******************************************)
(* Le menu...                             *)
(* Start : fonctionnement normal          *)
(* Start_Pb : probleme                    *)
(******************************************)
let start () =
  new_def win "essai" in

let quit () =
  closeTk();
  exit 0 in

let menu_bar = frame_create win in
let menu_button = menubutton_create menu_bar "Menu" in
let menu = Menu.create ~tearoff:false menu_button in
Menu.add_command ~label:"Start" ~command:start menu;
Menu.add_command ~label:"Quit" ~command:quit menu;
Menubutton.configure ~menu:menu menu_button;
pack ~side:`Top ~fill:`X [menu_bar]; 
pack ~side:`Left ~fill:`Y [menu_button]; 

mainLoop()

--------------7BA83C8D017663594000326A--

-------------------
To unsubscribe, mail caml-list-request@inria.fr.  Archives: http://caml.inria.fr