Hello ! 

I would like to know if I'm doing something wrong !?

The script at the end of this message, adapted from the example 
of GtK::XmHTML, fail to run and simply gives a segfault after 
having output: "parsed <body>". 

I'm using debian Gnu/Linux  and here is the setup of the 
libgtkhtml package

        $ dpkg -s libgtkhtml-perl 
        Package: libgtkhtml-perl
        Status: install ok installed
        Priority: optional
        Section: interpreters
        Installed-Size: 172
        Maintainer: Ximian, Inc. <debian ximian com>
        Source: Gtk-Perl
        Version: 0.7007-ximian.1
        Depends: libgnome-perl (>= 0.7000), gdk-imlib1 (>= 1.9.8), libart2 (>= 1.2.0), libaudiofile0, 
libbonobo2, libc6 (>= 2.1.2), libdb2 (>= 1:2.4.14-7), libesd0, libgal6, libgal7, libgdk-pixbuf-gnome2 (>= 
0.9.0), libgdk-pixbuf2 (>= 0.9.0), libglade-gnome0, libglade0, libglib1.2 (>= 1.2.0), libgnome32 (>= 1.2.0), 
libgnomeprint11 (>= 0.25), libgnomesupport0 (>= 1.2.0), libgnomeui32 (>= 1.2.0), libgtk1.2 (>= 1.2.0), 
libgtkhtml9, liboaf0 (>= 0.6.1), liborbit0 (>= 0.5.6), libpopt0, libunicode0, libwrap0, libxml1, libz1, 
xlib6g (>= 3.3.6-4)
        Description: Perl module for the gtkhtml library
         This module lets you use the gtkhtml library from perl.
         It is very object-oriented and easy to use.

I thank you in advance for your kind help !


#!/usr/bin/perl -w 

use Gtk; 
use Gtk::HTML;

init Gtk; 

package main;

$window = new Gtk::Window('toplevel');

$window->signal_connect("destroy" => \&Gtk::main_quit);
$window->signal_connect("delete_event" => \&Gtk::false);

my $contents = "<html>". 
    "<body><p>This is a <b>test</b></p>\n".
    "<hr />".
    "<tt>This is a test</tt>".
    "<hr />".
    "Click here <a href=\"nothing\">test message</a>".

my $html = Gtk::HTML->new(); 


my $handle = $html->begin(); 
$html->write($handle, $contents);
$html->end($handle, 'ok');


main Gtk; 


Departement de chimie physique
Laboratoire de photophysique et photochimie 
des composes de metaux de transition
Universite de Geneve -- Sciences II
30, quai Ernest-Ansermet  
CH-1211 Geneve 4 

Tel: (41) 22/702 6548 ++ Fax: (41) 22/702 6103

[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]