Message-ID: <55113.192.168.2.12.1146509805.squirrel at zzz.g.la>
Date: Mon, 1 May 2006 20:56:45 +0200 (CEST)
Subject: Bug report...
From: ketty at zzz.g.la
To: lablgtk at math.nagoya-u.ac.jp
Cc: "Olivier Andrieu" <oandrieu at gmail.com>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Importance: Normal
Content-Type: text/plain;charset=iso-8859-1
Content-Length: 1141

(* Hi, this is a very weird and anoying segfault i am getting with
 * lablgtk2. My version of lablgtk2 is 20040716#7 that comes with godi,
 * and ocaml is 3.09.1..
 * Tell me if you need any more information. (Please CC me as i have
 * not been able to join the list.)
 *)

(* compiled with:
 * ocamlfind ocamlc -package lablgtk2 lablgtk.cma gtkInit.cmo segf.ml
 *)

let rec forever ?(n=1) f =
  let _ = f () in
  print_string (string_of_int n ^ " ");
  flush stdout; forever ~n:(n+1) f

let connect_destroy w =
  ignore (w#misc#connect#destroy ~callback:(fun () -> ()))

(*let _ = connect_destroy
        (GButton.check_button ~packing:(GPack.vbox ())#pack ())*)
(*let _ = connect_destroy (GMisc.label ~packing:(GPack.vbox ())#pack ())*)
let _ = connect_destroy (GPack.vbox ~packing:(GPack.vbox ())#pack ())

(*let _ = forever GEdit.entry*)
(* ... 62 63 64 65 66 Segmentation fault *)

(*let _ = forever GMisc.label*)
(* ... 7519 7520 7521 7522 7523 Segmentation fault *)
(* or with check_button: *)
(* ... 188 189 190 191 192 Fatal error: exception Out_of_memory *)

let _ = forever GPack.vbox
(* ... 48 49 50 51 52 Segmentation fault *)