'
' Gade definitions based on libglade 2.x - their license below.
'
' Ported to BaCon INCLUDE file by Peter van Eerten - GPL.
'
' Version 1.0: Initial release
' Version 2.0: Improved for BaCon 3.0

' libglade - a library for building interfaces from XML files at runtime
' Copyright (C) 1998-2002  James Henstridge <james@daa.com.au>
'
' glade.h: the main include file for libglade.
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Library General Public
' License as published by the Free Software Foundation; either
' version 2 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
' Library General Public License for more details.
'
' You should have received a copy of the GNU Library General Public
' License along with this library; if not, write to the 
' Free Software Foundation, Inc., 59 Temple Place - Suite 330,
' Boston, MA  02111-1307, USA.

TRAP LOCAL
CATCH GOTO glade_handle_error

glade_LIB$ = "libglade-2.0.so"
glade_seq = -1

LABEL glade_import_retry
    INCR glade_seq
    glade_retry = FALSE
    IMPORT "glade_init" FROM glade_LIB$ TYPE char*
    IF glade_retry THEN GOTO glade_import_retry

GOTO glade_continue

LABEL glade_handle_error
    IF glade_seq IS 0 THEN glade_LIB$ = "libglade-2.0.so.0"
    ELSE glade_LIB$ = CONCAT$(LEFT$(glade_LIB$, INSTRREV(glade_LIB$, ".")), STR$(glade_seq))
    IF glade_seq < 10 THEN
	glade_retry = TRUE
    ELSE
	PRINT "No Glade library found!"
	END
    END IF
    RESUME

LABEL glade_continue

IMPORT "glade_require(char*)" FROM glade_LIB$ TYPE void
IMPORT "glade_provide(char*)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_new(char*, char*, char*)" FROM glade_LIB$ TYPE long
IMPORT "glade_xml_new_from_buffer(char*, int, char*, char*)" FROM glade_LIB$ TYPE long
IMPORT "glade_xml_construct(long,char*,char*,char*)" FROM glade_LIB$ TYPE int
IMPORT "glade_xml_construct_from_buffer(long,char*,int,char*,char*)" FROM glade_LIB$ TYPE int
IMPORT "glade_xml_signal_connect(long,char*,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_signal_connect_data(long,char*,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_signal_autoconnect(long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_get_widget(long, char*)" FROM glade_LIB$ TYPE long
IMPORT "glade_xml_get_widget_prefix(long,char*)" FROM glade_LIB$ TYPE long
IMPORT "glade_get_widget_name(long)" FROM glade_LIB$ TYPE char*
IMPORT "glade_get_widget_tree(long)" FROM glade_LIB$ TYPE long
IMPORT "glade_xml_signal_connect_full(long,char*,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_signal_autoconnect_full(long,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_set_custom_handler(long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_parser_parse_file(char*,char*)" FROM glade_LIB$ TYPE long
IMPORT "glade_parser_parse_buffer(char*,int,char*)" FROM glade_LIB$ TYPE long
IMPORT "glade_interface_destroy(long)" FROM glade_LIB$ TYPE void
IMPORT "glade_interface_dump(long,char*)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_build_widget(long,long)" FROM glade_LIB$ TYPE long
IMPORT "glade_xml_handle_internal_child(long,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_set_common_params(long,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_register_widget(int,long,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_standard_build_widget(long,int,long)" FROM glade_LIB$ TYPE long
IMPORT "glade_xml_handle_widget_prop(long,long,char*,char*)" FROM glade_LIB$ TYPE void
IMPORT "glade_standard_build_children(long,long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_set_packing_property(long,long,long,char*,char*)" FROM glade_LIB$ TYPE void
IMPORT "glade_register_custom_prop(int,char*,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_relative_file(long,char*)" FROM glade_LIB$ TYPE char*
IMPORT "glade_enum_from_string(int,char*)" FROM glade_LIB$ TYPE int
IMPORT "glade_flags_from_string(int,char*)" FROM glade_LIB$ TYPE int
IMPORT "glade_xml_set_value_from_string(long,long,char*,long)" FROM glade_LIB$ TYPE int
IMPORT "glade_xml_set_toplevel(long,long)" FROM glade_LIB$ TYPE void
IMPORT "glade_xml_ensure_accel(long)" FROM glade_LIB$ TYPE long

TRAP SYSTEM
CATCH RESET