Date: Fri, 4 Jul 2003 14:23:50 +0100
To: lablgtk at kaba.or.jp
Subject: drawable#gc_values: segmentation fault
Message-ID: <20030704132350.GA27526 at redhat.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
From: Richard Jones <rich at annexia.org>

$ ocaml -I +lablgtk lablgtk.cma gtkInit.cmo
        Objective Caml version 3.06

# let window = GWindow.window ();;
val window : GWindow.window = <obj>
# let area = GMisc.drawing_area ~packing:window#add ();;
val area : GMisc.drawing_area = <obj>
# area#misc#realize ();;
- : unit = ()
# let drawable = new GDraw.drawable area#misc#window;;
val drawable : [ `window] GDraw.drawable = <obj>
# window#show ();;
- : unit = ()
# drawable#gc_values;;
Segmentation fault
<ocaml program quits at this point>


I tried to run the ocaml toplevel under gdb, but the results
weren't particularly enlightening. The segfault happens here:

Program received signal SIGSEGV, Segmentation fault.

[Switching to Thread 16384 (LWP 24992)]
0x08057a08 in obj_tag ()
(gdb) bt
#0  0x08057a08 in obj_tag ()
#1  0x0805b373 in interprete ()
#2  0x0805c884 in caml_main ()
#3  0x0804e73c in main ()
#4  0x400e8a51 in __libc_start_main () from /lib/libc.so.6
#5  0x0804e4a9 in _start ()

Ideas? I need to get the font associated with a drawable's graphics
context.

Rich.

-- 
Richard Jones. http://www.annexia.org/ http://freshmeat.net/users/rwmj
Merjis Ltd. http://www.merjis.com/ - all your business data are belong to you.
 All new technology is irrelevant until it is taken up by the public.