* delete old pkg gtk, is now gtk1

git-svn-id: trunk@9992 -

.gitattributes

@@ -1363,160 +1363,6 @@ packages/extra/graph/unix/graph16.inc svneol=native#text/plain
 packages/extra/graph/win32/graph.pp svneol=native#text/plain
 packages/extra/graph/win32/wincrt.pp svneol=native#text/plain
 packages/extra/graph/win32/winmouse.pp svneol=native#text/plain
-packages/extra/gtk/Makefile.fpc svneol=native#text/plain
-packages/extra/gtk/README -text
-packages/extra/gtk/examples/Makefile.fpc svneol=native#text/plain
-packages/extra/gtk/examples/clist.pp svneol=native#text/plain
-packages/extra/gtk/examples/editform.pp svneol=native#text/plain
-packages/extra/gtk/examples/entry.pp svneol=native#text/plain
-packages/extra/gtk/examples/filesel.pp svneol=native#text/plain
-packages/extra/gtk/examples/list.pp svneol=native#text/plain
-packages/extra/gtk/examples/notebook.pp svneol=native#text/plain
-packages/extra/gtk/examples/paned.pp svneol=native#text/plain
-packages/extra/gtk/examples/pixmap.pp svneol=native#text/plain
-packages/extra/gtk/examples/progressbar.pp svneol=native#text/plain
-packages/extra/gtk/examples/rulers.pp svneol=native#text/plain
-packages/extra/gtk/examples/scribble.pp svneol=native#text/plain
-packages/extra/gtk/examples/spinbutton.pp svneol=native#text/plain
-packages/extra/gtk/examples/statusbar.pp svneol=native#text/plain
-packages/extra/gtk/examples/tictactoe.pp svneol=native#text/plain
-packages/extra/gtk/examples/toolbar.pp svneol=native#text/plain
-packages/extra/gtk/examples/ttt_test.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/Makefile.fpc svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/info.xpm -text
-packages/extra/gtk/examples/tutorial/tut2_1.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut3_3.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut4_3.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut4_5.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut6_1.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut6_2.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut6_3.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut6_4.pp svneol=native#text/plain
-packages/extra/gtk/examples/tutorial/tut8_5.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdk.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdkkeysyms.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdkmain.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdkpixbuf.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdkprivate.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdkrgb.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdktypes.pp svneol=native#text/plain
-packages/extra/gtk/gdk/gdkx.pp svneol=native#text/plain
-packages/extra/gtk/glib/glib.pp svneol=native#text/plain
-packages/extra/gtk/glib/gmodule.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtk.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkaccelerator.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkaccelgroup.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkaccellabel.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkadjustment.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkalignment.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkarg.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkarrow.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkaspectframe.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkbbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkbin.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkbindings.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkbutton.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcalendar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcheckbutton.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcheckmenuitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkclist.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcolorsel.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcombo.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcontainer.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkctree.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkcurve.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkdata.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkdialog.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkdnd.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkdrawingarea.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkeditable.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkentry.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkenums.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkeventbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkfeatures.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkfilesel.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkfixed.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkfontsel.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkframe.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkgamma.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkgc.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhandlebox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhbbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhpaned.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhruler.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhscale.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhscrollbar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkhseparator.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkimage.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkincludes.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkinputdialog.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkinvisible.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkitemfactory.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtklabel.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtklayout.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtklist.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtklistitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmain.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmarshal.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmenu.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmenubar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmenufactory.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmenuitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmenushell.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkmisc.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtknotebook.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkobjects.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkoptionmenu.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkpacker.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkpaned.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkpixmap.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkplug.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkpreview.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkprivate.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkprogress.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkprogressbar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkradiobutton.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkradiomenuitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkrange.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkrc.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkruler.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkscale.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkscrollbar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkscrolledwindow.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkselection.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkseparator.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtksignal.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtksocket.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkspinbutton.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkstatusbar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkstyle.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktable.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktearoffmenuitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktext.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkthemes.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktipsquery.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktogglebutton.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktoolbar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktooltips.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktree.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktreeitem.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtktypeutils.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvbbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvbox.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkviewport.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvpaned.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvruler.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvscale.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvscrollbar.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkvseparator.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkwidget.pp svneol=native#text/plain
-packages/extra/gtk/gtk/gtkwindow.pp svneol=native#text/plain
-packages/extra/gtk/gtkgl/Makefile.fpc svneol=native#text/plain
-packages/extra/gtk/gtkgl/gtkglarea.pp svneol=native#text/plain
-packages/extra/gtk/gtkgl/gtkgldemo.pp svneol=native#text/plain
 packages/extra/hermes/Makefile -text
 packages/extra/hermes/Makefile.fpc -text
 packages/extra/hermes/clear.inc -text

.gitignore

@@ -764,55 +764,6 @@ packages/extra/graph/inc/*.s
 packages/extra/graph/inc/fpcmade.*
 packages/extra/graph/inc/units
 packages/extra/graph/units
-packages/extra/gtk/*.bak
-packages/extra/gtk/*.exe
-packages/extra/gtk/*.o
-packages/extra/gtk/*.ppu
-packages/extra/gtk/*.s
-packages/extra/gtk/examples/*.bak
-packages/extra/gtk/examples/*.exe
-packages/extra/gtk/examples/*.o
-packages/extra/gtk/examples/*.ppu
-packages/extra/gtk/examples/*.s
-packages/extra/gtk/examples/fpcmade.*
-packages/extra/gtk/examples/tutorial/*.bak
-packages/extra/gtk/examples/tutorial/*.exe
-packages/extra/gtk/examples/tutorial/*.o
-packages/extra/gtk/examples/tutorial/*.ppu
-packages/extra/gtk/examples/tutorial/*.s
-packages/extra/gtk/examples/tutorial/fpcmade.*
-packages/extra/gtk/examples/tutorial/units
-packages/extra/gtk/examples/units
-packages/extra/gtk/fpcmade.*
-packages/extra/gtk/gdk/*.bak
-packages/extra/gtk/gdk/*.exe
-packages/extra/gtk/gdk/*.o
-packages/extra/gtk/gdk/*.ppu
-packages/extra/gtk/gdk/*.s
-packages/extra/gtk/gdk/fpcmade.*
-packages/extra/gtk/gdk/units
-packages/extra/gtk/glib/*.bak
-packages/extra/gtk/glib/*.exe
-packages/extra/gtk/glib/*.o
-packages/extra/gtk/glib/*.ppu
-packages/extra/gtk/glib/*.s
-packages/extra/gtk/glib/fpcmade.*
-packages/extra/gtk/glib/units
-packages/extra/gtk/gtk/*.bak
-packages/extra/gtk/gtk/*.exe
-packages/extra/gtk/gtk/*.o
-packages/extra/gtk/gtk/*.ppu
-packages/extra/gtk/gtk/*.s
-packages/extra/gtk/gtk/fpcmade.*
-packages/extra/gtk/gtk/units
-packages/extra/gtk/gtkgl/*.bak
-packages/extra/gtk/gtkgl/*.exe
-packages/extra/gtk/gtkgl/*.o
-packages/extra/gtk/gtkgl/*.ppu
-packages/extra/gtk/gtkgl/*.s
-packages/extra/gtk/gtkgl/fpcmade.*
-packages/extra/gtk/gtkgl/units
-packages/extra/gtk/units
 packages/extra/hermes/*.bak
 packages/extra/hermes/*.exe
 packages/extra/hermes/*.o

packages/extra/gtk/Makefile.fpc

@@ -1,39 +0,0 @@
-#
-#   Makefile.fpc for Free Pascal GTK 1.2.x Bindings
-#
-
-[package]
-name=gtk
-version=2.0.0
-
-[require]
-libc=y
-
-[target]
-dirs=gtkgl
-units=glib gmodule gdk gtk gdkpixbuf
-exampledirs=examples
-
-[compiler]
-sourcedir=glib gdk gtk
-
-[install]
-fpcpackage=y
-
-[default]
-fpcdir=../../..
-
-[shared]
-build=n
-
-[rules]
-.NOTPARALLEL:
-glib$(PPUEXT): $(wildcard glib/glib*.pp)
-
-gmodule$(PPUEXT): $(wildcard glib/gmodule*.pp) glib$(PPUEXT)
-
-gdk$(PPUEXT): $(wildcard gdk/gdk*.pp) glib$(PPUEXT)
-
-gdkpixbuf$(PPUEXT): gdk/gdkpixbuf.pp gdk$(PPUEXT)
-
-gtk$(PPUEXT): $(wildcard gtk/gtk*.pp) gdk$(PPUEXT)

packages/extra/gtk/README

@@ -1,81 +0,0 @@
-Free Pascal interface to GDK/GTK
-================================
-
-Prerequisites:
---------------
-
-In order for the makefile to work, you NEED the following file:
-  makefile.fpc
-and it MUST be located in the directory above this directory.
-
-If you have this file on another place in your directory tree, just 
-set the FPCDIR variable so it points to that directory.
-  (e.g. FPCDIR=/usr/lib/fpc/0.99.13; export FPCDIR in bash, or
-        SETENV FPCDIR /usr/lib/fpc/0.99.13 in csh)
-
-If you don't have this file, you can get it from
-  ftp://tflily.fys.kuleuven.ac.be/pub/fpc/source/base.zip
-or one of the mirrors.
- 
-Compiling the units:
---------------------
-
-there are 4 targets for the makefile
-
-make all      : compile all units
-make install  : make all first and then install the units
-make examples : compile the examples
-make clean    : clean up object and unit files.
-
-
-Using the units:
-----------------
-
-1) In C, you only need to input gtk.h. Here you need to input all files
-   that you're likely to use, so you may have to experiment.
-
-2) Names :
-   + Pascal reserved words in types, record element names etc. have been
-     prepended with the word 'the'. so 'label' has become 'thelabel'
-   + functions have been kept with the same names.
-   + for types : gdk names have been kept. Pointers to a type are defined
-     as the type name, prepended with P. So 'GtkWidget *' becomes
-     'PGtkWidget'.
-     In gtkobject, names also have been kept.
-     In all other files, types have been prepended with T, that is, the C
-     type 'GtkWidget' has become 'TGtkWidget'
-     
-     This is annoying, but C is case sensitive, and Pascal is not, so
-     there you have it...
-     
-     When translating, I've tried to stick to this scheme as closely as I
-     could. One day, however, all will be done in a uniform manner...
-
-3) Macros. Many C macros have not been translated. The typecasting macros 
-   have been dropped, since they're useless under pascal.
-   Macros to access record members have been translated, BUT they are 
-   to be considered as READ-ONLY. So they can be used to retrieve a value,
-   but not to store one.
-   e.g.
-      function GTK_WIDGET_FLAGS(wid : pgtkwidget) : longint;
-   can be used to retrieve the widget flags, but not to set them.
-   so things like 
-     GTK_WIDGET_FLAGS(wid):=GTK_WIDGET_FLAGS(wid) and someflag;
-   will not work, since this is a function, and NOT a macro as in C.
-  
-4) Packed records. GCC allows you to specify members of a record in
-   bit format. Since this is impossible in pascal, functions and procedures
-   to get/set these elements have been made.
-   e.g.
-     function width_set(var a : TGtkCListColumn) : gint;
-     procedure set_width_set(var a : TGtkCListColumn; __width_set : gint);
-   can be used to get or set the width in a TGtkCListColumn...
-   in general, it's the name with '_set' appended for getting a value
-   (set from 'a set') , and  'set_' prepended (from 'to set') and again
-   '_set' appended.
-   
-   
-And that is about all there is to say about it.
-
-Enjoy !
-Michael.

packages/extra/gtk/examples/Makefile.fpc

@@ -1,23 +0,0 @@
-#
-#   Makefile.fpc for Free Pascal GTK 1.2.x Examples
-#
-
-[target]
-dirs=tutorial
-programs=entry notebook scribble clist ttt_test pixmap list progressbar filesel \
-         statusbar toolbar rulers spinbutton
-
-[require]
-packages=gtk
-
-[clean]
-units=tictactoe
-
-[install]
-fpcpackage=y
-
-[default]
-fpcdir=../../../..
-
-[rules]
-.NOTPARALLEL:

packages/extra/gtk/examples/clist.pp

@@ -1,144 +0,0 @@
-{
-
-  This file extracted from the Gtk tutorial.
-  clist.c
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program clist;
-uses
-  glib,Gdk,Gtk;
-
-{ User clicked the 'Add List' button. }
-procedure button_add_clicked (data: PGtkCList ); cdecl;
-{ Something silly to add to the list. 4 rows of 2 columns each }
-const drink : array[0..3,0..1] of Pgchar =
-  (('Milk', '3 Oz'),
-   ('Water', '6 l'),
-   ('Carrots', '2'),
-   ('Snakes', '55'));
-var indx : integer ;
-begin
-  { Here we do the actual adding of the text. It's done once for
-    each row. }
-  for indx:=0 to 3 do
-    gtk_clist_append (data, @drink[indx]);
-end;
-
-{ User clicked the 'Clear List' button. }
-procedure button_clear_clicked (data : PGtkCList ); cdecl;
-begin
-  { Clear the list using gtk_clist_clear. This is much faster than
-    calling gtk_clist_remove once for each row. }
-  gtk_clist_clear (data);
-end;
-
-{ The user clicked the 'Hide/Show titles' button. }
-procedure button_hide_show_clicked (data : PGtkCList ); cdecl;
-const flag:integer = 0;
-begin
-  { Just a flag to remember the status. 0 = currently visible }
-
-  if flag = 0 then begin
-        { Hide the titles and set the flag to 1 }
-        gtk_clist_column_titles_hide (data);
-        inc (flag);
-  end else begin
-    { Show the titles and reset flag to 0 }
-    gtk_clist_column_titles_show (data);
-    dec (flag);
-  end;
-end;
-
-{ If we come here, then the user has selected a row in the list. }
-procedure selection_made (thelist : PGtkCLIST ; row, column: gint;
-                          event :  PGdkEventButton ; data : gpointer); cdecl;
-var text : Pgchar;
-begin
-  { Get the text that is stored in the selected row and column
-    which was clicked in. We will receive it as a pointer in the
-    argument text. }
-  gtk_clist_get_text(thelist, row, column, @text);
-
-  { Just prints some information about the selected row }
-  writeln ('You selected row ',row,
-           '. More specifically you clicked in column ',column,
-           ', and the text in this cell is ',text,#10);
-end;
-
-const
-  titles: array[0..1] of Pgchar = ('Ingredients','Amount');
-var
-  window,vbox,hbox,scroll, thelist,
-  button_add, button_clear,button_hide_show : PGtkWidget;
-begin
-  gtk_init (@argc, @argv);
-  gtk_rc_init;
-
-  window := gtk_window_new(gtk_WINDOW_TOPLEVEL);
-  gtk_widget_set_usize(PGtkWIDGET(window), 300, 150);
-
-  gtk_window_set_title(PGtkWINDOW(window), 'GtkCList Example');
-  gtk_signal_connect(PGtkOBJECT(window),'destroy',
-                     tGtksignalfunc(@gtk_main_quit),
-                     NIL);
-
-  vbox := gtk_vbox_new(false, 5);
-  gtk_container_set_border_width(PGtkCONTAINER(vbox), 5);
-  gtk_container_add(PGtkCONTAINER(window), vbox);
-
-  { Create the ScrolledWindow to pack the CList in. }
-  scroll := gtk_scrolled_window_new (NULL,NULL);
-  gtk_scrolled_window_set_policy (PGtkSCROLLEDWINDOW(scroll),
-                                  GTK_POLICY_AUTOMATIC, GTK_POLICY_ALWAYS);
-  gtk_box_pack_start(PGtkBOX(vbox), scroll, true, true, 0);
-
-  { Create the GtkCList. For this example we use 2 columns }
-  thelist := gtk_clist_new_with_titles (2,titles);
-  gtk_container_add (PGtkContainer(scroll),thelist);
-
-  { When a selection is made, we want to know about it. The callback
-    used is selection_made, and it's code can be found above }
-  gtk_signal_connect(PGtkOBJECT(thelist), 'select_row',
-                     tGtksignalfunc(@selection_made),
-                     NIL);
-
-  { It isn't necessary to shadow the border, but it looks nice :) }
-  gtk_clist_set_shadow_type(PGtkCLIST(thelist), gtk_SHADOW_OUT);
-
-  { What however is important, is that we set the column widths as
-    they will never be right otherwise. Note that the columns are
-    numbered from 0 and up (to 1 in this case). }
-  gtk_clist_set_column_width (PGtkCLIST(thelist), 0, 150);
-  gtk_clist_set_column_width (PGtkCLIST(thelist), 1, 100);
-
-  { Create the buttons and add them to the window. See the button
-    tutorial for more examples and comments on this. }
-  hbox := gtk_hbox_new(false, 0);
-  gtk_box_pack_start(PGtkBOX(vbox), hbox, false, true, 0);
-
-  button_add := gtk_button_new_with_label('Add List');
-  button_clear := gtk_button_new_with_label('Clear List');
-  button_hide_show := gtk_button_new_with_label('Hide/Show titles');
-
-  gtk_box_pack_start (PGtkBOX(hbox), button_add, true, true, 0);
-  gtk_box_pack_start (PGtkBOX(hbox), button_clear, true, true, 0);
-  gtk_box_pack_start (PGtkBOX(hbox), button_hide_show, true, true, 0);
-
-  { Connect our callbacks to the three buttons }
-  gtk_signal_connect_object(PGtkOBJECT(button_add), 'clicked',
-                            tGtksignalfunc(@button_add_clicked),
-                            gpointer(thelist));
-  gtk_signal_connect_object(PGtkOBJECT(button_clear), 'clicked',
-                            tGtksignalfunc(@button_clear_clicked),
-                            gpointer (thelist));
-  gtk_signal_connect_object(PGtkOBJECT(button_hide_show), 'clicked',
-                            tGtksignalfunc(@button_hide_show_clicked),
-                            gpointer (thelist));
-
-  { The interface is completely set up so we show all the widgets and
-    enter the gtk_main loop }
-  gtk_widget_show_all(window);
-  gtk_main();
-end.

packages/extra/gtk/examples/editform.pp

@@ -1,324 +0,0 @@
-{
-
-  This file was created with Glade and comes originally from
-  the examples which are delivered with Glade
-}
-
-program editform;
-uses
-  glib,gdk,gtk;
-
-function get_widget(widget:PGtkWidget;widget_name:pchar):PGtkWidget;
-var
-  found_widget : PGtkWidget;
-begin
-  if assigned(widget^.parent) then
-    widget := gtk_widget_get_toplevel (widget);
-  found_widget := gtk_object_get_data (PGtkObject(widget),widget_name);
-  {if not assigned(found_widget) then
-    g_warning ("Widget not found: %s", widget_name);}
-  get_widget := found_widget;
-end;
-
-{ This is an internally used function to set notebook tab widgets. }
-procedure set_notebook_tab(notebook:PGtkWidget;page_num:gint;widget:PGtkWidget);
-var
-  page : PGtkNotebookPage;
-  notebook_page : PGtkWidget;
-begin
-  page := g_list_nth (PGtkNoteBook(notebook)^.children, page_num)^.data;
-  notebook_page := page^.child;
-  gtk_widget_ref (notebook_page);
-  gtk_notebook_remove_page (PGtkNoteBook(notebook), page_num);
-  gtk_notebook_insert_page (PGtkNoteBook(notebook), notebook_page, widget, page_num);
-  gtk_widget_unref (notebook_page);
-end;
-
-Function create_window1:PGtkWidget;
-var
-  tooltips : PGtkTooltips;
-  window1 : PGtkWidget;
-  scrolledwindow1 : PGtkWidget;
-  table1 : PGtkWidget;
-  menubar1 : PGtkWidget;
-  checkbutton1 : PGtkWidget;
-  frame5 : PGtkWidget;
-  table4 : PGtkWidget;
-  text7 : PGtkWidget;
-  entry7 : PGtkWidget;
-  label15 : PGtkWidget;
-  frame4 : PGtkWidget;
-  text6 : PGtkWidget;
-  frame3 : PGtkWidget;
-  table3 : PGtkWidget;
-  text5 : PGtkWidget;
-  entry6 : PGtkWidget;
-  label14 : PGtkWidget;
-  frame2 : PGtkWidget;
-  table2 : PGtkWidget;
-  entry5 : PGtkWidget;
-  label13 : PGtkWidget;
-  label12 : PGtkWidget;
-  optionmenu6 : PGtkWidget;
-  optionmenu6_menu : PGtkWidget;
-  glade_menuitem : PGtkWidget;
-  optionmenu4 : PGtkWidget;
-  optionmenu4_menu : PGtkWidget;
-  frame1 : PGtkWidget;
-  text2 : PGtkWidget;
-  optionmenu2 : PGtkWidget;
-  optionmenu2_menu : PGtkWidget;
-  label1 : PGtkWidget;
-  optionmenu1 : PGtkWidget;
-  optionmenu1_menu : PGtkWidget;
-begin
-  tooltips:=gtk_tooltips_new();
-  window1 := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-  gtk_object_set_data (GTK_OBJECT (window1), 'window1', window1);
-  gtk_widget_set_usize (window1, 600, 400);
-  gtk_window_set_title (GTK_WINDOW (window1), 'Auslandszahlung');
-  gtk_window_set_policy (GTK_WINDOW (window1), gint(true), gint(true), gint(false));
-  gtk_signal_connect(GTK_OBJECT(window1),'destroy',GTK_SIGNAL_FUNC(@gtk_main_quit),nil);
-
-  scrolledwindow1 := gtk_scrolled_window_new (nil, nil);
-  gtk_object_set_data (GTK_OBJECT (window1), 'scrolledwindow1', scrolledwindow1);
-  gtk_widget_show (scrolledwindow1);
-  gtk_container_add (GTK_CONTAINER (window1), scrolledwindow1);
-  gtk_viewport_set_shadow_type (GTK_VIEWPORT (GTK_SCROLLED_WINDOW (scrolledwindow1)^.viewport), GTK_SHADOW_NONE);
-  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolledwindow1), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
-
-  table1 := gtk_table_new (9, 3, gint(false));
-  gtk_object_set_data (GTK_OBJECT (window1), 'table1', table1);
-  gtk_widget_show (table1);
-  gtk_container_add (GTK_CONTAINER (scrolledwindow1), table1);
-
-  menubar1 := gtk_menu_bar_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'menubar1', menubar1);
-  gtk_widget_show (menubar1);
-  gtk_table_attach (GTK_TABLE (table1), menubar1, 0, 3, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-
-  checkbutton1 := gtk_check_button_new_with_label ('Wahreneinfuhr');
-  gtk_object_set_data (GTK_OBJECT (window1), 'checkbutton1', checkbutton1);
-  gtk_widget_show (checkbutton1);
-  gtk_table_attach (GTK_TABLE (table1), checkbutton1, 0, 3, 8, 9,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_toggle_button_set_state (GTK_TOGGLE_BUTTON (checkbutton1), gint(true));
-
-  frame5 := gtk_frame_new ('Beg'#252'nstigter');
-  gtk_object_set_data (GTK_OBJECT (window1), 'frame5', frame5);
-  gtk_widget_show (frame5);
-  gtk_table_attach (GTK_TABLE (table1), frame5, 0, 3, 5, 6,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_frame_set_label_align (GTK_FRAME (frame5), 0.1, 0.5);
-
-  table4 := gtk_table_new (2, 2, gint(false));
-  gtk_object_set_data (GTK_OBJECT (window1), 'table4', table4);
-  gtk_widget_show (table4);
-  gtk_container_add (GTK_CONTAINER (frame5), table4);
-
-  text7 := gtk_text_new (nil, nil);
-  gtk_object_set_data (GTK_OBJECT (window1), 'text7', text7);
-  gtk_widget_show (text7);
-  gtk_table_attach (GTK_TABLE (table4), text7, 0, 2, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_text_set_editable (GTK_TEXT (text7), gint(true));
-
-  entry7 := gtk_entry_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'entry7', entry7);
-  gtk_widget_show (entry7);
-  gtk_table_attach (GTK_TABLE (table4), entry7, 1, 2, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-
-  label15 := gtk_label_new ('Konto-Nr.:');
-  gtk_object_set_data (GTK_OBJECT (window1), 'label15', label15);
-  gtk_widget_show (label15);
-  gtk_table_attach (GTK_TABLE (table4), label15, 0, 1, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-
-  frame4 := gtk_frame_new ('Bank des Beg'#252'nstigten');
-  gtk_object_set_data (GTK_OBJECT (window1), 'frame4', frame4);
-  gtk_widget_show (frame4);
-  gtk_table_attach (GTK_TABLE (table1), frame4, 0, 3, 4, 5,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_frame_set_label_align (GTK_FRAME (frame4), 0.1, 0.5);
-
-  text6 := gtk_text_new (nil, nil);
-  gtk_object_set_data (GTK_OBJECT (window1), 'text6', text6);
-  gtk_widget_show (text6);
-  gtk_container_add (GTK_CONTAINER (frame4), text6);
-  gtk_text_set_editable (GTK_TEXT (text6), gint(true));
-
-  frame3 := gtk_frame_new ('Auftraggeber');
-  gtk_object_set_data (GTK_OBJECT (window1), 'frame3', frame3);
-  gtk_widget_show (frame3);
-  gtk_table_attach (GTK_TABLE (table1), frame3, 0, 3, 3, 4,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_frame_set_label_align (GTK_FRAME (frame3), 0.1, 0.5);
-
-  table3 := gtk_table_new (2, 2, gint(false));
-  gtk_object_set_data (GTK_OBJECT (window1), 'table3', table3);
-  gtk_widget_show (table3);
-  gtk_container_add (GTK_CONTAINER (frame3), table3);
-
-  text5 := gtk_text_new (nil, nil);
-  gtk_object_set_data (GTK_OBJECT (window1), 'text5', text5);
-  gtk_widget_show (text5);
-  gtk_table_attach (GTK_TABLE (table3), text5, 0, 2, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_text_set_editable (GTK_TEXT (text5), gint(true));
-  gtk_widget_realize (text5);
-  gtk_text_insert (GTK_TEXT (text5), nil, nil, nil,
-                   'Adresse', 7);
-
-  entry6 := gtk_entry_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'entry6', entry6);
-  gtk_widget_show (entry6);
-  gtk_table_attach (GTK_TABLE (table3), entry6, 1, 2, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-
-  label14 := gtk_label_new ('Konto-Nr.:');
-  gtk_object_set_data (GTK_OBJECT (window1), 'label14', label14);
-  gtk_widget_show (label14);
-  gtk_table_attach (GTK_TABLE (table3), label14, 0, 1, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-
-  frame2 := gtk_frame_new ('Betrag');
-  gtk_object_set_data (GTK_OBJECT (window1), 'frame2', frame2);
-  gtk_widget_show (frame2);
-  gtk_table_attach (GTK_TABLE (table1), frame2, 0, 3, 2, 3,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_frame_set_label_align (GTK_FRAME (frame2), 0.1, 0.5);
-
-  table2 := gtk_table_new (2, 2, gint(false));
-  gtk_object_set_data (GTK_OBJECT (window1), 'table2', table2);
-  gtk_widget_show (table2);
-  gtk_container_add (GTK_CONTAINER (frame2), table2);
-
-  entry5 := gtk_entry_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'entry5', entry5);
-  gtk_widget_show (entry5);
-  gtk_table_attach (GTK_TABLE (table2), entry5, 1, 2, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_tooltips_set_tip (tooltips, entry5, 'Betrag in der jeweiligen W'#228'hrung', nil);
-  gtk_entry_set_text (GTK_ENTRY (entry5), 'Some Text');
-
-  label13 := gtk_label_new ('Betrag in Worten');
-  gtk_object_set_data (GTK_OBJECT (window1), 'label13', label13);
-  gtk_widget_show (label13);
-  gtk_table_attach (GTK_TABLE (table2), label13, 1, 2, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_tooltips_set_tip (tooltips, label13, 'wird automatisch erstellt', nil);
-
-  label12 := gtk_label_new ('in Worten');
-  gtk_object_set_data (GTK_OBJECT (window1), 'label12', label12);
-  gtk_widget_show (label12);
-  gtk_table_attach (GTK_TABLE (table2), label12, 0, 1, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_tooltips_set_tip (tooltips, label12, 'Betrag in Worten, wird automatisch gef'#252'llt', nil);
-
-  optionmenu6 := gtk_option_menu_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu6', optionmenu6);
-  gtk_widget_show (optionmenu6);
-  gtk_table_attach (GTK_TABLE (table2), optionmenu6, 0, 1, 0, 1,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_tooltips_set_tip (tooltips, optionmenu6, 'W'#228'hrung', nil);
-  optionmenu6_menu := gtk_menu_new ();
-  glade_menuitem := gtk_menu_item_new_with_label ('DEM');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu6_menu), glade_menuitem);
-  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu6), optionmenu6_menu);
-
-  optionmenu4 := gtk_option_menu_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu4', optionmenu4);
-  gtk_widget_show (optionmenu4);
-  gtk_table_attach (GTK_TABLE (table1), optionmenu4, 0, 3, 7, 8,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  optionmenu4_menu := gtk_menu_new ();
-  glade_menuitem := gtk_menu_item_new_with_label ('Ihre Kosten/Spesen zu Lasten des Auftraggebers');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('Ihre Kosten/Spesen zu Lasten des Beg'#252'nstigten');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('Fremde Kosten zu Lasten des Auftraggebers');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('Fremde Kosten zu Lasten des Beg'#252'nstigten');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu4_menu), glade_menuitem);
-  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu4), optionmenu4_menu);
-
-  frame1 := gtk_frame_new ('Verwendungszweck');
-  gtk_object_set_data (GTK_OBJECT (window1), 'frame1', frame1);
-  gtk_widget_show (frame1);
-  gtk_table_attach (GTK_TABLE (table1), frame1, 0, 3, 6, 7,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  gtk_frame_set_label_align (GTK_FRAME (frame1), 0.1, 0.5);
-
-  text2 := gtk_text_new (nil, nil);
-  gtk_object_set_data (GTK_OBJECT (window1), 'text2', text2);
-  gtk_widget_show (text2);
-  gtk_container_add (GTK_CONTAINER (frame1), text2);
-  gtk_text_set_editable (GTK_TEXT (text2), gint(true));
-
-  optionmenu2 := gtk_option_menu_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu2', optionmenu2);
-  gtk_widget_show (optionmenu2);
-  gtk_table_attach (GTK_TABLE (table1), optionmenu2, 2, 3, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  optionmenu2_menu := gtk_menu_new ();
-  glade_menuitem := gtk_menu_item_new_with_label ('DM-Kontos');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu2_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('W'#228'hrungs-Kontos');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu2_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('W'#228'hrungs-Termin-Kontos');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu2_menu), glade_menuitem);
-  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu2), optionmenu2_menu);
-
-  label1 := gtk_label_new ('zu Lasten des');
-  gtk_object_set_data (GTK_OBJECT (window1), 'label1', label1);
-  gtk_widget_show (label1);
-  gtk_table_attach (GTK_TABLE (table1), label1, 1, 2, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-
-  optionmenu1 := gtk_option_menu_new ();
-  gtk_object_set_data (GTK_OBJECT (window1), 'optionmenu1', optionmenu1);
-  gtk_widget_show (optionmenu1);
-  gtk_table_attach (GTK_TABLE (table1), optionmenu1, 0, 1, 1, 2,
-                    GTK_EXPAND or GTK_SHRINK or GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0);
-  optionmenu1_menu := gtk_menu_new ();
-  glade_menuitem := gtk_menu_item_new_with_label ('Zahlung');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu1_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('Akkreditiv');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu1_menu), glade_menuitem);
-  glade_menuitem := gtk_menu_item_new_with_label ('Inkasso-Einl'#246'sung');
-  gtk_widget_show (glade_menuitem);
-  gtk_menu_append (GTK_MENU (optionmenu1_menu), glade_menuitem);
-  gtk_option_menu_set_menu (GTK_OPTION_MENU (optionmenu1), optionmenu1_menu);
-
-  exit(window1);
-end;
-
-var
-  window1 : PGtkWidget;
-begin
-  gtk_set_locale ();
-  gtk_init (@argc, @argv);
-  gtk_rc_init;
-
-  {
-    The following code was added by Glade to create one of each component
-    (except popup menus), just so that you see something after building
-    the project. Delete any components that you don't want shown initially.
-  }
-  window1 := create_window1 ();
-  gtk_widget_show (window1);
-
-  gtk_main ();
-end.

packages/extra/gtk/examples/entry.pp

@@ -1,94 +0,0 @@
-{
-
-  This file extracted from the Gtk tutorial.
-  entry.c
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program entry;
-uses
-  glib,Gdk,Gtk;
-
-procedure enter_callback(widget,entry : PGtkWidget);cdecl;
-var
-  entry_text : Pgchar;
-begin
-  entry_text := gtk_entry_get_text(PGtkEntry(entry));
-  writeln ('Entry contents: ',entry_text);
-end;
-
-
-procedure entry_toggle_editable (checkbutton, entry: PGtkWidget);cdecl;
-begin
-  gtk_entry_set_editable(PGtkEntry(entry),
-                         gboolean(active(PGtkToggleButton(checkbutton)^)));
-end;
-
-
-procedure entry_toggle_visibility (checkbutton,entry : PGtkWidget);cdecl;
-begin
-  gtk_entry_set_visibility(PGtkENTRY(entry),
-                           gboolean(active(PGtkToggleButton(checkbutton)^)));
-end;
-
-
-var window, vbox, hbox,
-  fentry, button, check : PGtkWidget;
-begin
-  gtk_init (@argc, @argv);
-
-  { create a new window }
-  window := gtk_window_new(gtk_WINDOW_TOPLEVEL);
-  gtk_widget_set_usize( PGtkWIDGET (window), 200, 100);
-  gtk_window_set_title(PGtkWINDOW (window), 'Gtk Entry');
-  gtk_signal_connect(PGtkOBJECT (window), 'delete_event',
-                     gtk_SIGNAL_FUNC (@gtk_exit), NIL);
-
-  vbox := gtk_vbox_new (false, 0);
-  gtk_container_add (PGtkCONTAINER (window), vbox);
-  gtk_widget_show (vbox);
-
-  fentry := gtk_entry_new_with_max_length (50);
-  gtk_signal_connect(PGtkOBJECT(fentry), 'activate',
-                     gtk_SIGNAL_FUNC(@enter_callback),
-                     fentry);
-  gtk_entry_set_text (PGtkENTRY (fentry), 'hello');
-  gtk_entry_append_text (PGtkENTRY (fentry), ' world');
-  gtk_entry_select_region (PGtkENTRY (fentry),
-                           0, PGtkENTRY(fentry)^.text_length);
-  gtk_box_pack_start (PGtkBOX (vbox), fentry, true, true, 0);
-  gtk_widget_show (fentry);
-
-  hbox := gtk_hbox_new (false, 0);
-  gtk_container_add (PGtkCONTAINER (vbox), hbox);
-  gtk_widget_show (hbox);
-
-  check := gtk_check_button_new_with_label('Editable');
-  gtk_box_pack_start (PGtkBOX (hbox), check, true, true, 0);
-  gtk_signal_connect (PGtkOBJECT(check), 'toggled',
-                      gtk_SIGNAL_FUNC(@entry_toggle_editable), fentry);
-  gtk_toggle_button_set_active(PGtkTOGGLEBUTTON(check), true);
-  gtk_widget_show (check);
-
-  check := gtk_check_button_new_with_label('Visible');
-  gtk_box_pack_start (PGtkBOX (hbox), check, true, true, 0);
-  gtk_signal_connect (PGtkOBJECT(check), 'toggled',
-                      gtk_SIGNAL_FUNC(@entry_toggle_visibility), fentry);
-  gtk_toggle_button_set_active(PGtkTOGGLEBUTTON(check), true);
-  gtk_widget_show (check);
-
-  button := gtk_button_new_with_label ('Close');
-  gtk_signal_connect_object (PGtkOBJECT (button), 'clicked',
-                             gtk_SIGNAL_FUNC(@gtk_exit),
-                             PGtkOBJECT (window));
-  gtk_box_pack_start (PGtkBOX (vbox), button, true, true, 0);
-
-  GTK_WIDGET_SET_FLAGS (button, gtk_CAN_DEFAULT);
-  gtk_widget_grab_default (button);
-  gtk_widget_show (button);
-
-  gtk_widget_show(window);
-
-  gtk_main();
-end.

packages/extra/gtk/examples/filesel.pp

@@ -1,54 +0,0 @@
-{
-
-  Converted from C to Pascal by Javier Ros <[email protected]>
-}
-program filesel;
-
-uses
- glib,gdk,gtk;
-
-(* Get the selected filename and print it to the console *)
-procedure file_ok_sel( w:PGtkWidget;
-                  fs:PGtkFileSelection );cdecl;
-begin
-    writeln ( gtk_file_selection_get_filename (GTK_FILE_SELECTION (fs)));
-end;
-
-procedure destroy( widget:PGtkWidget;
-              data: gpointer);cdecl;
-begin
-    gtk_main_quit ();
-end;
-
-
-var
- filew:PGtkWidget ;
-
-
-begin
-
-    gtk_init (@argc, @argv);
-
-    (* Create a new file selection widget *)
-    filew := gtk_file_selection_new ('File selection');
-
-    gtk_signal_connect (GTK_OBJECT (filew), 'destroy',
-                        GTK_SIGNAL_FUNC (@destroy), @filew);
-    (* Connect the ok_button to file_ok_sel function *)
-    gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (filew)^.ok_button),
-                        'clicked', GTK_SIGNAL_FUNC (@file_ok_sel), filew );
-
-    (* Connect the cancel_button to destroy the widget *)
-    gtk_signal_connect_object (GTK_OBJECT (GTK_FILE_SELECTION
-                                            (filew)^.cancel_button),
-                               'clicked', GTK_SIGNAL_FUNC (@gtk_widget_destroy),
-                               GTK_OBJECT (filew));
-
-    (* Lets set the filename, as if this were a save dialog, and we are giving
-     a default filename *)
-    gtk_file_selection_set_filename (GTK_FILE_SELECTION(filew),
-                                     'filesel.pp');
-
-    gtk_widget_show(filew);
-    gtk_main ();
-end.

packages/extra/gtk/examples/list.pp

@@ -1,212 +0,0 @@
-{
-
-  This file extracted from the GTK tutorial.
-  list.c
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program list;
-uses
-  glib,gdk,gtk;
-
-{ this is our data identification string to store data in list items }
-const
-  list_item_data_key : pgchar = 'list_item_data';
-
-Function itos (I : Longint) : String;
-Var S : String[15];
-begin
-  Str (I,S);
-  itos:=S;
-end;
-
-{ this is the signal handler that got connected to button
-  press/release events of the GtkList }
-procedure sigh_button_event (gtklist: pGtkWidget;event:pGdkEventButton;frame:pGtkWidget);cdecl;
-var
-  dlist, free_list : pGList;
-  new_prisoner     : pGtkWidget;
-  list_item        : pGtkWidget;
-begin
-  { we only do something if the third (rightmost mouse button
-    was released }
-  if (event^.thetype=GDK_BUTTON_RELEASE) and
-     (event^.button=1) then
-   begin
-      { fetch the currently selected list item which
-        will be our next prisoner ;) }
-      dlist := pGTKLIST(gtklist)^.selection;
-      if dlist<>nil then
-        new_prisoner := pGTKWIDGET(dlist^.data)
-      else
-        new_prisoner := nil;
-
-      { look for already prisoned list items, we
-        will put them back into the list
-        remember to free the doubly linked list that
-        gtk_container_children() returns }
-      dlist := gtk_container_children(pGTKCONTAINER(frame));
-      free_list := dlist;
-      while dlist<>nil do
-       begin
-         list_item := dlist^.data;
-         gtk_widget_reparent(list_item, gtklist);
-         dlist := dlist^.next;
-       end;
-      g_list_free(free_list);
-
-      { if we have a new prisoner, remove him from the
-        GtkList and put him into the frame 'Prison'
-        we need to unselect the item before }
-      if new_prisoner<>nil then
-       begin
-         gtk_list_unselect_child(pGTKLIST(gtklist),new_prisoner);
-         gtk_widget_reparent(new_prisoner, frame);
-       end;
-    end;
-end;
-
-{ this is the signal handler that gets called if GtkList
-  emits the 'selection_changed' signal }
-procedure sigh_print_selection (gtklist   : pGtkWidget;func_data : gpointer);cdecl;
-var dlist          : pGList;
-  list_item        : pGtkObject;
-  item_data_string : pgchar;
-begin
-  { fetch the doubly linked list of selected items
-    of the GtkList, remember to treat this as read-only! }
-  dlist := pGTKLIST(gtklist)^.selection;
-
-  { if there are no selected items there is nothing more
-    to do than just telling the user so }
-  if dlist=nil then
-   writeln ('Selection cleared')
-  else
-   begin
-     { ok, we got a selection and so we print it }
-     write ('The selection is a ');
-
-     { get the list item from the doubly linked list
-       and then query the data associated with list_item_data_key
-       we then just print it }
-     while dlist<>nil do
-      begin
-        list_item := pGTKOBJECT(dlist^.data);
-        item_data_string := gtk_object_get_data(list_item,list_item_data_key);
-        write (pchar(item_data_string),' ');
-        dlist := dlist^.next;
-      end;
-     writeln;
-   end;
-end;
-
-{ main function to set up the user interface }
-var
-  separator, window, vbox, scrolled_window,
-  frame, thelist, button, list_item : pGtkWidget;
-  dlist                             : pGList;
-  i                                 : guint;
-  buffer                            : array [0..63] of gchar;
-  thelabel                          : pGtkWidget;
-  str                               : pgchar;
-begin
-  { initialize gtk+ (and subsequently gdk) }
-  gtk_init(@argc, @argv);
-  gtk_rc_init;
-
-  { create a window to put all the widgets in
-    connect gtk_main_quit() to the 'destroy' event of
-    the window to handle window manager close-window-events }
-  window := gtk_window_new(GTK_WINDOW_TOPLEVEL);
-  gtk_window_set_title(pGTKWINDOW(window), 'GtkList Example');
-  gtk_signal_connect(pGTKOBJECT(window),'destroy',GTK_SIGNAL_FUNC(@gtk_main_quit),nil);
-
-  { inside the window we need a box to arrange the widgets
-    vertically }
-  vbox := gtk_vbox_new(false, 5);
-  gtk_container_set_border_width(pGTKCONTAINER(vbox), 5);
-  gtk_container_add(pGTKCONTAINER(window), vbox);
-
-  { this is the scolled window to put the GtkList widget inside }
-  scrolled_window := gtk_scrolled_window_new(nil, nil);
-  gtk_widget_set_usize(scrolled_window, 250, 150);
-  gtk_box_pack_start (pGTKBOX(vbox), scrolled_window, true, true, 0);
-
-  { create the GtkList widget
-    connect the sigh_print_selection() signal handler
-    function to the 'selection_changed' signal of the GtkList
-    to print out the selected items each time the selection
-    has changed }
-  thelist := gtk_list_new();
-  gtk_list_set_selection_mode (pGtkList(thelist),GTK_SELECTION_BROWSE);
-  gtk_scrolled_window_add_with_viewport (pGtkScrolledWindow(scrolled_window), thelist);
-  gtk_signal_connect(pGTKOBJECT(thelist),'selection_changed',GTK_SIGNAL_FUNC(@sigh_print_selection),nil);
-
-  { we create a 'Prison' to put a list item in ;) }
-  frame := gtk_frame_new('Prison');
-  gtk_widget_set_usize(frame, 200, 50);
-  gtk_container_set_border_width(pGTKCONTAINER(frame), 5);
-  gtk_frame_set_shadow_type(pGTKFRAME(frame), GTK_SHADOW_OUT);
-  gtk_box_pack_start (pGTKBOX(vbox), frame, false, true, 0);
-
-  { connect the sigh_button_event() signal handler to the GtkList
-    wich will handle the 'arresting' of list items }
-  gtk_signal_connect(pGTKOBJECT(thelist),'button_release_event',GTK_SIGNAL_FUNC(@sigh_button_event),frame);
-
-  { create a separator }
-  separator := gtk_hseparator_new();
-  gtk_box_pack_start (pGTKBOX(vbox), separator, false, true, 0);
-
-  { finaly create a button and connect it's 'clicked' signal
-    to the destroyment of the window }
-  button := gtk_button_new_with_label('Close');
-  gtk_box_pack_start (pGTKBOX(vbox), button, false, true, 0);
-  gtk_signal_connect_object(pGTKOBJECT(button),'clicked',GTK_SIGNAL_FUNC(@gtk_widget_destroy),pGTKOBJECT(window));
-
-  { now we create 5 list items, each having it´s own
-    label and add them to the GtkList using gtk_container_add()
-    also we query the text string from the label and
-    associate it with the list_item_data_key for each list item }
-  for i := 0 to 4 do
-   begin
-     buffer:='ListItemContainer with Label #'+itos(i)+#0;
-     thelabel := gtk_label_new(buffer);
-     list_item := gtk_list_item_new();
-     gtk_container_add(pGTKCONTAINER(list_item), thelabel);
-     gtk_container_add(pGTKCONTAINER(thelist), list_item);
-     gtk_label_get(pGTKLABEL(thelabel), @str);
-     gtk_object_set_data(pGTKOBJECT(list_item),list_item_data_key,str);
-   end;
-
-  { here, we are creating another 5 labels, this time
-    we use gtk_list_item_new_with_label() for the creation
-    we can't query the text string from the label because
-    we don't have the labels pointer and therefore
-    we just associate the list_item_data_key of each
-    list item with the same text string
-    for adding of the list items we put them all into a doubly
-    linked list (GList), and then add them by a single call to
-    gtk_list_append_items()
-    because we use g_list_prepend() to put the items into the
-    doubly linked list, their order will be descending (instead
-    of ascending when using g_list_append()) }
-  dlist := nil;
-  for i:=5 to 9 do
-   begin
-     buffer:='List Item with Label '+itos(i)+#0;
-     list_item := gtk_list_item_new_with_label(buffer);
-     dlist := g_list_prepend(dlist, list_item);
-     gtk_object_set_data(pGTKOBJECT(list_item),list_item_data_key,pchar('ListItem with integrated Label'));
-   end;
-  gtk_list_append_items(pGTKLIST(thelist), dlist);
-
-  { finaly we want to see the window, don't we? ;) }
-  gtk_widget_show_all(window);
-
-  { fire up the main event loop of gtk }
-  gtk_main();
-
-  { we get here after gtk_main_quit() has been called which
-    happens if the main window gets destroyed }
-end.

packages/extra/gtk/examples/notebook.pp

@@ -1,166 +0,0 @@
-{
-
-  This file extracted from the GTK tutorial.
-  notebook.c
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program notebook;
-uses
- glib,gdk,gtk;
-
-Function itos (I : Longint) : String;
-Var S : String[15];
-begin
-  Str (I,S);
-  itos:=S;
-end;
-
-{ This function rotates the position of the tabs }
-procedure rotate_book (notebook:pGtkNotebook ); cdecl;
-begin
-  gtk_notebook_set_tab_pos (notebook, TGtkPositionType((tab_pos(notebook^) +1) mod 4));
-end;
-
-{ Add/Remove the page tabs and the borders }
-procedure tabsborder_book (notebook:pGtkNotebook ); cdecl;
-var tval, bval : gboolean;
-begin
-  tval := false;
-  bval := false;
-  if show_tabs(notebook^) = 0 then
-    tval := true;
-  if show_border(notebook^) = 0 then
-    bval := true;
-
-  gtk_notebook_set_show_tabs (notebook, tval);
-  gtk_notebook_set_show_border (notebook, bval);
-end;
-
-{ Remove a page from the notebook }
-procedure remove_book (notebook: pGtkNotebook ); cdecl;
-var page : gint ;
-begin
-  page := gtk_notebook_get_current_page(notebook);
-  gtk_notebook_remove_page (notebook, page);
-  { Need to refresh the widget --
-   This forces the widget to redraw itself. }
-  gtk_widget_draw(pGTKWIDGET(notebook), NIL);
-end;
-
-procedure delete (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ); cdecl;
-begin
-  gtk_main_quit ();
-end;
-
-var
-  window, button, table, thenotebook, frame, thelabel, checkbutton : pGtkWidget;
-  i                                                               : integer;
-  bufferf, bufferl                                                : string[33];
-begin
-  gtk_init (@argc, @argv);
-
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  gtk_signal_connect (pGTKOBJECT (window), 'delete_event',
-                      GTK_SIGNAL_FUNC (@delete), NIL);
-
-  gtk_container_set_border_width (pGTKCONTAINER (window), 10);
-
-  table := gtk_table_new(2,6,FALSE);
-  gtk_container_add (pGTKCONTAINER (window), table);
-
-  { Create a new notebook, place the position of the tabs }
-  thenotebook := gtk_notebook_new ();
-  gtk_notebook_set_tab_pos (pGTKNOTEBOOK (thenotebook), GTK_POS_TOP);
-  gtk_table_attach_defaults(pGTKTABLE(table), thenotebook, 0,6,0,1);
-
-  { lets append a bunch of pages to the notebook }
-  for i:=0 to 4 do begin
-    bufferf := 'Append Frame '+itos(i+1)+#0;
-    bufferl := 'Page '+itos(i+1)+#0;
-
-    frame := gtk_frame_new (pchar(@bufferf[1]));
-    gtk_container_set_border_width (pGTKCONTAINER (frame), 10);
-    gtk_widget_set_usize (frame, 100, 75);
-
-    thelabel := gtk_label_new (pchar(@bufferf[1]));
-    gtk_container_add (pGTKCONTAINER (frame), thelabel);
-
-    thelabel := gtk_label_new (pchar(@bufferl[1]));
-    gtk_notebook_append_page (pGTKNOTEBOOK (thenotebook), frame, thelabel);
-  end;
-
-  { now lets add a page to a specific spot }
-  checkbutton := gtk_check_button_new_with_label ('Check me please!');
-  gtk_widget_set_usize(checkbutton, 100, 75);
-
-  thelabel := gtk_label_new ('Add page');
-  gtk_notebook_insert_page (pGTKNOTEBOOK (thenotebook), checkbutton, thelabel, 2);
-
-  { Now finally lets prepend pages to the notebook }
-  for i:=0 to 4 do begin
-    bufferf := 'Prepend Frame '+itos(i+1)+#0;
-    bufferl := 'PPage '+itos(i+1)+#0;
-
-    frame := gtk_frame_new (pchar(@bufferf[1]));
-    gtk_container_set_border_width (pGTKCONTAINER (frame), 10);
-    gtk_widget_set_usize (frame, 100, 75);
-
-    thelabel := gtk_label_new (pchar(@bufferf[1]));
-    gtk_container_add (pGTKCONTAINER (frame), thelabel);
-
-    thelabel := gtk_label_new (pchar(@bufferl[1]));
-    gtk_notebook_prepend_page (pGTKNOTEBOOK(thenotebook), frame, thelabel);
-        gtk_widget_show (frame);
-  end;
-
-  { Set what page to start at (page 4) }
-  gtk_notebook_set_page (pGTKNOTEBOOK(thenotebook), 3);
-
-  { create a bunch of buttons }
-  button := gtk_button_new_with_label ('close');
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@delete), NIL);
-  gtk_table_attach(pGTKTABLE(table), button, 0,1,1,2,
-                   GTK_FILL or GTK_EXPAND,GTK_FILL,0,0);
-
-  button := gtk_button_new_with_label ('next page');
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@gtk_notebook_next_page),
-                             pGTKOBJECT (thenotebook));
-  gtk_table_attach(pGTKTABLE(table), button, 1,2,1,2,
-                   GTK_FILL or GTK_EXPAND,GTK_FILL,0,0);
-
-  button := gtk_button_new_with_label ('prev page');
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@gtk_notebook_prev_page),
-                             pGTKOBJECT (thenotebook));
-  gtk_table_attach(pGTKTABLE(table), button, 2,3,1,2,
-                   GTK_FILL or GTK_EXPAND,GTK_FILL,0,0);
-
-  button := gtk_button_new_with_label ('tab position');
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@rotate_book), pGTKOBJECT(thenotebook));
-  gtk_table_attach(pGTKTABLE(table), button, 3,4,1,2,
-                   GTK_FILL or GTK_EXPAND,GTK_FILL,0,0);
-
-  button := gtk_button_new_with_label ('tabs/border on/off');
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@tabsborder_book),
-                             pGTKOBJECT (thenotebook));
-  gtk_table_attach(pGTKTABLE(table), button, 4,5,1,2,
-                   GTK_FILL or GTK_EXPAND,GTK_FILL,0,0);
-
-  button := gtk_button_new_with_label ('remove page');
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@remove_book),
-                             pGTKOBJECT(thenotebook));
-  gtk_table_attach(pGTKTABLE(table), button, 5,6,1,2,
-                   GTK_FILL ,GTK_FILL,0,0);
-
-  gtk_widget_show_all(window);
-
-  gtk_main ();
-end.

packages/extra/gtk/examples/paned.pp

@@ -1,153 +0,0 @@
-{
-
-  Converted from C to Pascal by Artur Bac
-  <[email protected]>
-  Reda Poland
-}
-{$MODE objfpc}
-{$H+}
-{$S+}
-{$HINTS ON}
-{$ifdef win32}
-  {$define extdecl := stdcall;}
-  {$APPTYPE GUI}
-{$endif}
-{$ifdef unix}
-  {$define extdecl := cdecl;}
-{$endif}
-Program panned;
-uses glib,gtk;
-Function create_list : PGtkWidget; cdecl;
-Var
-    scrolled_window : PGtkWidget;
-    list            : PGtkWidget;
-    list_item       : PGtkWidget;
-    i               : longint;
-    buffer          : ansistring;
-    Ptr_Buffer      : PChar ;
-Begin
-    // Create a new scrolled window, with scrollbars only if needed
-    scrolled_window := gtk_scrolled_window_new (NULL, NULL);
-    gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_window),
-        GTK_POLICY_AUTOMATIC,GTK_POLICY_AUTOMATIC);
-
-    // Create a new list and put it in the scrolled window
-    list := gtk_list_new ();
-    gtk_scrolled_window_add_with_viewport (
-               GTK_SCROLLED_WINDOW (scrolled_window), list);
-    gtk_widget_show (list);
-
-    // Add some messages to the window
-    for i:=0 to 10 do Begin
-        Str (i,buffer);
-        buffer := 'Message #' + buffer;
-        Ptr_buffer := PChar (buffer);
-        list_item := gtk_list_item_new_with_label (Ptr_buffer);
-        gtk_container_add (GTK_CONTAINER(list), list_item);
-        gtk_widget_show (list_item);
-    End;
-
-    create_list := scrolled_window;
-End;
-
-{ Add some text_ to our text_ widget - this is a callback that is invoked
-when our window is realized. We could also force our window to be
-realized with gtk_widget_realize, but it would have to be part of
-a hierarchy first }
-
-Procedure realize_text( text_ : PGtkWidget ;
-                   data : gpointer); cdecl;
-Var
-    style   : PGtkStyle;
-Begin
-    gtk_text_freeze (GTK_text (text_));
-    style := gtk_widget_get_style (text_);
-    gtk_text_insert (GTK_text (text_), NULL, @style^.black, NULL,
-    'From: [email protected]'+#10+
-    'To: [email protected]'+#10+
-    'Subject: Made it!'+#10+
-    +#10+
-    'We just got in this morning. The weather has been'+#10+
-    'great - clear but cold, and there are lots of fun sights.'+#10+
-    'Sojourner says hi. See you soon.'+#10+
-    ' -Path'+#10, -1);
-
-    gtk_text_thaw (GTK_text (text_));
-End;
-
-{ Create a scrolled text area that displays a 'message' }
-Function create_text : PGtkWidget; cdecl;
-Var
-    table,
-    text_,
-    hscrollbar,
-    vscrollbar : PGtkWidget;
-Begin
-    { Create a table to hold the text_ widget and scrollbars }
-    table:= gtk_table_new (2, 2, FALSE);
-
-    { Put a text_ widget in the upper left hand corner. Note the use of
-      GTK_SHRINK in the y direction }
-    text_ := gtk_text_new (NULL, NULL);
-    gtk_table_attach (GTK_TABLE (table), text_, 0, 1, 0, 1,
-            GTK_FILL  OR  GTK_EXPAND,
-            GTK_FILL  OR  GTK_EXPAND  OR  GTK_SHRINK, 0, 0);
-    gtk_widget_show (text_);
-
-    { Put a HScrollbar in the lower left hand corner }
-    hscrollbar := gtk_hscrollbar_new (GTK_text (text_)^.hadj);
-    gtk_table_attach (GTK_TABLE (table), hscrollbar, 0, 1, 1, 2,
-            GTK_EXPAND  OR  GTK_FILL, GTK_FILL, 0, 0);
-    gtk_widget_show (hscrollbar);
-
-    { And a VScrollbar in the upper right }
-    vscrollbar := gtk_vscrollbar_new (GTK_text (text_)^.vadj);
-    gtk_table_attach (GTK_TABLE (table), vscrollbar, 1, 2, 0, 1,
-            GTK_FILL, GTK_EXPAND  OR  GTK_FILL  OR  GTK_SHRINK, 0, 0);
-    gtk_widget_show (vscrollbar);
-
-    { Add a handler to put a message in the text_ widget when it is realized }
-    gtk_signal_connect (GTK_OBJECT (text_), 'realize',
-            GTK_SIGNAL_FUNC (@realize_text), NULL);
-
-    create_text := table;
-End;
-
-Var
-    window,
-    vpaned,
-    list,
-    text_ : PGtkWidget;
-Begin
-    gtk_set_locale ();
-    gtk_init (@argc, @argv);
-    gtk_rc_init;
-
-    window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-    gtk_window_set_title (GTK_WINDOW (window), 'Paned Windows');
-    gtk_signal_connect (GTK_OBJECT (window), 'destroy',
-            GTK_SIGNAL_FUNC (@gtk_main_quit), NULL);
-    gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-    gtk_widget_set_usize (GTK_WIDGET(window), 450, 400);
-
-    { create a vpaned widget and add it to our toplevel window }
-
-    vpaned := gtk_vpaned_new ();
-    gtk_container_add (GTK_CONTAINER(window), vpaned);
-    gtk_paned_set_handle_size (GTK_PANED(vpaned),
-                               10);
-//    gtk_paned_set_gutter_size (GTK_PANED(vpaned), 15);
-    gtk_widget_show (vpaned);
-
-    { Now create the contents of the two halves of the window }
-
-    list := create_list ();
-    gtk_paned_add1 (GTK_PANED(vpaned), list);
-    gtk_widget_show (list);
-
-    text_ := create_text ();
-    gtk_paned_add2 (GTK_PANED(vpaned), text_);
-    gtk_widget_show (text_);
-    gtk_widget_show (window);
-    gtk_main ();
-End.

packages/extra/gtk/examples/pixmap.pp

@@ -1,87 +0,0 @@
-{
-
-  This file extracted from the GTK tutorial.
-  pixmap.c
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program pixmap;
-uses
-  glib,gdk,gtk;
-
-{ XPM data of Open-File icon }
-
-const
-  xpm_data:array[0..19] of pchar =
-  ('16 16 3 1',
-   '       c None',
-   '.      c #000000000000',
-   'X      c #FFFFFFFFFFFF',
-   '                ',
-   '   ......       ',
-   '   .XXX.X.      ',
-   '   .XXX.XX.     ',
-   '   .XXX.XXX.    ',
-   '   .XXX.....    ',
-   '   .XXXXXXX.    ',
-   '   .XXXXXXX.    ',
-   '   .XXXXXXX.    ',
-   '   .XXXXXXX.    ',
-   '   .XXXXXXX.    ',
-   '   .XXXXXXX.    ',
-   '   .XXXXXXX.    ',
-   '   .........    ',
-   '                ',
-   '                ');
-{ when invoked (via signal delete_event), terminates the application. }
-procedure close_application(widget : pGtkWidget ; event: pGdkEvent ; data: pgpointer); cdecl;
-begin
-  gtk_main_quit();
-end;
-
-{ is invoked when the button is clicked.  It just prints a message. }
-procedure button_clicked(widget : pGtkWidget ; data: pgpointer); cdecl;
-begin
-  writeln ('button clicked');
-end;
-
-{ GtkWidget is the storage type for widgets }
-var window, pixmapwid, button : pGtkWidget;
-  thepixmap                   : pGdkPixmap;
-  mask                        : pGdkBitmap;
-  style                       : pGtkStyle;
-begin
-  { create the main window, and attach delete_event signal to terminating
-   the application }
-  gtk_init( @argc, @argv );
-  gtk_rc_init;
-
-  window := gtk_window_new( GTK_WINDOW_TOPLEVEL );
-  gtk_signal_connect (pGTKOBJECT (window), 'delete_event',
-                      GTK_SIGNAL_FUNC (@close_application), NIL );
-  gtk_container_set_border_width( pGTKCONTAINER (window), 10 );
-  gtk_widget_show( window );
-
-  { now for the pixmap from gdk }
-  style := gtk_widget_get_style( window );
-  thepixmap := gdk_pixmap_create_from_xpm_d( window^.window,  @mask,
-                                        @style^.bg[GTK_STATE_NORMAL],
-                                        ppgchar (xpm_data ));
-
-  { a pixmap widget to contain the pixmap }
-  pixmapwid := gtk_pixmap_new( thepixmap, mask );
-  gtk_widget_show( pixmapwid );
-
-  { a button to contain the pixmap widget }
-  button := gtk_button_new();
-  gtk_container_add( pGTKCONTAINER(button), pixmapwid );
-  gtk_container_add( pGTKCONTAINER(window), button );
-  gtk_widget_show( button );
-
-  gtk_signal_connect (pGTKOBJECT(button), 'clicked',
-                      GTK_SIGNAL_FUNC(@button_clicked), NIL );
-
-  { show the window }
-  gtk_main ();
-end.

packages/extra/gtk/examples/progressbar.pp

@@ -1,223 +0,0 @@
-{
-
-  This is the pascal translation of the progressbar sample from the
-  GTK-1.2 library.
-
-  Converted from C to Pascal by Stefan Hille
-  <[email protected]>
-
-}
-
-
-(* example-start progressbar progressbar.c *)
-program progressbar;
-
-uses glib, gtk, strings;
-
-type
-    ProgressData = record
-        window : PGtkWidget;
-        pbar   : PGtkWidget;
-        timer  : integer;
-    end;
-    PProgressData = ^ProgressData;
-
-(* Update the value of the progress bar so that we get
- * some movement *)
-function progress_timeout( data : gpointer ) : gint; cdecl;
-var
-    new_val : gfloat;
-    adj     : PGtkAdjustment;
-begin
-
-    (* Calculate the value of the progress bar using the
-     * value range set in the adjustment object *)
-
-    new_val := gtk_progress_get_value( GTK_PROGRESS(data) ) + 1;
-
-    adj := GTK_PROGRESS (data)^.adjustment;
-    if (new_val > adj^.upper) then
-      new_val := adj^.lower;
-
-    (* Set the new value *)
-    gtk_progress_set_value (GTK_PROGRESS (data), new_val);
-
-    (* As this is a timeout function, return TRUE so that it
-     * continues to get called *)
-    progress_timeout := 1;
-end;
-
-
-(* Callback that toggles the text display within the progress
- * bar trough *)
-procedure toggle_show_text( widget : PGtkWidget;
-pdata : PProgressData);cdecl;
-begin
-    gtk_progress_set_show_text (GTK_PROGRESS (pdata^.pbar),
-                                active(PGtkToggleButton(widget)^));
-end;
-
-(* Callback that toggles the activity mode of the progress
- * bar *)
-procedure toggle_activity_mode( widget : PGtkWidget;
-                       pdata : PProgressData); cdecl;
-begin
-    gtk_progress_set_activity_mode (GTK_PROGRESS (pdata^.pbar),
-                                active(PGtkToggleButton(widget)^));
-end;
-
-(* Callback that toggles the continuous mode of the progress
- * bar *)
-procedure set_continuous_mode( widget : PGtkWidget;
-                       pdata : PProgressData); cdecl;
-begin
-    gtk_progress_bar_set_bar_style (GTK_PROGRESS_BAR (pdata^.pbar),
-                                    GTK_PROGRESS_CONTINUOUS);
-end;
-
-(* Callback that toggles the discrete mode of the progress
- * bar *)
-procedure set_discrete_mode( widget : PGtkWidget;
-                       pdata : PProgressData); cdecl;
-begin
-    gtk_progress_bar_set_bar_style (GTK_PROGRESS_BAR (pdata^.pbar),
-                                    GTK_PROGRESS_DISCRETE);
-end;
-
-(* Clean up allocated memory and remove the timer *)
-procedure destroy_progress( widget : PGtkWidget;
-                       pdata : PProgressData); cdecl;
-begin
-    gtk_timeout_remove (pdata^.timer);
-    pdata^.timer := 0;
-    pdata^.window := NULL;
-    g_free(pdata);
-    gtk_main_quit();
-end;
-
-var
-    pdata : PProgressData;
-    align : PGtkWidget;
-    separator : PGtkWidget;
-    table : PGtkWidget;
-    adj   : PGtkAdjustment;
-    button: PGtkWidget;
-    check : PGtkWidget;
-    vbox  : PGtkWidget;
-
-begin
-    gtk_init (@argc, @argv);
-
-    (* Allocate memory for the data that is passwd to the callbacks *)
-    pdata := g_malloc( sizeof(ProgressData) );
-
-    pdata^.window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-    gtk_window_set_policy (GTK_WINDOW (pdata^.window), 0{FALSE}, 1{TRUE}, 1{TRUE});
-
-    gtk_signal_connect (GTK_OBJECT (pdata^.window), 'destroy',
-                        GTK_SIGNAL_FUNC (@destroy_progress),
-                        pdata);
-
-    gtk_window_set_title (GTK_WINDOW (pdata^.window),'GtkProgressBar' );
-    gtk_container_set_border_width (GTK_CONTAINER (pdata^.window), 0);
-
-    vbox := gtk_vbox_new (FALSE, 5);
-    gtk_container_set_border_width (GTK_CONTAINER (vbox), 10);
-    gtk_container_add (GTK_CONTAINER (pdata^.window), vbox);
-
-    (* Create a centering alignment object *)
-    align := gtk_alignment_new (0.5, 0.5, 0, 0);
-    gtk_box_pack_start (GTK_BOX (vbox), align, FALSE, FALSE, 5);
-
-    (* Create a GtkAdjusment object to hold the range of the
-     * progress bar *)
-    adj := PGtkAdjustment( gtk_adjustment_new (0, 1, 150, 0, 0, 0));
-
-    (* Create the GtkProgressBar using the adjustment *)
-    pdata^.pbar := gtk_progress_bar_new_with_adjustment (adj);
-
-    (* Set the format of the string that can be displayed in the
-     * trough of the progress bar:
-     * %p - percentage
-     * %v - value
-     * %l - lower range value
-     * %u - upper range value *)
-    gtk_progress_set_format_string (GTK_PROGRESS (pdata^.pbar),
-                                     '%v from [%l-%u] (=%p%%)');
-    gtk_container_add (GTK_CONTAINER (align), pdata^.pbar);
-
-    (* Add a timer callback to update the value of the progress bar *)
-    pdata^.timer := gtk_timeout_add (100, TGtkFunction(@progress_timeout), pdata^.pbar);
-
-    separator := gtk_hseparator_new ();
-    gtk_box_pack_start (GTK_BOX (vbox), separator, FALSE, FALSE, 0);
-
-    (* rows, columns, homogeneous *)
-    table := gtk_table_new (2, 3, FALSE);
-    gtk_box_pack_start (GTK_BOX (vbox), table, FALSE, TRUE, 0);
-
-    (* Add a check button to select displaying of the trough text *)
-    check := gtk_check_button_new_with_label ('Show text');
-    gtk_table_attach (GTK_TABLE (table), check, 0, 1, 0, 1,
-                      GTK_EXPAND or GTK_FILL, GTK_EXPAND or GTK_FILL,
-                      5, 5);
-    gtk_signal_connect (GTK_OBJECT (check), 'clicked',
-                        GTK_SIGNAL_FUNC (@toggle_show_text),
-                        pdata);
-
-    (* Add a check button to toggle activity mode *)
-    check := gtk_check_button_new_with_label ( 'Activity mode');
-    gtk_table_attach (GTK_TABLE (table), check, 0, 1, 1, 2,
-                      GTK_EXPAND or GTK_FILL, GTK_EXPAND or GTK_FILL,
-                      5, 5);
-    gtk_signal_connect (GTK_OBJECT (check), 'clicked',
-                        GTK_SIGNAL_FUNC (@toggle_activity_mode),
-                        pdata);
-
-    separator := gtk_vseparator_new ();
-    gtk_table_attach (GTK_TABLE (table), separator, 1, 2, 0, 2,
-                      GTK_EXPAND or GTK_FILL, GTK_EXPAND or GTK_FILL,
-                      5, 5);
-
-    (* Add a radio button to select continuous display mode *)
-    button := gtk_radio_button_new_with_label (NULL,  'Continuous');
-    gtk_table_attach (GTK_TABLE (table), button, 2, 3, 0, 1,
-                      GTK_EXPAND or GTK_FILL, GTK_EXPAND or GTK_FILL,
-                      5, 5);
-    gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                        GTK_SIGNAL_FUNC (@set_continuous_mode),
-                        pdata);
-
-    (* Add a radio button to select discrete display mode *)
-    button := gtk_radio_button_new_with_label(
-               gtk_radio_button_group (GTK_RADIO_BUTTON (button)),
-               'Discrete');
-    gtk_table_attach (GTK_TABLE (table), button, 2, 3, 1, 2,
-                      GTK_EXPAND or GTK_FILL, GTK_EXPAND or GTK_FILL,
-                      5, 5);
-    gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                        GTK_SIGNAL_FUNC (@set_discrete_mode),
-                        pdata);
-
-    separator := gtk_hseparator_new ();
-    gtk_box_pack_start (GTK_BOX (vbox), separator, FALSE, FALSE, 0);
-
-    (* Add a button to exit the program *)
-    button := gtk_button_new_with_label ('close');
-    gtk_signal_connect_object (GTK_OBJECT (button), 'clicked',
-                               Gtk_Signal_Func (@gtk_widget_destroy),
-                               GTK_OBJECT (pdata^.window));
-    gtk_box_pack_start (GTK_BOX (vbox), button, FALSE, FALSE, 0);
-
-    (* This makes it so the button is the default. *)
-    GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
-
-    (* This grabs this button to be the default button. Simply hitting
-     * the 'Enter' key will cause this button to activate. *)
-    gtk_widget_grab_default (button);
-
-    gtk_widget_show_all (pdata^.window);
-
-    gtk_main ();
-
-end.

packages/extra/gtk/examples/rulers.pp

@@ -1,102 +0,0 @@
-{
-
-  Converted from C to Pascal by Artur Bac with liitle additions by me
-  <arturbac@@poczta.onet.pl>
-  Reda Poland
-
-}
-{$MODE objfpc}
-{$H+}
-{$S+}
-{$HINTS ON}
-{$ifdef win32}
-  {$define extdecl := stdcall;}
-  {$APPTYPE GUI}
-{$endif}
-{$ifdef unix}
-  {$define extdecl := cdecl;}
-{$endif}
-
-Program Rulers;
-
-Uses glib,gdk,gtk;
-
-Const
- XSIZE = 600;
- YSIZE = 400;
-
-// This routine gets control when the close button is clicked
-Function close_application( widget : PGtkWidget ;
-                        event : PGdkEvent;
-                        data : gpointer) : boolean; cdecl;
-Begin
-    gtk_main_quit();
-    close_application := false;  //if something go wrong we will know that gtk didn't quit
-End;
-
-// The main routine
-Var
-window ,table, area, hrule, vrule : PGtkWidget;
-
-Begin
-    // Initialize GTK and create the main window
-    gtk_set_locale ();
-    gtk_init( @argc, @argv );
-    gtk_rc_init;
-
-    window := gtk_window_new( GTK_WINDOW_TOPLEVEL );
-    gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
-            GTK_SIGNAL_FUNC( @close_application ), NIL);
-    gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-
-    // Create a table for placing the ruler and the drawing area
-    table := gtk_table_new( 3, 2, FALSE );
-    gtk_container_add( GTK_CONTAINER(window), table );
-
-    area := gtk_drawing_area_new();
-    gtk_drawing_area_size( Gtk_Drawing_Area (area), XSIZE, YSIZE );
-    gtk_table_attach( GTK_TABLE(table), area, 1, 2, 1, 2,
-                      GTK_EXPAND or GTK_FILL, GTK_FILL, 0, 0 );
-    gtk_widget_set_events( area, GDK_POINTER_MOTION_MASK or
-                                 GDK_POINTER_MOTION_HINT_MASK );
-
-    { The horizontal ruler goes on top. As the mouse moves across the
-     * drawing area, a motion_notify_event is passed to the
-     * appropriate event handler for the ruler. }
-    hrule := gtk_hruler_new();
-    gtk_ruler_set_metric( GTK_RULER(hrule), GTK_PIXELS );
-    gtk_ruler_set_range( GTK_RULER(hrule), 7, 13, 0, 20 );
-
-    gtk_signal_connect_object( GTK_OBJECT(area), 'motion_notify_event',
-                     Gtk_Signal_Func (GTK_WIDGET_CLASS(GTK_OBJECT(hrule)^.klass)
-                                    ^.motion_notify_event),
-                                        GTK_OBJECT(hrule));
-
-    gtk_table_attach( GTK_TABLE(table), hrule, 1, 2, 0, 1,
-                      GTK_EXPAND or GTK_SHRINK  or GTK_FILL, GTK_FILL, 0, 0 );
-
-    {* The vertical ruler goes on the left. As the mouse moves across
-     * the drawing area, a motion_notify_event is passed to the
-     * appropriate event handler for the ruler. */}
-
-    vrule := gtk_vruler_new();
-    gtk_ruler_set_metric( GTK_RULER(vrule), GTK_PIXELS );
-    gtk_ruler_set_range( GTK_RULER(vrule), 0, YSIZE, 10, YSIZE );
-    gtk_signal_connect_object( GTK_OBJECT(area), 'motion_notify_event',
-                               Gtk_Signal_Func
-                                  (GTK_WIDGET_CLASS(GTK_OBJECT(vrule)^.klass)
-                                  ^.motion_notify_event),
-                               GTK_OBJECT(vrule) );
-
-
-    gtk_table_attach( GTK_TABLE(table), vrule, 0, 1, 1, 2,
-                      GTK_FILL, GTK_EXPAND or GTK_SHRINK or GTK_FILL, 0, 0 );
-
-    // Now show everything changed a little by Me
-    {gtk_widget_show( area );
-    gtk_widget_show( hrule );
-    gtk_widget_show( vrule );
-    gtk_widget_show( table );}
-    gtk_widget_show_all( window ); //This will show all childs of window
-    gtk_main();
-End.

packages/extra/gtk/examples/scribble.pp

@@ -1,147 +0,0 @@
-{
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program scribble;
-uses
-  glib,Gdk,Gtk;
-
-{ Backing pixmap for drawing area }
-const
-  pixmap : PGdkPixmap = NIL;
-
-{ Create a new backing pixmap of the appropriate size }
-function  configure_event (widget : PGtkWidget; event: PGdkEventConfigure):boolean; cdecl;
-begin
-  if pixmap<>NIL then
-    gdk_pixmap_unref(pixmap);
-
-  pixmap := gdk_pixmap_new(widget^.window,
-                           widget^.allocation.width,
-                           widget^.allocation.height,
-                           -1);
-  gdk_draw_rectangle (pixmap,
-                      PGtkStyle(widget^.thestyle)^.white_gc,
-                      gint(true),
-                      0, 0,
-                      widget^.allocation.width,
-                      widget^.allocation.height);
-
-  configure_event := TRUE;
-end;
-
-{ Redraw the screen from the backing pixmap }
-function  expose_event (widget : PGtkWidget ; event : PGdkEventExpose ) : boolean; cdecl;
-begin
-  gdk_draw_pixmap(widget^.window,
-                  PGtkStyle(widget^.thestyle)^.fg_gc[gtk_WIDGET_STATE (widget)],
-                  pixmap,
-                  event^.area.x, event^.area.y,
-                  event^.area.x, event^.area.y,
-                  event^.area.width, event^.area.height);
-  expose_event:= FALSE;
-end;
-
-{ Draw a rectangle on the screen }
-procedure draw_brush (widget : PGtkWidget ; x, y: gint16);
-var update_rect : TGdkRectangle;
-begin
-  update_rect.x := x - 5;
-  update_rect.y := y - 5;
-  update_rect.width := 10;
-  update_rect.height := 10;
-  gdk_draw_rectangle (pixmap,
-                      PGtkStyle(widget^.thestyle)^.black_gc,
-                      gint(true),
-                      update_rect.x, update_rect.y,
-                      update_rect.width, update_rect.height);
-  gtk_widget_draw (widget, @update_rect);
-end;
-
-function  button_press_event (widget : PGtkWidget ; event: PGdkEventButton ) : boolean; cdecl;
-begin
-  if (event^.button = 1) and (pixmap <> NIL) then begin
-    draw_brush (widget, trunc(event^.x), trunc(event^.y));
-  end;
-  button_press_event := TRUE;
-end;
-
-function  motion_notify_event (widget : PGtkWidget ; event: PGdkEventMotion ) : boolean; cdecl;
-var x, y : longint ;
-  state  : longint;
-begin
-  if (event^.is_hint<>0) then begin
-    gdk_window_get_pointer (event^.window, @x, @y, @state);
-  end else begin
-    x := trunc(event^.x);
-    y := trunc(event^.y);
-    state := event^.state;
-  end;
-
-  if ((state and gdk_BUTTON1_MASK)<>0) and (pixmap <> NIL) then
-    draw_brush (widget, x, y);
-
-  motion_notify_event := TRUE;
-end;
-
-procedure quit;
-begin
-  gtk_exit (0);
-end;
-
-var window, drawing_area, vbox, button : PGtkWidget;
-begin
-  gtk_init (@argc, @argv);
-  gtk_rc_init;
-
-  window := gtk_window_new (gtk_WINDOW_TOPLEVEL);
-  gtk_widget_set_name (window, 'Test Input');
-
-  vbox := gtk_vbox_new (false, 0);
-  gtk_container_add (PGtkCONTAINER (window), vbox);
-  gtk_widget_show (vbox);
-
-  gtk_signal_connect (PGtkOBJECT (window), 'destroy',
-                      gtk_SIGNAL_FUNC (@quit), NIL);
-
-  { Create the drawing area }
-
-  drawing_area := gtk_drawing_area_new ();
-  gtk_drawing_area_size (PGtkDRAWINGAREA (drawing_area), 200, 200);
-  gtk_box_pack_start (PGtkBOX (vbox), drawing_area, true, true, 0);
-
-  gtk_widget_show (drawing_area);
-
-  { Signals used to handle backing pixmap }
-
-  gtk_signal_connect (PGtkOBJECT (drawing_area), 'expose_event',
-                      gtk_SIGNAL_FUNC (@expose_event), NIL);
-  gtk_signal_connect (PGtkOBJECT(drawing_area),'configure_event',
-                      gtk_SIGNAL_FUNC (@configure_event), NIL);
-
-  { Event signals }
-
-  gtk_signal_connect (PGtkOBJECT (drawing_area), 'motion_notify_event',
-                      gtk_SIGNAL_FUNC (@motion_notify_event), NIL);
-  gtk_signal_connect (PGtkOBJECT (drawing_area), 'button_press_event',
-                      gtk_SIGNAL_FUNC (@button_press_event), NIL);
-
-  gtk_widget_set_events (drawing_area, gdk_EXPOSURE_MASK
-                         or gdk_LEAVE_NOTIFY_MASK
-                         or gdk_BUTTON_PRESS_MASK
-                         or gdk_POINTER_MOTION_MASK
-                         or gdk_POINTER_MOTION_HINT_MASK);
-
-  { .. And a quit button }
-  button := gtk_button_new_with_label ('Quit');
-  gtk_box_pack_start (PGtkBOX (vbox), button, false, false, 0);
-
-  gtk_signal_connect_object (PGtkOBJECT (button), 'clicked',
-                             gtk_SIGNAL_FUNC (@gtk_widget_destroy),
-                             PGtkOBJECT (window));
-  gtk_widget_show (button);
-  gtk_widget_show (window);
-
-  gtk_main ();
-end.

packages/extra/gtk/examples/spinbutton.pp

@@ -1,257 +0,0 @@
-{
-
-  Converted from C to Pascal by Artur Bac with liitle additions by me
-  <[email protected]>
-  Reda Poland
-}
-{$MODE objfpc}
-{$H+}
-{$S+}
-{$HINTS ON}
-{$ifdef win32}
-  {$define extdecl := stdcall;}
-  {$APPTYPE GUI}
-{$endif}
-{$ifdef unix}
-  {$define extdecl := cdecl;}
-{$endif}
-
-Program spinbutton;
-
-Uses glib,gtk;
-
-Type
-    PGInt = ^gint;
-Const
-    a : gint = 1;
-    b : gint = 2;
-Var
- spinner1 ,
- spinner2 : PGtkWidget;
-
-Function  GPOINTER_TO_INT (data : pgint) : gint;
-Begin
-    GPOINTER_TO_INT := data^;
-End;
-
-Procedure toggle_snap( widget : PGtkWidget;
-                         spin : PGtkSpinButton ); cdecl;
-Begin
-  gtk_spin_button_set_snap_to_ticks (spin,
-            gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (widget)));
-End ;
-
-Procedure toggle_numeric( widget : PGtkWidget;
-                         spin : PGtkSpinButton ); cdecl;
-Begin
-  gtk_spin_button_set_numeric (spin,
-                            gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (widget)));
-End;
-
-Procedure change_digits( widget : PGtkWidget;
-                    spin : PGtkSpinButton ); cdecl;
-Begin
-  gtk_spin_button_set_digits (GTK_SPIN_BUTTON (spinner1),
-                              gtk_spin_button_get_value_as_int (spin));
-End;
-
-Procedure  get_value( widget : PGtkWidget;
-                    data : gpointer ) ; cdecl;
-Var
-  Ptr_buf   : PGchar;
-  buf       : string;
-  label_l   : PGtkLabel ;
-  spin,spin2: PGtkSpinButton;
-Begin
-  spin := GTK_SPIN_BUTTON (spinner1);
-  spin2 := GTK_SPIN_BUTTON (spinner2);
-  label_l := GTK_LABEL (gtk_object_get_user_data (GTK_OBJECT (widget)));
-  if (GPOINTER_TO_INT (data) = 1) then
-    str(gtk_spin_button_get_value_as_int (spin),buf)
-  else
-    Str(gtk_spin_button_get_value_as_float (spin)
-                    :10:gtk_spin_button_get_value_as_int(spin2)  //This checks how many digits we have
-                    ,buf);
-  Ptr_buf:=PChar(buf); //We have to change ansistring to a pointer to char PChar == PGChar
-  gtk_label_set_text (label_l, Ptr_buf);
-End;
-
-
-Var
-  window,
-  frame,
-  hbox,
-  main_vbox,
-  vbox,
-  vbox2,
-  spinner,
-  button,
-  label_l,
-  val_label : PGtkWidget;
-  adj : PGtkAdjustment;
-Begin
-  // Initialise GTK
-  gtk_set_locale ();
-  gtk_init(@argc, @argv);
-  gtk_rc_init;
-
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  gtk_signal_connect (GTK_OBJECT (window), 'destroy',
-                      GTK_SIGNAL_FUNC (@gtk_main_quit),
-                      NULL);
-
-  gtk_window_set_title (GTK_WINDOW (window), 'Spin Button');
-
-  main_vbox := gtk_vbox_new (FALSE, 5);
-  gtk_container_set_border_width (GTK_CONTAINER (main_vbox), 10);
-  gtk_container_add (GTK_CONTAINER (window), main_vbox);
-
-  frame := gtk_frame_new ('Not accelerated');
-  gtk_box_pack_start (GTK_BOX (main_vbox), frame, TRUE, TRUE, 0);
-
-  vbox := gtk_vbox_new (FALSE, 0);
-  gtk_container_set_border_width (GTK_CONTAINER (vbox), 5);
-  gtk_container_add (GTK_CONTAINER (frame), vbox);
-
-  // Day, month, year spinners
-
-  hbox := gtk_hbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (vbox), hbox, TRUE, TRUE, 5);
-
-  vbox2 := gtk_vbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (hbox), vbox2, TRUE, TRUE, 5);
-
-  label_l := gtk_label_new ('Day :');
-  gtk_misc_set_alignment (GTK_MISC (label_l), 0, 0.5);
-  gtk_box_pack_start (GTK_BOX (vbox2), label_l, FALSE, TRUE, 0);
-
-  adj := PGtkAdjustment ( gtk_adjustment_new (1.0, 1.0, 31.0, 1.0,
-                                              5.0, 0.0));
-  spinner := gtk_spin_button_new (adj, 0, 0);
-  gtk_spin_button_set_wrap (GTK_SPIN_BUTTON (spinner), TRUE);
-  gtk_spin_button_set_shadow_type (GTK_SPIN_BUTTON (spinner),
-                                   GTK_SHADOW_OUT);
-  gtk_box_pack_start (GTK_BOX (vbox2), spinner, FALSE, TRUE, 0);
-
-  vbox2 := gtk_vbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (hbox), vbox2, TRUE, TRUE, 5);
-
-  label_l := gtk_label_new ('Month :');
-  gtk_misc_set_alignment (GTK_MISC (label_l), 0, 0.5);
-  gtk_box_pack_start (GTK_BOX (vbox2), label_l, FALSE, TRUE, 0);
-
-  adj := PGtkAdjustment (gtk_adjustment_new (1.0, 1.0, 12.0, 1.0,
-                                              5.0, 0.0));
-  spinner := gtk_spin_button_new (adj, 0, 0);
-  gtk_spin_button_set_wrap (GTK_SPIN_BUTTON (spinner), TRUE);
-  gtk_spin_button_set_shadow_type (GTK_SPIN_BUTTON (spinner),
-                                   GTK_SHADOW_ETCHED_IN);
-  gtk_box_pack_start (GTK_BOX (vbox2), spinner, FALSE, TRUE, 0);
-
-  vbox2 := gtk_vbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (hbox), vbox2, TRUE, TRUE, 5);
-
-  label_l := gtk_label_new ('Year :');
-  gtk_misc_set_alignment (GTK_MISC (label_l), 0, 0.5);
-  gtk_box_pack_start (GTK_BOX (vbox2), label_l, FALSE, TRUE, 0);
-
-  adj := PGtkAdjustment (gtk_adjustment_new (1998.0, 0.0, 2100.0,
-                                              1.0, 100.0, 0.0));
-  spinner := gtk_spin_button_new (adj, 0, 0);
-  gtk_spin_button_set_wrap (GTK_SPIN_BUTTON (spinner), FALSE);
-  gtk_spin_button_set_shadow_type (GTK_SPIN_BUTTON (spinner),
-                                   GTK_SHADOW_IN);
-  gtk_widget_set_usize (spinner, 55, 0);
-  gtk_box_pack_start (GTK_BOX (vbox2), spinner, FALSE, TRUE, 0);
-
-  frame := gtk_frame_new ('Accelerated');
-  gtk_box_pack_start (GTK_BOX (main_vbox), frame, TRUE, TRUE, 0);
-
-  vbox := gtk_vbox_new (FALSE, 0);
-  gtk_container_set_border_width (GTK_CONTAINER (vbox), 5);
-  gtk_container_add (GTK_CONTAINER (frame), vbox);
-
-  hbox := gtk_hbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, TRUE, 5);
-
-  vbox2 := gtk_vbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (hbox), vbox2, TRUE, TRUE, 5);
-
-  label_l := gtk_label_new ('Value :');
-  gtk_misc_set_alignment (GTK_MISC (label_l), 0, 0.5);
-  gtk_box_pack_start (GTK_BOX (vbox2), label_l, FALSE, TRUE, 0);
-
-  adj := PGtkAdjustment (gtk_adjustment_new (0.0, -10000.0, 10000.0,
-                                              0.5, 100.0, 0.0));
-  spinner1 := gtk_spin_button_new (adj, 1.0, 2);
-  gtk_spin_button_set_wrap (GTK_SPIN_BUTTON (spinner1), TRUE);
-  gtk_widget_set_usize (spinner1, 100, 0);
-  gtk_box_pack_start (GTK_BOX (vbox2), spinner1, FALSE, TRUE, 0);
-
-  vbox2 := gtk_vbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (hbox), vbox2, TRUE, TRUE, 5);
-
-  label_l := gtk_label_new ('Digits :');
-  gtk_misc_set_alignment (GTK_MISC (label_l), 0, 0.5);
-  gtk_box_pack_start (GTK_BOX (vbox2), label_l, FALSE, TRUE, 0);
-
-  adj := PGtkAdjustment (gtk_adjustment_new (2, 1, 5, 1, 1, 0));
-  spinner2 := gtk_spin_button_new (adj, 0.0, 0);
-  gtk_spin_button_set_wrap (GTK_SPIN_BUTTON (spinner2), TRUE);
-  gtk_signal_connect (GTK_OBJECT (adj), 'value_changed',
-                      GTK_SIGNAL_FUNC (@change_digits),
-                      gpointer (spinner2));
-  gtk_box_pack_start (GTK_BOX (vbox2), spinner2, FALSE, TRUE, 0);
-
-  hbox := gtk_hbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, TRUE, 5);
-
-  button := gtk_check_button_new_with_label ('Snap to 0.5-ticks');
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                      GTK_SIGNAL_FUNC (@toggle_snap),
-                      spinner1);
-  gtk_box_pack_start (GTK_BOX (vbox), button, TRUE, TRUE, 0);
-  gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (button), TRUE);
-
-  button := gtk_check_button_new_with_label ('Numeric only input mode');
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                      GTK_SIGNAL_FUNC (@toggle_numeric),
-                      spinner1);
-  gtk_box_pack_start (GTK_BOX (vbox), button, TRUE, TRUE, 0);
-  gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (button), TRUE);
-
-  val_label := gtk_label_new ('');
-
-  hbox := gtk_hbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, TRUE, 5);
-  button := gtk_button_new_with_label ('Value as Int');
-  gtk_object_set_user_data (GTK_OBJECT (button), val_label);
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-          GTK_SIGNAL_FUNC (@get_value),@a);
-  gtk_box_pack_start (GTK_BOX (hbox), button, TRUE, TRUE, 5);
-
-  button := gtk_button_new_with_label ('Value as Float');
-  gtk_object_set_user_data (GTK_OBJECT (button), val_label);
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-              GTK_SIGNAL_FUNC (@get_value),@b);
-  gtk_box_pack_start (GTK_BOX (hbox), button, TRUE, TRUE, 5);
-
-  gtk_box_pack_start (GTK_BOX (vbox), val_label, TRUE, TRUE, 0);
-  gtk_label_set_text (GTK_LABEL (val_label), '0');
-
-  hbox := gtk_hbox_new (FALSE, 0);
-  gtk_box_pack_start (GTK_BOX (main_vbox), hbox, FALSE, TRUE, 0);
-
-  button := gtk_button_new_with_label ('Close');
-  gtk_signal_connect_object (GTK_OBJECT (button), 'clicked',
-                             GTK_SIGNAL_FUNC (@gtk_widget_destroy),
-                             GTK_OBJECT (window));
-  gtk_box_pack_start (GTK_BOX (hbox), button, TRUE, TRUE, 5);
-
-  gtk_widget_show_all (window);
-
-  // Enter the event loop
-  gtk_main ();
-
-End.

packages/extra/gtk/examples/statusbar.pp

@@ -1,87 +0,0 @@
-{
-
-  Converted from C to Pascal by Artur Bac with liitle additions changes
-  <[email protected]>
-  Reda Poland
-}
-{$MODE objfpc}
-{$H+}
-{$S+}
-{$HINTS ON}
-{$ifdef win32}
-  {$define extdecl := stdcall;}
-  {$APPTYPE GUI}
-{$endif}
-{$ifdef unix}
-  {$define extdecl := cdecl;}
-{$endif}
-
-Program statusbar;
-Uses glib,gtk;
-Type
-    PGInt = ^gint;
-Var
-    status_bar : PGtkWidget;
-    count         : longint;
-Procedure push_item( widget : PGtkWidget;
-                data : PGInt); cdecl;
-    Var
-      buff          : ansistring;
-      ptr_buff      : PGChar;
-    Begin
-      Inc(count);
-      Str(count,buff);
-      buff := 'Item ' + buff;
-
-      Ptr_buff := PChar(buff); //changing type from ansistring to PGChar == PChar
-      gtk_statusbar_push(GTK_STATUSBAR(status_bar), data^, Ptr_buff);
-    End;
-Procedure pop_item( widget : PGtkWidget;
-               data : PGint); cdecl; //i used pointer to gint , not gpointer becouse we can
-                                     // read value directly from an adress specified in data
-Begin
-  gtk_statusbar_pop( GTK_STATUSBAR(status_bar), data^);
-End;
-
-Var
-    window,
-    vbox,
-    button1,button2 : PGtkWidget;
-
-    context_id : gint;
-Begin
-    gtk_set_locale ();
-    gtk_init (@argc, @argv);
-    gtk_rc_init;
-    count:=1;
-    //* create a new window
-    window := gtk_window_new(GTK_WINDOW_TOPLEVEL);
-    gtk_widget_set_usize( GTK_WIDGET (window), 200, 100); // GTK_WIDGET == PGtkWidget
-    gtk_window_set_title(GTK_WINDOW (window), 'GTK Statusbar Example');
-
-    vbox := gtk_vbox_new(FALSE, 1);
-    gtk_container_add(GTK_CONTAINER(window), vbox);
-
-    status_bar := gtk_statusbar_new();
-    gtk_box_pack_start (GTK_BOX (vbox), status_bar, TRUE, TRUE, 0);
-
-    context_id := gtk_statusbar_get_context_id(
-                          GTK_STATUSBAR(status_bar), 'Statusbar example');
-
-    button1 := gtk_button_new_with_label('push item');
-    gtk_box_pack_start(GTK_BOX(vbox), button1, TRUE, TRUE, 2);
-
-    button2 := gtk_button_new_with_label('pop last item');
-    gtk_box_pack_start(GTK_BOX(vbox), button2, TRUE, TRUE, 2);
-
-
-    gtk_signal_connect(GTK_OBJECT (window), 'delete_event',
-                       Gtk_Signal_Func (@gtk_exit), NULL);
-    gtk_signal_connect(GTK_OBJECT(button1), 'clicked',
-        GTK_SIGNAL_FUNC (@push_item), @context_id );
-    gtk_signal_connect(GTK_OBJECT(button2), 'clicked',
-        GTK_SIGNAL_FUNC (@pop_item), @context_id );
-
-    gtk_widget_show_all (window);
-    gtk_main ();
-End.

packages/extra/gtk/examples/tictactoe.pp

@@ -1,160 +0,0 @@
-{
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-unit tictactoe;
-interface
-
-uses
-  glib,gdk,gtk;
-
-type
-  PTictactoe      = ^TTictactoe;
-  TTictactoe      = record
-                      vbox    : TGtkVBox ;
-                      buttons : array [0..2 , 0..2] of pGtkWidget;
-                    end;
-  PTictactoeClass = ^TTictactoeClass;
-  TTictactoeClass = record
-                      parent_class: TGtkVBoxClass ;
-                      tictactoe: Procedure (ttt : pTictactoe); cdecl;
-                    end;
-
-Function tictactoe_get_type : guint;
-Function tictactoe_new : pGtkWidget;
-procedure tictactoe_clear (ttt : pTictactoe);
-
-implementation
-
-const
-  ANZ_SIGNAL = 1;
-type
-  TTT_Signals = (TICTACTOE_SIGNAL);
-const
-  tictactoe_signals: array[TTT_Signals] of guint = (0);
-
-Procedure tictactoe_toggle (widget : pGtkWidget ; ttt: pTictactoe); cdecl;
-const rwins: array[0..7,0..2] of integer =
-  ( ( 0, 0, 0 ), ( 1, 1, 1 ), ( 2, 2, 2 ),
-   ( 0, 1, 2 ), ( 0, 1, 2 ), ( 0, 1, 2 ),
-   ( 0, 1, 2 ), ( 0, 1, 2 ) );
-  cwins:array [0..7,0..2] of integer =
-  ( ( 0, 1, 2 ), ( 0, 1, 2 ), ( 0, 1, 2 ),
-   ( 0, 0, 0 ), ( 1, 1, 1 ), ( 2, 2, 2 ),
-   ( 0, 1, 2 ), ( 2, 1, 0 ) );
-var i, k         : integer;
-  success, found : boolean;
-begin
-  for k:=0 to 7 do
-  begin
-    success := TRUE;
-    found := FALSE;
-
-    for i:=0 to 2 do
-    begin
-      success := success and
-      boolean(active(pGTKTOGGLEBUTTON(ttt^.buttons[rwins[k,i],cwins[k,i]])^));
-      found := found or
-      (ttt^.buttons[rwins[k,i],cwins[k,i]] = widget);
-    end;
-
-    if (success and found) then
-    begin
-      gtk_signal_emit (pGTKOBJECT (ttt),
-                        tictactoe_signals[TICTACTOE_SIGNAL]);
-      break;
-    end;
-  end;
-end;
-
-Procedure gtk_signal_default_marshallerT(theobject : pGtkObject;
-                                         func      : GTK_SIGNAL_FUNC;
-                                         func_data : gpointer;
-                                         args      : pGtkArg); cdecl;
-begin
-  gtk_marshal_NONE__NONE (theobject,func,func_data,args);
-end;
-
-Procedure tictactoe_class_init (theclass : pTictactoeClass );
-var object_class : pGtkObjectClass ;
-begin
-  object_class := pGtkObjectClass (theclass);
-
-  tictactoe_signals[TICTACTOE_SIGNAL] :=gtk_signal_new ('tictactoe',
-                      GTK_RUN_FIRST,
-                      object_class^.thetype,
-                      @theclass^.tictactoe - pointer(theclass),
-                      @gtk_signal_default_marshallerT, GTK_TYPE_NONE, 0);
-
-  gtk_object_class_add_signals (object_class, pguint(@tictactoe_signals), ANZ_SIGNAL);
-
-  theclass^.tictactoe := NIL;
-end;
-
-Procedure tictactoe_init (ttt : pTictactoe );
-var table : pGtkWidget ;
-  i,j     : gint;
-begin
-  table := gtk_table_new (3, 3, true);
-  gtk_container_add (pGTKCONTAINER(ttt), table);
-  gtk_widget_show (table);
-
-  for i:=0 to 2 do
-    for j:=0 to 2 do
-    begin
-      ttt^.buttons[i][j] := gtk_toggle_button_new ();
-      gtk_table_attach_defaults (pGTKTABLE(table), ttt^.buttons[i][j],
-                                 i, i+1, j, j+1);
-      gtk_signal_connect (pGTKOBJECT (ttt^.buttons[i][j]), 'toggled',
-                          GTK_SIGNAL_FUNC (@tictactoe_toggle), ttt);
-      gtk_widget_set_usize (ttt^.buttons[i][j], 20, 20);
-      gtk_widget_show (ttt^.buttons[i][j]);
-    end;
-end;
-
-Procedure tictactoe_class_init2 (theclass : gpointer ); cdecl;
-begin
-  tictactoe_class_init (theclass);
-end;
-
-Procedure tictactoe_init2 (ttt : gpointer; klass:gpointer); cdecl;
-begin
-  tictactoe_init (ttt);
-end;
-
-Function tictactoe_get_type:guint;
-const ttt_type : guint  = 0;
-  ttt_info: TGtkTypeInfo = (
-                                                        type_name : 'Tictactoe';
-                                                        object_size : sizeof (TTictactoe);
-                                                        class_size : sizeof (TTictactoeClass);
-                                                        class_init_func : @tictactoe_class_init2;
-                                                        object_init_func : @tictactoe_init2;
-                                                        );
-begin
-  if (ttt_type = 0) then
-    ttt_type := gtk_type_unique (gtk_vbox_get_type (), @ttt_info);
-
-  tictactoe_get_type:= ttt_type;
-end;
-
-Function tictactoe_new:pGtkWidget;
-begin
-  tictactoe_new:= pGTKWIDGET ( gtk_type_new (tictactoe_get_type ()));
-end;
-
-Procedure tictactoe_clear (ttt :  pTictactoe );
-var i,j : integer;
-begin
-  for i:=0 to 2 do
-    for j:=0 to 2 do
-    begin
-      gtk_signal_handler_block_by_data (pGTKOBJECT(ttt^.buttons[i][j]), ttt);
-      gtk_toggle_button_set_active (pGTKTOGGLEBUTTON (ttt^.buttons[i][j]),
-                                   false);
-      gtk_signal_handler_unblock_by_data (pGTKOBJECT(ttt^.buttons[i][j]), ttt);
-    end;
-end;
-
-end.

packages/extra/gtk/examples/toolbar.pp

@@ -1,326 +0,0 @@
-{
-
-  Converted from C to Pascal by Artur Bac
-  <[email protected]>
-  Reda Poland
-}
-{$MODE objfpc}
-{$H+}
-{$S+}
-{$HINTS ON}
-{$ifdef win32}
-  {$define extdecl := stdcall;}
-  {$APPTYPE GUI}
-{$endif}
-{$ifdef Unix}
-  {$define extdecl := cdecl;}
-{$endif}
-
-Program tool_bar;
-uses glib,gdk,gtk;
-Const
-//* XPM */
-gtk_xpm : array[0..44]of pgchar = (
-'32 39 5 1',
-'.      c none',
-'+      c black',
-'@      c #3070E0',
-'#      c #F05050',
-'$      c #35E035',
-'................+...............',
-'..............+++++.............',
-'............+++++@@++...........',
-'..........+++++@@@@@@++.........',
-'........++++@@@@@@@@@@++........',
-'......++++@@++++++++@@@++.......',
-'.....+++@@@+++++++++++@@@++.....',
-'...+++@@@@+++@@@@@@++++@@@@+....',
-'..+++@@@@+++@@@@@@@@+++@@@@@++..',
-'.++@@@@@@+++@@@@@@@@@@@@@@@@@@++',
-'.+#+@@@@@@++@@@@+++@@@@@@@@@@@@+',
-'.+##++@@@@+++@@@+++++@@@@@@@@$@.',
-'.+###++@@@@+++@@@+++@@@@@++$$$@.',
-'.+####+++@@@+++++++@@@@@+@$$$$@.',
-'.+#####+++@@@@+++@@@@++@$$$$$$+.',
-'.+######++++@@@@@@@++@$$$$$$$$+.',
-'.+#######+##+@@@@+++$$$$$$@@$$+.',
-'.+###+++##+##+@@++@$$$$$$++$$$+.',
-'.+###++++##+##+@@$$$$$$$@+@$$@+.',
-'.+###++++++#+++@$$@+@$$@++$$$@+.',
-'.+####+++++++#++$$@+@$$++$$$$+..',
-'.++####++++++#++$$@+@$++@$$$$+..',
-'.+#####+++++##++$$++@+++$$$$$+..',
-'.++####+++##+#++$$+++++@$$$$$+..',
-'.++####+++####++$$++++++@$$$@+..',
-'.+#####++#####++$$+++@++++@$@+..',
-'.+#####++#####++$$++@$$@+++$@@..',
-'.++####++#####++$$++$$$$$+@$@++.',
-'.++####++#####++$$++$$$$$$$$+++.',
-'.+++####+#####++$$++$$$$$$$@+++.',
-'..+++#########+@$$+@$$$$$$+++...',
-'...+++########+@$$$$$$$$@+++....',
-'.....+++######+@$$$$$$$+++......',
-'......+++#####+@$$$$$@++........',
-'.......+++####+@$$$$+++.........',
-'.........++###+$$$@++...........',
-'..........++##+$@+++............',
-'...........+++++++..............',
-'.............++++...............');
-{ This function is connected to the Close button or
-  closing the window from the WM }
-function BOOL_TO_GINT(data : boolean) : gint;
-Begin
-    if data then
-       BOOL_TO_GINT:=1
-    else
-        BOOL_TO_GINT:=0;
-end;
-function delete_event (widget  : PGtkWidget ;
-                event : PGdkEvent;
-                data : gpointer) : boolean ; cdecl;
-Begin
-  gtk_main_quit ();
-  delete_event :=FALSE;
-end;
-
-{The above beginning seems for sure familiar to you if it's not your first GTK program.
-There is one additional thing though,
-we include a nice XPM picture to serve as an icon for all of the buttons.
-}
-Var
-    close_button : PGtkWidget; { This button will emit signal to close application }
-    tooltips_button : PGtkWidget; { to enable/disable tooltips }
-    text_button  : PGtkWidget;
-    icon_button  : PGtkWidget;
-    both_button  : PGtkWidget; { radio buttons for toolbar style }
-    entry        : PGtkWidget; { a text entry to show packing any widget into toolbar }
-
-//In fact not all of the above widgets are needed here,
-//but to make things clearer I put them all together.
-
-{ that's easy... when one of the buttons is toggled, we just
- * check which one is active and set the style of the toolbar
- * accordingly
- * ATTENTION: our toolbar is passed as data to callback ! }
-Procedure radio_event (widget : PGTkWidget;  data : gpointer); cdecl;
-
-Begin
-  if (gtk_toggle_button_get_active( GTK_TOGGLE_BUTTON (text_button))) then
-    gtk_toolbar_set_style(GTK_TOOLBAR ( data ), GTK_TOOLBAR_TEXT)
-  else begin
-    if (gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON (icon_button))) then
-        gtk_toolbar_set_style(GTK_TOOLBAR ( data ), GTK_TOOLBAR_ICONS);
-    if (gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON (both_button))) then
-        gtk_toolbar_set_style(GTK_TOOLBAR ( data ), GTK_TOOLBAR_BOTH);
-    end;
-End;
-
-{ even easier, just check given toggle button and enable/disable
- * tooltips }
-Procedure toggle_event (widget : PGtkWidget; data : gpointer); cdecl;
-Begin
-{Due to gtk specification
-
-void        gtk_toolbar_set_tooltips        (GtkToolbar *toolbar,
-                                             gboolean enable);
-In Pasal unit this functioni is implemented as
-procedure gtk_toolbar_set_tooltips (toolbar:PGtkToolbar;
-                         enable:gint);
-                         cdecl;external gtkdll name 'gtk_toolbar_set_tooltips';
-so we have to change boolean to gint with function BOOL_TO_GINT implemented
-on the top of source
-}
-  gtk_toolbar_set_tooltips (GTK_TOOLBAR ( data ),
-                            BOOL_TO_GINT(
-                                gtk_toggle_button_get_active(
-                                    GTK_TOGGLE_BUTTON (widget))));
-End;
-
-{The above are just two callback functions that will be called
-when one of the buttons on a toolbar is pressed.
-You should already be familiar with things like this if you've already used toggle buttons
-and radio buttons.
-}
-Var
-  { Here is our main window (a dialog) and a handle for the handlebox }
-  dialog : PGtkWidget;
-  handlebox : PGtkWidget;
-
-  { Ok, we need a toolbar, an icon with a mask (one for all of
-     the buttons) and an icon widget to put this icon in (but
-     we'll create a separate widget for each button) }
-  toolbar : PGtkWidget;
-  icon : PGdkPixmap;
-  mask : PGdkBitmap;
-  iconw : PGtkWidget;
-  style : PGtkStyle;
-Begin
-  { this is called in all GTK application. }
-  gtk_set_locale (); //It important for apps taht use local language specific characters
-  gtk_init (@argc, @argv);
-  gtk_rc_init;
-
-  { create a new window with a given title, and nice size }
-  dialog := gtk_dialog_new ();
-  gtk_window_set_title ( GTK_WINDOW ( dialog ) , 'GTKToolbar Tutorial');
-  gtk_widget_set_usize( GTK_WIDGET ( dialog ) , 600 , 300 );
-  set_allow_shrink(PGtkWindow(dialog)^,BM_ALLOW_SHRINK);
-
-  { typically we quit if someone tries to close us }
-  gtk_signal_connect ( GTK_OBJECT ( dialog ), 'delete_event',
-                       GTK_SIGNAL_FUNC ( @delete_event ), NULL);
-
-  { we need to realize the window because we use pixmaps for
-   * items on the toolbar in the context of it }
-  gtk_widget_realize ( dialog );
-
-  { to make it nice we'll put the toolbar into the handle box,
-   * so that it can be detached from the main window }
-  handlebox := gtk_handle_box_new ();
-  gtk_box_pack_start ( GTK_BOX ( GTK_DIALOG(dialog)^.vbox ),
-                       handlebox, FALSE, FALSE, 5 );
-
-{The above should be similar to any other GTK application.
-Just initialization of GTK, creating the window, etc.
-There is only one thing that probably needs some explanation:
-a handle box. A handle box is just another box that can be used to pack widgets in to.
- The difference between it and typical boxes is that it can be detached from
- a parent window (or, in fact, the handle box remains in the parent,
- but it is reduced to a very small rectangle, while all of its contents
-  are reparented to a new freely floating window). It is usually nice
-  to have a detachable toolbar, so these two widgets occur together quite often.
-   toolbar will be horizontal, with both icons and text, and
-   * with 5pxl spaces between items and finally,
-   * we'll also put it into our handlebox }
-  toolbar := gtk_toolbar_new ( GTK_ORIENTATION_HORIZONTAL,
-                              GTK_TOOLBAR_BOTH );
-  gtk_container_set_border_width ( GTK_CONTAINER ( toolbar ) , 5 );
-  gtk_toolbar_set_space_size ( GTK_TOOLBAR ( toolbar ), 5 );
-  gtk_container_add ( GTK_CONTAINER ( handlebox ) , toolbar );
-
-  { now we create icon with mask: we'll reuse it to create
-   * icon widgets for toolbar items }
-  style := gtk_widget_get_style( dialog );
-  icon := gdk_pixmap_create_from_xpm_d ( dialog^.window, @mask,
-      @style^.fg_gc, gtk_xpm );
-
-{Well, what we do above is just a straightforward initialization of the toolbar widget
- and creation of a GDK pixmap with its mask.
-  If you want to know something more about using pixmaps,
-   refer to GDK documentation or to the Pixmaps section earlier in this tutorial.}
-
-  { our first item is <close> button }
-  iconw := gtk_pixmap_new ( icon, mask ); { icon widget }
-  close_button :=
-  gtk_toolbar_append_item ( GTK_TOOLBAR (toolbar), { our toolbar }
-                              'Close',               { button label }
-                              'Closes this app',     { this button's tooltip }
-                              'Private',             { tooltip private info }
-                              iconw,                 { icon widget }
-                              GTK_SIGNAL_FUNC (@delete_event), { a signal }
-                               NULL );
-  gtk_toolbar_append_space ( GTK_TOOLBAR ( toolbar ) ); { space after item }
-
-{In the above code you see the simplest case: adding a button to toolbar.
- Just before appending a new item, we have to construct a pixmap widget
- to serve as an icon for this item; this step will have to be repeated for each new item.
- Just after the item we also add a space, so the following items will not touch each other.
- As you see gtk_toolbar_append_item returns a pointer to our newly created button widget,
-  so that we can work with it in the normal way.}
-
-  { now, let's make our radio buttons group... }
-  iconw := gtk_pixmap_new ( icon, mask );
-  icon_button := gtk_toolbar_append_element(
-                    GTK_TOOLBAR(toolbar),
-                    GTK_TOOLBAR_CHILD_RADIOBUTTON, { a type of element }
-                    NULL,                          { pointer to widget }
-                    'Icon',                        { label }
-                    'Only icons in toolbar',       { tooltip }
-                    'Private',                     { tooltip private string }
-                    iconw,                         { icon }
-                    GTK_SIGNAL_FUNC (@radio_event), { signal }
-                    toolbar);                      { data for signal }
-  gtk_toolbar_append_space ( GTK_TOOLBAR ( toolbar ) );
-
-{Here we begin creating a radio buttons group.
-To do this we use gtk_toolbar_append_element.
-In fact, using this function one can also +add simple items or even spaces
-(type := GTK_TOOLBAR_CHILD_SPACE or +GTK_TOOLBAR_CHILD_BUTTON).
-In the above case we start creating a radio group.
-In creating other radio buttons for this group a pointer to the previous button in the group
-is required, so that a list of buttons can be easily constructed
-(see the section on  Radio Buttons  earlier in this tutorial).
-
-   following radio buttons refer to previous ones }
-  iconw := gtk_pixmap_new ( icon, mask );
-  text_button :=
-    gtk_toolbar_append_element(GTK_TOOLBAR(toolbar),
-                               GTK_TOOLBAR_CHILD_RADIOBUTTON,
-                               icon_button,
-                               'Text',
-                               'Only texts in toolbar',
-                               'Private',
-                               iconw,
-                               GTK_SIGNAL_FUNC (@radio_event),
-                               toolbar);
-  gtk_toolbar_append_space ( GTK_TOOLBAR ( toolbar ) );
-
-  iconw := gtk_pixmap_new ( icon, mask );
-  both_button :=
-    gtk_toolbar_append_element(GTK_TOOLBAR(toolbar),
-                               GTK_TOOLBAR_CHILD_RADIOBUTTON,
-                               text_button,
-                               'Both',
-                               'Icons and text in toolbar',
-                               'Private',
-                               iconw,
-                               GTK_SIGNAL_FUNC (@radio_event),
-                               toolbar);
-  gtk_toolbar_append_space ( GTK_TOOLBAR ( toolbar ) );
-  gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(both_button),TRUE);
-
-{In the end we have to set the state of one of the buttons manually
-(otherwise they all stay in active state, preventing us from switching between them).}
-
-  { here we have just a simple toggle button }
-  iconw := gtk_pixmap_new ( icon, mask );
-  tooltips_button :=
-    gtk_toolbar_append_element(GTK_TOOLBAR(toolbar),
-                               GTK_TOOLBAR_CHILD_TOGGLEBUTTON,
-                               NULL,
-                               'Tooltips',
-                               'Toolbar with or without tips',
-                               'Private',
-                               iconw,
-                               GTK_SIGNAL_FUNC (@toggle_event),
-                               toolbar);
-  gtk_toolbar_append_space ( GTK_TOOLBAR ( toolbar ) );
-  gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(tooltips_button),TRUE);
-
-{A toggle button can be created in the obvious way
- (if one knows how to create radio buttons already).}
-
-  { to pack a widget into toolbar, we only have to
-    create it and append it with an appropriate tooltip }
-  entry := gtk_entry_new ();
-  gtk_toolbar_append_widget( GTK_TOOLBAR (toolbar),
-                             entry,
-                             'This is just an entry',
-                             'Private' );
-
-  { well, it isn't created within thetoolbar, so we must still show it }
-  gtk_widget_show ( entry );
-
-{As you see, adding any kind of widget to a toolbar is simple.
-The one thing you have to remember is that this widget must be shown manually
- (contrary to other items which will be shown together with the toolbar).}
-
-  { that's it ! let's show everything. }
-  gtk_widget_show ( toolbar );
-  gtk_widget_show (handlebox);
-  gtk_widget_show ( dialog );
-
-  { rest in gtk_main and wait for the fun to begin! }
-  gtk_main ();
-
-End.

packages/extra/gtk/examples/ttt_test.pp

@@ -1,43 +0,0 @@
-{
-
-  Converted from C to Pascal by Frank Loemker
-  <[email protected]>
-}
-program ttt_test;
-uses
-  glib,gdk,gtk,
-  tictactoe;
-
-procedure win (widget : pGtkWidget ; data: gpointer); cdecl;
-begin
-  writeln ('Yay!');
-  tictactoe_clear (pTICTACTOE (widget));
-end;
-
-
-var
-  window,ttt : pGtkWidget;
-begin
-  gtk_init (@argc, @argv);
-
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  gtk_window_set_title (pGTKWINDOW (window), 'Aspect Frame');
-
-  gtk_signal_connect (pGTKOBJECT (window), 'destroy',
-                      GTK_SIGNAL_FUNC (@gtk_exit), NIL);
-
-  gtk_container_set_border_width (pGTKCONTAINER (window), 10);
-
-  ttt := tictactoe_new ();
-
-  gtk_container_add (pGTKCONTAINER (window), ttt);
-  gtk_widget_show (ttt);
-
-  gtk_signal_connect (pGTKOBJECT (ttt), 'tictactoe',
-                      GTK_SIGNAL_FUNC (@win), NIL);
-
-  gtk_widget_show (window);
-
-  gtk_main ();
-end.

packages/extra/gtk/examples/tutorial/Makefile.fpc

@@ -1,18 +0,0 @@
-#
-#   Makefile.fpc for Free Pascal GTK 1.2.x Tutorial
-#
-
-[targets]
-programs=$(subst .pp,,$(wildcard tut*.pp))
-
-[require]
-packages=gtk
-
-[install]
-fpcpackage=y
-
-[default]
-fpcdir=../../../../..
-
-[rules]
-.NOTPARALLEL:

packages/extra/gtk/examples/tutorial/info.xpm

@@ -1,94 +0,0 @@
-/* XPM */
-static char *openfile[] = {
-/* width height num_colors chars_per_pixel */
-"    20    19       66            2",
-/* colors */
-".. c None",
-".# c #000000",
-".a c #dfdfdf",
-".b c #7f7f7f",
-".c c #006f6f",
-".d c #00efef",
-".e c #009f9f",
-".f c #004040",
-".g c #00bfbf",
-".h c #ff0000",
-".i c #ffffff",
-".j c #7f0000",
-".k c #007070",
-".l c #00ffff",
-".m c #00a0a0",
-".n c #004f4f",
-".o c #00cfcf",
-".p c #8f8f8f",
-".q c #6f6f6f",
-".r c #a0a0a0",
-".s c #7f7f00",
-".t c #007f7f",
-".u c #5f5f5f",
-".v c #707070",
-".w c #00f0f0",
-".x c #009090",
-".y c #ffff00",
-".z c #0000ff",
-".A c #00afaf",
-".B c #00d0d0",
-".C c #00dfdf",
-".D c #005f5f",
-".E c #00b0b0",
-".F c #001010",
-".G c #00c0c0",
-".H c #000f0f",
-".I c #00007f",
-".J c #005050",
-".K c #002f2f",
-".L c #dfcfcf",
-".M c #dfd0d0",
-".N c #006060",
-".O c #00e0e0",
-".P c #00ff00",
-".Q c #002020",
-".R c #dfc0c0",
-".S c #008080",
-".T c #001f1f",
-".U c #003f3f",
-".V c #007f00",
-".W c #00000f",
-".X c #000010",
-".Y c #00001f",
-".Z c #000020",
-".0 c #00002f",
-".1 c #000030",
-".2 c #00003f",
-".3 c #000040",
-".4 c #00004f",
-".5 c #000050",
-".6 c #00005f",
-".7 c #000060",
-".8 c #00006f",
-".9 c #000070",
-"#. c #7f7f80",
-"## c #9f9f9f",
-/* pixels */
-"........................................",
-"........................................",
-"........................................",
-".......................#.#.#............",
-".....................#.......#...#......",
-"...............................#.#......",
-".......#.#.#.................#.#.#......",
-".....#.y.i.y.#.#.#.#.#.#.#..............",
-".....#.i.y.i.y.i.y.i.y.i.#..............",
-".....#.y.i.y.i.y.i.y.i.y.#..............",
-".....#.i.y.i.y.#.#.#.#.#.#.#.#.#.#.#....",
-".....#.y.i.y.#.s.s.s.s.s.s.s.s.s.#......",
-".....#.i.y.#.s.s.s.s.s.s.s.s.s.#........",
-".....#.y.#.s.s.s.s.s.s.s.s.s.#..........",
-".....#.#.s.s.s.s.s.s.s.s.s.#............",
-".....#.#.#.#.#.#.#.#.#.#.#..............",
-"........................................",
-"........................................",
-"........................................"
-};
-
-------_=_NextPart_000_01BED208.06F017A2--)

packages/extra/gtk/examples/tutorial/tut2_1.pp

@@ -1,90 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 2.1
-
-  Converted from C to Pascal by Thomas E. Payne
-}
-program tut2_1;
-
-{$mode objfpc}
-
-uses
- glib,gdk,gtk;
-
-procedure hello(widget : pGtkWidget ; data: pgpointer ); cdecl;
-begin
-  writeln('Hello World');
-end;
-
-function delete_event (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ): integer; cdecl;
-begin
-  writeln('Delete Event Occurred');
-  delete_event := ord(true);
-end;
-
-procedure destroy(widget : pGtkWidget ; data: pgpointer ); cdecl;
-begin
-  gtk_main_quit();
-end;
-
-var
-  window, button :  pGtkWidget;//GtkWidget is the storage type for widgets
-
-
-begin
-  // This is called in all GTK applications. Arguments are parsed
-  // from the command line and are returned to the application.
-  gtk_init (@argc, @argv);
-
-  // create a new window
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  // When the window is given the "delete_event" signal (this is given
-  // by the window manager, usually by the 'close' option, or on the
-  // titlebar), we ask it to call the delete_event () function
-  // as defined above. The data passed to the callback
-  // function is NULL and is ignored in the callback function.
-  gtk_signal_connect (pGTKOBJECT (window), 'delete_event',
-                      GTK_SIGNAL_FUNC (@delete_event), NIL);
-
-
-  // Here we connect the "destroy" event to a signal handler.
-  // This event occurs when we call gtk_widget_destroy() on the window,
-  // or if we return 'FALSE' in the "delete_event" callback.
-  gtk_signal_connect (pGTKOBJECT (window), 'destroy',
-                    GTK_SIGNAL_FUNC (@destroy), NULL);
-
-  // Sets the border width of the window.
-  gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-
-  // Creates a new button with the label "Hello World".
-  button := gtk_button_new_with_label ('Hello_World');
-
-  // When the button receives the "clicked" signal, it will call the
-  // function hello() passing it NULL as its argument.  The hello()
-  // function is defined above. */
-  gtk_signal_connect (pGTKOBJECT (button), 'clicked',
-                              GTK_SIGNAL_FUNC (@hello), NULL);
-
-  // This will cause the window to be destroyed by calling
-  // gtk_widget_destroy(window) when "clicked".  Again, the destroy
-  // signal could come from here, or the window manager
-  gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                      GTK_SIGNAL_FUNC (@gtk_widget_destroy),
-                      pGTKOBJECT(window));
-
-  // This packs the button into the window (a gtk container).
-  gtk_container_add (GTK_CONTAINER (window), button);
-
-  // The final step is to display this newly created widget.
-  gtk_widget_show (button);
-
-  // and the window
-  gtk_widget_show (window);
-
-  // All GTK applications must have a gtk_main(). Control ends here
-  // and waits for an event to occur (like a key press or
-  // mouse event).
-  gtk_main ();
-end.

packages/extra/gtk/examples/tutorial/tut3_3.pp

@@ -1,97 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 3.3
-
-  Converted from C to Pascal by Thomas E. Payne
-}
-program tut3_3;
-
-{$mode objfpc}
-
-uses
- glib,gdk,gtk,sysutils;
-
-procedure callback(widget : pGtkWidget ; data: pgpointer ); cdecl;
-begin
-  writeln('Hello again - '+pchar(data)+' was pressed');
-end;
-
-function delete_event (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ): integer; cdecl;
-begin
-  gtk_main_quit();
-  delete_event:=0;
-end;
-
-var
-  window, button, box1 :  pGtkWidget;//GtkWidget is the storage type for widgets
-
-begin
-  // This is called in all GTK applications. Arguments are parsed
-  // from the command line and are returned to the application.
-  gtk_init (@argc, @argv);
-
-  // create a new window
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  // This is a new call, this just sets the title of our
-  // new window to "Hello Buttons!" */
-  gtk_window_set_title (GTK_WINDOW (window), 'Hello Buttons!');
-
-  // Here we just set a handler for delete_event that immediately
-  // exits GTK. */
-  gtk_signal_connect (pGTKOBJECT (window), 'delete_event',
-                      GTK_SIGNAL_FUNC (@delete_event), NIL);
-
-  // Sets the border width of the window.
-  gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-
-  // We create a box to pack widgets into.  This is described in detail
-  // in the "packing" section. The box is not really visible, it
-  // is just used as a tool to arrange widgets. */
-  box1 := gtk_hbox_new(FALSE, 0);
-
-  // Put the box into the main window. */
-  gtk_container_add (GTK_CONTAINER (window), box1);
-
-  // Creates a new button with the label "Button 1".
-  button := gtk_button_new_with_label ('Button 1');
-
-  // Now when the button is clicked, we call the "callback" function
-  // with a pointer to "button 1" as its argument */
-  gtk_signal_connect (pGTKOBJECT (button), 'clicked',
-                      GTK_SIGNAL_FUNC (@callback), pchar('Button 1'));
-
-    // Instead of gtk_container_add, we pack this button into the invisible
-   // box, which has been packed into the window. */
-   gtk_box_pack_start(GTK_BOX(box1), button, TRUE, TRUE, 0);
-
-  // Always remember this step, this tells GTK that our preparation for
-  // this button is complete, and it can now be displayed. */
-  gtk_widget_show (button);
-
-  // Do these same steps again to create a second button */
-  button := gtk_button_new_with_label ('Button 2');
-
-  // Call the same callback function with a different argument,
-  // passing a pointer to "button 2" instead. */
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                      GTK_SIGNAL_FUNC (@callback), pchar('Button 2'));
-
-  gtk_box_pack_start(GTK_BOX(box1), button, TRUE, TRUE, 0);
-
-  // The order in which we show the buttons is not really important, but I
-  // recommend showing the window last, so it all pops up at once. */
-  gtk_widget_show(button);
-
-  gtk_widget_show(box1);
-
-
-  // and the window
-  gtk_widget_show (window);
-
-  // All GTK applications must have a gtk_main(). Control ends here
-  // and waits for an event to occur (like a key press or
-  // mouse event).
-  gtk_main ();
-end.

packages/extra/gtk/examples/tutorial/tut4_3.pp

@@ -1,299 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 4.3
-
-  Converted from C to Pascal by Thomas E. Payne
-}
-program Tut4_3;
-
-{$mode objfpc}
-
-uses
- glib,gdk,gtk,sysutils;
-
-function delete_event (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ): integer; cdecl;
-begin
-  gtk_main_quit();
-  delete_event:=0;
-end;
-
-{    * Make a new hbox filled with button-labels. Arguments for the
-     * variables we're interested are passed in to this function.
-     * We do not show the box, but do show everything inside. }
-function make_box(homogeneous: boolean;
-                  spacing    : LONGINT;
-                  expand     : boolean;
-                  fill       : boolean;
-                  padding    : LONGINT ):pGtkWidget; cdecl;
-var
-  box, button :  pGtkWidget;   //GtkWidget is the storage type for widgets
-  padstr : string;
-  ppadstr : Pchar;
-begin
-
-        //* Create a new hbox with the appropriate homogeneous
-        //* and spacing settings */}
-        box := gtk_hbox_new (homogeneous, spacing);
-
-        //* Create a series of buttons with the appropriate settings */
-        button := gtk_button_new_with_label ('gtk_box_pack');
-        gtk_box_pack_start (GTK_BOX (box), button, expand, fill, padding);
-        gtk_widget_show (button);
-
-        button := gtk_button_new_with_label ('(box,');
-        gtk_box_pack_start (GTK_BOX (box), button, expand, fill, padding);
-        gtk_widget_show (button);
-
-        button := gtk_button_new_with_label ('button,');
-        gtk_box_pack_start (GTK_BOX (box), button, expand, fill, padding);
-        gtk_widget_show (button);
-
-        //* Create a button with the label depending on the value of
-        //* expand. */}
-        if (expand = TRUE) then
-                button := gtk_button_new_with_label ('TRUE,')
-        else
-                button := gtk_button_new_with_label ('FALSE,');
-
-        gtk_box_pack_start (GTK_BOX (box), button, expand, fill, padding);
-        gtk_widget_show (button);
-
-        //* This is the same as the button creation for "expand"
-        //* above, but uses the shorthand form. */}
-         if fill then
-           button := gtk_button_new_with_label ('TRUE,')
-          else
-           button := gtk_button_new_with_label ('FALSE,');
-        gtk_box_pack_start (GTK_BOX (box), button, expand, fill, padding);
-        gtk_widget_show (button);
-
-        padstr := InttoStr(padding)+');';
-        ppadstr := stralloc(length(padstr)+1);
-        strpcopy(ppadstr,padstr);
-
-        button := gtk_button_new_with_label (ppadstr);
-        gtk_box_pack_start (GTK_BOX (box), button, expand, fill, padding);
-        gtk_widget_show (button);
-
-        make_box := box;
-end; //make_box
-
-
-var
-  window,button,box1,box2,separator,label_,quitbox :  pGtkWidget;
-  which : integer;
-begin
-
-  //* Our init, don't forget this! :) */
-  gtk_init (@argc, @argv);
-
-  if (argc <> 2) then
-  begin
-    writeln (stderr, 'usage: packbox num, where num is 1, 2, or 3.');
-    //* This just does cleanup in GTK and exits with an exit status of 1. */
-    gtk_exit (1);
-  end;
-
-  which := StrtoInt(argv[1]);  //use params
-
-  //* Create our window */
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  //* You should always remember to connect the destroy signal to the
-  //* main window. This is very important for proper intuitive
-  //* behavior */
-  gtk_signal_connect (pGTKOBJECT (window), 'delete_event',
-                            GTK_SIGNAL_FUNC (@delete_event), NULL);
-  gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-
-  //* We create a vertical box (vbox) to pack the horizontal boxes into.
-  //* This allows us to stack the horizontal boxes filled with buttons one
-  //* on top of the other in this vbox. */
-  box1 := gtk_vbox_new (FALSE, 0);
-
-  //* which example to show. These correspond to the pictures above. */
-  case which of
-    1: begin
-         //* create a new label_. */
-         label_ := gtk_label_new ('gtk_hbox_new (FALSE, 0);');
-
-         //* Align the label_ to the left side.  We'll discuss this function and
-         //* others in the section on Widget Attributes. */
-         gtk_misc_set_alignment (GTK_MISC (label_), 0, 0);
-
-         //* Pack the label_ into the vertical box (vbox box1).  Remember that
-         //* widgets added to a vbox will be packed one on top of the other in
-         //* order. */
-         gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 0);
-
-         //* Show the label_ */
-         gtk_widget_show (label_);
-
-         //* Call our make box function - homogeneous = FALSE, spacing = 0,
-         //* expand = FALSE, fill = FALSE, padding = 0 */
-         box2 := make_box (FALSE, 0, FALSE, FALSE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Call our make box function - homogeneous = FALSE, spacing = 0,
-         //* expand = FALSE, fill = FALSE, padding = 0 */
-         box2 := make_box (FALSE, 0, TRUE, FALSE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (FALSE, 0, TRUE, TRUE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Creates a separator, we'll learn more about these later,
-         //* but they are quite simple. */
-         separator := gtk_hseparator_new ();
-
-         //* Pack the separator into the vbox. Remember each of these
-         //* widgets are being packed into a vbox, so they'll be stacked
-         //* vertically. */
-         gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 5);
-         gtk_widget_show (separator);
-
-         //* Create another new label, and show it. */
-         label_ := gtk_label_new ('gtk_hbox_new (TRUE, 0);');
-         gtk_misc_set_alignment (GTK_MISC (label_), 0, 0);
-         gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 0);
-         gtk_widget_show (label_);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (TRUE, 0, TRUE, FALSE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (TRUE, 0, TRUE, TRUE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Another new separator. */
-         separator := gtk_hseparator_new ();
-         //* The last 3 arguments to gtk_box_pack_start are:
-         //* expand, fill, padding. */
-         gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 5);
-         gtk_widget_show (separator);
-
-       end;
-    2: begin
-         //* Create a new label, remember box1 is a vbox as created
-         //* near the beginning of main() */
-         label_ := gtk_label_new ('gtk_hbox_new (FALSE, 10);');
-         gtk_misc_set_alignment (GTK_MISC (label_), 0, 0);
-         gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 0);
-         gtk_widget_show (label_);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (FALSE, 10, TRUE, FALSE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (FALSE, 10, TRUE, TRUE, 0);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         separator := gtk_hseparator_new ();
-         //* The last 3 arguments to gtk_box_pack_start are:
-         //* expand, fill, padding. */
-         gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 5);
-         gtk_widget_show (separator);
-
-         label_ := gtk_label_new ('gtk_hbox_new (FALSE, 0);');
-         gtk_misc_set_alignment (GTK_MISC (label_), 0, 0);
-         gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 0);
-         gtk_widget_show (label_);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (FALSE, 0, TRUE, FALSE, 10);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* Args are: homogeneous, spacing, expand, fill, padding */
-         box2 := make_box (FALSE, 0, TRUE, TRUE, 10);
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         separator := gtk_hseparator_new ();
-         //* The last 3 arguments to gtk_box_pack_start are: expand, fill, padding. */
-         gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 5);
-         gtk_widget_show (separator);
-       end;
-    3: begin
-
-         //* This demonstrates the ability to use gtk_box_pack_end() to
-         //* right justify widgets. First, we create a new box as before. */
-         box2 := make_box (FALSE, 0, FALSE, FALSE, 0);
-
-         //* Create the label_ that will be put at the end. */
-         label_ := gtk_label_new ('end');
-         //* Pack it using gtk_box_pack_end(), so it is put on the right
-         //* side of the hbox created in the make_box() call. */
-         gtk_box_pack_end (GTK_BOX (box2), label_, FALSE, FALSE, 0);
-         //* Show the label_. */
-         gtk_widget_show (label_);
-
-         //* Pack box2 into box1 (the vbox remember ? :) */
-         gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, FALSE, 0);
-         gtk_widget_show (box2);
-
-         //* A separator for the bottom. */
-         separator := gtk_hseparator_new ();
-         //* This explicitly sets the separator to 400 pixels wide by 5 pixels
-         //* high. This is so the hbox we created will also be 400 pixels wide,
-         //* and the "end" label_ will be separated from the other labels in the
-         //* hbox. Otherwise, all the widgets in the hbox would be packed as
-         //* close together as possible. */
-         gtk_widget_set_usize (separator, 400, 5);
-         //* pack the separator into the vbox (box1) created near the start
-         //* of main() */
-         gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 5);
-         gtk_widget_show (separator);
-       end;
-    end; //case
-
-    //* Create another new hbox.. remember we can use as many as we need! */
-    quitbox := gtk_hbox_new (FALSE, 0);
-
-    //* Our quit button. */
-    button := gtk_button_new_with_label ('Quit');
-
-    //* Setup the signal to destroy the window. Remember that this will send
-    //* the "destroy" signal to the window which will be caught by our signal
-    //* handler as defined above. */
-    gtk_signal_connect_object (pGTKOBJECT (button), 'clicked',
-                                   GTK_SIGNAL_FUNC (@gtk_main_quit),
-                                   GTK_OBJECT (window));
-    //* Pack the button into the quitbox.
-    //* The last 3 arguments to gtk_box_pack_start are:
-    //* expand, fill, padding. */
-    gtk_box_pack_start (GTK_BOX (quitbox), button, TRUE, FALSE, 0);
-    //* pack the quitbox into the vbox (box1) */
-    gtk_box_pack_start (GTK_BOX (box1), quitbox, FALSE, FALSE, 0);
-
-    //* Pack the vbox (box1) which now contains all our widgets, into the
-    //* main window. */
-    gtk_container_add (GTK_CONTAINER (window), box1);
-
-    //* And show everything left */
-    gtk_widget_show (button);
-    gtk_widget_show (quitbox);
-
-    gtk_widget_show (box1);
-    //* Showing the window last so everything pops up at once. */
-    gtk_widget_show (window);
-
-    //* And of course, our main function. */
-    gtk_main ();
-
-    //* Control returns here when gtk_main_quit() is called, but not when
-    //* gtk_exit is used. */
-
-    //return(0);
-end.

packages/extra/gtk/examples/tutorial/tut4_5.pp

@@ -1,98 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 4.5
-
-  Converted from C to Pascal by Thomas E. Payne
-}
-program Tut4_5;
-
-{$mode objfpc}
-
-uses
- glib,gdk,gtk,sysutils;
-
-
-//* Our callback.
-//* The data passed to this function is printed to stdout */
-procedure callback(widget : pGtkWidget ; data: pgpointer ); cdecl;
-begin
-  writeln('Hello again - '+pchar(data)+' was pressed');
-end;
-
-//* This callback quits the program */
-function delete_event (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ): integer; cdecl;
-begin
-  gtk_main_quit();
-  delete_event:=0;
-end;
-
-var
-  window, button, table :pGtkWidget;
-begin
-  gtk_init (@argc, @argv);
-
-  //* Create a new window */
-  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-  //* Set the window title */
-  gtk_window_set_title (GTK_WINDOW (window), 'Table');
-
-  //* Set a handler for delete_event that immediately
-  //* exits GTK. */
-  gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
-                     GTK_SIGNAL_FUNC (@delete_event), NIL);
-
-  //* Sets the border width of the window. */
-  gtk_container_set_border_width (GTK_CONTAINER (window), 20);
-
-  //* Create a 2x2 table */
-  table := gtk_table_new (2, 2, TRUE);
-
-  //* Put the table in the main window */
-  gtk_container_add (GTK_CONTAINER (window), table);
-
-  //* Create first button */
-  button := gtk_button_new_with_label ('button 1');
-
-  //* When the button is clicked, we call the "callback" function
-  //* with a pointer to "button 1" as its argument */
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                  GTK_SIGNAL_FUNC (@callback), pchar('button 1'));
-
-  //* Insert button 1 into the upper left quadrant of the table */
-  gtk_table_attach_defaults (GTK_TABLE(table), button, 0, 1, 0, 1);
-
-  gtk_widget_show (button);
-
-  //* Create second button */
-
-  button := gtk_button_new_with_label ('button 2');
-
-  //* When the button is clicked, we call the "callback" function
-  //* with a pointer to "button 2" as its argument */
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                  GTK_SIGNAL_FUNC (@callback), pchar('button 2'));
-  //* Insert button 2 into the upper right quadrant of the table */
-  gtk_table_attach_defaults (GTK_TABLE(table), button, 1, 2, 0, 1);
-
-  gtk_widget_show (button);
-
-  //* Create "Quit" button */
-  button := gtk_button_new_with_label ('Quit');
-
-  //* When the button is clicked, we call the "delete_event" function
-  //* and the program exits */
-  gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                            GTK_SIGNAL_FUNC (@delete_event), NIL);
-
-  //* Insert the quit button into the both
-  //* lower quadrants of the table */
-  gtk_table_attach_defaults (GTK_TABLE(table), button, 0, 2, 1, 2);
-  gtk_widget_show (button);
-
-  gtk_widget_show (table);
-  gtk_widget_show (window);
-
-  gtk_main ();
-end.

packages/extra/gtk/examples/tutorial/tut6_1.pp

@@ -1,89 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 6.1
-
-  Converted from C to Pascal by Thomas E. Payne
-}
- program Tut6_1;
-
-{$mode objfpc}
-
- uses
-  glib,gdk,gtk,sysutils;
-
-  //* Create a new hbox with an image and a label packed into it
-  //* and return the box. */
-   function xpm_label_box( parent: pGtkWidget;
-                           xpm_filename : pchar;
-                           label_text : pchar ): pGtkWidget; cdecl;
-   var
-
-     box1, label_,pixmapwid : pGtkWidget;
-     pixmap :   pGdkPixmap;
-     mask   : pGdkBitmap;
-     style  : pGtkStyle;
-   begin
-     //* Create box for xpm and label */
-     box1 := gtk_hbox_new (FALSE, 0);
-     gtk_container_set_border_width (GTK_CONTAINER (box1), 2);
-     //* Get the style of the button to get the background color. */
-     style := gtk_widget_get_style(parent);
-     //* Now on to the xpm stuff */
-     //function  gdk_pixmap_create_from_xpm(window:PGdkWindow;
-     //mask:PPGdkBitmap;
-     // transparent_color:PGdkColor; filename:Pgchar):PGdkPixmap;
-
-     pixmap := gdk_pixmap_create_from_xpm (parent^.window, @mask,
-                                          @style^.bg[GTK_STATE_NORMAL],
-                                          xpm_filename);
-     pixmapwid := gtk_pixmap_new (pixmap, mask);
-     //* Create a label for the button */
-     label_ := gtk_label_new (label_text);
-     //* Pack the pixmap and label into the box */
-     gtk_box_pack_start (GTK_BOX (box1),
-                         pixmapwid, FALSE, FALSE, 3);
-     gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 3);
-     gtk_widget_show(pixmapwid);
-     gtk_widget_show(label_);
-     xpm_label_box := box1;
-   end;
-
-   //* Our usual callback function */
- procedure callback( widget : pGtkWidget; data : pgpointer   );cdecl;
-   begin
-     writeln ('Hello again - '+pchar(data)+' was pressed');
-   end;
-
-  var
-    //* GtkWidget is the storage type for widgets */
-    window,button,box1 : pGtkWidget;
-  begin
-     gtk_init (@argc, @argv);
-     //* Create a new window */
-     window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-     gtk_window_set_title (GTK_WINDOW (window), 'Pixmap''d Buttons!');
-     //* It's a good idea to do this for all windows. */
-     gtk_signal_connect (GTK_OBJECT (window), 'destroy',
-                         GTK_SIGNAL_FUNC (@gtk_exit), Nil);
-     gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
-                         GTK_SIGNAL_FUNC (@gtk_exit), Nil);
-     //* Sets the border width of the window. */
-     gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-     gtk_widget_realize(window);
-     //* Create a new button */
-     button := gtk_button_new ();
-     //* Connect the "clicked" signal of the button to our callback */
-     gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                         GTK_SIGNAL_FUNC (@callback), pchar('cool button'));
-     //* This calls our box creating function */
-     box1 := xpm_label_box(window, 'info.xpm', 'cool button');
-     //* Pack and show all our widgets */
-     gtk_widget_show(box1);
-     gtk_container_add (GTK_CONTAINER (button), box1);
-     gtk_widget_show(button);
-     gtk_container_add (GTK_CONTAINER (window), button);
-     gtk_widget_show (window);
-     //* Rest in gtk_main and wait for the fun to begin! */
-     gtk_main ();
- end.

packages/extra/gtk/examples/tutorial/tut6_2.pp

@@ -1,63 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 6.2
-
-  Converted from C to Pascal by Thomas E. Payne
-}
- program Tut6_2;
-
-{$mode objfpc}
-
- uses
-  glib,gdk,gtk,sysutils;
-
-   //* Our usual callback function */
-
- procedure toggle_callback( widget : pGtkWidget; data : pgpointer   );cdecl;
-   begin
-     writeln ('Hello again - '+pchar(data)+' was pressed');
-          if active(GTK_TOGGLE_BUTTON(widget)^)<>0 then
-            //* If control reaches here, the toggle button is down */
-            writeln('Toggle button is down')
-          else
-            //* If control reaches here, the toggle button is up */
-            writeln('Toggle button is up');
-   end;
-  var
-    //* GtkWidget is the storage type for widgets */
-    window,button,box1,label_ : pGtkWidget;
-  begin
-     gtk_init (@argc, @argv);
-     //* Create a new window */
-     window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-     gtk_window_set_title (GTK_WINDOW (window), 'Toggle Buttons!');
-     //* It's a good idea to do this for all windows. */
-     gtk_signal_connect (GTK_OBJECT (window), 'destroy',
-                         GTK_SIGNAL_FUNC (@gtk_exit), Nil);
-     gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
-                         GTK_SIGNAL_FUNC (@gtk_exit), Nil);
-     //* Sets the border width of the window. */
-     gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-     gtk_widget_realize(window);
-     //* Create a new button */
-     button := gtk_toggle_button_new ();
-     //* Connect the "clicked" signal of the button to our callback */
-     gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                         GTK_SIGNAL_FUNC (@toggle_callback), pchar('toggle button'));
-     //* This calls our box creating function */
-     box1 := gtk_hbox_new(False, 0);
-     gtk_container_set_border_width (GTK_CONTAINER (box1), 2);
-     //* Create a label for the button */
-     label_ := gtk_label_new ('toggle button');
-     gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 3);
-     //* Pack and show all our widgets */
-     gtk_widget_show(label_);
-     gtk_widget_show(box1);
-     gtk_container_add (GTK_CONTAINER (button), box1);
-     gtk_widget_show(button);
-     gtk_container_add (GTK_CONTAINER (window), button);
-     gtk_widget_show (window);
-     //* Rest in gtk_main and wait for the fun to begin! */
-     gtk_main ();
- end.

packages/extra/gtk/examples/tutorial/tut6_3.pp

@@ -1,64 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 6.3
-
-  Converted from C to Pascal by Thomas E. Payne
-}
- program Tut6_3;
-
-{$mode objfpc}
-
- uses
-  glib,gdk,gtk,sysutils;
-
-   //* Our usual callback function */
-
- procedure checkbox_callback( widget : pGtkWidget; data : pgpointer   );cdecl;
-   begin
-     writeln ('Hello again - '+pchar(data)+' was pressed');
-          if active(GTK_CHECK_BUTTON(widget)^.toggle_button)<>0 then
-            //* If control reaches here, the check button is down */
-            writeln('Check button is down')
-          else
-            //* If control reaches here, the check button is up */
-            writeln('Check button is up');
-   end;
-  var
-    //* GtkWidget is the storage type for widgets */
-    window,button,box1,label_ : pGtkWidget;
-  begin
-     gtk_init (@argc, @argv);
-     //* Create a new window */
-     window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-     gtk_window_set_title (GTK_WINDOW (window), 'Check Buttons!');
-     //* It's a good idea to do this for all windows. */
-     gtk_signal_connect (GTK_OBJECT (window), 'destroy',
-                         GTK_SIGNAL_FUNC (@gtk_exit), Nil);
-     gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
-                         GTK_SIGNAL_FUNC (@gtk_exit), Nil);
-     //* Sets the border width of the window. */
-     gtk_container_set_border_width (GTK_CONTAINER (window), 10);
-     gtk_widget_realize(window);
-     //* Create a new button */
-     button := gtk_check_button_new ();
-     //* Connect the "clicked" signal of the button to our callback */
-     gtk_signal_connect (GTK_OBJECT (button), 'clicked',
-                         GTK_SIGNAL_FUNC (@checkbox_callback), pchar('check button'));
-     //* This calls our box creating function */
-     box1 := gtk_hbox_new(False, 0);
-     gtk_container_set_border_width (GTK_CONTAINER (box1), 2);
-     //* Create a label for the button */
-     label_ := gtk_label_new ('check button');
-     gtk_box_pack_start (GTK_BOX (box1), label_, FALSE, FALSE, 3);
-     //* Pack and show all our widgets */
-     gtk_widget_show(label_);
-     gtk_widget_show(box1);
-     gtk_container_add (GTK_CONTAINER (button), box1);
-     gtk_widget_show(button);
-     gtk_container_add (GTK_CONTAINER (window), button);
-     gtk_widget_show (window);
-     //* Rest in gtk_main and wait for the fun to begin! */
-     gtk_main ();
-     //return(0);}/* example-end */
- end.

packages/extra/gtk/examples/tutorial/tut6_4.pp

@@ -1,87 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 6.4
-
-  Converted from C to Pascal by Thomas E. Payne
-}
- program Tut6_4;
-
-{$mode objfpc}
-
- uses
-  glib,gdk,gtk,sysutils;
-
-    //* example-start radiobuttons radiobuttons.c *//
-
-    procedure close_application( widget : pGtkWidget;
-                            event : pGdkEvent;
-                            data : gpointer ); cdecl;
-    begin
-      gtk_main_quit();
-    end;
-
-  var
-    window,box1,box2,button,separator : pGtkWidget;
-    group : pGSList;
-
-  begin
-        gtk_init(@argc,@argv);
-
-        window := Nil;
-
-        window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-
-        gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
-                            GTK_SIGNAL_FUNC(@close_application),
-                            Nil);
-
-        gtk_window_set_title (GTK_WINDOW (window), 'radio buttons');
-        gtk_container_set_border_width (GTK_CONTAINER (window), 0);
-
-        box1 := gtk_vbox_new (FALSE, 0);
-        gtk_container_add (GTK_CONTAINER (window), box1);
-        gtk_widget_show (box1);
-
-        box2 := gtk_vbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        button := gtk_radio_button_new_with_label (Nil, 'button1');
-        gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
-        gtk_widget_show (button);
-
-        group := gtk_radio_button_group (GTK_RADIO_BUTTON (button));
-        button := gtk_radio_button_new_with_label(group, 'button2');
-        gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (button), TRUE);
-        gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
-        gtk_widget_show (button);
-
-        button := gtk_radio_button_new_with_label(
-                     gtk_radio_button_group (GTK_RADIO_BUTTON (button)),
-                     'button3');
-        gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
-        gtk_widget_show (button);
-
-        separator := gtk_hseparator_new ();
-        gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 0);
-        gtk_widget_show (separator);
-
-        box2 := gtk_vbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-        gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        button := gtk_button_new_with_label ('close');
-        gtk_signal_connect_object (GTK_OBJECT (button), 'clicked',
-                                   GTK_SIGNAL_FUNC(@close_application),
-                                   GTK_OBJECT (window));
-        gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
-        GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
-        gtk_widget_grab_default (button);
-        gtk_widget_show (button);
-        gtk_widget_show (window);
-
-        gtk_main();
-  end.

packages/extra/gtk/examples/tutorial/tut8_5.pp

@@ -1,306 +0,0 @@
-{
-
-  This file extracted from the GTK 1.2 tutorial.
-  Section 8.5
-
-  Converted from C to Pascal by Thomas E. Payne
-}
-program Tut8_5;
-
-{$mode objfpc}
-
- uses
-  glib,gdk,gtk,sysutils;
-
-    //* example-start rangewidgets rangewidgets.c *//
- var
-   hscale, vscale : pGtkWidget;
-
-   procedure cb_pos_menu_select( item : pGtkWidget;
-                             pos : TGtkPositionType );cdecl;
-   begin
-        //* Set the value position on both scale widgets *//
-        gtk_scale_set_value_pos (GTK_SCALE (hscale), pos);
-        gtk_scale_set_value_pos (GTK_SCALE (vscale), pos);
-    end;
-
-   procedure cb_update_menu_select( item : pGtkWidget;
-                                policy : TGtkUpdateType);cdecl;
-   begin
-        //* Set the update policy for both scale widgets *//
-        gtk_range_set_update_policy (GTK_RANGE (hscale), policy);
-        gtk_range_set_update_policy (GTK_RANGE (vscale), policy);
-   end;
-
-   procedure cb_digits_scale( adj :pGtkAdjustment );cdecl;
-   begin
-        //* Set the number of decimal places to which adj->value is rounded *//
-        gtk_scale_set_digits (GTK_SCALE (hscale), round(adj^.value));
-        gtk_scale_set_digits (GTK_SCALE (vscale), round(adj^.value));
-   end;
-
-   procedure cb_page_size( get : pGtkAdjustment; set_ : pGtkAdjustment );cdecl;
-   begin
-        //* Set the page size and page increment size of the sample
-        //* adjustment to the value specified by the 'Page Size' scale *//
-        set_^.page_size := get^.value;
-        set_^.page_increment := get^.value;
-        //* Now emit the 'changed' signal to reconfigure all the widgets that
-        //* are attached to this adjustment *//
-        gtk_signal_emit_by_name (GTK_OBJECT (set_), 'changed');
-   end;
-
-    procedure cb_draw_value( button : pGtkToggleButton );cdecl;
-    begin
-        //* Turn the value display on the scale widgets off or on depending
-        //*  on the state of the checkbutton *//
-        gtk_scale_set_draw_value (GTK_SCALE (hscale), active(button^)<>0);
-        gtk_scale_set_draw_value (GTK_SCALE (vscale), active(button^)<>0);
-    end;
-
-    //* Convenience functions *//
-
-    function make_menu_item( name : pgchar;
-                             callback : TGtkSignalFunc;
-                             data :  gint ) : pGtkWidget;
-    var
-      item : pGtkWidget ;
-    begin
-
-        item := gtk_menu_item_new_with_label (name);
-        gtk_signal_connect (GTK_OBJECT (item), 'activate',
-                            callback, gpointer(data));
-        gtk_widget_show (item);
-
-        make_menu_item := item;
-    end;
-
-    function GINT_TO_POINTER( t : gint): gpointer;
-    var
-      temp : gint;
-    begin
-      temp := t;
-      GINT_TO_POINTER := @temp;
-    end;
-
-    procedure scale_set_default_values( scale : pGtkScale);
-    begin
-        gtk_range_set_update_policy (GTK_RANGE (scale),
-                                     GTK_UPDATE_CONTINUOUS);
-        gtk_scale_set_digits (scale, 1);
-        gtk_scale_set_value_pos (scale, GTK_POS_TOP);
-        gtk_scale_set_draw_value (scale, TRUE);
-    end;
-
-    //* makes the sample window *//
-
-    procedure create_range_controls;
-    var
-        window,
-        box1, box2, box3,
-        button,
-        scrollbar,
-        separator,
-        opt, menu, item,
-        label_,
-        scale  : pGtkWidget;
-        adj1, adj2 : pGtkObject;
-    begin
-
-        //* Standard window-creating stuff *//
-        window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
-        gtk_signal_connect (GTK_OBJECT (window), 'destroy',
-                            GTK_SIGNAL_FUNC(@gtk_main_quit),
-                            Nil);
-        gtk_window_set_title (GTK_WINDOW (window), 'range controls');
-
-        box1 := gtk_vbox_new (FALSE, 0);
-        gtk_container_add (GTK_CONTAINER (window), box1);
-        gtk_widget_show (box1);
-
-        box2 := gtk_hbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        //* calue, lower, upper, step_increment, page_increment, page_size *//
-        //* Note that the page_size value only makes a difference for
-        //* scrollbar widgets, and the highest value you'll get is actually
-        //* (upper - page_size). *//
-        adj1 := gtk_adjustment_new (0.0, 0.0, 101.0, 0.1, 1.0, 1.0);
-
-        vscale := gtk_vscale_new (GTK_ADJUSTMENT (adj1));
-        scale_set_default_values (GTK_SCALE (vscale));
-        gtk_box_pack_start (GTK_BOX (box2), vscale, TRUE, TRUE, 0);
-        gtk_widget_show (vscale);
-
-        box3 := gtk_vbox_new (FALSE, 10);
-        gtk_box_pack_start (GTK_BOX (box2), box3, TRUE, TRUE, 0);
-        gtk_widget_show (box3);
-
-        //* Reuse the same adjustment *//
-        hscale := gtk_hscale_new (GTK_ADJUSTMENT (adj1));
-        gtk_widget_set_usize (GTK_WIDGET (hscale), 200, 30);
-        scale_set_default_values (GTK_SCALE (hscale));
-        gtk_box_pack_start (GTK_BOX (box3), hscale, TRUE, TRUE, 0);
-        gtk_widget_show (hscale);
-
-        //* Reuse the same adjustment again *//
-        scrollbar := gtk_hscrollbar_new (GTK_ADJUSTMENT (adj1));
-        //* Notice how this causes the scales to always be updated
-        // * continuously when the scrollbar is moved *//
-        gtk_range_set_update_policy (GTK_RANGE (scrollbar),
-                                     GTK_UPDATE_CONTINUOUS);
-        gtk_box_pack_start (GTK_BOX (box3), scrollbar, TRUE, TRUE, 0);
-        gtk_widget_show (scrollbar);
-
-        box2 := gtk_hbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        //* A checkbutton to control whether the value is displayed or not *//
-        button := gtk_check_button_new_with_label('Display value on scale widgets');
-        gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (button), TRUE);
-        gtk_signal_connect (GTK_OBJECT (button), 'toggled',
-                            GTK_SIGNAL_FUNC(@cb_draw_value), Nil);
-        gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
-        gtk_widget_show (button);
-
-        box2 := gtk_hbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-
-        //* An option menu to change the position of the value *//
-        label_ := gtk_label_new ('Scale Value Position:');
-        gtk_box_pack_start (GTK_BOX (box2), label_, FALSE, FALSE, 0);
-        gtk_widget_show (label_);
-
-        opt := gtk_option_menu_new();
-        menu := gtk_menu_new();
-
-        item := make_menu_item ('Top',
-                               GTK_SIGNAL_FUNC(@cb_pos_menu_select),
-                               GTK_POS_TOP);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        item := make_menu_item ('Bottom', GTK_SIGNAL_FUNC (@cb_pos_menu_select),
-                               GTK_POS_BOTTOM);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        item := make_menu_item ('Left', GTK_SIGNAL_FUNC (@cb_pos_menu_select),
-                               GTK_POS_LEFT);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        item := make_menu_item ('Right', GTK_SIGNAL_FUNC (@cb_pos_menu_select),
-                                GTK_POS_RIGHT);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        gtk_option_menu_set_menu (GTK_OPTION_MENU (opt), menu);
-        gtk_box_pack_start (GTK_BOX (box2), opt, TRUE, TRUE, 0);
-        gtk_widget_show (opt);
-
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        box2 := gtk_hbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-
-        //* Yet another option menu, this time for the update policy of the
-        // * scale widgets *//
-        label_ := gtk_label_new ('Scale Update Policy:');
-        gtk_box_pack_start (GTK_BOX (box2), label_, FALSE, FALSE, 0);
-        gtk_widget_show (label_);
-
-        opt := gtk_option_menu_new();
-        menu := gtk_menu_new();
-
-        item := make_menu_item ('Continuous',
-                               GTK_SIGNAL_FUNC (@cb_update_menu_select),
-                               GTK_UPDATE_CONTINUOUS);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        item := make_menu_item ('Discontinuous',
-                                GTK_SIGNAL_FUNC (@cb_update_menu_select),
-                                GTK_UPDATE_DISCONTINUOUS);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        item := make_menu_item ('Delayed',
-                               GTK_SIGNAL_FUNC (@cb_update_menu_select),
-                               GTK_UPDATE_DELAYED);
-        gtk_menu_append (GTK_MENU (menu), item);
-
-        gtk_option_menu_set_menu (GTK_OPTION_MENU (opt), menu);
-        gtk_box_pack_start (GTK_BOX (box2), opt, TRUE, TRUE, 0);
-        gtk_widget_show (opt);
-
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        box2 := gtk_hbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-
-        //* A GtkHScale widget for adjusting the number of digits on the
-        //* sample scales. *//
-        label_ := gtk_label_new ('Scale Digits:');
-        gtk_box_pack_start (GTK_BOX (box2), label_, FALSE, FALSE, 0);
-        gtk_widget_show (label_);
-
-        adj2 := gtk_adjustment_new (1.0, 0.0, 5.0, 1.0, 1.0, 0.0);
-        gtk_signal_connect (GTK_OBJECT (adj2), 'value_changed',
-                            GTK_SIGNAL_FUNC (@cb_digits_scale), Nil);
-        scale := gtk_hscale_new (GTK_ADJUSTMENT (adj2));
-        gtk_scale_set_digits (GTK_SCALE (scale), 0);
-        gtk_box_pack_start (GTK_BOX (box2), scale, TRUE, TRUE, 0);
-        gtk_widget_show (scale);
-
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        box2 := gtk_hbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-
-        //* And, one last GtkHScale widget for adjusting the page size of the
-        // * scrollbar. *//
-        label_ := gtk_label_new ('Scrollbar Page Size:');
-        gtk_box_pack_start (GTK_BOX (box2), label_, FALSE, FALSE, 0);
-        gtk_widget_show (label_);
-
-        adj2 := gtk_adjustment_new (1.0, 1.0, 101.0, 1.0, 1.0, 0.0);
-        gtk_signal_connect (GTK_OBJECT (adj2), 'value_changed',
-                            GTK_SIGNAL_FUNC (@cb_page_size), adj1);
-        scale := gtk_hscale_new (GTK_ADJUSTMENT (adj2));
-        gtk_scale_set_digits (GTK_SCALE (scale), 0);
-        gtk_box_pack_start (GTK_BOX (box2), scale, TRUE, TRUE, 0);
-        gtk_widget_show (scale);
-
-        gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        separator := gtk_hseparator_new ();
-        gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 0);
-        gtk_widget_show (separator);
-
-        box2 := gtk_vbox_new (FALSE, 10);
-        gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
-        gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, TRUE, 0);
-        gtk_widget_show (box2);
-
-        button := gtk_button_new_with_label ('Quit');
-        gtk_signal_connect_object (GTK_OBJECT (button), 'clicked',
-                                   GTK_SIGNAL_FUNC(@gtk_main_quit),
-                                   Nil);
-        gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
-        GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
-        gtk_widget_grab_default (button);
-        gtk_widget_show (button);
-
-        gtk_widget_show (window);
-    end;
-
-begin
-  gtk_init(@argc, @argv);
-
-  create_range_controls();
-
-  gtk_main();
-end.

packages/extra/gtk/gdk/gdk.pp

@@ -1,108 +0,0 @@
-{
-
-   GDK - The GIMP Drawing Kit
-   Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
-
-   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.
-
- **********************************************************************}
-unit gdk;
-interface
-
-{$mode objfpc} { needed for array of const }
-
-{ Always use smartlinking for win32, this solves some undefined functions
-  in the development gtk versions which change often (PFV) }
-{$ifdef win32}
-  {$ifndef NO_SMART_LINK}
-    {$smartlink on}
-  {$endif}
-{$endif}
-
-uses
-  glib;
-
-{$ifdef win32}
-  const
-    gdkdll='libgdk-0';
-  {$define gtkwin}
-
-  {$packrecords C}
-{$else}
-  {$ifdef os2}
-    const
-      gdkdll='gdk12';
-      {$linklib gdk12}
-    {$define gtkos2}
-
-    {$packrecords C}
-  {$else}
-    const
-    {$ifdef FreeBSD}
-      gdkdll='gdk-12';
-      {$linklib gdk-12}
-    {$else}
-    {$ifdef darwin}
-      {$define gtkdarwin}
-      gdkdll='gdk-1.2.0';
-      {$linklib gdk-1.2.0}
-    {$else}
-      gdkdll='gdk';
-      {$linklib gdk}
-    {$endif}
-    {$endif}
-    {$linklib c}
-    {$linklib X11}
-
-    {$packrecords C}
-  {$endif}
-{$endif}
-
-Type
-  PLongint  = ^Longint;
-  PByte     = ^Byte;
-  PWord     = ^Word;
-  PINteger  = ^Integer;
-  PCardinal = ^Cardinal;
-  PReal     = ^Real;
-  PDouble   = ^Double;
-
-{$define gdk_include_files}
-
-{$define read_interface}
-{$undef read_implementation}
-
-{$i gdktypes.pp}
-{$i gdkkeysyms.pp}
-{$i gdkprivate.pp}
-{$i gdkrgb.pp}
-{$i gdkx.pp}
-{$i gdkmain.pp}
-
-
-implementation
-
-{$undef read_interface}
-{$define read_implementation}
-
-{$i gdktypes.pp}
-{$i gdkkeysyms.pp}
-{$i gdkprivate.pp}
-{$i gdkrgb.pp}
-{$i gdkx.pp}
-{$i gdkmain.pp}
-
-end.

packages/extra/gtk/gdk/gdkkeysyms.pp

@@ -1,1325 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-const
-   GDK_VoidSymbol = $FFFFFF;
-   GDK_BackSpace = $FF08;
-   GDK_Tab = $FF09;
-   GDK_Linefeed = $FF0A;
-   GDK_Clear_Key = $FF0B;
-   GDK_Return = $FF0D;
-   GDK_Pause = $FF13;
-   GDK_Scroll_Lock = $FF14;
-   GDK_Sys_Req = $FF15;
-   GDK_Escape = $FF1B;
-   GDK_Delete_Key = $FFFF;
-   GDK_Multi_key = $FF20;
-   GDK_SingleCandidate = $FF3C;
-   GDK_MultipleCandidate = $FF3D;
-   GDK_PreviousCandidate = $FF3E;
-   GDK_Kanji = $FF21;
-   GDK_Muhenkan = $FF22;
-   GDK_Henkan_Mode = $FF23;
-   GDK_Henkan = $FF23;
-   GDK_Romaji = $FF24;
-   GDK_Hiragana = $FF25;
-   GDK_Katakana = $FF26;
-   GDK_Hiragana_Katakana = $FF27;
-   GDK_Zenkaku = $FF28;
-   GDK_Hankaku = $FF29;
-   GDK_Zenkaku_Hankaku = $FF2A;
-   GDK_Touroku = $FF2B;
-   GDK_Massyo = $FF2C;
-   GDK_Kana_Lock = $FF2D;
-   GDK_Kana_Shift = $FF2E;
-   GDK_Eisu_Shift = $FF2F;
-   GDK_Eisu_toggle = $FF30;
-   GDK_Zen_Koho = $FF3D;
-   GDK_Mae_Koho = $FF3E;
-   GDK_Home = $FF50;
-   GDK_Left = $FF51;
-   GDK_Up = $FF52;
-   GDK_Right = $FF53;
-   GDK_Down = $FF54;
-   GDK_Prior = $FF55;
-   GDK_Page_Up = $FF55;
-   GDK_Next = $FF56;
-   GDK_Page_Down = $FF56;
-   GDK_End = $FF57;
-   GDK_Begin = $FF58;
-   GDK_Select = $FF60;
-   GDK_Print = $FF61;
-   GDK_Execute = $FF62;
-   GDK_Insert = $FF63;
-   GDK_Undo = $FF65;
-   GDK_Redo = $FF66;
-   GDK_Menu = $FF67;
-   GDK_Find = $FF68;
-   GDK_Cancel = $FF69;
-   GDK_Help = $FF6A;
-   GDK_Break = $FF6B;
-   GDK_Mode_switch = $FF7E;
-   GDK_script_switch = $FF7E;
-   GDK_Num_Lock = $FF7F;
-   GDK_KP_Space = $FF80;
-   GDK_KP_Tab = $FF89;
-   GDK_KP_Enter = $FF8D;
-   GDK_KP_F1 = $FF91;
-   GDK_KP_F2 = $FF92;
-   GDK_KP_F3 = $FF93;
-   GDK_KP_F4 = $FF94;
-   GDK_KP_Home = $FF95;
-   GDK_KP_Left = $FF96;
-   GDK_KP_Up = $FF97;
-   GDK_KP_Right = $FF98;
-   GDK_KP_Down = $FF99;
-   GDK_KP_Prior = $FF9A;
-   GDK_KP_Page_Up = $FF9A;
-   GDK_KP_Next = $FF9B;
-   GDK_KP_Page_Down = $FF9B;
-   GDK_KP_End = $FF9C;
-   GDK_KP_Begin = $FF9D;
-   GDK_KP_Insert = $FF9E;
-   GDK_KP_Delete = $FF9F;
-   GDK_KP_Equal = $FFBD;
-   GDK_KP_Multiply = $FFAA;
-   GDK_KP_Add = $FFAB;
-   GDK_KP_Separator = $FFAC;
-   GDK_KP_Subtract = $FFAD;
-   GDK_KP_Decimal = $FFAE;
-   GDK_KP_Divide = $FFAF;
-   GDK_KP_0 = $FFB0;
-   GDK_KP_1 = $FFB1;
-   GDK_KP_2 = $FFB2;
-   GDK_KP_3 = $FFB3;
-   GDK_KP_4 = $FFB4;
-   GDK_KP_5 = $FFB5;
-   GDK_KP_6 = $FFB6;
-   GDK_KP_7 = $FFB7;
-   GDK_KP_8 = $FFB8;
-   GDK_KP_9 = $FFB9;
-   GDK_F1 = $FFBE;
-   GDK_F2 = $FFBF;
-   GDK_F3 = $FFC0;
-   GDK_F4 = $FFC1;
-   GDK_F5 = $FFC2;
-   GDK_F6 = $FFC3;
-   GDK_F7 = $FFC4;
-   GDK_F8 = $FFC5;
-   GDK_F9 = $FFC6;
-   GDK_F10 = $FFC7;
-   GDK_F11 = $FFC8;
-   GDK_L1 = $FFC8;
-   GDK_F12 = $FFC9;
-   GDK_L2 = $FFC9;
-   GDK_F13 = $FFCA;
-   GDK_L3 = $FFCA;
-   GDK_F14 = $FFCB;
-   GDK_L4 = $FFCB;
-   GDK_F15 = $FFCC;
-   GDK_L5 = $FFCC;
-   GDK_F16 = $FFCD;
-   GDK_L6 = $FFCD;
-   GDK_F17 = $FFCE;
-   GDK_L7 = $FFCE;
-   GDK_F18 = $FFCF;
-   GDK_L8 = $FFCF;
-   GDK_F19 = $FFD0;
-   GDK_L9 = $FFD0;
-   GDK_F20 = $FFD1;
-   GDK_L10 = $FFD1;
-   GDK_F21 = $FFD2;
-   GDK_R1 = $FFD2;
-   GDK_F22 = $FFD3;
-   GDK_R2 = $FFD3;
-   GDK_F23 = $FFD4;
-   GDK_R3 = $FFD4;
-   GDK_F24 = $FFD5;
-   GDK_R4 = $FFD5;
-   GDK_F25 = $FFD6;
-   GDK_R5 = $FFD6;
-   GDK_F26 = $FFD7;
-   GDK_R6 = $FFD7;
-   GDK_F27 = $FFD8;
-   GDK_R7 = $FFD8;
-   GDK_F28 = $FFD9;
-   GDK_R8 = $FFD9;
-   GDK_F29 = $FFDA;
-   GDK_R9 = $FFDA;
-   GDK_F30 = $FFDB;
-   GDK_R10 = $FFDB;
-   GDK_F31 = $FFDC;
-   GDK_R11 = $FFDC;
-   GDK_F32 = $FFDD;
-   GDK_R12 = $FFDD;
-   GDK_F33 = $FFDE;
-   GDK_R13 = $FFDE;
-   GDK_F34 = $FFDF;
-   GDK_R14 = $FFDF;
-   GDK_F35 = $FFE0;
-   GDK_R15 = $FFE0;
-   GDK_Shift_L = $FFE1;
-   GDK_Shift_R = $FFE2;
-   GDK_Control_L = $FFE3;
-   GDK_Control_R = $FFE4;
-   GDK_Caps_Lock = $FFE5;
-   GDK_Shift_Lock = $FFE6;
-   GDK_Meta_L = $FFE7;
-   GDK_Meta_R = $FFE8;
-   GDK_Alt_L = $FFE9;
-   GDK_Alt_R = $FFEA;
-   GDK_Super_L = $FFEB;
-   GDK_Super_R = $FFEC;
-   GDK_Hyper_L = $FFED;
-   GDK_Hyper_R = $FFEE;
-   GDK_ISO_Lock = $FE01;
-   GDK_ISO_Level2_Latch = $FE02;
-   GDK_ISO_Level3_Shift = $FE03;
-   GDK_ISO_Level3_Latch = $FE04;
-   GDK_ISO_Level3_Lock = $FE05;
-   GDK_ISO_Group_Shift = $FF7E;
-   GDK_ISO_Group_Latch = $FE06;
-   GDK_ISO_Group_Lock = $FE07;
-   GDK_ISO_Next_Group = $FE08;
-   GDK_ISO_Next_Group_Lock = $FE09;
-   GDK_ISO_Prev_Group = $FE0A;
-   GDK_ISO_Prev_Group_Lock = $FE0B;
-   GDK_ISO_First_Group = $FE0C;
-   GDK_ISO_First_Group_Lock = $FE0D;
-   GDK_ISO_Last_Group = $FE0E;
-   GDK_ISO_Last_Group_Lock = $FE0F;
-   GDK_ISO_Left_Tab = $FE20;
-   GDK_ISO_Move_Line_Up = $FE21;
-   GDK_ISO_Move_Line_Down = $FE22;
-   GDK_ISO_Partial_Line_Up = $FE23;
-   GDK_ISO_Partial_Line_Down = $FE24;
-   GDK_ISO_Partial_Space_Left = $FE25;
-   GDK_ISO_Partial_Space_Right = $FE26;
-   GDK_ISO_Set_Margin_Left = $FE27;
-   GDK_ISO_Set_Margin_Right = $FE28;
-   GDK_ISO_Release_Margin_Left = $FE29;
-   GDK_ISO_Release_Margin_Right = $FE2A;
-   GDK_ISO_Release_Both_Margins = $FE2B;
-   GDK_ISO_Fast_Cursor_Left = $FE2C;
-   GDK_ISO_Fast_Cursor_Right = $FE2D;
-   GDK_ISO_Fast_Cursor_Up = $FE2E;
-   GDK_ISO_Fast_Cursor_Down = $FE2F;
-   GDK_ISO_Continuous_Underline = $FE30;
-   GDK_ISO_Discontinuous_Underline = $FE31;
-   GDK_ISO_Emphasize = $FE32;
-   GDK_ISO_Center_Object = $FE33;
-   GDK_ISO_Enter = $FE34;
-   GDK_dead_grave = $FE50;
-   GDK_dead_acute = $FE51;
-   GDK_dead_circumflex = $FE52;
-   GDK_dead_tilde = $FE53;
-   GDK_dead_macron = $FE54;
-   GDK_dead_breve = $FE55;
-   GDK_dead_abovedot = $FE56;
-   GDK_dead_diaeresis = $FE57;
-   GDK_dead_abovering = $FE58;
-   GDK_dead_doubleacute = $FE59;
-   GDK_dead_caron = $FE5A;
-   GDK_dead_cedilla = $FE5B;
-   GDK_dead_ogonek = $FE5C;
-   GDK_dead_iota = $FE5D;
-   GDK_dead_voiced_sound = $FE5E;
-   GDK_dead_semivoiced_sound = $FE5F;
-   GDK_dead_belowdot = $FE60;
-   GDK_First_Virtual_Screen = $FED0;
-   GDK_Prev_Virtual_Screen = $FED1;
-   GDK_Next_Virtual_Screen = $FED2;
-   GDK_Last_Virtual_Screen = $FED4;
-   GDK_Terminate_Server = $FED5;
-   GDK_AccessX_Enable = $FE70;
-   GDK_AccessX_Feedback_Enable = $FE71;
-   GDK_RepeatKeys_Enable = $FE72;
-   GDK_SlowKeys_Enable = $FE73;
-   GDK_BounceKeys_Enable = $FE74;
-   GDK_StickyKeys_Enable = $FE75;
-   GDK_MouseKeys_Enable = $FE76;
-   GDK_MouseKeys_Accel_Enable = $FE77;
-   GDK_Overlay1_Enable = $FE78;
-   GDK_Overlay2_Enable = $FE79;
-   GDK_AudibleBell_Enable = $FE7A;
-   GDK_Pointer_Left = $FEE0;
-   GDK_Pointer_Right = $FEE1;
-   GDK_Pointer_Up = $FEE2;
-   GDK_Pointer_Down = $FEE3;
-   GDK_Pointer_UpLeft = $FEE4;
-   GDK_Pointer_UpRight = $FEE5;
-   GDK_Pointer_DownLeft = $FEE6;
-   GDK_Pointer_DownRight = $FEE7;
-   GDK_Pointer_Button_Dflt = $FEE8;
-   GDK_Pointer_Button1 = $FEE9;
-   GDK_Pointer_Button2 = $FEEA;
-   GDK_Pointer_Button3 = $FEEB;
-   GDK_Pointer_Button4 = $FEEC;
-   GDK_Pointer_Button5 = $FEED;
-   GDK_Pointer_DblClick_Dflt = $FEEE;
-   GDK_Pointer_DblClick1 = $FEEF;
-   GDK_Pointer_DblClick2 = $FEF0;
-   GDK_Pointer_DblClick3 = $FEF1;
-   GDK_Pointer_DblClick4 = $FEF2;
-   GDK_Pointer_DblClick5 = $FEF3;
-   GDK_Pointer_Drag_Dflt = $FEF4;
-   GDK_Pointer_Drag1 = $FEF5;
-   GDK_Pointer_Drag2 = $FEF6;
-   GDK_Pointer_Drag3 = $FEF7;
-   GDK_Pointer_Drag4 = $FEF8;
-   GDK_Pointer_Drag5 = $FEFD;
-   GDK_Pointer_EnableKeys = $FEF9;
-   GDK_Pointer_Accelerate = $FEFA;
-   GDK_Pointer_DfltBtnNext = $FEFB;
-   GDK_Pointer_DfltBtnPrev = $FEFC;
-   GDK_3270_Duplicate = $FD01;
-   GDK_3270_FieldMark = $FD02;
-   GDK_3270_Right2 = $FD03;
-   GDK_3270_Left2 = $FD04;
-   GDK_3270_BackTab = $FD05;
-   GDK_3270_EraseEOF = $FD06;
-   GDK_3270_EraseInput = $FD07;
-   GDK_3270_Reset = $FD08;
-   GDK_3270_Quit = $FD09;
-   GDK_3270_PA1 = $FD0A;
-   GDK_3270_PA2 = $FD0B;
-   GDK_3270_PA3 = $FD0C;
-   GDK_3270_Test = $FD0D;
-   GDK_3270_Attn = $FD0E;
-   GDK_3270_CursorBlink = $FD0F;
-   GDK_3270_AltCursor = $FD10;
-   GDK_3270_KeyClick = $FD11;
-   GDK_3270_Jump = $FD12;
-   GDK_3270_Ident = $FD13;
-   GDK_3270_Rule = $FD14;
-   GDK_3270_Copy = $FD15;
-   GDK_3270_Play = $FD16;
-   GDK_3270_Setup = $FD17;
-   GDK_3270_Record = $FD18;
-   GDK_3270_ChangeScreen = $FD19;
-   GDK_3270_DeleteWord = $FD1A;
-   GDK_3270_ExSelect = $FD1B;
-   GDK_3270_CursorSelect = $FD1C;
-   GDK_3270_PrintScreen = $FD1D;
-   GDK_3270_Enter = $FD1E;
-   GDK_space = $020;
-   GDK_exclam = $021;
-   GDK_quotedbl = $022;
-   GDK_numbersign = $023;
-   GDK_dollar = $024;
-   GDK_percent = $025;
-   GDK_ampersand = $026;
-   GDK_apostrophe = $027;
-   GDK_quoteright = $027;
-   GDK_parenleft = $028;
-   GDK_parenright = $029;
-   GDK_asterisk = $02a;
-   GDK_plus_key = $02b;
-   GDK_comma = $02c;
-   GDK_minus = $02d;
-   GDK_period = $02e;
-   GDK_slash = $02f;
-   GDK_0 = $030;
-   GDK_1 = $031;
-   GDK_2 = $032;
-   GDK_3 = $033;
-   GDK_4 = $034;
-   GDK_5 = $035;
-   GDK_6 = $036;
-   GDK_7 = $037;
-   GDK_8 = $038;
-   GDK_9 = $039;
-   GDK_colon = $03a;
-   GDK_semicolon = $03b;
-   GDK_less = $03c;
-   GDK_equal = $03d;
-   GDK_greater = $03e;
-   GDK_question = $03f;
-   GDK_at = $040;
-   GDK_Capital_A = $041;
-   GDK_Capital_B = $042;
-   GDK_Capital_C = $043;
-   GDK_Capital_D = $044;
-   GDK_Capital_E = $045;
-   GDK_Capital_F = $046;
-   GDK_Capital_G = $047;
-   GDK_Capital_H = $048;
-   GDK_Capital_I = $049;
-   GDK_Capital_J = $04a;
-   GDK_Capital_K = $04b;
-   GDK_Capital_L = $04c;
-   GDK_Capital_M = $04d;
-   GDK_Capital_N = $04e;
-   GDK_Capital_O = $04f;
-   GDK_Capital_P = $050;
-   GDK_Capital_Q = $051;
-   GDK_Capital_R = $052;
-   GDK_Capital_S = $053;
-   GDK_Capital_T = $054;
-   GDK_Capital_U = $055;
-   GDK_Capital_V = $056;
-   GDK_Capital_W = $057;
-   GDK_Capital_X = $058;
-   GDK_Capital_Y = $059;
-   GDK_Capital_Z = $05a;
-   GDK_bracketleft = $05b;
-   GDK_backslash = $05c;
-   GDK_bracketright = $05d;
-   GDK_asciicircum = $05e;
-   GDK_underscore = $05f;
-   GDK_grave = $060;
-   GDK_quoteleft = $060;
-   GDK_a = $061;
-   GDK_b = $062;
-   GDK_c = $063;
-   GDK_d = $064;
-   GDK_e = $065;
-   GDK_f = $066;
-   GDK_g = $067;
-   GDK_h = $068;
-   GDK_i = $069;
-   GDK_j = $06a;
-   GDK_k = $06b;
-   GDK_l = $06c;
-   GDK_m = $06d;
-   GDK_n = $06e;
-   GDK_o = $06f;
-   GDK_p = $070;
-   GDK_q = $071;
-   GDK_r = $072;
-   GDK_s = $073;
-   GDK_t = $074;
-   GDK_u = $075;
-   GDK_v = $076;
-   GDK_w = $077;
-   GDK_x = $078;
-   GDK_y = $079;
-   GDK_z = $07a;
-   GDK_braceleft = $07b;
-   GDK_bar = $07c;
-   GDK_braceright = $07d;
-   GDK_asciitilde = $07e;
-   GDK_nobreakspace = $0a0;
-   GDK_exclamdown = $0a1;
-   GDK_cent = $0a2;
-   GDK_sterling = $0a3;
-   GDK_currency = $0a4;
-   GDK_yen = $0a5;
-   GDK_brokenbar = $0a6;
-   GDK_section = $0a7;
-   GDK_diaeresis = $0a8;
-   GDK_copyright = $0a9;
-   GDK_ordfeminine = $0aa;
-   GDK_guillemotleft = $0ab;
-   GDK_notsign = $0ac;
-   GDK_hyphen = $0ad;
-   GDK_registered = $0ae;
-   GDK_macron = $0af;
-   GDK_degree = $0b0;
-   GDK_plusminus = $0b1;
-   GDK_twosuperior = $0b2;
-   GDK_threesuperior = $0b3;
-   GDK_acute = $0b4;
-   GDK_mu = $0b5;
-   GDK_paragraph = $0b6;
-   GDK_periodcentered = $0b7;
-   GDK_cedilla = $0b8;
-   GDK_onesuperior = $0b9;
-   GDK_masculine = $0ba;
-   GDK_guillemotright = $0bb;
-   GDK_onequarter = $0bc;
-   GDK_onehalf = $0bd;
-   GDK_threequarters = $0be;
-   GDK_questiondown = $0bf;
-   GDK_Capital_Agrave = $0c0;
-   GDK_Capital_Aacute = $0c1;
-   GDK_Capital_Acircumflex = $0c2;
-   GDK_Capital_Atilde = $0c3;
-   GDK_Capital_Adiaeresis = $0c4;
-   GDK_Capital_Aring = $0c5;
-   GDK_Capital_AE = $0c6;
-   GDK_Capital_Ccedilla = $0c7;
-   GDK_Capital_Egrave = $0c8;
-   GDK_Capital_Eacute = $0c9;
-   GDK_Capital_Ecircumflex = $0ca;
-   GDK_Capital_Ediaeresis = $0cb;
-   GDK_Capital_Igrave = $0cc;
-   GDK_Capital_Iacute = $0cd;
-   GDK_Capital_Icircumflex = $0ce;
-   GDK_Capital_Idiaeresis = $0cf;
-   GDK_Capital_ETH = $0d0;
-   GDK_Capital_Ntilde = $0d1;
-   GDK_Capital_Ograve = $0d2;
-   GDK_Capital_Oacute = $0d3;
-   GDK_Capital_Ocircumflex = $0d4;
-   GDK_Capital_Otilde = $0d5;
-   GDK_Capital_Odiaeresis = $0d6;
-   GDK_Capital_multiply = $0d7;
-   GDK_Capital_Ooblique = $0d8;
-   GDK_Capital_Ugrave = $0d9;
-   GDK_Capital_Uacute = $0da;
-   GDK_Capital_Ucircumflex = $0db;
-   GDK_Capital_Udiaeresis = $0dc;
-   GDK_Capital_Yacute = $0dd;
-   GDK_Capital_THORN = $0de;
-   GDK_Thorn = $0de;
-   GDK_ssharp = $0df;
-   GDK_agrave = $0e0;
-   GDK_aacute = $0e1;
-   GDK_acircumflex = $0e2;
-   GDK_atilde = $0e3;
-   GDK_adiaeresis = $0e4;
-   GDK_aring = $0e5;
-   GDK_ae = $0e6;
-   GDK_ccedilla = $0e7;
-   GDK_egrave = $0e8;
-   GDK_eacute = $0e9;
-   GDK_ecircumflex = $0ea;
-   GDK_ediaeresis = $0eb;
-   GDK_igrave = $0ec;
-   GDK_iacute = $0ed;
-   GDK_icircumflex = $0ee;
-   GDK_idiaeresis = $0ef;
-   GDK_eth = $0f0;
-   GDK_ntilde = $0f1;
-   GDK_ograve = $0f2;
-   GDK_oacute = $0f3;
-   GDK_ocircumflex = $0f4;
-   GDK_otilde = $0f5;
-   GDK_odiaeresis = $0f6;
-   GDK_division = $0f7;
-   GDK_oslash = $0f8;
-   GDK_ugrave = $0f9;
-   GDK_uacute = $0fa;
-   GDK_ucircumflex = $0fb;
-   GDK_udiaeresis = $0fc;
-   GDK_yacute = $0fd;
-   GDK_small_thorn = $0fe;
-   GDK_ydiaeresis = $0ff;
-   GDK_Capital_Aogonek = $1a1;
-   GDK_Capital_breve = $1a2;
-   GDK_Capital_Lstroke = $1a3;
-   GDK_Capital_Lcaron = $1a5;
-   GDK_Capital_Sacute = $1a6;
-   GDK_Capital_Scaron = $1a9;
-   GDK_Capital_Scedilla = $1aa;
-   GDK_Capital_Tcaron = $1ab;
-   GDK_Capital_Zacute = $1ac;
-   GDK_Capital_Zcaron = $1ae;
-   GDK_Capital_Zabovedot = $1af;
-   GDK_aogonek = $1b1;
-   GDK_ogonek = $1b2;
-   GDK_lstroke = $1b3;
-   GDK_lcaron = $1b5;
-   GDK_sacute = $1b6;
-   GDK_caron = $1b7;
-   GDK_scaron = $1b9;
-   GDK_scedilla = $1ba;
-   GDK_tcaron = $1bb;
-   GDK_zacute = $1bc;
-   GDK_doubleacute = $1bd;
-   GDK_zcaron = $1be;
-   GDK_zabovedot = $1bf;
-   GDK_Capital_Racute = $1c0;
-   GDK_Capital_Abreve = $1c3;
-   GDK_Capital_Lacute = $1c5;
-   GDK_Capital_Cacute = $1c6;
-   GDK_Capital_Ccaron = $1c8;
-   GDK_Capital_Eogonek = $1ca;
-   GDK_Capital_Ecaron = $1cc;
-   GDK_Capital_Dcaron = $1cf;
-   GDK_Capital_Dstroke = $1d0;
-   GDK_Capital_Nacute = $1d1;
-   GDK_Capital_Ncaron = $1d2;
-   GDK_Capital_Odoubleacute = $1d5;
-   GDK_Capital_Rcaron = $1d8;
-   GDK_Capital_Uring = $1d9;
-   GDK_Capital_Udoubleacute = $1db;
-   GDK_Capital_Tcedilla = $1de;
-   GDK_racute = $1e0;
-   GDK_abreve = $1e3;
-   GDK_lacute = $1e5;
-   GDK_cacute = $1e6;
-   GDK_ccaron = $1e8;
-   GDK_eogonek = $1ea;
-   GDK_ecaron = $1ec;
-   GDK_dcaron = $1ef;
-   GDK_dstroke = $1f0;
-   GDK_nacute = $1f1;
-   GDK_ncaron = $1f2;
-   GDK_odoubleacute = $1f5;
-   GDK_udoubleacute = $1fb;
-   GDK_rcaron = $1f8;
-   GDK_uring = $1f9;
-   GDK_tcedilla = $1fe;
-   GDK_abovedot = $1ff;
-   GDK_Capital_Hstroke = $2a1;
-   GDK_Capital_Hcircumflex = $2a6;
-   GDK_Capital_Iabovedot = $2a9;
-   GDK_Capital_Gbreve = $2ab;
-   GDK_Capital_Jcircumflex = $2ac;
-   GDK_hstroke = $2b1;
-   GDK_hcircumflex = $2b6;
-   GDK_idotless = $2b9;
-   GDK_gbreve = $2bb;
-   GDK_jcircumflex = $2bc;
-   GDK_Capital_Cabovedot = $2c5;
-   GDK_Capital_Ccircumflex = $2c6;
-   GDK_Capital_Gabovedot = $2d5;
-   GDK_Capital_Gcircumflex = $2d8;
-   GDK_Capital_Ubreve = $2dd;
-   GDK_Capital_Scircumflex = $2de;
-   GDK_cabovedot = $2e5;
-   GDK_ccircumflex = $2e6;
-   GDK_gabovedot = $2f5;
-   GDK_gcircumflex = $2f8;
-   GDK_ubreve = $2fd;
-   GDK_scircumflex = $2fe;
-   GDK_kra = $3a2;
-   GDK_kappa = $3a2;
-   GDK_Capital_Rcedilla = $3a3;
-   GDK_Capital_Itilde = $3a5;
-   GDK_Capital_Lcedilla = $3a6;
-   GDK_Capital_Emacron = $3aa;
-   GDK_Capital_Gcedilla = $3ab;
-   GDK_Capital_Tslash = $3ac;
-   GDK_rcedilla = $3b3;
-   GDK_itilde = $3b5;
-   GDK_lcedilla = $3b6;
-   GDK_emacron = $3ba;
-   GDK_gcedilla = $3bb;
-   GDK_tslash = $3bc;
-   GDK_Capital_ENG = $3bd;
-   GDK_eng = $3bf;
-   GDK_Capital_Amacron = $3c0;
-   GDK_Capital_Iogonek = $3c7;
-   GDK_Capital_Eabovedot = $3cc;
-   GDK_Capital_Imacron = $3cf;
-   GDK_Capital_Ncedilla = $3d1;
-   GDK_Capital_Omacron = $3d2;
-   GDK_Capital_Kcedilla = $3d3;
-   GDK_Capital_Uogonek = $3d9;
-   GDK_Capital_Utilde = $3dd;
-   GDK_Capital_Umacron = $3de;
-   GDK_amacron = $3e0;
-   GDK_iogonek = $3e7;
-   GDK_eabovedot = $3ec;
-   GDK_imacron = $3ef;
-   GDK_ncedilla = $3f1;
-   GDK_omacron = $3f2;
-   GDK_kcedilla = $3f3;
-   GDK_uogonek = $3f9;
-   GDK_utilde = $3fd;
-   GDK_umacron = $3fe;
-   GDK_overline = $47e;
-   GDK_kana_fullstop = $4a1;
-   GDK_kana_openingbracket = $4a2;
-   GDK_kana_closingbracket = $4a3;
-   GDK_kana_comma = $4a4;
-   GDK_kana_conjunctive = $4a5;
-   GDK_kana_middledot = $4a5;
-   GDK_kana_WO = $4a6;
-   GDK_kana_a = $4a7;
-   GDK_kana_i = $4a8;
-   GDK_kana_u = $4a9;
-   GDK_kana_e = $4aa;
-   GDK_kana_o = $4ab;
-   GDK_kana_ya = $4ac;
-   GDK_kana_yu = $4ad;
-   GDK_kana_yo = $4ae;
-   GDK_kana_tsu = $4af;
-   GDK_kana_tu = $4af;
-   GDK_prolongedsound = $4b0;
-   GDK_kana_Capital__A = $4b1;
-   GDK_kana_Capital__I = $4b2;
-   GDK_kana_Capital__U = $4b3;
-   GDK_kana_Capital__E = $4b4;
-   GDK_kana_Capital__O = $4b5;
-   GDK_kana_Capital__KA = $4b6;
-   GDK_kana_Capital__KI = $4b7;
-   GDK_kana_Capital__KU = $4b8;
-   GDK_kana_Capital__KE = $4b9;
-   GDK_kana_Capital__KO = $4ba;
-   GDK_kana_Capital__SA = $4bb;
-   GDK_kana_Capital__SHI = $4bc;
-   GDK_kana_Capital__SU = $4bd;
-   GDK_kana_Capital__SE = $4be;
-   GDK_kana_Capital__SO = $4bf;
-   GDK_kana_Capital__TA = $4c0;
-   GDK_kana_Capital__CHI = $4c1;
-   GDK_kana_Capital__TI = $4c1;
-   GDK_kana_Capital__TSU = $4c2;
-   GDK_kana_Capital__TU = $4c2;
-   GDK_kana_Capital__TE = $4c3;
-   GDK_kana_Capital__TO = $4c4;
-   GDK_kana_Capital__NA = $4c5;
-   GDK_kana_Capital__NI = $4c6;
-   GDK_kana_Capital__NU = $4c7;
-   GDK_kana_Capital__NE = $4c8;
-   GDK_kana_Capital__NO = $4c9;
-   GDK_kana_Capital__HA = $4ca;
-   GDK_kana_Capital__HI = $4cb;
-   GDK_kana_Capital__FU = $4cc;
-   GDK_kana_Capital__HU = $4cc;
-   GDK_kana_Capital__HE = $4cd;
-   GDK_kana_Capital__HO = $4ce;
-   GDK_kana_Capital__MA = $4cf;
-   GDK_kana_Capital__MI = $4d0;
-   GDK_kana_Capital__MU = $4d1;
-   GDK_kana_Capital__ME = $4d2;
-   GDK_kana_Capital__MO = $4d3;
-   GDK_kana_Capital__YA = $4d4;
-   GDK_kana_Capital__YU = $4d5;
-   GDK_kana_Capital__YO = $4d6;
-   GDK_kana_Capital__RA = $4d7;
-   GDK_kana_Capital__RI = $4d8;
-   GDK_kana_Capital__RU = $4d9;
-   GDK_kana_Capital__RE = $4da;
-   GDK_kana_Capital__RO = $4db;
-   GDK_kana_Capital__WA = $4dc;
-   GDK_kana_Capital__N = $4dd;
-   GDK_voicedsound = $4de;
-   GDK_semivoicedsound = $4df;
-   GDK_kana_switch = $FF7E;
-   GDK_arabic_comma = $5ac;
-   GDK_arabic_semicolon = $5bb;
-   GDK_arabic_question_mark = $5bf;
-   GDK_arabic_hamza = $5c1;
-   GDK_arabic_maddaonalef = $5c2;
-   GDK_arabic_hamzaonalef = $5c3;
-   GDK_arabic_hamzaonwaw = $5c4;
-   GDK_arabic_hamzaunderalef = $5c5;
-   GDK_arabic_hamzaonyeh = $5c6;
-   GDK_arabic_alef = $5c7;
-   GDK_arabic_beh = $5c8;
-   GDK_arabic_tehmarbuta = $5c9;
-   GDK_arabic_teh = $5ca;
-   GDK_arabic_theh = $5cb;
-   GDK_arabic_jeem = $5cc;
-   GDK_arabic_hah = $5cd;
-   GDK_arabic_khah = $5ce;
-   GDK_arabic_dal = $5cf;
-   GDK_arabic_thal = $5d0;
-   GDK_arabic_ra = $5d1;
-   GDK_arabic_zain = $5d2;
-   GDK_arabic_seen = $5d3;
-   GDK_arabic_sheen = $5d4;
-   GDK_arabic_sad = $5d5;
-   GDK_arabic_dad = $5d6;
-   GDK_arabic_tah = $5d7;
-   GDK_arabic_zah = $5d8;
-   GDK_arabic_ain = $5d9;
-   GDK_arabic_ghain = $5da;
-   GDK_arabic_tatweel = $5e0;
-   GDK_arabic_feh = $5e1;
-   GDK_arabic_qaf = $5e2;
-   GDK_arabic_kaf = $5e3;
-   GDK_arabic_lam = $5e4;
-   GDK_arabic_meem = $5e5;
-   GDK_arabic_noon = $5e6;
-   GDK_arabic_ha = $5e7;
-   GDK_arabic_heh = $5e7;
-   GDK_arabic_waw = $5e8;
-   GDK_arabic_alefmaksura = $5e9;
-   GDK_arabic_yeh = $5ea;
-   GDK_arabic_fathatan = $5eb;
-   GDK_arabic_dammatan = $5ec;
-   GDK_arabic_kasratan = $5ed;
-   GDK_arabic_fatha = $5ee;
-   GDK_arabic_damma = $5ef;
-   GDK_arabic_kasra = $5f0;
-   GDK_arabic_shadda = $5f1;
-   GDK_arabic_sukun = $5f2;
-   GDK_arabic_switch = $FF7E;
-   GDK_serbian_dje = $6a1;
-   GDK_macedonia_gje = $6a2;
-   GDK_cyrillic_io = $6a3;
-   GDK_ukrainian_ie = $6a4;
-   GDK_ukrainian_je = $6a4;
-   GDK_macedonia_dse = $6a5;
-   GDK_ukrainian_i = $6a6;
-   GDK_ukrainian_yi = $6a7;
-   GDK_cyrillic_je = $6a8;
-   GDK_serbian_je = $6a8;
-   GDK_cyrillic_lje = $6a9;
-   GDK_serbian_lje = $6a9;
-   GDK_cyrillic_nje = $6aa;
-   GDK_serbian_nje = $6aa;
-   GDK_serbian_tshe = $6ab;
-   GDK_macedonia_kje = $6ac;
-   GDK_byelorussian_shortu = $6ae;
-   GDK_cyrillic_dzhe = $6af;
-   GDK_serbian_dze = $6af;
-   GDK_numerosign = $6b0;
-   GDK_serbian_Capital_DJE = $6b1;
-   GDK_macedonia_Capital_GJE = $6b2;
-   GDK_cyrillic_Capital_IO = $6b3;
-   GDK_ukrainian_Capital_IE = $6b4;
-   GDK_ukrainian_Capital_JE = $6b4;
-   GDK_macedonia_Capital_DSE = $6b5;
-   GDK_ukrainian_Capital_I = $6b6;
-   GDK_ukrainian_Capital_YI = $6b7;
-   GDK_cyrillic_Capital_JE = $6b8;
-   GDK_serbian_Capital_JE = $6b8;
-   GDK_cyrillic_Capital_LJE = $6b9;
-   GDK_serbian_Capital_LJE = $6b9;
-   GDK_cyrillic_Capital_NJE = $6ba;
-   GDK_serbian_Capital_NJE = $6ba;
-   GDK_serbian_Capital_TSHE = $6bb;
-   GDK_macedonia_Capital_KJE = $6bc;
-   GDK_byelorussian_Capital_SHORTU = $6be;
-   GDK_cyrillic_Capital_DZHE = $6bf;
-   GDK_serbian_Capital_DZE = $6bf;
-   GDK_cyrillic_yu = $6c0;
-   GDK_cyrillic_a = $6c1;
-   GDK_cyrillic_be = $6c2;
-   GDK_cyrillic_tse = $6c3;
-   GDK_cyrillic_de = $6c4;
-   GDK_cyrillic_ie = $6c5;
-   GDK_cyrillic_ef = $6c6;
-   GDK_cyrillic_ghe = $6c7;
-   GDK_cyrillic_ha = $6c8;
-   GDK_cyrillic_i = $6c9;
-   GDK_cyrillic_shorti = $6ca;
-   GDK_cyrillic_ka = $6cb;
-   GDK_cyrillic_el = $6cc;
-   GDK_cyrillic_em = $6cd;
-   GDK_cyrillic_en = $6ce;
-   GDK_cyrillic_o = $6cf;
-   GDK_cyrillic_pe = $6d0;
-   GDK_cyrillic_ya = $6d1;
-   GDK_cyrillic_er = $6d2;
-   GDK_cyrillic_es = $6d3;
-   GDK_cyrillic_te = $6d4;
-   GDK_cyrillic_u = $6d5;
-   GDK_cyrillic_zhe = $6d6;
-   GDK_cyrillic_ve = $6d7;
-   GDK_cyrillic_softsign = $6d8;
-   GDK_cyrillic_yeru = $6d9;
-   GDK_cyrillic_ze = $6da;
-   GDK_cyrillic_sha = $6db;
-   GDK_cyrillic_e = $6dc;
-   GDK_cyrillic_shcha = $6dd;
-   GDK_cyrillic_che = $6de;
-   GDK_cyrillic_hardsign = $6df;
-   GDK_cyrillic_Capital_YU = $6e0;
-   GDK_cyrillic_Capital_A = $6e1;
-   GDK_cyrillic_Capital_BE = $6e2;
-   GDK_cyrillic_Capital_TSE = $6e3;
-   GDK_cyrillic_Capital_DE = $6e4;
-   GDK_cyrillic_Capital_IE = $6e5;
-   GDK_cyrillic_Capital_EF = $6e6;
-   GDK_cyrillic_Capital_GHE = $6e7;
-   GDK_cyrillic_Capital_HA = $6e8;
-   GDK_cyrillic_Capital_I = $6e9;
-   GDK_cyrillic_Capital_SHORTI = $6ea;
-   GDK_cyrillic_Capital_KA = $6eb;
-   GDK_cyrillic_Capital_EL = $6ec;
-   GDK_cyrillic_Capital_EM = $6ed;
-   GDK_cyrillic_Capital_EN = $6ee;
-   GDK_cyrillic_Capital_O = $6ef;
-   GDK_cyrillic_Capital_PE = $6f0;
-   GDK_cyrillic_Capital_YA = $6f1;
-   GDK_cyrillic_Capital_ER = $6f2;
-   GDK_cyrillic_Capital_ES = $6f3;
-   GDK_cyrillic_Capital_TE = $6f4;
-   GDK_cyrillic_Capital_U = $6f5;
-   GDK_cyrillic_Capital_ZHE = $6f6;
-   GDK_cyrillic_Capital_VE = $6f7;
-   GDK_cyrillic_Capital_SOFTSIGN = $6f8;
-   GDK_cyrillic_Capital_YERU = $6f9;
-   GDK_cyrillic_Capital_ZE = $6fa;
-   GDK_cyrillic_Capital_SHA = $6fb;
-   GDK_cyrillic_Capital_E = $6fc;
-   GDK_cyrillic_Capital_SHCHA = $6fd;
-   GDK_cyrillic_Capital_CHE = $6fe;
-   GDK_cyrillic_Capital_HARDSIGN = $6ff;
-   GDK_greek_Capital_ALPHAaccent = $7a1;
-   GDK_greek_Capital_EPSILONaccent = $7a2;
-   GDK_greek_Capital_ETAaccent = $7a3;
-   GDK_greek_Capital_IOTAaccent = $7a4;
-   GDK_greek_Capital_IOTAdiaeresis = $7a5;
-   GDK_greek_Capital_OMICRONaccent = $7a7;
-   GDK_greek_Capital_UPSILONaccent = $7a8;
-   GDK_greek_Capital_UPSILONdieresis = $7a9;
-   GDK_greek_Capital_OMEGAaccent = $7ab;
-   GDK_greek_accentdieresis = $7ae;
-   GDK_greek_horizbar = $7af;
-   GDK_greek_alphaaccent = $7b1;
-   GDK_greek_epsilonaccent = $7b2;
-   GDK_greek_etaaccent = $7b3;
-   GDK_greek_iotaaccent = $7b4;
-   GDK_greek_iotadieresis = $7b5;
-   GDK_greek_iotaaccentdieresis = $7b6;
-   GDK_greek_omicronaccent = $7b7;
-   GDK_greek_upsilonaccent = $7b8;
-   GDK_greek_upsilondieresis = $7b9;
-   GDK_greek_upsilonaccentdieresis = $7ba;
-   GDK_greek_omegaaccent = $7bb;
-   GDK_greek_Capital_ALPHA = $7c1;
-   GDK_greek_Capital_BETA = $7c2;
-   GDK_greek_Capital_GAMMA = $7c3;
-   GDK_greek_Capital_DELTA = $7c4;
-   GDK_greek_Capital_EPSILON = $7c5;
-   GDK_greek_Capital_ZETA = $7c6;
-   GDK_greek_Capital_ETA = $7c7;
-   GDK_greek_Capital_THETA = $7c8;
-   GDK_greek_Capital_IOTA = $7c9;
-   GDK_greek_Capital_KAPPA = $7ca;
-   GDK_greek_Capital_LAMDA = $7cb;
-   GDK_greek_Capital_LAMBDA = $7cb;
-   GDK_greek_Capital_MU = $7cc;
-   GDK_greek_Capital_NU = $7cd;
-   GDK_greek_Capital_XI = $7ce;
-   GDK_greek_Capital_OMICRON = $7cf;
-   GDK_greek_Capital_PI = $7d0;
-   GDK_greek_Capital_RHO = $7d1;
-   GDK_greek_Capital_SIGMA = $7d2;
-   GDK_greek_Capital_TAU = $7d4;
-   GDK_greek_Capital_UPSILON = $7d5;
-   GDK_greek_Capital_PHI = $7d6;
-   GDK_greek_Capital_CHI = $7d7;
-   GDK_greek_Capital_PSI = $7d8;
-   GDK_greek_Capital_OMEGA = $7d9;
-   GDK_greek_alpha = $7e1;
-   GDK_greek_beta = $7e2;
-   GDK_greek_gamma = $7e3;
-   GDK_greek_delta = $7e4;
-   GDK_greek_epsilon = $7e5;
-   GDK_greek_zeta = $7e6;
-   GDK_greek_eta = $7e7;
-   GDK_greek_theta = $7e8;
-   GDK_greek_iota = $7e9;
-   GDK_greek_kappa = $7ea;
-   GDK_greek_lamda = $7eb;
-   GDK_greek_lambda = $7eb;
-   GDK_greek_mu = $7ec;
-   GDK_greek_nu = $7ed;
-   GDK_greek_xi = $7ee;
-   GDK_greek_omicron = $7ef;
-   GDK_greek_pi = $7f0;
-   GDK_greek_rho = $7f1;
-   GDK_greek_sigma = $7f2;
-   GDK_greek_finalsmallsigma = $7f3;
-   GDK_greek_tau = $7f4;
-   GDK_greek_upsilon = $7f5;
-   GDK_greek_phi = $7f6;
-   GDK_greek_chi = $7f7;
-   GDK_greek_psi = $7f8;
-   GDK_greek_omega = $7f9;
-   GDK_greek_switch = $FF7E;
-   GDK_leftradical = $8a1;
-   GDK_topleftradical = $8a2;
-   GDK_horizconnector = $8a3;
-   GDK_topintegral = $8a4;
-   GDK_botintegral = $8a5;
-   GDK_vertconnector = $8a6;
-   GDK_topleftsqbracket = $8a7;
-   GDK_botleftsqbracket = $8a8;
-   GDK_toprightsqbracket = $8a9;
-   GDK_botrightsqbracket = $8aa;
-   GDK_topleftparens = $8ab;
-   GDK_botleftparens = $8ac;
-   GDK_toprightparens = $8ad;
-   GDK_botrightparens = $8ae;
-   GDK_leftmiddlecurlybrace = $8af;
-   GDK_rightmiddlecurlybrace = $8b0;
-   GDK_topleftsummation = $8b1;
-   GDK_botleftsummation = $8b2;
-   GDK_topvertsummationconnector = $8b3;
-   GDK_botvertsummationconnector = $8b4;
-   GDK_toprightsummation = $8b5;
-   GDK_botrightsummation = $8b6;
-   GDK_rightmiddlesummation = $8b7;
-   GDK_lessthanequal = $8bc;
-   GDK_notequal = $8bd;
-   GDK_greaterthanequal = $8be;
-   GDK_integral = $8bf;
-   GDK_therefore = $8c0;
-   GDK_variation = $8c1;
-   GDK_infinity = $8c2;
-   GDK_nabla = $8c5;
-   GDK_approximate = $8c8;
-   GDK_similarequal = $8c9;
-   GDK_ifonlyif = $8cd;
-   GDK_implies = $8ce;
-   GDK_identical = $8cf;
-   GDK_radical = $8d6;
-   GDK_includedin = $8da;
-   GDK_includes = $8db;
-   GDK_intersection = $8dc;
-   GDK_union = $8dd;
-   GDK_logicaland = $8de;
-   GDK_logicalor = $8df;
-   GDK_partialderivative = $8ef;
-   GDK_function = $8f6;
-   GDK_leftarrow = $8fb;
-   GDK_uparrow = $8fc;
-   GDK_rightarrow = $8fd;
-   GDK_downarrow = $8fe;
-   GDK_blank = $9df;
-   GDK_soliddiamond = $9e0;
-   GDK_checkerboard = $9e1;
-   GDK_ht = $9e2;
-   GDK_ff = $9e3;
-   GDK_cr = $9e4;
-   GDK_lf = $9e5;
-   GDK_nl = $9e8;
-   GDK_vt = $9e9;
-   GDK_lowrightcorner = $9ea;
-   GDK_uprightcorner = $9eb;
-   GDK_upleftcorner = $9ec;
-   GDK_lowleftcorner = $9ed;
-   GDK_crossinglines = $9ee;
-   GDK_horizlinescan1 = $9ef;
-   GDK_horizlinescan3 = $9f0;
-   GDK_horizlinescan5 = $9f1;
-   GDK_horizlinescan7 = $9f2;
-   GDK_horizlinescan9 = $9f3;
-   GDK_leftt = $9f4;
-   GDK_rightt = $9f5;
-   GDK_bott = $9f6;
-   GDK_topt = $9f7;
-   GDK_vertbar = $9f8;
-   GDK_emspace = $aa1;
-   GDK_enspace = $aa2;
-   GDK_em3space = $aa3;
-   GDK_em4space = $aa4;
-   GDK_digitspace = $aa5;
-   GDK_punctspace = $aa6;
-   GDK_thinspace = $aa7;
-   GDK_hairspace = $aa8;
-   GDK_emdash = $aa9;
-   GDK_endash = $aaa;
-   GDK_signifblank = $aac;
-   GDK_ellipsis = $aae;
-   GDK_doubbaselinedot = $aaf;
-   GDK_onethird = $ab0;
-   GDK_twothirds = $ab1;
-   GDK_onefifth = $ab2;
-   GDK_twofifths = $ab3;
-   GDK_threefifths = $ab4;
-   GDK_fourfifths = $ab5;
-   GDK_onesixth = $ab6;
-   GDK_fivesixths = $ab7;
-   GDK_careof = $ab8;
-   GDK_figdash = $abb;
-   GDK_leftanglebracket = $abc;
-   GDK_decimalpoint = $abd;
-   GDK_rightanglebracket = $abe;
-   GDK_marker = $abf;
-   GDK_oneeighth = $ac3;
-   GDK_threeeighths = $ac4;
-   GDK_fiveeighths = $ac5;
-   GDK_seveneighths = $ac6;
-   GDK_trademark = $ac9;
-   GDK_signaturemark = $aca;
-   GDK_trademarkincircle = $acb;
-   GDK_leftopentriangle = $acc;
-   GDK_rightopentriangle = $acd;
-   GDK_emopencircle = $ace;
-   GDK_emopenrectangle = $acf;
-   GDK_leftsinglequotemark = $ad0;
-   GDK_rightsinglequotemark = $ad1;
-   GDK_leftdoublequotemark = $ad2;
-   GDK_rightdoublequotemark = $ad3;
-   GDK_prescription = $ad4;
-   GDK_minutes = $ad6;
-   GDK_seconds = $ad7;
-   GDK_latincross = $ad9;
-   GDK_hexagram = $ada;
-   GDK_filledrectbullet = $adb;
-   GDK_filledlefttribullet = $adc;
-   GDK_filledrighttribullet = $add;
-   GDK_emfilledcircle = $ade;
-   GDK_emfilledrect = $adf;
-   GDK_enopencircbullet = $ae0;
-   GDK_enopensquarebullet = $ae1;
-   GDK_openrectbullet = $ae2;
-   GDK_opentribulletup = $ae3;
-   GDK_opentribulletdown = $ae4;
-   GDK_openstar = $ae5;
-   GDK_enfilledcircbullet = $ae6;
-   GDK_enfilledsqbullet = $ae7;
-   GDK_filledtribulletup = $ae8;
-   GDK_filledtribulletdown = $ae9;
-   GDK_leftpointer = $aea;
-   GDK_rightpointer = $aeb;
-   GDK_club = $aec;
-   GDK_diamond = $aed;
-   GDK_heart_key = $aee;
-   GDK_maltesecross = $af0;
-   GDK_dagger = $af1;
-   GDK_doubledagger = $af2;
-   GDK_checkmark = $af3;
-   GDK_ballotcross = $af4;
-   GDK_musicalsharp = $af5;
-   GDK_musicalflat = $af6;
-   GDK_malesymbol = $af7;
-   GDK_femalesymbol = $af8;
-   GDK_telephone = $af9;
-   GDK_telephonerecorder = $afa;
-   GDK_phonographcopyright = $afb;
-   GDK_caret = $afc;
-   GDK_singlelowquotemark = $afd;
-   GDK_doublelowquotemark = $afe;
-   GDK_cursor = $aff;
-   GDK_leftcaret = $ba3;
-   GDK_rightcaret = $ba6;
-   GDK_downcaret = $ba8;
-   GDK_upcaret = $ba9;
-   GDK_overbar = $bc0;
-   GDK_downtack = $bc2;
-   GDK_upshoe = $bc3;
-   GDK_downstile = $bc4;
-   GDK_underbar = $bc6;
-   GDK_jot = $bca;
-   GDK_quad = $bcc;
-   GDK_uptack = $bce;
-   GDK_circle_key = $bcf;
-   GDK_upstile = $bd3;
-   GDK_downshoe = $bd6;
-   GDK_rightshoe = $bd8;
-   GDK_leftshoe = $bda;
-   GDK_lefttack = $bdc;
-   GDK_righttack = $bfc;
-   GDK_hebrew_doublelowline = $cdf;
-   GDK_hebrew_aleph = $ce0;
-   GDK_hebrew_bet = $ce1;
-   GDK_hebrew_beth = $ce1;
-   GDK_hebrew_gimel = $ce2;
-   GDK_hebrew_gimmel = $ce2;
-   GDK_hebrew_dalet = $ce3;
-   GDK_hebrew_daleth = $ce3;
-   GDK_hebrew_he = $ce4;
-   GDK_hebrew_waw = $ce5;
-   GDK_hebrew_zain = $ce6;
-   GDK_hebrew_zayin = $ce6;
-   GDK_hebrew_chet = $ce7;
-   GDK_hebrew_het = $ce7;
-   GDK_hebrew_tet = $ce8;
-   GDK_hebrew_teth = $ce8;
-   GDK_hebrew_yod = $ce9;
-   GDK_hebrew_finalkaph = $cea;
-   GDK_hebrew_kaph = $ceb;
-   GDK_hebrew_lamed = $cec;
-   GDK_hebrew_finalmem = $ced;
-   GDK_hebrew_mem = $cee;
-   GDK_hebrew_finalnun = $cef;
-   GDK_hebrew_nun = $cf0;
-   GDK_hebrew_samech = $cf1;
-   GDK_hebrew_samekh = $cf1;
-   GDK_hebrew_ayin = $cf2;
-   GDK_hebrew_finalpe = $cf3;
-   GDK_hebrew_pe = $cf4;
-   GDK_hebrew_finalzade = $cf5;
-   GDK_hebrew_finalzadi = $cf5;
-   GDK_hebrew_zade = $cf6;
-   GDK_hebrew_zadi = $cf6;
-   GDK_hebrew_qoph = $cf7;
-   GDK_hebrew_kuf = $cf7;
-   GDK_hebrew_resh = $cf8;
-   GDK_hebrew_shin = $cf9;
-   GDK_hebrew_taw = $cfa;
-   GDK_hebrew_taf = $cfa;
-   GDK_Hebrew_switch = $FF7E;
-   GDK_Thai_kokai = $da1;
-   GDK_Thai_khokhai = $da2;
-   GDK_Thai_khokhuat = $da3;
-   GDK_Thai_khokhwai = $da4;
-   GDK_Thai_khokhon = $da5;
-   GDK_Thai_khorakhang = $da6;
-   GDK_Thai_ngongu = $da7;
-   GDK_Thai_chochan = $da8;
-   GDK_Thai_choching = $da9;
-   GDK_Thai_chochang = $daa;
-   GDK_Thai_soso = $dab;
-   GDK_Thai_chochoe = $dac;
-   GDK_Thai_yoying = $dad;
-   GDK_Thai_dochada = $dae;
-   GDK_Thai_topatak = $daf;
-   GDK_Thai_thothan = $db0;
-   GDK_Thai_thonangmontho = $db1;
-   GDK_Thai_thophuthao = $db2;
-   GDK_Thai_nonen = $db3;
-   GDK_Thai_dodek = $db4;
-   GDK_Thai_totao = $db5;
-   GDK_Thai_thothung = $db6;
-   GDK_Thai_thothahan = $db7;
-   GDK_Thai_thothong = $db8;
-   GDK_Thai_nonu = $db9;
-   GDK_Thai_bobaimai = $dba;
-   GDK_Thai_popla = $dbb;
-   GDK_Thai_phophung = $dbc;
-   GDK_Thai_fofa = $dbd;
-   GDK_Thai_phophan = $dbe;
-   GDK_Thai_fofan = $dbf;
-   GDK_Thai_phosamphao = $dc0;
-   GDK_Thai_moma = $dc1;
-   GDK_Thai_yoyak = $dc2;
-   GDK_Thai_rorua = $dc3;
-   GDK_Thai_ru = $dc4;
-   GDK_Thai_loling = $dc5;
-   GDK_Thai_lu = $dc6;
-   GDK_Thai_wowaen = $dc7;
-   GDK_Thai_sosala = $dc8;
-   GDK_Thai_sorusi = $dc9;
-   GDK_Thai_sosua = $dca;
-   GDK_Thai_hohip = $dcb;
-   GDK_Thai_lochula = $dcc;
-   GDK_Thai_oang = $dcd;
-   GDK_Thai_honokhuk = $dce;
-   GDK_Thai_paiyannoi = $dcf;
-   GDK_Thai_saraa = $dd0;
-   GDK_Thai_maihanakat = $dd1;
-   GDK_Thai_saraaa = $dd2;
-   GDK_Thai_saraam = $dd3;
-   GDK_Thai_sarai = $dd4;
-   GDK_Thai_saraii = $dd5;
-   GDK_Thai_saraue = $dd6;
-   GDK_Thai_sarauee = $dd7;
-   GDK_Thai_sarau = $dd8;
-   GDK_Thai_sarauu = $dd9;
-   GDK_Thai_phinthu = $dda;
-   GDK_Thai_maihanakat_maitho = $dde;
-   GDK_Thai_baht = $ddf;
-   GDK_Thai_sarae = $de0;
-   GDK_Thai_saraae = $de1;
-   GDK_Thai_sarao = $de2;
-   GDK_Thai_saraaimaimuan = $de3;
-   GDK_Thai_saraaimaimalai = $de4;
-   GDK_Thai_lakkhangyao = $de5;
-   GDK_Thai_maiyamok = $de6;
-   GDK_Thai_maitaikhu = $de7;
-   GDK_Thai_maiek = $de8;
-   GDK_Thai_maitho = $de9;
-   GDK_Thai_maitri = $dea;
-   GDK_Thai_maichattawa = $deb;
-   GDK_Thai_thanthakhat = $dec;
-   GDK_Thai_nikhahit = $ded;
-   GDK_Thai_leksun = $df0;
-   GDK_Thai_leknung = $df1;
-   GDK_Thai_leksong = $df2;
-   GDK_Thai_leksam = $df3;
-   GDK_Thai_leksi = $df4;
-   GDK_Thai_lekha = $df5;
-   GDK_Thai_lekhok = $df6;
-   GDK_Thai_lekchet = $df7;
-   GDK_Thai_lekpaet = $df8;
-   GDK_Thai_lekkao = $df9;
-   GDK_Hangul = $ff31;
-   GDK_Hangul_Start = $ff32;
-   GDK_Hangul_End = $ff33;
-   GDK_Hangul_Hanja = $ff34;
-   GDK_Hangul_Jamo = $ff35;
-   GDK_Hangul_Romaja = $ff36;
-   GDK_Hangul_Codeinput = $ff37;
-   GDK_Hangul_Jeonja = $ff38;
-   GDK_Hangul_Banja = $ff39;
-   GDK_Hangul_PreHanja = $ff3a;
-   GDK_Hangul_PostHanja = $ff3b;
-   GDK_Hangul_SingleCandidate = $ff3c;
-   GDK_Hangul_MultipleCandidate = $ff3d;
-   GDK_Hangul_PreviousCandidate = $ff3e;
-   GDK_Hangul_Special = $ff3f;
-   GDK_Hangul_switch = $FF7E;
-   GDK_Hangul_Kiyeog = $ea1;
-   GDK_Hangul_SsangKiyeog = $ea2;
-   GDK_Hangul_KiyeogSios = $ea3;
-   GDK_Hangul_Nieun = $ea4;
-   GDK_Hangul_NieunJieuj = $ea5;
-   GDK_Hangul_NieunHieuh = $ea6;
-   GDK_Hangul_Dikeud = $ea7;
-   GDK_Hangul_SsangDikeud = $ea8;
-   GDK_Hangul_Rieul = $ea9;
-   GDK_Hangul_RieulKiyeog = $eaa;
-   GDK_Hangul_RieulMieum = $eab;
-   GDK_Hangul_RieulPieub = $eac;
-   GDK_Hangul_RieulSios = $ead;
-   GDK_Hangul_RieulTieut = $eae;
-   GDK_Hangul_RieulPhieuf = $eaf;
-   GDK_Hangul_RieulHieuh = $eb0;
-   GDK_Hangul_Mieum = $eb1;
-   GDK_Hangul_Pieub = $eb2;
-   GDK_Hangul_SsangPieub = $eb3;
-   GDK_Hangul_PieubSios = $eb4;
-   GDK_Hangul_Sios = $eb5;
-   GDK_Hangul_SsangSios = $eb6;
-   GDK_Hangul_Ieung = $eb7;
-   GDK_Hangul_Jieuj = $eb8;
-   GDK_Hangul_SsangJieuj = $eb9;
-   GDK_Hangul_Cieuc = $eba;
-   GDK_Hangul_Khieuq = $ebb;
-   GDK_Hangul_Tieut = $ebc;
-   GDK_Hangul_Phieuf = $ebd;
-   GDK_Hangul_Hieuh = $ebe;
-   GDK_Hangul_A = $ebf;
-   GDK_Hangul_AE = $ec0;
-   GDK_Hangul_YA = $ec1;
-   GDK_Hangul_YAE = $ec2;
-   GDK_Hangul_EO = $ec3;
-   GDK_Hangul_E = $ec4;
-   GDK_Hangul_YEO = $ec5;
-   GDK_Hangul_YE = $ec6;
-   GDK_Hangul_O = $ec7;
-   GDK_Hangul_WA = $ec8;
-   GDK_Hangul_WAE = $ec9;
-   GDK_Hangul_OE = $eca;
-   GDK_Hangul_YO = $ecb;
-   GDK_Hangul_U = $ecc;
-   GDK_Hangul_WEO = $ecd;
-   GDK_Hangul_WE = $ece;
-   GDK_Hangul_WI = $ecf;
-   GDK_Hangul_YU = $ed0;
-   GDK_Hangul_EU = $ed1;
-   GDK_Hangul_YI = $ed2;
-   GDK_Hangul_I = $ed3;
-   GDK_Hangul_J_Kiyeog = $ed4;
-   GDK_Hangul_J_SsangKiyeog = $ed5;
-   GDK_Hangul_J_KiyeogSios = $ed6;
-   GDK_Hangul_J_Nieun = $ed7;
-   GDK_Hangul_J_NieunJieuj = $ed8;
-   GDK_Hangul_J_NieunHieuh = $ed9;
-   GDK_Hangul_J_Dikeud = $eda;
-   GDK_Hangul_J_Rieul = $edb;
-   GDK_Hangul_J_RieulKiyeog = $edc;
-   GDK_Hangul_J_RieulMieum = $edd;
-   GDK_Hangul_J_RieulPieub = $ede;
-   GDK_Hangul_J_RieulSios = $edf;
-   GDK_Hangul_J_RieulTieut = $ee0;
-   GDK_Hangul_J_RieulPhieuf = $ee1;
-   GDK_Hangul_J_RieulHieuh = $ee2;
-   GDK_Hangul_J_Mieum = $ee3;
-   GDK_Hangul_J_Pieub = $ee4;
-   GDK_Hangul_J_PieubSios = $ee5;
-   GDK_Hangul_J_Sios = $ee6;
-   GDK_Hangul_J_SsangSios = $ee7;
-   GDK_Hangul_J_Ieung = $ee8;
-   GDK_Hangul_J_Jieuj = $ee9;
-   GDK_Hangul_J_Cieuc = $eea;
-   GDK_Hangul_J_Khieuq = $eeb;
-   GDK_Hangul_J_Tieut = $eec;
-   GDK_Hangul_J_Phieuf = $eed;
-   GDK_Hangul_J_Hieuh = $eee;
-   GDK_Hangul_RieulYeorinHieuh = $eef;
-   GDK_Hangul_SunkyeongeumMieum = $ef0;
-   GDK_Hangul_SunkyeongeumPieub = $ef1;
-   GDK_Hangul_PanSios = $ef2;
-   GDK_Hangul_KkogjiDalrinIeung = $ef3;
-   GDK_Hangul_SunkyeongeumPhieuf = $ef4;
-   GDK_Hangul_YeorinHieuh = $ef5;
-   GDK_Hangul_AraeA = $ef6;
-   GDK_Hangul_AraeAE = $ef7;
-   GDK_Hangul_J_PanSios = $ef8;
-   GDK_Hangul_J_KkogjiDalrinIeung = $ef9;
-   GDK_Hangul_J_YeorinHieuh = $efa;
-   GDK_Korean_Won = $eff;
-
-{$endif read_interface}
-

packages/extra/gtk/gdk/gdkmain.pp

@@ -1,389 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-type
-  PPGdkVisualType = ^PGdkVisualType;
-
-procedure gdk_init(argc:Pgint; argv:pPPgchar);cdecl;external gdkdll name 'gdk_init';
-function  gdk_init_check(argc:Pgint; argv:pPPgchar):gboolean;cdecl;external gdkdll name 'gdk_init_check';
-procedure gdk_exit(error_code:gint);cdecl;external gdkdll name 'gdk_exit';
-procedure gdk_error_trap_push;cdecl;external gdkdll name 'gdk_error_trap_push';
-function  gdk_error_trap_pop:gint;cdecl;external gdkdll name 'gdk_error_trap_pop';
-function  gdk_events_pending:gboolean;cdecl;external gdkdll name 'gdk_events_pending';
-function  gdk_event_get:PGdkEvent;cdecl;external gdkdll name 'gdk_event_get';
-function  gdk_event_peek:PGdkEvent;cdecl;external gdkdll name 'gdk_event_peek';
-function  gdk_event_get_graphics_expose(window:PGdkWindow):PGdkEvent;cdecl;external gdkdll name 'gdk_event_get_graphics_expose';
-procedure gdk_event_put(event:PGdkEvent);cdecl;external gdkdll name 'gdk_event_put';
-function  gdk_event_copy(event:PGdkEvent):PGdkEvent;cdecl;external gdkdll name 'gdk_event_copy';
-procedure gdk_event_free(event:PGdkEvent);cdecl;external gdkdll name 'gdk_event_free';
-function  gdk_event_get_time(event:PGdkEvent):guint32;cdecl;external gdkdll name 'gdk_event_get_time';
-procedure gdk_event_handler_set(func:TGdkEventFunc; data:gpointer; notify:TGDestroyNotify);cdecl;external gdkdll name 'gdk_event_handler_set';
-procedure gdk_set_show_events(show_events:gint);cdecl;external gdkdll name 'gdk_set_show_events';
-procedure gdk_set_use_xshm(use_xshm:gint);cdecl;external gdkdll name 'gdk_set_use_xshm';
-function  gdk_get_show_events:gint;cdecl;external gdkdll name 'gdk_get_show_events';
-function  gdk_get_use_xshm:gint;cdecl;external gdkdll name 'gdk_get_use_xshm';
-function  gdk_get_display:Pgchar;cdecl;external gdkdll name 'gdk_get_display';
-{$ifndef win32}
-function  gdk_time_get:guint32;cdecl;external gdkdll name 'gdk_time_get';
-function  gdk_timer_get:guint32;cdecl;external gdkdll name 'gdk_timer_get';
-procedure gdk_timer_set(milliseconds:guint32);cdecl;external gdkdll name 'gdk_timer_set';
-procedure gdk_timer_enable;cdecl;external gdkdll name 'gdk_timer_enable';
-procedure gdk_timer_disable;cdecl;external gdkdll name 'gdk_timer_disable';
-{$endif}
-function  gdk_input_add_full(source:gint; condition:TGdkInputCondition; thefunction:TGdkInputfunction; data:gpointer; thedestroy:TGdkDestroyNotify):gint;cdecl;external gdkdll name 'gdk_input_add_full';
-function  gdk_input_add(source:gint; condition:TGdkInputCondition; thefunction:TGdkInputfunction; data:gpointer):gint;cdecl;external gdkdll name 'gdk_input_add';
-procedure gdk_input_remove(tag:gint);cdecl;external gdkdll name 'gdk_input_remove';
-function  gdk_pointer_grab(window:PGdkWindow; owner_events:gint; event_mask:TGdkEventMask; confine_to:PGdkWindow; cursor:PGdkCursor; time:guint32):gint;cdecl;external gdkdll name 'gdk_pointer_grab';
-procedure gdk_pointer_ungrab(time:guint32);cdecl;external gdkdll name 'gdk_pointer_ungrab';
-function  gdk_keyboard_grab(window:PGdkWindow; owner_events:gint; time:guint32):gint;cdecl;external gdkdll name 'gdk_keyboard_grab';
-procedure gdk_keyboard_ungrab(time:guint32);cdecl;external gdkdll name 'gdk_keyboard_ungrab';
-function  gdk_pointer_is_grabbed:gint;cdecl;external gdkdll name 'gdk_pointer_is_grabbed';
-function  gdk_screen_width:gint;cdecl;external gdkdll name 'gdk_screen_width';
-function  gdk_screen_height:gint;cdecl;external gdkdll name 'gdk_screen_height';
-function  gdk_screen_width_mm:gint;cdecl;external gdkdll name 'gdk_screen_width_mm';
-function  gdk_screen_height_mm:gint;cdecl;external gdkdll name 'gdk_screen_height_mm';
-procedure gdk_flush;cdecl;external gdkdll name 'gdk_flush';
-procedure gdk_beep;cdecl;external gdkdll name 'gdk_beep';
-procedure gdk_key_repeat_disable;cdecl;external gdkdll name 'gdk_key_repeat_disable';
-procedure gdk_key_repeat_restore;cdecl;external gdkdll name 'gdk_key_repeat_restore';
-function  gdk_visual_get_best_depth:gint;cdecl;external gdkdll name 'gdk_visual_get_best_depth';
-function  gdk_visual_get_best_type:TGdkVisualType;cdecl;external gdkdll name 'gdk_visual_get_best_type';
-function  gdk_visual_get_system:PGdkVisual;cdecl;external gdkdll name 'gdk_visual_get_system';
-function  gdk_visual_get_best:PGdkVisual;cdecl;external gdkdll name 'gdk_visual_get_best';
-function  gdk_visual_get_best_with_depth(depth:gint):PGdkVisual;cdecl;external gdkdll name 'gdk_visual_get_best_with_depth';
-function  gdk_visual_get_best_with_type(visual_type:TGdkVisualType):PGdkVisual;cdecl;external gdkdll name 'gdk_visual_get_best_with_type';
-function  gdk_visual_get_best_with_both(depth:gint; visual_type:TGdkVisualType):PGdkVisual;cdecl;external gdkdll name 'gdk_visual_get_best_with_both';
-function  gdk_visual_ref(visual:PGdkVisual):PGdkVisual;cdecl;external gdkdll name 'gdk_visual_ref';
-procedure gdk_visual_unref(visual:PGdkVisual);cdecl;external gdkdll name 'gdk_visual_unref';
-procedure gdk_query_depths(depths:PPgint; count:Pgint);cdecl;external gdkdll name 'gdk_query_depths';
-procedure gdk_query_visual_types(visual_types:PPGdkVisualType; count:Pgint);cdecl;external gdkdll name 'gdk_query_visual_types';
-function  gdk_list_visuals:PGList;cdecl;external gdkdll name 'gdk_list_visuals';
-function  gdk_window_new(parent:PGdkWindow; attributes:PGdkWindowAttr; attributes_mask:gint):PGdkWindow;cdecl;external gdkdll name 'gdk_window_new';
-procedure gdk_window_destroy(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_destroy';
-{$ifndef win32}
-function  gdk_window_ref(window:PGdkWindow):PGdkWindow;cdecl;external gdkdll name 'gdk_window_ref';
-procedure gdk_window_unref(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_unref';
-{$else}
-function  gdk_window_ref(window:PGdkWindow):PGdkWindow;cdecl;external gdkdll name 'gdk_drawable_ref';
-procedure gdk_window_unref(window:PGdkWindow);cdecl;external gdkdll name 'gdk_drawable_unref';
-{$endif}
-function  gdk_window_at_pointer(win_x:Pgint; win_y:Pgint):PGdkWindow;cdecl;external gdkdll name 'gdk_window_at_pointer';
-procedure gdk_window_show(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_show';
-procedure gdk_window_hide(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_hide';
-procedure gdk_window_withdraw(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_withdraw';
-procedure gdk_window_move(window:PGdkWindow; x:gint; y:gint);cdecl;external gdkdll name 'gdk_window_move';
-procedure gdk_window_resize(window:PGdkWindow; width:gint; height:gint);cdecl;external gdkdll name 'gdk_window_resize';
-procedure gdk_window_move_resize(window:PGdkWindow; x:gint; y:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_window_move_resize';
-procedure gdk_window_reparent(window:PGdkWindow; new_parent:PGdkWindow; x:gint; y:gint);cdecl;external gdkdll name 'gdk_window_reparent';
-procedure gdk_window_clear(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_clear';
-procedure gdk_window_clear_area(window:PGdkWindow; x:gint; y:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_window_clear_area';
-procedure gdk_window_clear_area_e(window:PGdkWindow; x:gint; y:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_window_clear_area_e';
-{$ifndef win32}
-procedure gdk_window_copy_area(window:PGdkWindow; gc:PGdkGC; x:gint; y:gint; source_window:PGdkWindow; source_x:gint; source_y:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_window_copy_area';
-{$endif}
-procedure gdk_window_raise(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_raise';
-procedure gdk_window_lower(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_lower';
-procedure gdk_window_set_user_data(window:PGdkWindow; user_data:gpointer);cdecl;external gdkdll name 'gdk_window_set_user_data';
-procedure gdk_window_set_override_redirect(window:PGdkWindow; override_redirect:gboolean);cdecl;external gdkdll name 'gdk_window_set_override_redirect';
-procedure gdk_window_add_filter(window:PGdkWindow; thefunction:TGdkFilterFunc; data:gpointer);cdecl;external gdkdll name 'gdk_window_add_filter';
-procedure gdk_window_remove_filter(window:PGdkWindow; thefunction:TGdkFilterFunc; data:gpointer);cdecl;external gdkdll name 'gdk_window_remove_filter';
-procedure gdk_window_shape_combine_mask(window:PGdkWindow; shape_mask:PGdkBitmap; offset_x:gint; offset_y:gint);cdecl;external gdkdll name 'gdk_window_shape_combine_mask';
-procedure gdk_window_set_child_shapes(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_set_child_shapes';
-procedure gdk_window_merge_child_shapes(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_merge_child_shapes';
-function  gdk_window_is_visible(window:PGdkWindow):gboolean;cdecl;external gdkdll name 'gdk_window_is_visible';
-function  gdk_window_is_viewable(window:PGdkWindow):gboolean;cdecl;external gdkdll name 'gdk_window_is_viewable';
-function  gdk_window_set_static_gravities(window:PGdkWindow; use_static:gboolean):gboolean;cdecl;external gdkdll name 'gdk_window_set_static_gravities';
-procedure gdk_add_client_message_filter(message_type:TGdkAtom; func:TGdkFilterFunc; data:gpointer);cdecl;external gdkdll name 'gdk_add_client_message_filter';
-function  gdk_drag_context_new:PGdkDragContext;cdecl;external gdkdll name 'gdk_drag_context_new';
-procedure gdk_drag_context_ref(context:PGdkDragContext);cdecl;external gdkdll name 'gdk_drag_context_ref';
-procedure gdk_drag_context_unref(context:PGdkDragContext);cdecl;external gdkdll name 'gdk_drag_context_unref';
-procedure gdk_drag_status(context:PGdkDragContext; action:TGdkDragAction; time:guint32);cdecl;external gdkdll name 'gdk_drag_status';
-procedure gdk_drop_reply(context:PGdkDragContext; ok:gboolean; time:guint32);cdecl;external gdkdll name 'gdk_drop_reply';
-procedure gdk_drop_finish(context:PGdkDragContext; success:gboolean; time:guint32);cdecl;external gdkdll name 'gdk_drop_finish';
-function  gdk_drag_get_selection(context:PGdkDragContext):TGdkAtom;cdecl;external gdkdll name 'gdk_drag_get_selection';
-function  gdk_drag_begin(window:PGdkWindow; targets:PGList):PGdkDragContext;cdecl;external gdkdll name 'gdk_drag_begin';
-function  gdk_drag_get_protocol(xid:guint32; protocol:PGdkDragProtocol):guint32;cdecl;external gdkdll name 'gdk_drag_get_protocol';
-procedure gdk_drag_find_window(context:PGdkDragContext; drag_window:PGdkWindow; x_root:gint; y_root:gint; dest_window:PPGdkWindow;protocol:PGdkDragProtocol);cdecl;external gdkdll name 'gdk_drag_find_window';
-function  gdk_drag_motion(context:PGdkDragContext; dest_window:PGdkWindow; protocol:TGdkDragProtocol; x_root:gint; y_root:gint;suggested_action:TGdkDragAction; possible_actions:TGdkDragAction; time:guint32):gboolean;cdecl;
-    external gdkdll name 'gdk_drag_motion';
-procedure gdk_drag_abort(context:PGdkDragContext; time:guint32);cdecl;external gdkdll name 'gdk_drag_abort';
-procedure gdk_window_set_hints(window:PGdkWindow; x:gint; y:gint; min_width:gint; min_height:gint; max_width:gint; max_height:gint; flags:gint);cdecl;external gdkdll name 'gdk_window_set_hints';
-procedure gdk_window_set_geometry_hints(window:PGdkWindow; geometry:PGdkGeometry; flags:TGdkWindowHints);cdecl;external gdkdll name 'gdk_window_set_geometry_hints';
-{$ifndef gtkwin}
-procedure gdk_set_sm_client_id(sm_client_id:Pgchar);cdecl;external gdkdll name 'gdk_set_sm_client_id';
-{$endif}
-procedure gdk_window_set_title(window:PGdkWindow; title:Pgchar);cdecl;external gdkdll name 'gdk_window_set_title';
-procedure gdk_window_set_role(window:PGdkWindow; role:Pgchar);cdecl;external gdkdll name 'gdk_window_set_role';
-procedure gdk_window_set_transient_for(window:PGdkWindow; leader:PGdkWindow);cdecl;external gdkdll name 'gdk_window_set_transient_for';
-procedure gdk_window_set_background(window:PGdkWindow; color:PGdkColor);cdecl;external gdkdll name 'gdk_window_set_background';
-procedure gdk_window_set_back_pixmap(window:PGdkWindow; pixmap:PGdkPixmap; parent_relative:gint);cdecl;external gdkdll name 'gdk_window_set_back_pixmap';
-procedure gdk_window_set_cursor(window:PGdkWindow; cursor:PGdkCursor);cdecl;external gdkdll name 'gdk_window_set_cursor';
-{$ifdef win32}
-{In gtk 1.3 these functions have been renamed/replaced.}
-procedure gdk_window_set_colormap(window:PGdkWindow; colormap:PGdkColormap);cdecl;external gdkdll name 'gdk_drawable_set_colormap';
-{$else}
-procedure gdk_window_set_colormap(window:PGdkWindow; colormap:PGdkColormap);cdecl;external gdkdll name 'gdk_window_set_colormap';
-{$endif}
-procedure gdk_window_get_user_data(window:PGdkWindow; data:Pgpointer);cdecl;external gdkdll name 'gdk_window_get_user_data';
-procedure gdk_window_get_geometry(window:PGdkWindow; x:Pgint; y:Pgint; width:Pgint; height:Pgint; depth:Pgint);cdecl;external gdkdll name 'gdk_window_get_geometry';
-procedure gdk_window_get_position(window:PGdkWindow; x:Pgint; y:Pgint);cdecl;external gdkdll name 'gdk_window_get_position';
-{$ifdef win32}
-{In gtk 1.3 these functions have been renamed/replaced.}
-procedure gdk_window_get_size(window:PGdkWindow; width:Pgint; height:Pgint);cdecl;external gdkdll name 'gdk_drawable_get_size';
-function  gdk_window_get_visual(window:PGdkWindow):PGdkVisual;cdecl;external gdkdll name 'gdk_drawable_get_visual';
-function  gdk_window_get_colormap(window:PGdkWindow):PGdkColormap;cdecl;external gdkdll name 'gdk_drawable_get_colormap';
-function  gdk_window_get_type(window:PGdkWindow):TGdkWindowType;cdecl;external gdkdll name 'gdk_drawable_get_type';
-{$else}
-procedure gdk_window_get_size(window:PGdkWindow; width:Pgint; height:Pgint);cdecl;external gdkdll name 'gdk_window_get_size';
-function  gdk_window_get_visual(window:PGdkWindow):PGdkVisual;cdecl;external gdkdll name 'gdk_window_get_visual';
-function  gdk_window_get_colormap(window:PGdkWindow):PGdkColormap;cdecl;external gdkdll name 'gdk_window_get_colormap';
-function  gdk_window_get_type(window:PGdkWindow):TGdkWindowType;cdecl;external gdkdll name 'gdk_window_get_type';
-{$endif}
-function  gdk_window_get_origin(window:PGdkWindow; x:Pgint; y:Pgint):gint;cdecl;external gdkdll name 'gdk_window_get_origin';
-function  gdk_window_get_deskrelative_origin(window:PGdkWindow; x:Pgint; y:Pgint):gboolean;cdecl;external gdkdll name 'gdk_window_get_deskrelative_origin';
-procedure gdk_window_get_root_origin(window:PGdkWindow; x:Pgint; y:Pgint);cdecl;external gdkdll name 'gdk_window_get_root_origin';
-function  gdk_window_get_pointer(window:PGdkWindow; x:Pgint; y:Pgint; mask:PGdkModifierType):PGdkWindow;cdecl;external gdkdll name 'gdk_window_get_pointer';
-function  gdk_window_get_parent(window:PGdkWindow):PGdkWindow;cdecl;external gdkdll name 'gdk_window_get_parent';
-function  gdk_window_get_toplevel(window:PGdkWindow):PGdkWindow;cdecl;external gdkdll name 'gdk_window_get_toplevel';
-function  gdk_window_get_children(window:PGdkWindow):PGList;cdecl;external gdkdll name 'gdk_window_get_children';
-function  gdk_window_get_events(window:PGdkWindow):TGdkEventMask;cdecl;external gdkdll name 'gdk_window_get_events';
-procedure gdk_window_set_events(window:PGdkWindow; event_mask:TGdkEventMask);cdecl;external gdkdll name 'gdk_window_set_events';
-procedure gdk_window_set_icon(window:PGdkWindow; icon_window:PGdkWindow; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gdkdll name 'gdk_window_set_icon';
-procedure gdk_window_set_icon_name(window:PGdkWindow; name:Pgchar);cdecl;external gdkdll name 'gdk_window_set_icon_name';
-procedure gdk_window_set_group(window:PGdkWindow; leader:PGdkWindow);cdecl;external gdkdll name 'gdk_window_set_group';
-procedure gdk_window_set_decorations(window:PGdkWindow; decorations:TGdkWMDecoration);cdecl;external gdkdll name 'gdk_window_set_decorations';
-procedure gdk_window_set_functions(window:PGdkWindow; functions:TGdkWMfunction);cdecl;external gdkdll name 'gdk_window_set_functions';
-function  gdk_window_get_toplevels:PGList;cdecl;external gdkdll name 'gdk_window_get_toplevels';
-procedure gdk_window_register_dnd(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_register_dnd';
-procedure gdk_drawable_set_data(drawable:PGdkDrawable; key:Pgchar; data:gpointer; destroy_func:TGDestroyNotify);cdecl;external gdkdll name 'gdk_drawable_set_data';
-function  gdk_cursor_new(cursor_type:TGdkCursorType):PGdkCursor;cdecl;external gdkdll name 'gdk_cursor_new';
-function  gdk_cursor_new_from_pixmap(source:PGdkPixmap; mask:PGdkPixmap; fg:PGdkColor; bg:PGdkColor; x:gint; y:gint):PGdkCursor;cdecl;external gdkdll name 'gdk_cursor_new_from_pixmap';
-{$ifdef win32}
-{In gtk 1.3 these functions have been renamed/replaced.}
-procedure gdk_cursor_destroy(cursor:PGdkCursor);cdecl;external gdkdll name 'gdk_cursor_unref';
-{$else}
-procedure gdk_cursor_destroy(cursor:PGdkCursor);cdecl;external gdkdll name 'gdk_cursor_destroy';
-{$endif}
-function  gdk_gc_new(window:PGdkWindow):PGdkGC;cdecl;external gdkdll name 'gdk_gc_new';
-function  gdk_gc_new_with_values(window:PGdkWindow; values:PGdkGCValues; values_mask:TGdkGCValuesMask):PGdkGC;cdecl;external gdkdll name 'gdk_gc_new_with_values';
-function  gdk_gc_ref(gc:PGdkGC):PGdkGC;cdecl;external gdkdll name 'gdk_gc_ref';
-procedure gdk_gc_unref(gc:PGdkGC);cdecl;external gdkdll name 'gdk_gc_unref';
-{$ifdef win32}
-{In gtk 1.3 these functions have been renamed/replaced.}
-procedure gdk_gc_destroy(gc:PGdkGC);cdecl;external gdkdll name 'gdk_gc_unref';
-{$else}
-procedure gdk_gc_destroy(gc:PGdkGC);cdecl;external gdkdll name 'gdk_gc_destroy';
-{$endif}
-procedure gdk_gc_get_values(gc:PGdkGC; values:PGdkGCValues);cdecl;external gdkdll name 'gdk_gc_get_values';
-procedure gdk_gc_set_foreground(gc:PGdkGC; color:PGdkColor);cdecl;external gdkdll name 'gdk_gc_set_foreground';
-procedure gdk_gc_set_background(gc:PGdkGC; color:PGdkColor);cdecl;external gdkdll name 'gdk_gc_set_background';
-procedure gdk_gc_set_font(gc:PGdkGC; font:PGdkFont);cdecl;external gdkdll name 'gdk_gc_set_font';
-procedure gdk_gc_set_function(gc:PGdkGC; thefunction:TGdkfunction);cdecl;external gdkdll name 'gdk_gc_set_function';
-procedure gdk_gc_set_fill(gc:PGdkGC; fill:TGdkFill);cdecl;external gdkdll name 'gdk_gc_set_fill';
-procedure gdk_gc_set_tile(gc:PGdkGC; tile:PGdkPixmap);cdecl;external gdkdll name 'gdk_gc_set_tile';
-procedure gdk_gc_set_stipple(gc:PGdkGC; stipple:PGdkPixmap);cdecl;external gdkdll name 'gdk_gc_set_stipple';
-procedure gdk_gc_set_ts_origin(gc:PGdkGC; x:gint; y:gint);cdecl;external gdkdll name 'gdk_gc_set_ts_origin';
-procedure gdk_gc_set_clip_origin(gc:PGdkGC; x:gint; y:gint);cdecl;external gdkdll name 'gdk_gc_set_clip_origin';
-procedure gdk_gc_set_clip_mask(gc:PGdkGC; mask:PGdkBitmap);cdecl;external gdkdll name 'gdk_gc_set_clip_mask';
-procedure gdk_gc_set_clip_rectangle(gc:PGdkGC; rectangle:PGdkRectangle);cdecl;external gdkdll name 'gdk_gc_set_clip_rectangle';
-procedure gdk_gc_set_clip_region(gc:PGdkGC; region:PGdkRegion);cdecl;external gdkdll name 'gdk_gc_set_clip_region';
-procedure gdk_gc_set_subwindow(gc:PGdkGC; mode:TGdkSubwindowMode);cdecl;external gdkdll name 'gdk_gc_set_subwindow';
-procedure gdk_gc_set_exposures(gc:PGdkGC; exposures:gint);cdecl;external gdkdll name 'gdk_gc_set_exposures';
-procedure gdk_gc_set_line_attributes(gc:PGdkGC; line_width:gint; line_style:TGdkLineStyle; cap_style:TGdkCapStyle; join_style:TGdkJoinStyle);cdecl;external gdkdll name 'gdk_gc_set_line_attributes';
-procedure gdk_gc_set_dashes(gc:PGdkGC;dash_offset:gint;dashlist:array of gint8;n:gint);cdecl;external gdkdll name 'gdk_gc_set_dashes';
-procedure gdk_gc_copy(dst_gc:PGdkGC; src_gc:PGdkGC);cdecl;external gdkdll name 'gdk_gc_copy';
-function  gdk_pixmap_new(window:PGdkWindow; width:gint; height:gint; depth:gint):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_new';
-function  gdk_bitmap_create_from_data(window:PGdkWindow; data:Pgchar; width:gint; height:gint):PGdkBitmap;cdecl;external gdkdll name 'gdk_bitmap_create_from_data';
-function  gdk_pixmap_create_from_data(window:PGdkWindow; data:Pgchar; width:gint; height:gint; depth:gint; fg:PGdkColor; bg:PGdkColor):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_create_from_data';
-function  gdk_pixmap_create_from_xpm(window:PGdkWindow; mask:PPGdkBitmap; transparent_color:PGdkColor; filename:Pgchar):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_create_from_xpm';
-function  gdk_pixmap_colormap_create_from_xpm(window:PGdkWindow; colormap:PGdkColormap; mask:PPGdkBitmap; transparent_color:PGdkColor; filename:Pgchar):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_colormap_create_from_xpm';
-function  gdk_pixmap_create_from_xpm_d(window:PGdkWindow; mask:PPGdkBitmap; transparent_color:PGdkColor; data:PPgchar):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_create_from_xpm_d';
-function  gdk_pixmap_colormap_create_from_xpm_d(window:PGdkWindow; colormap:PGdkColormap; mask:PPGdkBitmap; transparent_color:PGdkColor; data:PPgchar):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_colormap_create_from_xpm_d';
-{$ifdef win32}
-{In gtk 1.3 these functions have been renamed/replaced.}
-function  gdk_pixmap_ref(pixmap:PGdkPixmap):PGdkPixmap;cdecl;external gdkdll name 'gdk_drawable_ref';
-procedure gdk_pixmap_unref(pixmap:PGdkPixmap);cdecl;external gdkdll name 'gdk_drawable_unref';
-function  gdk_bitmap_ref(pixmap:PGdkBitmap):PGdkBitmap;cdecl;external gdkdll name 'gdk_drawable_ref';
-procedure gdk_bitmap_unref(pixmap:PGdkBitmap);cdecl;external gdkdll name 'gdk_drawable_unref';
-{$else}
-function  gdk_pixmap_ref(pixmap:PGdkPixmap):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_ref';
-procedure gdk_pixmap_unref(pixmap:PGdkPixmap);cdecl;external gdkdll name 'gdk_pixmap_unref';
-function  gdk_bitmap_ref(pixmap:PGdkBitmap):PGdkBitmap;cdecl;external gdkdll name 'gdk_bitmap_ref';
-procedure gdk_bitmap_unref(pixmap:PGdkBitmap);cdecl;external gdkdll name 'gdk_bitmap_unref';
-{$endif}
-function  gdk_image_new_bitmap(visual:PGdkVisual; data:gpointer; width:gint; height:gint):PGdkImage;cdecl;external gdkdll name 'gdk_image_new_bitmap';
-function  gdk_image_new(thetype:TGdkImageType; visual:PGdkVisual; width:gint; height:gint):PGdkImage;cdecl;external gdkdll name 'gdk_image_new';
-function  gdk_image_get(window:PGdkWindow; x:gint; y:gint; width:gint; height:gint):PGdkImage;cdecl;external gdkdll name 'gdk_image_get';
-procedure gdk_image_put_pixel(image:PGdkImage; x:gint; y:gint; pixel:guint32);cdecl;external gdkdll name 'gdk_image_put_pixel';
-function  gdk_image_get_pixel(image:PGdkImage; x:gint; y:gint):guint32;cdecl;external gdkdll name 'gdk_image_get_pixel';
-{$ifdef win32}
-{In gtk 1.3 these functions have been renamed/replaced.}
-procedure gdk_image_destroy(image:PGdkImage);cdecl;external gdkdll name 'gdk_image_unref';
-{$else}
-procedure gdk_image_destroy(image:PGdkImage);cdecl;external gdkdll name 'gdk_image_destroy';
-{$endif}
-function  gdk_colormap_new(visual:PGdkVisual; allocate:gint):PGdkColormap;cdecl;external gdkdll name 'gdk_colormap_new';
-function  gdk_colormap_ref(cmap:PGdkColormap):PGdkColormap;cdecl;external gdkdll name 'gdk_colormap_ref';
-procedure gdk_colormap_unref(cmap:PGdkColormap);cdecl;external gdkdll name 'gdk_colormap_unref';
-function  gdk_colormap_get_system:PGdkColormap;cdecl;external gdkdll name 'gdk_colormap_get_system';
-function  gdk_colormap_get_system_size:gint;cdecl;external gdkdll name 'gdk_colormap_get_system_size';
-procedure gdk_colormap_change(colormap:PGdkColormap; ncolors:gint);cdecl;external gdkdll name 'gdk_colormap_change';
-function  gdk_colormap_alloc_colors(colormap:PGdkColormap; colors:PGdkColor; ncolors:gint; writeable:gboolean; best_match:gboolean; success:Pgboolean):gint;cdecl;external gdkdll name 'gdk_colormap_alloc_colors';
-function  gdk_colormap_alloc_color(colormap:PGdkColormap; color:PGdkColor; writeable:gboolean; best_match:gboolean):gboolean;cdecl;external gdkdll name 'gdk_colormap_alloc_color';
-procedure gdk_colormap_free_colors(colormap:PGdkColormap; colors:PGdkColor; ncolors:gint);cdecl;external gdkdll name 'gdk_colormap_free_colors';
-function  gdk_colormap_get_visual(colormap:PGdkColormap):PGdkVisual;cdecl;external gdkdll name 'gdk_colormap_get_visual';
-function  gdk_color_copy(color:PGdkColor):PGdkColor;cdecl;external gdkdll name 'gdk_color_copy';
-procedure gdk_color_free(color:PGdkColor);cdecl;external gdkdll name 'gdk_color_free';
-function  gdk_color_parse(spec:Pgchar; color:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_parse';
-function  gdk_color_hash(colora:PGdkColor; colorb:PGdkColor):guint;cdecl;external gdkdll name 'gdk_color_hash';
-function  gdk_color_equal(colora:PGdkColor; colorb:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_equal';
-procedure gdk_colors_store(colormap:PGdkColormap; colors:PGdkColor; ncolors:gint);cdecl;external gdkdll name 'gdk_colors_store';
-function  gdk_colors_alloc(colormap:PGdkColormap; contiguous:gint; planes:Pgulong; nplanes:gint; pixels:Pgulong; npixels:gint):gint;cdecl;external gdkdll name 'gdk_colors_alloc';
-procedure gdk_colors_free(colormap:PGdkColormap; pixels:Pgulong; npixels:gint; planes:gulong);cdecl;external gdkdll name 'gdk_colors_free';
-function  gdk_color_white(colormap:PGdkColormap; color:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_white';
-function  gdk_color_black(colormap:PGdkColormap; color:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_black';
-function  gdk_color_alloc(colormap:PGdkColormap; color:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_alloc';
-function  gdk_color_change(colormap:PGdkColormap; color:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_change';
-function  gdk_font_load(font_name:Pgchar):PGdkFont;cdecl;external gdkdll name 'gdk_font_load';
-function  gdk_fontset_load(fontset_name:Pgchar):PGdkFont;cdecl;external gdkdll name 'gdk_fontset_load';
-function  gdk_font_ref(font:PGdkFont):PGdkFont;cdecl;external gdkdll name 'gdk_font_ref';
-procedure gdk_font_unref(font:PGdkFont);cdecl;external gdkdll name 'gdk_font_unref';
-function  gdk_font_id(font:PGdkFont):gint;cdecl;external gdkdll name 'gdk_font_id';
-function  gdk_font_equal(fonta:PGdkFont; fontb:PGdkFont):gint;cdecl;external gdkdll name 'gdk_font_equal';
-function  gdk_string_width(font:PGdkFont; thestring:Pgchar):gint;cdecl;external gdkdll name 'gdk_string_width';
-function  gdk_text_width(font:PGdkFont; text:Pgchar; text_length:gint):gint;cdecl;external gdkdll name 'gdk_text_width';
-function  gdk_text_width_wc(font:PGdkFont; text:PGdkWChar; text_length:gint):gint;cdecl;external gdkdll name 'gdk_text_width_wc';
-function  gdk_char_width(font:PGdkFont; character:gchar):gint;cdecl;external gdkdll name 'gdk_char_width';
-function  gdk_char_width_wc(font:PGdkFont; character:TGdkWChar):gint;cdecl;external gdkdll name 'gdk_char_width_wc';
-function  gdk_string_measure(font:PGdkFont; thestring:Pgchar):gint;cdecl;external gdkdll name 'gdk_string_measure';
-function  gdk_text_measure(font:PGdkFont; text:Pgchar; text_length:gint):gint;cdecl;external gdkdll name 'gdk_text_measure';
-function  gdk_char_measure(font:PGdkFont; character:gchar):gint;cdecl;external gdkdll name 'gdk_char_measure';
-function  gdk_string_height(font:PGdkFont; thestring:Pgchar):gint;cdecl;external gdkdll name 'gdk_string_height';
-function  gdk_text_height(font:PGdkFont; text:Pgchar; text_length:gint):gint;cdecl;external gdkdll name 'gdk_text_height';
-function  gdk_char_height(font:PGdkFont; character:gchar):gint;cdecl;external gdkdll name 'gdk_char_height';
-procedure gdk_text_extents(font:PGdkFont; text:Pgchar; text_length:gint; lbearing:Pgint; rbearing:Pgint; width:Pgint; ascent:Pgint; descent:Pgint);cdecl;external gdkdll name 'gdk_text_extents';
-procedure gdk_text_extents_wc(font:PGdkFont; text:PGdkWChar; text_length:gint; lbearing:Pgint; rbearing:Pgint; width:Pgint; ascent:Pgint; descent:Pgint);cdecl;external gdkdll name 'gdk_text_extents_wc';
-procedure gdk_string_extents(font:PGdkFont; thestring:Pgchar; lbearing:Pgint; rbearing:Pgint; width:Pgint; ascent:Pgint; descent:Pgint);cdecl;external gdkdll name 'gdk_string_extents';
-procedure gdk_draw_point(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint);cdecl;external gdkdll name 'gdk_draw_point';
-procedure gdk_draw_line(drawable:PGdkDrawable; gc:PGdkGC; x1:gint; y1:gint; x2:gint; y2:gint);cdecl;external gdkdll name 'gdk_draw_line';
-procedure gdk_draw_rectangle(drawable:PGdkDrawable; gc:PGdkGC; filled:gint; x:gint; y:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_draw_rectangle';
-procedure gdk_draw_arc(drawable:PGdkDrawable; gc:PGdkGC; filled:gint; x:gint; y:gint; width:gint; height:gint; angle1:gint; angle2:gint);cdecl;external gdkdll name 'gdk_draw_arc';
-procedure gdk_draw_polygon(drawable:PGdkDrawable; gc:PGdkGC; filled:gint; points:PGdkPoint; npoints:gint);cdecl;external gdkdll name 'gdk_draw_polygon';
-procedure gdk_draw_string(drawable:PGdkDrawable; font:PGdkFont; gc:PGdkGC; x:gint; y:gint; thestring:Pgchar);cdecl;external gdkdll name 'gdk_draw_string';
-procedure gdk_draw_text(drawable:PGdkDrawable; font:PGdkFont; gc:PGdkGC; x:gint; y:gint; text:Pgchar; text_length:gint);cdecl;external gdkdll name 'gdk_draw_text';
-procedure gdk_draw_text_wc(drawable:PGdkDrawable; font:PGdkFont; gc:PGdkGC; x:gint; y:gint; text:PGdkWChar; text_length:gint);cdecl;external gdkdll name 'gdk_draw_text_wc';
-{$ifdef gtkwin}
-{In gtk 1.3 these functions have been renamed/replaced.}
-procedure gdk_draw_pixmap(drawable:PGdkDrawable; gc:PGdkGC; src:PGdkDrawable; xsrc:gint; ysrc:gint; xdest:gint; ydest:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_draw_drawable';
-procedure gdk_draw_bitmap(drawable:PGdkDrawable; gc:PGdkGC; src:PGdkDrawable; xsrc:gint; ysrc:gint; xdest:gint; ydest:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_draw_drawable';
-{$else}
-procedure gdk_draw_pixmap(drawable:PGdkDrawable; gc:PGdkGC; src:PGdkDrawable; xsrc:gint; ysrc:gint; xdest:gint; ydest:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_draw_pixmap';
-{$ifdef dummy}
-{ this routine doesn't exist in gdk 1.2, it's an error in the headers }
-procedure gdk_draw_bitmap(drawable:PGdkDrawable; gc:PGdkGC; src:PGdkDrawable; xsrc:gint; ysrc:gint; xdest:gint; ydest:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_draw_bitmap';
-{$endif dummy}
-{$endif}
-procedure gdk_draw_image(drawable:PGdkDrawable; gc:PGdkGC; image:PGdkImage; xsrc:gint; ysrc:gint; xdest:gint; ydest:gint; width:gint; height:gint);cdecl;external gdkdll name 'gdk_draw_image';
-procedure gdk_draw_points(drawable:PGdkDrawable; gc:PGdkGC; points:PGdkPoint; npoints:gint);cdecl;external gdkdll name 'gdk_draw_points';
-procedure gdk_draw_segments(drawable:PGdkDrawable; gc:PGdkGC; segs:PGdkSegment; nsegs:gint);cdecl;external gdkdll name 'gdk_draw_segments';
-procedure gdk_draw_lines(drawable:PGdkDrawable; gc:PGdkGC; points:PGdkPoint; npoints:gint);cdecl;external gdkdll name 'gdk_draw_lines';
-function  gdk_selection_owner_set(owner:PGdkWindow; selection:TGdkAtom; time:guint32; send_event:gint):gint;cdecl;external gdkdll name 'gdk_selection_owner_set';
-function  gdk_selection_owner_get(selection:TGdkAtom):PGdkWindow;cdecl;external gdkdll name 'gdk_selection_owner_get';
-procedure gdk_selection_convert(requestor:PGdkWindow; selection:TGdkAtom; target:TGdkAtom; time:guint32);cdecl;external gdkdll name 'gdk_selection_convert';
-function  gdk_selection_property_get(requestor:PGdkWindow; data:PPguchar; prop_type:PTGdkAtom; prop_format:Pgint):gint;cdecl;external gdkdll name 'gdk_selection_property_get';
-procedure gdk_selection_send_notify(requestor:guint32; selection:TGdkAtom; target:TGdkAtom; theproperty:TGdkAtom; time:guint32);cdecl;external gdkdll name 'gdk_selection_send_notify';
-function  gdk_text_property_to_text_list(encoding:TGdkAtom; format:gint; text:Pguchar; length:gint; list:PPPgchar):gint;cdecl;external gdkdll name 'gdk_text_property_to_text_list';
-procedure gdk_free_text_list(list:PPgchar);cdecl;external gdkdll name 'gdk_free_text_list';
-function  gdk_string_to_compound_text(str:Pgchar; encoding:PTGdkAtom; format:Pgint; ctext:PPguchar; length:Pgint):gint;cdecl;external gdkdll name 'gdk_string_to_compound_text';
-procedure gdk_free_compound_text(ctext:Pguchar);cdecl;external gdkdll name 'gdk_free_compound_text';
-function  gdk_atom_intern(atom_name:Pgchar; only_if_exists:gint):TGdkAtom;cdecl;external gdkdll name 'gdk_atom_intern';
-function  gdk_atom_name(atom:TGdkAtom):Pgchar;cdecl;external gdkdll name 'gdk_atom_name';
-function  gdk_property_get(window:PGdkWindow; theproperty:TGdkAtom; thetype:TGdkAtom; offset:gulong; length:gulong; pdelete:gint; actual_property_type:PTGdkAtom; actual_format:Pgint; actual_length:Pgint; data:PPguchar):gint;cdecl;
-   external gdkdll name 'gdk_property_get';
-procedure gdk_property_change(window:PGdkWindow; theproperty:TGdkAtom; thetype:TGdkAtom; format:gint; mode:TGdkPropMode; data:Pguchar; nelements:gint);cdecl;external gdkdll name 'gdk_property_change';
-procedure gdk_property_delete(window:PGdkWindow; theproperty:TGdkAtom);cdecl;external gdkdll name 'gdk_property_delete';
-function  gdk_rectangle_intersect(src1:PGdkRectangle; src2:PGdkRectangle; dest:PGdkRectangle):gint;cdecl;external gdkdll name 'gdk_rectangle_intersect';
-procedure gdk_rectangle_union(src1:PGdkRectangle; src2:PGdkRectangle; dest:PGdkRectangle);cdecl;external gdkdll name 'gdk_rectangle_union';
-procedure gdk_input_init;cdecl;external gdkdll name 'gdk_input_init';
-procedure gdk_input_exit;cdecl;external gdkdll name 'gdk_input_exit';
-function  gdk_input_list_devices:PGList;cdecl;external gdkdll name 'gdk_input_list_devices';
-procedure gdk_input_set_extension_events(window:PGdkWindow; mask:gint; mode:TGdkExtensionMode);cdecl;external gdkdll name 'gdk_input_set_extension_events';
-procedure gdk_input_set_source(deviceid:guint32; source:TGdkInputSource);cdecl;external gdkdll name 'gdk_input_set_source';
-function  gdk_input_set_mode(deviceid:guint32; mode:TGdkInputMode):gint;cdecl;external gdkdll name 'gdk_input_set_mode';
-procedure gdk_input_set_axes(deviceid:guint32; axes:PGdkAxisUse);cdecl;external gdkdll name 'gdk_input_set_axes';
-procedure gdk_input_set_key(deviceid:guint32; index:guint; keyval:guint; modifiers:TGdkModifierType);cdecl;external gdkdll name 'gdk_input_set_key';
-procedure gdk_input_window_get_pointer(window:PGdkWindow; deviceid:guint32; x:Pgdouble; y:Pgdouble; pressure:Pgdouble; xtilt:Pgdouble; ytilt:Pgdouble; mask:PGdkModifierType);cdecl;external gdkdll name 'gdk_input_window_get_pointer';
-function  gdk_input_motion_events(window:PGdkWindow; deviceid:guint32; start:guint32; stop:guint32; nevents_return:Pgint):PGdkTimeCoord;cdecl;external gdkdll name 'gdk_input_motion_events';
-function  gdk_im_ready:gint;cdecl;external gdkdll name 'gdk_im_ready';
-procedure gdk_im_begin(ic:TGdkIC; window:PGdkWindow);cdecl;external gdkdll name 'gdk_im_begin';
-procedure gdk_im_end;cdecl;external gdkdll name 'gdk_im_end';
-function  gdk_im_decide_style(supported_style:TGdkIMStyle):TGdkIMStyle;cdecl;external gdkdll name 'gdk_im_decide_style';
-function  gdk_im_set_best_style(best_allowed_style:TGdkIMStyle):TGdkIMStyle;cdecl;external gdkdll name 'gdk_im_set_best_style';
-function  gdk_ic_new(attr:PGdkICAttr; mask:TGdkICAttributesType):TGdkIC;cdecl;external gdkdll name 'gdk_ic_new';
-procedure gdk_ic_destroy(ic:TGdkIC);cdecl;external gdkdll name 'gdk_ic_destroy';
-function  gdk_ic_get_style(ic:TGdkIC):TGdkIMStyle;cdecl;external gdkdll name 'gdk_ic_get_style';
-function  gdk_ic_get_events(ic:TGdkIC):TGdkEventMask;cdecl;external gdkdll name 'gdk_ic_get_events';
-function  gdk_ic_attr_new:PGdkICAttr;cdecl;external gdkdll name 'gdk_ic_attr_new';
-procedure gdk_ic_attr_destroy(attr:PGdkICAttr);cdecl;external gdkdll name 'gdk_ic_attr_destroy';
-function  gdk_ic_set_attr(ic:TGdkIC; attr:PGdkICAttr; mask:TGdkICAttributesType):TGdkICAttributesType;cdecl;external gdkdll name 'gdk_ic_set_attr';
-function  gdk_ic_get_attr(ic:TGdkIC; attr:PGdkICAttr; mask:TGdkICAttributesType):TGdkICAttributesType;cdecl;external gdkdll name 'gdk_ic_get_attr';
-function  gdk_wcstombs(src:PGdkWChar):Pgchar;cdecl;external gdkdll name 'gdk_wcstombs';
-function  gdk_mbstowcs(dest:PGdkWChar; src:Pgchar; dest_max:gint):gint;cdecl;external gdkdll name 'gdk_mbstowcs';
-function  gdk_color_context_new(visual:PGdkVisual; colormap:PGdkColormap):PGdkColorContext;cdecl;external gdkdll name 'gdk_color_context_new';
-function  gdk_color_context_new_mono(visual:PGdkVisual; colormap:PGdkColormap):PGdkColorContext;cdecl;external gdkdll name 'gdk_color_context_new_mono';
-procedure gdk_color_context_free(cc:PGdkColorContext);cdecl;external gdkdll name 'gdk_color_context_free';
-function  gdk_color_context_get_pixel(cc:PGdkColorContext; red:gushort; green:gushort; blue:gushort; failed:Pgint):gulong;cdecl;external gdkdll name 'gdk_color_context_get_pixel';
-procedure gdk_color_context_get_pixels(cc:PGdkColorContext; reds:Pgushort; greens:Pgushort; blues:Pgushort; ncolors:gint; colors:Pgulong; nallocated:Pgint);cdecl;external gdkdll name 'gdk_color_context_get_pixels';
-procedure gdk_color_context_get_pixels_incremental(cc:PGdkColorContext; reds:Pgushort; greens:Pgushort; blues:Pgushort; ncolors:gint; used:Pgint; colors:Pgulong; nallocated:Pgint);cdecl;external gdkdll name 'gdk_color_context_get_pixels_incremental';
-function  gdk_color_context_query_color(cc:PGdkColorContext; color:PGdkColor):gint;cdecl;external gdkdll name 'gdk_color_context_query_color';
-function  gdk_color_context_query_colors(cc:PGdkColorContext; colors:PGdkColor; num_colors:gint):gint;cdecl;external gdkdll name 'gdk_color_context_query_colors';
-function  gdk_color_context_add_palette(cc:PGdkColorContext; palette:PGdkColor; num_palette:gint):gint;cdecl;external gdkdll name 'gdk_color_context_add_palette';
-procedure gdk_color_context_init_dither(cc:PGdkColorContext);cdecl;external gdkdll name 'gdk_color_context_init_dither';
-procedure gdk_color_context_free_dither(cc:PGdkColorContext);cdecl;external gdkdll name 'gdk_color_context_free_dither';
-function  gdk_color_context_get_pixel_from_palette(cc:PGdkColorContext; red:Pgushort; green:Pgushort; blue:Pgushort; failed:Pgint):gulong;cdecl;external gdkdll name 'gdk_color_context_get_pixel_from_palette';
-function  gdk_color_context_get_index_from_palette(cc:PGdkColorContext; red:Pgint; green:Pgint; blue:Pgint; failed:Pgint):guchar;cdecl;external gdkdll name 'gdk_color_context_get_index_from_palette';
-function  gdk_region_new:PGdkRegion;cdecl;external gdkdll name 'gdk_region_new';
-procedure gdk_region_destroy(region:PGdkRegion);cdecl;external gdkdll name 'gdk_region_destroy';
-procedure gdk_region_get_clipbox(region:PGdkRegion; rectangle:PGdkRectangle);cdecl;external gdkdll name 'gdk_region_get_clipbox';
-function  gdk_region_empty(region:PGdkRegion):gboolean;cdecl;external gdkdll name 'gdk_region_empty';
-function  gdk_region_equal(region1:PGdkRegion; region2:PGdkRegion):gboolean;cdecl;external gdkdll name 'gdk_region_equal';
-function  gdk_region_point_in(region:PGdkRegion; x:longint; y:longint):gboolean;cdecl;external gdkdll name 'gdk_region_point_in';
-function  gdk_region_rect_in(region:PGdkRegion; rect:PGdkRectangle):TGdkOverlapType;cdecl;external gdkdll name 'gdk_region_rect_in';
-function  gdk_region_polygon(points:PGdkPoint; npoints:gint; fill_rule:TGdkFillRule):PGdkRegion;cdecl;external gdkdll name 'gdk_region_polygon';
-procedure gdk_region_offset(region:PGdkRegion; dx:gint; dy:gint);cdecl;external gdkdll name 'gdk_region_offset';
-procedure gdk_region_shrink(region:PGdkRegion; dx:gint; dy:gint);cdecl;external gdkdll name 'gdk_region_shrink';
-function  gdk_region_union_with_rect(region:PGdkRegion; rect:PGdkRectangle):PGdkRegion;cdecl;external gdkdll name 'gdk_region_union_with_rect';
-function  gdk_regions_intersect(source1:PGdkRegion; source2:PGdkRegion):PGdkRegion;cdecl;external gdkdll name 'gdk_regions_intersect';
-function  gdk_regions_union(source1:PGdkRegion; source2:PGdkRegion):PGdkRegion;cdecl;external gdkdll name 'gdk_regions_union';
-function  gdk_regions_subtract(source1:PGdkRegion; source2:PGdkRegion):PGdkRegion;cdecl;external gdkdll name 'gdk_regions_subtract';
-function  gdk_regions_xor(source1:PGdkRegion; source2:PGdkRegion):PGdkRegion;cdecl;external gdkdll name 'gdk_regions_xor';
-procedure gdk_event_send_clientmessage_toall(event:PGdkEvent);cdecl;external gdkdll name 'gdk_event_send_clientmessage_toall';
-function  gdk_event_send_client_message(event:PGdkEvent; xid:guint32):gboolean;cdecl;external gdkdll name 'gdk_event_send_client_message';
-function  gdk_keyval_name(keyval:guint):Pgchar;cdecl;external gdkdll name 'gdk_keyval_name';
-function  gdk_keyval_from_name(keyval_name:Pgchar):guint;cdecl;external gdkdll name 'gdk_keyval_from_name';
-function  gdk_keyval_to_upper(keyval:guint):guint;cdecl;external gdkdll name 'gdk_keyval_to_upper';
-function  gdk_keyval_to_lower(keyval:guint):guint;cdecl;external gdkdll name 'gdk_keyval_to_lower';
-function  gdk_keyval_is_upper(keyval:guint):gboolean;cdecl;external gdkdll name 'gdk_keyval_is_upper';
-function  gdk_keyval_is_lower(keyval:guint):gboolean;cdecl;external gdkdll name 'gdk_keyval_is_lower';
-{$ifndef gtkos2}
-var
-  gdk_threads_mutex : PGMutex;external gdkdll name 'gdk_threads_mutex';
-{$endif}
-procedure gdk_threads_enter;cdecl;external gdkdll name 'gdk_threads_enter';
-procedure gdk_threads_leave;cdecl;external gdkdll name 'gdk_threads_leave';
-
-{$endif read_interface}
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-

packages/extra/gtk/gdk/gdkpixbuf.pp

@@ -1,443 +0,0 @@
-{
-
-   GdkPixbuf library
-
-   Copyright (C) 1999 The Free Software Foundation
-
-   Authors: Mark Crichton <[email protected]>
-           Miguel de Icaza <[email protected]>
-           Federico Mena-Quintero <[email protected]>
-           Havoc Pennington <[email protected]>
-
-   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.
-
- **********************************************************************}
-unit gdkpixbuf;
-
-interface
-{$ifndef os2}
-
-{$Ifdef FPC}
-  {$PACKRECORDS C}
-{$EndIf}
-
-{.$Define XLIB_SUPPORT}         (* Use gdk_pixbuf_xlib instead of gdk_pixbuf *)
-{$Define GTK_SUPPORT}           (* enable TGdkPixbufLoader support *)
-{.$Define GNOME_SUPPORT}        (* enable TGnomeCanvasPixbuf support *)
-
-{$IFDef XLIB_SUPPORT}
-
-  {$Ifdef FPC}
-    {$linklib gdk_pixbuf_xlib}
-  {$EndIf}
-
-  {$Undef GTK_SUPPORT}          (* Ensure GTK is disabled in XLIB mode *)
-  {$Undef GNOME_SUPPORT}        (* Ensure GNOME is disabled in XLIB mode *)
-
-{$Else}
-
-  {$Ifdef FPC}
-    {$linklib gdk_pixbuf}
-  {$EndIf}
-
-  {$IFDef GNOME_SUPPORT}
-    {$Define GTK_SUPPORT}       (* Ensure GTK is enabled if GNOME is *)
-  {$EndIf}
-
-{$EndIf}
-
-Uses
-  GLIB,
-  {$IFDef XLIB_SUPPORT}
-  XLib,
-  {$Else}
-    GDK
-    {$IFDef GTK_SUPPORT}
-      ,GTK
-      {$IfDef GNOME_SUPPORT}
-        ,GNOME
-      {$ENDIF}
-    {$ENDIF}
-  {$ENDIF};
-
-
-{$IFDef XLIB_SUPPORT}
-
-  const
-    libgdkpixbuf =
-      {$Ifdef FPC}
-        'gdk_pixbuf_xlib';              (* Set library to gdk_pixbuf_xlib *)
-      {$Else}
-        'libgdk_pixbuf_xlib.so';        (* Set library to gdk_pixbuf_xlib *)
-      {$EndIf}
-
-{$Else}
-
-  const
-    libgdkpixbuf =
-      {$Ifdef FPC}
-        'gdk_pixbuf';           (* Set library to gdk_pixbuf *)
-
-      {$Else}
-        'libgdk_pixbuf.so';     (* Set library to gdk_pixbuf *)
-      {$EndIf}
-
-{$EndIf}
-
-{From gdk-pixbuf-features.h}
-  const
-     GDK_PIXBUF_FEATURES_H = 1;
-     GDK_PIXBUF_MAJOR = 0;
-     GDK_PIXBUF_MINOR = 16;
-     GDK_PIXBUF_MICRO = 0;
-     GDK_PIXBUF_VERSION_ = '0.16.0';
-
-{$Ifdef FPC}
-  var
-{$ifndef darwin}
-    gdk_pixbuf_major_version : guint; cvar; external;
-    gdk_pixbuf_version : Pchar; cvar; external;
-{$else darwin}
-    gdk_pixbuf_major_version : guint; external libgdkpixbuf name 'gdk_pixbuf_major_version';
-    gdk_pixbuf_version : Pchar; external libgdkpixbuf name 'gdk_pixbuf_version';
-{$endif darwin}
-{$EndIf}
-
-{From gdk-pixbuf.h}
-type
-  TGdkColorspace = (GDK_COLORSPACE_RGB);
-  { All of these are opaque structures  }
-   _GdkPixbuf = Record
-   end;
-   TGdkPixbuf = _GdkPixbuf;
-   PGdkPixbuf = ^TGdkPixbuf;
-
-   _GdkPixbufFrame = Record
-   end;
-   TGdkPixbufFrame = _GdkPixbufFrame;
-   PGdkPixbufFrame = ^TGdkPixbufFrame;
-
-   _GdkPixbufAnimation = Record
-   end;
-   TGdkPixbufAnimation = _GdkPixbufAnimation;
-   PGdkPixbufAnimation = ^TGdkPixbufAnimation;
-
-  { Handler that must free the pixel array  }
-   TGdkPixbufDestroyNotify = Function (pixels : Pguchar; data : gpointer) : Pointer;
-  { Handler for the last unref operation  }
-   TGdkPixbufLastUnref = Function (pixbuf : PGdkPixbuf; data : gpointer) : Pointer;
-  { Reference counting  }
-
-  function gdk_pixbuf_ref(pixbuf:PGdkPixbuf):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_ref';
-  procedure gdk_pixbuf_unref(pixbuf:PGdkPixbuf);cdecl; external libgdkpixbuf name 'gdk_pixbuf_unref';
-  procedure gdk_pixbuf_set_last_unref_handler(pixbuf:PGdkPixbuf; last_unref_fn:TGdkPixbufLastUnref; last_unref_fn_data:gpointer);cdecl; external libgdkpixbuf name 'gdk_pixbuf_set_last_unref_handler';
-  procedure gdk_pixbuf_finalize(pixbuf:PGdkPixbuf);cdecl; external libgdkpixbuf name 'gdk_pixbuf_finalize';
-
-  { GdkPixbuf accessors  }
-  function gdk_pixbuf_get_colorspace(pixbuf:PGdkPixbuf):TGdkColorspace;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_colorspace';
-  function gdk_pixbuf_get_n_channels(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_n_channels';
-  function gdk_pixbuf_get_has_alpha(pixbuf:PGdkPixbuf):gboolean;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_has_alpha';
-  function gdk_pixbuf_get_bits_per_sample(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_bits_per_sample';
-  function gdk_pixbuf_get_pixels(pixbuf:PGdkPixbuf):Pguchar;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_pixels';
-  function gdk_pixbuf_get_width(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_width';
-  function gdk_pixbuf_get_height(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_height';
-  function gdk_pixbuf_get_rowstride(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_rowstride';
-
-  { Create a blank pixbuf with an optimal rowstride and a new buffer  }
-  function gdk_pixbuf_new(colorspace:TGdkColorspace; has_alpha:gboolean; bits_per_sample:longint; width:longint; height:longint):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new';
-
-  { Copy a pixbuf  }
-  function gdk_pixbuf_copy(pixbuf:PGdkPixbuf):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_copy';
-
-  { Simple loading  }
-  function gdk_pixbuf_new_from_file(filename:Pchar):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new_from_file';
-
-  function gdk_pixbuf_new_from_data(data:Pguchar; colorspace:TGdkColorspace; has_alpha:gboolean; bits_per_sample:longint; width:longint;
-             height:longint; rowstride:longint; destroy_fn:TGdkPixbufDestroyNotify; destroy_fn_data:gpointer):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new_from_data';
-
-  function gdk_pixbuf_new_from_xpm_data(data:PPchar):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new_from_xpm_data';
-
-  { Adding an alpha channel  }
-  function gdk_pixbuf_add_alpha(pixbuf:PGdkPixbuf; substitute_color:gboolean; r:guchar; g:guchar; b:guchar):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_add_alpha';
-
-  { Copy an area of a pixbuf onto another one  }
-  procedure gdk_pixbuf_copy_area(src_pixbuf:PGdkPixbuf; src_x:longint; src_y:longint; width:longint; height:longint;
-              dest_pixbuf:PGdkPixbuf; dest_x:longint; dest_y:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_copy_area';
-
-  type
-     TGdkPixbufAlphaMode = (GDK_PIXBUF_ALPHA_BILEVEL,GDK_PIXBUF_ALPHA_FULL);
-
-  {$IfNDef XLIB_SUPPORT}
-
-    { Rendering to a TGDKDrawable  }
-
-    procedure gdk_pixbuf_render_threshold_alpha(pixbuf:PGdkPixbuf; bitmap:PGdkBitmap; src_x:longint; src_y:longint; dest_x:longint;
-              dest_y:longint; width:longint; height:longint; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_threshold_alpha';
-    procedure gdk_pixbuf_render_to_drawable(pixbuf:PGdkPixbuf; Drawable:PGDKDrawable; GC:PGDKGC; src_x:longint; src_y:longint;
-              dest_x:longint; dest_y:longint; width:longint; height:longint; dither:TGDKRGBDither;
-              x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_to_drawable';
-    procedure gdk_pixbuf_render_to_drawable_alpha(pixbuf:PGdkPixbuf; Drawable:PGDKDrawable; src_x:longint; src_y:longint; dest_x:longint;
-              dest_y:longint; width:longint; height:longint; alpha_mode:TGdkPixbufAlphaMode; alpha_threshold:longint;
-              dither:TGDKRGBDither; x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_to_drawable_alpha';
-    procedure gdk_pixbuf_render_pixmap_and_mask(pixbuf:PGdkPixbuf; Pixmap_return:PPGDKPixmap; mask_return:PPGdkBitmap; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_pixmap_and_mask';
-
-    { Fetching a region from a TDrawable  }
-    function gdk_pixbuf_get_from_drawable(dest:PGdkPixbuf; src:PGDKDrawable; cmap:PGDKColormap; src_x:longint; src_y:longint;
-               dest_x:longint; dest_y:longint; width:longint; height:longint):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_from_drawable';
-
-  {$EndIf}
-
-  { Scaling  }
-
-  type
-     TGdkInterpType = (GDK_INTERP_NEAREST,GDK_INTERP_TILES,
-       GDK_INTERP_BILINEAR,GDK_INTERP_HYPER);
-
-  procedure gdk_pixbuf_scale(src:PGdkPixbuf; dest:PGdkPixbuf; dest_x:longint; dest_y:longint; dest_width:longint;
-              dest_height:longint; offset_x:double; offset_y:double; scale_x:double; scale_y:double;
-              interp_type:TGdkInterpType);cdecl; external libgdkpixbuf name 'gdk_pixbuf_scale';
-  procedure gdk_pixbuf_composite(src:PGdkPixbuf; dest:PGdkPixbuf; dest_x:longint; dest_y:longint; dest_width:longint;
-              dest_height:longint; offset_x:double; offset_y:double; scale_x:double; scale_y:double;
-              interp_type:TGdkInterpType; overall_alpha:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_composite';
-  procedure gdk_pixbuf_composite_color(src:PGdkPixbuf; dest:PGdkPixbuf; dest_x:longint; dest_y:longint; dest_width:longint;
-              dest_height:longint; offset_x:double; offset_y:double; scale_x:double; scale_y:double;
-              interp_type:TGdkInterpType; overall_alpha:longint; check_x:longint; check_y:longint; check_size:longint;
-              color1:guint32; color2:guint32);cdecl; external libgdkpixbuf name 'gdk_pixbuf_composite_color';
-  function gdk_pixbuf_scale_simple(src:PGdkPixbuf; dest_width:longint; dest_height:longint; interp_type:TGdkInterpType):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_scale_simple';
-  function gdk_pixbuf_composite_color_simple(src:PGdkPixbuf; dest_width:longint; dest_height:longint; interp_type:TGdkInterpType; overall_alpha:longint;
-             check_size:longint; color1:guint32; color2:guint32):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_composite_color_simple';
-
-  { Animation support  }
-  { GIF-like animation overlay modes for frames  }
-
-  type
-     TGdkPixbufFrameAction = (GDK_PIXBUF_FRAME_RETAIN,GDK_PIXBUF_FRAME_DISPOSE,
-       GDK_PIXBUF_FRAME_REVERT);
-
-  function gdk_pixbuf_animation_new_from_file(filename:Pchar):PGdkPixbufAnimation;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_new_from_file';
-  function gdk_pixbuf_animation_ref(animation:PGdkPixbufAnimation):PGdkPixbufAnimation;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_ref';
-  procedure gdk_pixbuf_animation_unref(animation:PGdkPixbufAnimation);cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_unref';
-  function gdk_pixbuf_animation_get_width(animation:PGdkPixbufAnimation):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_width';
-  function gdk_pixbuf_animation_get_height(animation:PGdkPixbufAnimation):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_height';
-  function gdk_pixbuf_animation_get_frames(animation:PGdkPixbufAnimation):PGList;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_frames';
-  function gdk_pixbuf_animation_get_num_frames(animation:PGdkPixbufAnimation):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_num_frames';
-
-  { Frame accessors  }
-  function gdk_pixbuf_frame_get_pixbuf(frame:PGdkPixbufFrame):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_pixbuf';
-  function gdk_pixbuf_frame_get_x_offset(frame:PGdkPixbufFrame):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_x_offset';
-  function gdk_pixbuf_frame_get_y_offset(frame:PGdkPixbufFrame):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_y_offset';
-  function gdk_pixbuf_frame_get_delay_time(frame:PGdkPixbufFrame):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_delay_time';
-  function gdk_pixbuf_frame_get_action(frame:PGdkPixbufFrame):TGdkPixbufFrameAction;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_action';
-
-  { General (presently empty) initialization hooks, primarily for gnome-libs  }
-  procedure gdk_pixbuf_preinit(app:gpointer; modinfo:gpointer);cdecl; external libgdkpixbuf name 'gdk_pixbuf_preinit';
-  procedure gdk_pixbuf_postinit(app:gpointer; modinfo:gpointer);cdecl; external libgdkpixbuf name 'gdk_pixbuf_postinit';
-
-{From gdk-pixbuf-loader.h}
-
-{$IfDef GTK_SUPPORT}
-
-Type
-  _GdkPixbufLoaderPrivate = record
-  end;
-  TGdkPixbufLoaderPrivate = _GdkPixbufLoaderPrivate;
-  PGdkPixbufLoaderPrivate = ^TGdkPixbufLoaderPrivate;
-
-  _GdkPixbufLoader = record
-    theobject : PGtkObject;
-    { Private data }
-    priv : PGdkPixbufLoaderPrivate;
-  end;
-  TGdkPixbufLoader = _GdkPixbufLoader;
-  PGdkPixbufLoader = ^TGdkPixbufLoader;
-
-  _GdkPixbufLoaderClass = record
-    parent_class : PGtkObjectClass;
-
-    area_prepared :  Function (loader : PGdkPixbufLoader) : Pointer; cdecl;
-    area_updated  :  Function (loader : PGdkPixbufLoader; x, y, width, height : guint) : Pointer; cdecl;
-    frame_done  :  Function (loader : PGdkPixbufLoader;  frame : PGdkPixbufFrame) : Pointer; cdecl;
-    animation_done  :  Function (loader : PGdkPixbufLoader) : Pointer; cdecl;
-    closed  :  Function (loader : PGdkPixbufLoader) : Pointer; cdecl;
-  end;
-  TGdkPixbufLoaderClass = _GdkPixbufLoaderClass;
-  PGdkPixbufLoaderClass = ^TGdkPixbufLoaderClass;
-
-type
-  GDK_PIXBUF_LOADER=PGDKPIXBUFLOADER;
-  GDK_PIXBUF_LOADER_CLASS=PGDKPIXBUFLOADERClass;
-
-  Function gdk_pixbuf_loader_get_type : TGtkType; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_get_type';
-  Function gdk_pixbuf_loader_new : PGdkPixbufLoader; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_new';
-  Function gdk_pixbuf_loader_write(loader : PGdkPixbufLoader;
-    const buf : Pguchar; count : longint) : gBoolean; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_write';
-  Function gdk_pixbuf_loader_get_pixbuf(loader : PGdkPixbufLoader) : PGdkPixbuf; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_get_pixbuf';
-  Function gdk_pixbuf_loader_get_animation (loader : PGdkPixbufLoader) : PGdkPixbufAnimation; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_get_animation';
-  Procedure gdk_pixbuf_loader_close(loader : PGdkPixbufLoader); cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_close';
-
-  Function GDK_TYPE_PIXBUF_LOADER : TGtkType;
-  Function GDK_IS_PIXBUF_LOADER(obj:pointer) : boolean;
-  Function GDK_IS_PIXBUF_LOADER_CLASS(klass:pointer) : boolean;
-{$EndIf}
-
-{From gdk-pixbuf-xlibrgb.h}
-
-{$IfDef XLIB_SUPPORT}
-  type
-     _XlibRgbCmap = record
-          colors : array[0..255] of dword;
-          lut : array[0..255] of byte;
-       end;
-     TXlibRgbCmap = _XlibRgbCmap;
-     PXlibRgbCmap = ^TXlibRgbCmap;
-
-  procedure xlib_rgb_init(display:PDisplay; screen:PScreen);cdecl; external libgdkpixbuf name 'xlib_rgb_init';
-  procedure xlib_rgb_init_with_depth(display:PDisplay; screen:PScreen; prefDepth:longint);cdecl; external libgdkpixbuf name 'xlib_rgb_init_with_depth';
-  function xlib_rgb_xpixel_from_rgb(rgb:guint32):dword;cdecl; external libgdkpixbuf name 'xlib_rgb_xpixel_from_rgb';
-  procedure xlib_rgb_gc_set_foreground(GC:TGC; rgb:guint32);cdecl; external libgdkpixbuf name 'xlib_rgb_gc_set_foreground';
-  procedure xlib_rgb_gc_set_background(GC:TGC; rgb:guint32);cdecl; external libgdkpixbuf name 'xlib_rgb_gc_set_background';
-
-
-  type
-     TXlibRgbDither = (XLIB_RGB_DITHER_NONE,XLIB_RGB_DITHER_NORMAL,
-       XLIB_RGB_DITHER_MAX);
-
-  procedure xlib_draw_rgb_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint;
-              height:longint; dith:TXlibRgbDither; rgb_buf:Pbyte; rowstride:longint);cdecl; external libgdkpixbuf name 'xlib_draw_rgb_image';
-  procedure xlib_draw_rgb_image_dithalign(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint;
-              height:longint; dith:TXlibRgbDither; rgb_buf:Pbyte; rowstride:longint; xdith:longint;
-              ydith:longint);cdecl; external libgdkpixbuf name 'xlib_draw_rgb_image_dithalign';
-  procedure xlib_draw_rgb_32_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint;
-              height:longint; dith:TXlibRgbDither; buf:Pbyte; rowstride:longint);cdecl; external libgdkpixbuf name 'xlib_draw_rgb_32_image';
-  procedure xlib_draw_gray_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint;
-              height:longint; dith:TXlibRgbDither; buf:Pbyte; rowstride:longint);cdecl; external libgdkpixbuf name 'xlib_draw_gray_image';
-  function xlib_rgb_cmap_new(colors:Pguint32; n_colors:longint):PXlibRgbCmap;cdecl; external libgdkpixbuf name 'xlib_rgb_cmap_new';
-  procedure xlib_rgb_cmap_free(cmap:PXlibRgbCmap);cdecl; external libgdkpixbuf name 'xlib_rgb_cmap_free';
-  procedure xlib_draw_indexed_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint;
-              height:longint; dith:TXlibRgbDither; buf:Pbyte; rowstride:longint; cmap:PXlibRgbCmap);cdecl; external libgdkpixbuf name 'xlib_draw_indexed_image';
-
-  { Below are some functions which are primarily useful for debugging
-     and experimentation.  }
-  function xlib_rgb_ditherable:LongBool;cdecl; external libgdkpixbuf name 'xlib_rgb_ditherable';
-  procedure xlib_rgb_set_verbose(verbose:LongBool);cdecl; external libgdkpixbuf name 'xlib_rgb_set_verbose';
-
-  { experimental TColormap stuff  }
-  procedure xlib_rgb_set_install(install:LongBool);cdecl; external libgdkpixbuf name 'xlib_rgb_set_install';
-  procedure xlib_rgb_set_min_colors(min_colors:longint);cdecl; external libgdkpixbuf name 'xlib_rgb_set_min_colors';
-  function xlib_rgb_get_cmap:TColormap;cdecl; external libgdkpixbuf name 'xlib_rgb_get_cmap';
-  function xlib_rgb_get_visual:PVisual;cdecl; external libgdkpixbuf name 'xlib_rgb_get_visual';
-  function xlib_rgb_get_visual_info:PXVisualInfo;cdecl; external libgdkpixbuf name 'xlib_rgb_get_visual_info';
-  function xlib_rgb_get_depth:longint;cdecl; external libgdkpixbuf name 'xlib_rgb_get_depth';
-  function xlib_rgb_get_display:PDisplay;cdecl; external libgdkpixbuf name 'xlib_rgb_get_display';
-  function xlib_rgb_get_screen:PScreen;cdecl; external libgdkpixbuf name 'xlib_rgb_get_screen';
-{$EndIf}
-
-{From gdk-pixbuf-xlib.h}
-
-{$IfDef XLIB_SUPPORT}
-  procedure gdk_pixbuf_xlib_init(display:PDisplay; screen_num:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_init';
-  procedure gdk_pixbuf_xlib_init_with_depth(display:PDisplay; screen_num:longint; prefDepth:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_init_with_depth';
-  procedure gdk_pixbuf_xlib_render_threshold_alpha(pixbuf:PGdkPixbuf; bitmap:TPixmap; src_x:longint; src_y:longint; dest_x:longint;
-              dest_y:longint; width:longint; height:longint; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_threshold_alpha';
-  procedure gdk_pixbuf_xlib_render_to_drawable(pixbuf:PGdkPixbuf; Drawable:TDrawable; GC:TGC; src_x:longint; src_y:longint;
-              dest_x:longint; dest_y:longint; width:longint; height:longint; dither:TXlibRgbDither;
-              x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_to_drawable';
-  procedure gdk_pixbuf_xlib_render_to_drawable_alpha(pixbuf:PGdkPixbuf; Drawable:TDrawable; src_x:longint; src_y:longint; dest_x:longint;
-              dest_y:longint; width:longint; height:longint; alpha_mode:TGdkPixbufAlphaMode; alpha_threshold:longint;
-              dither:TXlibRgbDither; x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_to_drawable_alpha';
-  procedure gdk_pixbuf_xlib_render_Pixmap_and_mask(pixbuf:PGdkPixbuf; Pixmap_return:PPixmap; mask_return:PPixmap; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_Pixmap_and_mask';
-  function gdk_pixbuf_xlib_get_from_drawable(dest:PGdkPixbuf; src:TDrawable; cmap:TColormap; visual:PVisual; src_x:longint;
-             src_y:longint; dest_x:longint; dest_y:longint; width:longint; height:longint):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_get_from_drawable';
-{$EndIf}
-
-{From gnome-canvas-pixbuf.h}
-
-{$IfDef GNOME_SUPPORT}
-Type
-  _GnomeCanvasPixbuf = record
-    item : TGnomeCanvasItem;
-
-    { Private data }
-    priv :gpointer;
-  end;
-  TGnomeCanvasPixbuf = _GnomeCanvasPixbuf;
-  PGnomeCanvasPixbuf = ^TGnomeCanvasPixbuf;
-
-  _GnomeCanvasPixbufClass = record
-    parent_class : TGnomeCanvasItemClass;
-  end;
-
-  TGnomeCanvasPixbufClass = _GnomeCanvasPixbufClass;
-  PGnomeCanvasPixbufClass = ^TGnomeCanvasPixbufClass;
-
-  GNOME_CANVAS_PIXBUF = PGNOMECANVASPIXBUF;
-  GNOME_CANVAS_PIXBUF_CLASS = PGnomeCanvasPixbufClass
-
-  Function GNOME_TYPE_CANVAS_PIXBUF : TGTKType; cdcel; external libgdkpixbuf name 'gnome_canvas_pixbuf_get_type';
-
-  Function GNOME_IS_CANVAS_PIXBUF(obj : Pointer);
-  Function GNOME_IS_CANVAS_PIXBUF_CLASS(klass : Pointer);
-
-  Function gnome_canvas_pixbuf_get_type : PGtkType; cdecl; external libgdkpixbuf name 'gnome_canvas_pixbuf_get_type';
-{$EndIf}
-
-{$endif os2}
-implementation
-{$ifndef os2}
-
-{$Ifdef FPC}
-{ There is a bug in the compiler. If an external variable is not used, it will
-  create code, that can not be relocated by the linker.
-  So, use them in this hidden procedure.
-}
-procedure CheckUnusedVariable; [Public];
-begin
-  if (gdk_pixbuf_major_version=0)
-  or (gdk_pixbuf_version=nil) then ;
-end;
-{$EndIf}
-
-{$IfDef GTK_SUPPORT}
-  Function GDK_TYPE_PIXBUF_LOADER       : TGtkType;
-  begin
-    GDK_TYPE_PIXBUF_LOADER := gdk_pixbuf_loader_get_type;
-  end;
-
-  Function GDK_IS_PIXBUF_LOADER(obj : pointer) : boolean;
-  begin
-    GDK_IS_PIXBUF_LOADER :=(obj<>nil) and GDK_IS_PIXBUF_LOADER_CLASS(PGtkTypeObject(obj)^.klass);
-  end;
-
-  Function GDK_IS_PIXBUF_LOADER_CLASS(klass:pointer) : boolean;
-  begin
-    GDK_IS_PIXBUF_LOADER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GDK_TYPE_PIXBUF_LOADER);
-  end;
-{$EndIf}
-
-{$IfDef GNOME_SUPPORT}
-  Function GNOME_IS_CANVAS_PIXBUF(obj : Pointer);
-  begin
-    GNOME_IS_CANVAS_PIXBUF :=(obj<>nil) and GNOME_IS_CANVAS_PIXBUF_CLASS(PGtkTypeObject(obj)^.klass);
-  end;
-
-  Function GNOME_IS_CANVAS_PIXBUF_CLASS(klass : Pointer);
-  begin
-    GNOME_IS_CANVAS_PIXBUF_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_CANVAS_PIXBUF);
-  end;
-{$EndIf}
-
-{$endif os2}
-end.

packages/extra/gtk/gdk/gdkprivate.pp

@@ -1,321 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PDisplay = pointer;
-     PXImage = pointer;
-     PVisual = pointer;
-     TWindow = longint;
-     TCursor = longint;
-     TAtom = longint;
-     TGC = longint;
-     TColorMap = longint;
-     TXStandardColorMap = array [0..9] of longint;
-     TVisualID = longint;
-     PXEvent = pointer;
-     TRegion = pointer;
-     TXID = longint;
-     Time_T = longint;
-
-     PGdkWindowPrivate = ^TGdkWindowPrivate;
-     TGdkWindowPrivate = record
-          window : TGdkWindow;
-          parent : PGdkWindow;
-          xwindow : TWindow;
-          xdisplay : PDisplay;
-          x : gint16;
-          y : gint16;
-          width : guint16;
-          height : guint16;
-          resize_count : guint8;
-          window_type : guint8;
-          ref_count : guint;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          extension_events : gint;
-          filters : PGList;
-          colormap : PGdkColormap;
-          children : PGList;
-       end;
-
-  const
-     bm_TGdkWindowPrivate_destroyed = $3;
-     bp_TGdkWindowPrivate_destroyed = 0;
-     bm_TGdkWindowPrivate_mapped = $4;
-     bp_TGdkWindowPrivate_mapped = 2;
-     bm_TGdkWindowPrivate_guffaw_gravity = $8;
-     bp_TGdkWindowPrivate_guffaw_gravity = 3;
-function  destroyed(var a : TGdkWindowPrivate) : guint;
-procedure set_destroyed(var a : TGdkWindowPrivate; __destroyed : guint);
-function  mapped(var a : TGdkWindowPrivate) : guint;
-procedure set_mapped(var a : TGdkWindowPrivate; __mapped : guint);
-function  guffaw_gravity(var a : TGdkWindowPrivate) : guint;
-procedure set_guffaw_gravity(var a : TGdkWindowPrivate; __guffaw_gravity : guint);
-
-  type
-     PGdkImagePrivate = ^TGdkImagePrivate;
-     TGdkImagePrivate = record
-          image : TGdkImage;
-          ximage : PXImage;
-          xdisplay : PDisplay;
-          x_shm_info : gpointer;
-          image_put : procedure (window:PGdkDrawable; gc:PGdkGC; image:PGdkImage; xsrc:gint; ysrc:gint; xdest:gint; ydest:gint; width:gint; height:gint);cdecl;
-       end;
-
-     PGdkGCPrivate = ^TGdkGCPrivate;
-     TGdkGCPrivate = record
-          gc : TGdkGC;
-          xgc : TGC;
-          xdisplay : PDisplay;
-          ref_count : guint;
-       end;
-
-     TGdkColorInfoFlags = (GDK_COLOR_WRITEABLE := 1 shl 0);
-
-     PGdkColorInfo = ^TGdkColorInfo;
-     TGdkColorInfo = record
-          flags : TGdkColorInfoFlags;
-          ref_count : guint;
-       end;
-
-     PGdkColormapPrivate = ^TGdkColormapPrivate;
-     TGdkColormapPrivate = record
-          colormap : TGdkColormap;
-          xcolormap : TColormap;
-          xdisplay : PDisplay;
-          visual : PGdkVisual;
-          private_val : gint;
-          hash : PGHashTable;
-          info : PGdkColorInfo;
-          last_sync_time : time_t;
-          ref_count : guint;
-       end;
-
-     PGdkVisualPrivate = ^TGdkVisualPrivate;
-     TGdkVisualPrivate = record
-          visual : TGdkVisual;
-          xvisual : PVisual;
-       end;
-
-     PGdkFontPrivate = ^TGdkFontPrivate;
-     TGdkFontPrivate = record
-          font : TGdkFont;
-          xfont : gpointer;
-          xdisplay : PDisplay;
-          ref_count : guint;
-          names : PGSList;
-       end;
-
-     PGdkCursorPrivate = ^TGdkCursorPrivate;
-     TGdkCursorPrivate = record
-          cursor : TGdkCursor;
-          xcursor : TCursor;
-          xdisplay : PDisplay;
-       end;
-
-     PGdkDndCursorInfo = ^TGdkDndCursorInfo;
-     TGdkDndCursorInfo = record
-          gdk_cursor_dragdefault : TCursor;
-          gdk_cursor_dragok : TCursor;
-          drag_pm_default : PGdkWindow;
-          drag_pm_ok : PGdkWindow;
-          default_hotspot : TGdkPoint;
-          ok_hotspot : TGdkPoint;
-          xids : PGList;
-       end;
-
-     PGdkDndGlobals = ^TGdkDndGlobals;
-     TGdkDndGlobals = record
-          gdk_XdeEnter : TGdkAtom;
-          gdk_XdeLeave : TGdkAtom;
-          gdk_XdeRequest : TGdkAtom;
-          gdk_XdeDataAvailable : TGdkAtom;
-          gdk_XdeDataShow : TGdkAtom;
-          gdk_XdeCancel : TGdkAtom;
-          gdk_XdeTypelist : TGdkAtom;
-          c : PGdkDndCursorInfo;
-          drag_startwindows : PPGdkWindow;
-          drag_numwindows : guint;
-          drag_really : gboolean;
-          drag_perhaps : gboolean;
-          dnd_grabbed : gboolean;
-          dnd_drag_target : TWindow;
-          drag_dropcoords : TGdkPoint;
-          dnd_drag_start : TGdkPoint;
-          dnd_drag_oldpos : TGdkPoint;
-          dnd_drag_dropzone : TGdkRectangle;
-          real_sw : PGdkWindowPrivate;
-          dnd_drag_curwin : TWindow;
-          last_drop_time : Time_T;
-       end;
-
-
-     PGdkEventFilter = ^TGdkEventFilter;
-     TGdkEventFilter = record
-          thefunction : TGdkFilterFunc;
-          data : gpointer;
-       end;
-
-     PGdkClientFilter = ^TGdkClientFilter;
-     TGdkClientFilter = record
-          thetype : TGdkAtom;
-          thefunction : TGdkFilterFunc;
-          data : gpointer;
-       end;
-
-{$ifdef USE_XIM}
-
-     PGdkICPrivate = ^TGdkICPrivate;
-     TGdkICPrivate = record
-          xic : XIC;
-          attr : PGdkICAttr;
-          mask : TGdkICAttributesType;
-       end;
-
-{$endif}
-
-     PGdkColorContextPrivate = ^TGdkColorContextPrivate;
-     TGdkColorContextPrivate = record
-          color_context : TGdkColorContext;
-          xdisplay : PDisplay;
-          std_cmap : TXStandardColormap;
-       end;
-
-     PGdkRegionPrivate = ^TGdkRegionPrivate;
-     TGdkRegionPrivate = record
-          region : TGdkRegion;
-          xregion : TRegion;
-       end;
-
-
-     TGdkDebugFlag = (GDK_DEBUG_MISC := 1 shl 0,GDK_DEBUG_EVENTS := 1 shl 1,
-       GDK_DEBUG_DND := 1 shl 2,GDK_DEBUG_COLOR_CONTEXT := 1 shl 3,
-       GDK_DEBUG_XIM := 1 shl 4);
-
-procedure gdk_xid_table_insert(xid:TXID; data:gpointer);cdecl;external gdkdll name 'gdk_xid_table_insert';
-function  gdk_xid_table_lookup(xid:TXID):gpointer;cdecl;external gdkdll name 'gdk_xid_table_lookup';
-
-function  GDK_window_lookup(xid : longint) : PGdkWindow;
-function  GDK_pixmap_lookup(xid : longint) : PGdkPixmap;
-function  GDK_font_lookup(xid : longint) : PGdkFont;
-
-{$ifndef os2}
-    var
-       gdk_selection_property : TAtom;external gdkdll name 'gdk_selection_property';
-       gdk_progclass : Pgchar;external gdkdll name 'gdk_progclass';
-       gdk_error_code : gint;external gdkdll name 'gdk_error_code';
-       gdk_null_window_warnings : gint;external gdkdll name 'gdk_null_window_warnings';
-{$endif}
-
-{$ifndef gtkwin}
-procedure gdk_events_init;cdecl;external gdkdll name 'gdk_events_init';
-procedure gdk_window_init;cdecl;external gdkdll name 'gdk_window_init';
-procedure gdk_visual_init;cdecl;external gdkdll name 'gdk_visual_init';
-procedure gdk_dnd_init;cdecl;external gdkdll name 'gdk_dnd_init';
-procedure gdk_image_init;cdecl;external gdkdll name 'gdk_image_init';
-procedure gdk_image_exit;cdecl;external gdkdll name 'gdk_image_exit';
-function  gdk_colormap_lookup(xcolormap:TColormap):PGdkColormap;cdecl;external gdkdll name 'gdk_colormap_lookup';
-function  gdk_visual_lookup(xvisual:pVisual):PGdkVisual;cdecl;external gdkdll name 'gdk_visual_lookup';
-procedure gdk_window_add_colormap_windows(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_add_colormap_windows';
-procedure gdk_window_destroy_notify(window:PGdkWindow);cdecl;external gdkdll name 'gdk_window_destroy_notify';
-procedure gdk_xid_table_remove(xid:TXID);cdecl;external gdkdll name 'gdk_xid_table_remove';
-function  gdk_send_xevent(window:TWindow; propagate:gboolean; event_mask:glong; event_send:pXEvent):gint;cdecl;external gdkdll name 'gdk_send_xevent';
-{$ifndef gtkdarwin}
-procedure gdk_dnd_display_drag_cursor(x:gint; y:gint; drag_ok:gboolean; change_made:gboolean);cdecl;external gdkdll name 'gdk_dnd_display_drag_cursor';
-{$endif not gtkdarwin}
-function  gdk_window_xid_at(base:TWindow; bx:gint; by:gint; x:gint; y:gint; excludes:PGList; excl_child:gboolean):TWindow;cdecl;external gdkdll name 'gdk_window_xid_at';
-function  gdk_window_xid_at_coords(x:gint; y:gint; excludes:PGList; excl_child:gboolean):TWindow;cdecl;external gdkdll name 'gdk_window_xid_at_coords';
-
-{$ifndef os2}
-    var
-       gdk_use_xshm : gint;external gdkdll name 'gdk_use_xshm';
-       gdk_display_name : Pgchar;external gdkdll name 'gdk_display_name';
-       gdk_display : PDisplay;external gdkdll name 'gdk_display';
-       gdk_screen : gint;external gdkdll name 'gdk_screen';
-       gdk_root_window : TWindow;external gdkdll name 'gdk_root_window';
-       gdk_leader_window : TWindow;external gdkdll name 'gdk_leader_window';
-       gdk_root_parent : TGdkWindowPrivate;external gdkdll name 'gdk_root_parent';
-       gdk_wm_delete_window : TAtom;external gdkdll name 'gdk_wm_delete_window';
-       gdk_wm_take_focus : TAtom;external gdkdll name 'gdk_wm_take_focus';
-       gdk_wm_protocols : TAtom;external gdkdll name 'gdk_wm_protocols';
-       gdk_dnd : TGdkDndGlobals;external gdkdll name 'gdk_dnd';
-       gdk_error_warnings : gint;external gdkdll name 'gdk_error_warnings';
-       gdk_default_filters : PGList;external gdkdll name 'gdk_default_filters';
-       gdk_nevent_masks : longint;external gdkdll name 'gdk_nevent_masks';
-       gdk_xgrab_window : PGdkWindowPrivate;external gdkdll name 'gdk_xgrab_window';
-{$endif}
-
-{$ifdef USE_XIM}
-function  gdk_im_open:gint;cdecl;external gdkdll name 'gdk_im_open';
-procedure gdk_im_close;cdecl;external gdkdll name 'gdk_im_close';
-procedure gdk_ic_cleanup;cdecl;external gdkdll name 'gdk_ic_cleanup';
-
-    var
-       gdk_xim_ic : PGdkICPrivate;external gdkdll name 'gdk_xim_ic';
-       gdk_xim_window : PGdkWindow;external gdkdll name 'gdk_xim_window';
-{$endif}
-
-{$endif win32}
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  destroyed(var a : TGdkWindowPrivate) : guint;
-    begin
-       destroyed:=(a.flag0 and bm_TGdkWindowPrivate_destroyed) shr bp_TGdkWindowPrivate_destroyed;
-    end;
-
-procedure set_destroyed(var a : TGdkWindowPrivate; __destroyed : guint);
-    begin
-       a.flag0:=a.flag0 or ((__destroyed shl bp_TGdkWindowPrivate_destroyed) and bm_TGdkWindowPrivate_destroyed);
-    end;
-
-function  mapped(var a : TGdkWindowPrivate) : guint;
-    begin
-       mapped:=(a.flag0 and bm_TGdkWindowPrivate_mapped) shr bp_TGdkWindowPrivate_mapped;
-    end;
-
-procedure set_mapped(var a : TGdkWindowPrivate; __mapped : guint);
-    begin
-       a.flag0:=a.flag0 or ((__mapped shl bp_TGdkWindowPrivate_mapped) and bm_TGdkWindowPrivate_mapped);
-    end;
-
-function  guffaw_gravity(var a : TGdkWindowPrivate) : guint;
-    begin
-       guffaw_gravity:=(a.flag0 and bm_TGdkWindowPrivate_guffaw_gravity) shr bp_TGdkWindowPrivate_guffaw_gravity;
-    end;
-
-procedure set_guffaw_gravity(var a : TGdkWindowPrivate; __guffaw_gravity : guint);
-    begin
-       a.flag0:=a.flag0 or ((__guffaw_gravity shl bp_TGdkWindowPrivate_guffaw_gravity) and bm_TGdkWindowPrivate_guffaw_gravity);
-    end;
-
-function  GDK_window_lookup(xid : longint) : PGdkWindow;
-    begin
-       gdk_window_lookup:=PGdkWindow(gdk_xid_table_lookup(xid));
-    end;
-
-function  GDK_pixmap_lookup(xid : longint) : PGdkPixmap;
-    begin
-       gdk_pixmap_lookup:=PGdkPixmap(gdk_xid_table_lookup(xid));
-    end;
-
-function  GDK_font_lookup(xid : longint) : PGdkFont;
-    begin
-       gdk_font_lookup:=PGdkFont(gdk_xid_table_lookup(xid));
-    end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gdk/gdkrgb.pp

@@ -1,49 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGdkRgbCmap = ^TGdkRgbCmap;
-     TGdkRgbCmap = record
-          colors : array[0..255] of guint32;
-          lut : array[0..255] of guchar;
-       end;
-
-procedure gdk_rgb_init;cdecl;external gdkdll name 'gdk_rgb_init';
-function  gdk_rgb_xpixel_from_rgb(rgb:guint32):gulong;cdecl;external gdkdll name 'gdk_rgb_xpixel_from_rgb';
-procedure gdk_rgb_gc_set_foreground(gc:PGdkGC; rgb:guint32);cdecl;external gdkdll name 'gdk_rgb_gc_set_foreground';
-procedure gdk_rgb_gc_set_background(gc:PGdkGC; rgb:guint32);cdecl;external gdkdll name 'gdk_rgb_gc_set_background';
-
-  type
-     TGdkRgbDither = (GDK_RGB_DITHER_NONE,GDK_RGB_DITHER_NORMAL,GDK_RGB_DITHER_MAX);
-
-procedure gdk_draw_rgb_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; rgb_buf:Pguchar; rowstride:gint);cdecl;external gdkdll name 'gdk_draw_rgb_image';
-procedure gdk_draw_rgb_image_dithalign(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; rgb_buf:Pguchar; rowstride:gint; xdith:gint; ydith:gint);cdecl;external gdkdll name 'gdk_draw_rgb_image_dithalign';
-procedure gdk_draw_rgb_32_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; buf:Pguchar; rowstride:gint);cdecl;external gdkdll name 'gdk_draw_rgb_32_image';
-procedure gdk_draw_gray_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; buf:Pguchar; rowstride:gint);cdecl;external gdkdll name 'gdk_draw_gray_image';
-function  gdk_rgb_cmap_new(colors:Pguint32; n_colors:gint):PGdkRgbCmap;cdecl;external gdkdll name 'gdk_rgb_cmap_new';
-procedure gdk_rgb_cmap_free(cmap:PGdkRgbCmap);cdecl;external gdkdll name 'gdk_rgb_cmap_free';
-procedure gdk_draw_indexed_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; buf:Pguchar; rowstride:gint; cmap:PGdkRgbCmap);cdecl;external gdkdll name 'gdk_draw_indexed_image';
-function  gdk_rgb_ditherable:gboolean;cdecl;external gdkdll name 'gdk_rgb_ditherable';
-procedure gdk_rgb_set_verbose(verbose:gboolean);cdecl;external gdkdll name 'gdk_rgb_set_verbose';
-procedure gdk_rgb_set_install(install:gboolean);cdecl;external gdkdll name 'gdk_rgb_set_install';
-procedure gdk_rgb_set_min_colors(min_colors:gint);cdecl;external gdkdll name 'gdk_rgb_set_min_colors';
-function  gdk_rgb_get_cmap:PGdkColormap;cdecl;external gdkdll name 'gdk_rgb_get_cmap';
-function  gdk_rgb_get_visual:PGdkVisual;cdecl;external gdkdll name 'gdk_rgb_get_visual';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-

packages/extra/gtk/gdk/gdktypes.pp

@@ -1,1089 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-   type
-     PPPChar   = ^PPchar;
-     PPguchar  = Pguchar;
-     PPgchar   = ^Pgchar;
-     PPPgchar  = ^PPgchar;
-     PPgint    = ^Pgint;
-
-     PGdkWChar = ^TGdkWChar;
-     TGdkWChar = guint32;
-
-     TGdkIC = pointer;
-     PGdkIc = ^TGdkIC;
-
-     TGdkAtom = gulong;
-     PTGdkAtom = ^TGdkAtom;
-
-     PPGdkWindow = ^PGdkWindow;
-     PGdkWindow = ^TGdkWindow;
-     TGdkWindow = record
-          user_data : gpointer;
-       end;
-
-     TGdkPixmap = TGdkWindow;
-     PGdkPixmap = ^TGdkWindow;
-     PPGdkPixmap = ^PGdkPixmap;
-     TGdkBitmap = TGdkWindow;
-     PGdkBitMap = ^TGdkBitMap;
-     PPGdkBitMap = ^PGdkBitMap;
-     TGdkDrawable = TGdkWindow;
-     PGdkDrawable = ^TGdkDrawable;
-
-type
-   PGdkWindowType = ^TGdkWindowType;
-   TGdkWindowType =  Longint;
-Const
-   GDK_WINDOW_ROOT = 0;
-   GDK_WINDOW_TOPLEVEL = 1;
-   GDK_WINDOW_CHILD = 2;
-   GDK_WINDOW_DIALOG = 3;
-   GDK_WINDOW_TEMP = 4;
-   GDK_WINDOW_PIXMAP = 5;
-   GDK_WINDOW_FOREIGN = 6;
-
-type
-   PGdkWindowClass = ^TGdkWindowClass;
-   TGdkWindowClass =  Longint;
-Const
-   GDK_INPUT_OUTPUT = 0;
-   GDK_INPUT_ONLY = 1;
-
-type
-   PGdkImageType = ^TGdkImageType;
-   TGdkImageType =  Longint;
-Const
-   GDK_IMAGE_NORMAL = 0;
-   GDK_IMAGE_SHARED = 1;
-   GDK_IMAGE_FASTEST = 2;
-
-type
-   PGdkVisualType = ^TGdkVisualType;
-   TGdkVisualType =  Longint;
-Const
-     GDK_VISUAL_STATIC_GRAY = 0;
-     GDK_VISUAL_GRAYSCALE = 1;
-     GDK_VISUAL_STATIC_COLOR = 2;
-     GDK_VISUAL_PSEUDO_COLOR = 3;
-     GDK_VISUAL_TRUE_COLOR = 4;
-     GDK_VISUAL_DIRECT_COLOR = 5;
-
-type
-   PGdkFontType = ^TGdkFontType;
-   TGdkFontType =  Longint;
-Const
-     GDK_FONT_FONT = 0;
-     GDK_FONT_FONTSET = 1;
-
-type
-   PGdkWindowAttributesType = ^TGdkWindowAttributesType;
-   TGdkWindowAttributesType =  Longint;
-Const
-     GDK_WA_TITLE = (1) shl (1);
-     GDK_WA_X = (1) shl (2);
-     GDK_WA_Y = (1) shl (3);
-     GDK_WA_CURSOR = (1) shl (4);
-     GDK_WA_COLORMAP = (1) shl (5);
-     GDK_WA_VISUAL = (1) shl (6);
-     GDK_WA_WMCLASS = (1) shl (7);
-     GDK_WA_NOREDIR = (1) shl (8);
-
-type
-   PGdkWindowHints = ^TGdkWindowHints;
-   TGdkWindowHints =  Longint;
-Const
-     GDK_HINT_POS = 1 shl 0;
-     GDK_HINT_MIN_SIZE = 1 shl 1;
-     GDK_HINT_MAX_SIZE = 1 shl 2;
-     GDK_HINT_BASE_SIZE = 1 shl 3;
-     GDK_HINT_ASPECT = 1 shl 4;
-     GDK_HINT_RESIZE_INC = 1 shl 5;
-
-type
-   PGdkfunction = ^TGdkfunction;
-   TGdkfunction = Longint;
-Const
-     GDK_COPY = 0;
-     GDK_INVERT = 1;
-     GDK_XOR = 2;
-     GDK_CLEAR = 3;
-     GDK_AND = 4;
-     GDK_AND_REVERSE = 5;
-     GDK_AND_INVERT = 6;
-     GDK_NOOP = 7;
-     GDK_OR = 8;
-     GDK_EQUIV = 9;
-     GDK_OR_REVERSE = 10;
-     GDK_COPY_INVERT = 11;
-     GDK_OR_INVERT = 12;
-     GDK_NAND = 13;
-     GDK_SET = 14;
-
-type
-   PGdkFill = ^TGdkFill;
-   TGdkFill =  Longint;
-Const
-     GDK_SOLID = 0;
-     GDK_TILED = 1;
-     GDK_STIPPLED = 2;
-     GDK_OPAQUE_STIPPLED = 3;
-
-type
-   PGdkFillRule = ^TGdkFillRule;
-   TGdkFillRule =  Longint;
-Const
-     GDK_EVEN_ODD_RULE = 0;
-     GDK_WINDING_RULE = 1;
-
-type
-   PGdkLineStyle = ^TGdkLineStyle;
-   TGdkLineStyle =  Longint;
-Const
-     GDK_LINE_SOLID = 0;
-     GDK_LINE_ON_OFF_DASH = 1;
-     GDK_LINE_DOUBLE_DASH = 2;
-
-type
-   PGdkCapStyle = ^TGdkCapStyle;
-   TGdkCapStyle =  Longint;
-Const
-     GDK_CAP_NOT_LAST = 0;
-     GDK_CAP_BUTT = 1;
-     GDK_CAP_ROUND = 2;
-     GDK_CAP_PROJECTING = 3;
-
-type
-   PGdkJoinStyle = ^TGdkJoinStyle;
-   TGdkJoinStyle =  Longint;
-Const
-     GDK_JOIN_MITER = 0;
-     GDK_JOIN_ROUND = 1;
-     GDK_JOIN_BEVEL = 2;
-
-type
-   PGdkCursorType = ^TGdkCursorType;
-   TGdkCursorType =  Longint;
-
-Const
-     GDK_CURSOR_IS_PIXMAP = -1;
-     GDK_X_CURSOR = 0;
-     GDK_ARROW = 2;
-     GDK_BASED_ARROW_DOWN = 4;
-     GDK_BASED_ARROW_UP = 6;
-     GDK_BOAT = 8;
-     GDK_BOGOSITY = 10;
-     GDK_BOTTOM_LEFT_CORNER = 12;
-     GDK_BOTTOM_RIGHT_CORNER = 14;
-     GDK_BOTTOM_SIDE = 16;
-     GDK_BOTTOM_TEE = 18;
-     GDK_BOX_SPIRAL = 20;
-     GDK_CENTER_PTR = 22;
-     GDK_CIRCLE = 24;
-     GDK_CLOCK = 26;
-     GDK_COFFEE_MUG = 28;
-     GDK_CROSS = 30;
-     GDK_CROSS_REVERSE = 32;
-     GDK_CROSSHAIR = 34;
-     GDK_DIAMOND_CROSS = 36;
-     GDK_DOT = 38;
-     GDK_DOTBOX = 40;
-     GDK_DOUBLE_ARROW = 42;
-     GDK_DRAFT_LARGE = 44;
-     GDK_DRAFT_SMALL = 46;
-     GDK_DRAPED_BOX = 48;
-     GDK_EXCHANGE = 50;
-     GDK_FLEUR = 52;
-     GDK_GOBBLER = 54;
-     GDK_GUMBY = 56;
-     GDK_HAND1 = 58;
-     GDK_HAND2 = 60;
-     GDK_HEART = 62;
-     GDK_ICON = 64;
-     GDK_IRON_CROSS = 66;
-     GDK_LEFT_PTR = 68;
-     GDK_LEFT_SIDE = 70;
-     GDK_LEFT_TEE = 72;
-     GDK_LEFTBUTTON = 74;
-     GDK_LL_ANGLE = 76;
-     GDK_LR_ANGLE = 78;
-     GDK_MAN = 80;
-     GDK_MIDDLEBUTTON = 82;
-     GDK_MOUSE = 84;
-     GDK_PENCIL = 86;
-     GDK_PIRATE = 88;
-     GDK_PLUS = 90;
-     GDK_QUESTION_ARROW = 92;
-     GDK_RIGHT_PTR = 94;
-     GDK_RIGHT_SIDE = 96;
-     GDK_RIGHT_TEE = 98;
-     GDK_RIGHTBUTTON = 100;
-     GDK_RTL_LOGO = 102;
-     GDK_SAILBOAT = 104;
-     GDK_SB_DOWN_ARROW = 106;
-     GDK_SB_H_DOUBLE_ARROW = 108;
-     GDK_SB_LEFT_ARROW = 110;
-     GDK_SB_RIGHT_ARROW = 112;
-     GDK_SB_UP_ARROW = 114;
-     GDK_SB_V_DOUBLE_ARROW = 116;
-     GDK_SHUTTLE = 118;
-     GDK_SIZING = 120;
-     GDK_SPIDER = 122;
-     GDK_SPRAYCAN = 124;
-     GDK_STAR = 126;
-     GDK_TARGET = 128;
-     GDK_TCROSS = 130;
-     GDK_TOP_LEFT_ARROW = 132;
-     GDK_TOP_LEFT_CORNER = 134;
-     GDK_TOP_RIGHT_CORNER = 136;
-     GDK_TOP_SIDE = 138;
-     GDK_TOP_TEE = 140;
-     GDK_TREK = 142;
-     GDK_UL_ANGLE = 144;
-     GDK_UMBRELLA = 146;
-     GDK_UR_ANGLE = 148;
-     GDK_WATCH = 150;
-     GDK_XTERM = 152;
-     GDK_LAST_CURSOR = 153;
-     GDK_NUM_GLYPHS = 154;
-
-type
-   PGdkFilterReturn = ^TGdkFilterReturn;
-   TGdkFilterReturn =  Longint;
-Const
-     GDK_FILTER_CONTINUE = 0;
-     GDK_FILTER_TRANSLATE = 1;
-     GDK_FILTER_REMOVE = 2;
-
-type
-   PGdkVisibilityState = ^TGdkVisibilityState;
-   TGdkVisibilityState =  Longint;
-Const
-     GDK_VISIBILITY_UNOBSCURED = 0;
-     GDK_VISIBILITY_PARTIAL = 1;
-     GDK_VISIBILITY_FULLY_OBSCURED = 2;
-
-type
-   PGdkEventType = ^TGdkEventType;
-   TGdkEventType =  Longint;
-Const
-     GDK_NOTHING = -1;
-     GDK_DELETE = 0;
-     GDK_DESTROY = 1;
-     GDK_EXPOSE = 2;
-     GDK_MOTION_NOTIFY = 3;
-     GDK_BUTTON_PRESS = 4;
-     GDK_2BUTTON_PRESS = 5;
-     GDK_3BUTTON_PRESS = 6;
-     GDK_BUTTON_RELEASE = 7;
-     GDK_KEY_PRESS = 8;
-     GDK_KEY_RELEASE = 9;
-     GDK_ENTER_NOTIFY = 10;
-     GDK_LEAVE_NOTIFY = 11;
-     GDK_FOCUS_CHANGE = 12;
-     GDK_CONFIGURE = 13;
-     GDK_MAP = 14;
-     GDK_UNMAP = 15;
-     GDK_PROPERTY_NOTIFY = 16;
-     GDK_SELECTION_CLEAR = 17;
-     GDK_SELECTION_REQUEST = 18;
-     GDK_SELECTION_NOTIFY = 19;
-     GDK_PROXIMITY_IN = 20;
-     GDK_PROXIMITY_OUT = 21;
-     GDK_DRAG_ENTER = 22;
-     GDK_DRAG_LEAVE = 23;
-     GDK_DRAG_MOTION_EVENT = 24;
-     GDK_DRAG_STATUS_EVENT = 25;
-     GDK_DROP_START = 26;
-     GDK_DROP_FINISHED = 27;
-     GDK_CLIENT_EVENT = 28;
-     GDK_VISIBILITY_NOTIFY = 29;
-     GDK_NO_EXPOSE = 30;
-
-type
-   PGdkEventMask = ^TGdkEventMask;
-   TGdkEventMask =  Longint;
-Const
-     GDK_EXPOSURE_MASK = (1) shl (1);
-     GDK_POINTER_MOTION_MASK = (1) shl (2);
-     GDK_POINTER_MOTION_HINT_MASK = (1) shl (3);
-     GDK_BUTTON_MOTION_MASK = (1) shl (4);
-     GDK_BUTTON1_MOTION_MASK = (1) shl (5);
-     GDK_BUTTON2_MOTION_MASK = (1) shl (6);
-     GDK_BUTTON3_MOTION_MASK = (1) shl (7);
-     GDK_BUTTON_PRESS_MASK = (1) shl (8);
-     GDK_BUTTON_RELEASE_MASK = (1) shl (9);
-     GDK_KEY_PRESS_MASK = (1) shl (10);
-     GDK_KEY_RELEASE_MASK = (1) shl (11);
-     GDK_ENTER_NOTIFY_MASK = (1) shl (12);
-     GDK_LEAVE_NOTIFY_MASK = (1) shl (13);
-     GDK_FOCUS_CHANGE_MASK = (1) shl (14);
-     GDK_STRUCTURE_MASK = (1) shl (15);
-     GDK_PROPERTY_CHANGE_MASK = (1) shl (16);
-     GDK_VISIBILITY_NOTIFY_MASK = (1) shl (17);
-     GDK_PROXIMITY_IN_MASK = (1) shl (18);
-     GDK_PROXIMITY_OUT_MASK = (1) shl (19);
-     GDK_SUBSTRUCTURE_MASK = 1 shl 20;
-     GDK_ALL_EVENTS_MASK = $0FFFFF;
-
-type
-   PGdkNotifyType = ^TGdkNotifyType;
-   TGdkNotifyType =  Longint;
-Const
-     GDK_NOTIFY_ANCESTOR = 0;
-     GDK_NOTIFY_VIRTUAL = 1;
-     GDK_NOTIFY_INFERIOR = 2;
-     GDK_NOTIFY_NONLINEAR = 3;
-     GDK_NOTIFY_NONLINEAR_VIRTUAL = 4;
-     GDK_NOTIFY_UNKNOWN = 5;
-
-type
-     PGdkCrossingMode = ^TGdkCrossingMode;
-     TGdkCrossingMode = longint;
-const
-     GDK_CROSSING_NORMAL = 0;
-     GDK_CROSSING_GRAB = 1;
-     GDK_CROSSING_UNGRAB = 2;
-
-type
-   PGdkModifierType = ^TGdkModifierType;
-   TGdkModifierType =  Longint;
-Const
-     GDK_SHIFT_MASK = (1) shl (0);
-     GDK_LOCK_MASK = (1) shl (1);
-     GDK_CONTROL_MASK = (1) shl (2);
-     GDK_MOD1_MASK = (1) shl (3);
-     GDK_MOD2_MASK = (1) shl (4);
-     GDK_MOD3_MASK = (1) shl (5);
-     GDK_MOD4_MASK = (1) shl (6);
-     GDK_MOD5_MASK = (1) shl (7);
-     GDK_BUTTON1_MASK = (1) shl (8);
-     GDK_BUTTON2_MASK = (1) shl (9);
-     GDK_BUTTON3_MASK = (1) shl (10);
-     GDK_BUTTON4_MASK = (1) shl (11);
-     GDK_BUTTON5_MASK = (1) shl (12);
-     GDK_RELEASE_MASK = 1 shl 13;
-     GDK_MODIFIER_MASK = $3fff;
-
-type
-   PGdkSubwindowMode = ^TGdkSubwindowMode;
-   TGdkSubwindowMode =  Longint;
-Const
-     GDK_CLIP_BY_CHILDREN = 0;
-     GDK_INCLUDE_INFERIORS = 1;
-
-type
-   PGdkInputCondition = ^TGdkInputCondition;
-   TGdkInputCondition =  Longint;
-Const
-     GDK_INPUT_READ = (1) shl (0);
-     GDK_INPUT_WRITE = (1) shl (1);
-     GDK_INPUT_EXCEPTION = (1) shl (2);
-
-type
-   PGdkStatus = ^TGdkStatus;
-   TGdkStatus =  Longint;
-Const
-     GDK_OK = 0;
-     GDK_ERROR = -1;
-     GDK_ERROR_PARAM = -2;
-     GDK_ERROR_FILE = -3;
-     GDK_ERROR_MEM = -4;
-
-type
-   PGdkByteOrder = ^TGdkByteOrder;
-   TGdkByteOrder =  Longint;
-Const
-     GDK_LSB_FIRST = 0;
-     GDK_MSB_FIRST = 1;
-
-type
-   PGdkGCValuesMask = ^TGdkGCValuesMask;
-   TGdkGCValuesMask =  Longint;
-Const
-     GDK_GC_FOREGROUND = (1) shl (0);
-     GDK_GC_BACKGROUND = (1) shl (1);
-     GDK_GC_FONT = (1) shl (2);
-     GDK_GC_function = (1) shl (3);
-     GDK_GC_FILL = (1) shl (4);
-     GDK_GC_TILE = (1) shl (5);
-     GDK_GC_STIPPLE = (1) shl (6);
-     GDK_GC_CLIP_MASK = (1) shl (7);
-     GDK_GC_SUBWINDOW = (1) shl (8);
-     GDK_GC_TS_X_ORIGIN = (1) shl (9);
-     GDK_GC_TS_Y_ORIGIN = (1) shl (10);
-     GDK_GC_CLIP_X_ORIGIN = (1) shl (11);
-     GDK_GC_CLIP_Y_ORIGIN = (1) shl (12);
-     GDK_GC_EXPOSURES = (1) shl (13);
-     GDK_GC_LINE_WIDTH = (1) shl (14);
-     GDK_GC_LINE_STYLE = (1) shl (15);
-     GDK_GC_CAP_STYLE = (1) shl (16);
-     GDK_GC_JOIN_STYLE = (1) shl (17);
-
-type
-   PGdkSelection = ^TGdkSelection;
-   TGdkSelection =  Longint;
-Const
-     GDK_SELECTION_PRIMARY = 1;
-     GDK_SELECTION_SECONDARY = 2;
-
-type
-   PGdkPropertyState = ^TGdkPropertyState;
-   TGdkPropertyState =  Longint;
-Const
-     GDK_PROPERTY_NEW_VALUE = 0;
-     GDK_PROPERTY_DELETE_STATE = 1;
-
-type
-   PGdkPropMode = ^TGdkPropMode;
-   TGdkPropMode =  Longint;
-Const
-     GDK_PROP_MODE_REPLACE = 0;
-     GDK_PROP_MODE_PREPEND = 1;
-     GDK_PROP_MODE_APPEND = 2;
-
-type
-   PGdkInputSource = ^TGdkInputSource;
-   TGdkInputSource =  Longint;
-Const
-     GDK_SOURCE_MOUSE = 0;
-     GDK_SOURCE_PEN = 1;
-     GDK_SOURCE_ERASER = 2;
-     GDK_SOURCE_CURSOR = 3;
-
-type
-   PGdkInputMode = ^TGdkInputMode;
-   TGdkInputMode =  Longint;
-Const
-     GDK_MODE_DISABLED = 0;
-     GDK_MODE_SCREEN = 1;
-     GDK_MODE_WINDOW = 2;
-
-type
-   PGdkAxisUse = ^TGdkAxisUse;
-   TGdkAxisUse =  Longint;
-Const
-     GDK_AXIS_IGNORE = 0;
-     GDK_AXIS_X = 1;
-     GDK_AXIS_Y = 2;
-     GDK_AXIS_PRESSURE = 3;
-     GDK_AXIS_XTILT = 4;
-     GDK_AXIS_YTILT = 5;
-     GDK_AXIS_LAST = 6;
-
-type
-   PGdkTarget = ^TGdkTarget;
-   TGdkTarget =  Longint;
-Const
-     GDK_TARGET_BITMAP = 5;
-     GDK_TARGET_COLORMAP = 7;
-     GDK_TARGET_DRAWABLE = 17;
-     GDK_TARGET_PIXMAP = 20;
-     GDK_TARGET_STRING = 31;
-
-type
-   PGdkSelectionType = ^TGdkSelectionType;
-   TGdkSelectionType =  Longint;
-Const
-     GDK_SELECTION_TYPE_ATOM = 4;
-     GDK_SELECTION_TYPE_BITMAP = 5;
-     GDK_SELECTION_TYPE_COLORMAP = 7;
-     GDK_SELECTION_TYPE_DRAWABLE = 17;
-     GDK_SELECTION_TYPE_INTEGER = 19;
-     GDK_SELECTION_TYPE_PIXMAP = 20;
-     GDK_SELECTION_TYPE_WINDOW = 33;
-     GDK_SELECTION_TYPE_STRING = 31;
-
-type
-   PGdkExtensionMode = ^TGdkExtensionMode;
-   TGdkExtensionMode =  Longint;
-Const
-     GDK_EXTENSION_EVENTS_NONE = 0;
-     GDK_EXTENSION_EVENTS_ALL = 1;
-     GDK_EXTENSION_EVENTS_CURSOR = 2;
-
-type
-   PGdkIMStyle = ^TGdkIMStyle;
-   TGdkIMStyle =  Longint;
-Const
-     GDK_IM_PREEDIT_AREA = $0001;
-     GDK_IM_PREEDIT_CALLBACKS = $0002;
-     GDK_IM_PREEDIT_POSITION = $0004;
-     GDK_IM_PREEDIT_NOTHING = $0008;
-     GDK_IM_PREEDIT_NONE = $0010;
-     GDK_IM_PREEDIT_MASK = $001f;
-     GDK_IM_STATUS_AREA = $0100;
-     GDK_IM_STATUS_CALLBACKS = $0200;
-     GDK_IM_STATUS_NOTHING = $0400;
-     GDK_IM_STATUS_NONE = $0800;
-     GDK_IM_STATUS_MASK = $0f00;
-
-type
-     PGdkICAttributesType = ^TGdkICAttributesType;
-     TGdkICAttributesType = longint;
-const
-     GDK_IC_STYLE = 1 shl 0;
-     GDK_IC_CLIENT_WINDOW = 1 shl 1;
-       GDK_IC_ALL_REQ = 1 shl 0 + 1 shl 1;
-       GDK_IC_FOCUS_WINDOW = 1 shl 2;
-       GDK_IC_FILTER_EVENTS = 1 shl 3;
-       GDK_IC_SPOT_LOCATION = 1 shl 4;
-       GDK_IC_LINE_SPACING = 1 shl 5;
-       GDK_IC_CURSOR = 1 shl 6;
-       GDK_IC_PREEDIT_FONTSET = 1 shl 10;
-       GDK_IC_PREEDIT_AREA = 1 shl 11;
-       GDK_IC_PREEDIT_AREA_NEEDED = 1 shl 12;
-       GDK_IC_PREEDIT_FOREGROUND = 1 shl 13;
-       GDK_IC_PREEDIT_BACKGROUND = 1 shl 14;
-       GDK_IC_PREEDIT_PIXMAP = 1 shl 15;
-       GDK_IC_PREEDIT_COLORMAP = 1 shl 16;
-       GDK_IC_STATUS_FONTSET = 1 shl 21;
-       GDK_IC_STATUS_AREA = 1 shl 22;
-       GDK_IC_STATUS_AREA_NEEDED = 1 shl 23;
-       GDK_IC_STATUS_FOREGROUND = 1 shl 24;
-       GDK_IC_STATUS_BACKGROUND = 1 shl 25;
-       GDK_IC_STATUS_PIXMAP = 1 shl 26;
-       GDK_IC_STATUS_COLORMAP = 1 shl 27;
-       GDK_IC_PREEDIT_AREA_REQ = ((1 shl 11) + (1 shl 10));
-       GDK_IC_PREEDIT_POSITION_REQ = (1 shl 11 + 1 shl 4 + 1 shl 10);
-       GDK_IC_STATUS_AREA_REQ = (1 shl 22 or 1 shl 21);
-
-type
-   PGdkWMDecoration = ^TGdkWMDecoration;
-   TGdkWMDecoration =  Longint;
-Const
-     GDK_DECOR_ALL = (1) shl (0);
-     GDK_DECOR_BORDER = (1) shl (1);
-     GDK_DECOR_RESIZEH = (1) shl (2);
-     GDK_DECOR_TITLE = (1) shl (3);
-     GDK_DECOR_MENU = (1) shl (4);
-     GDK_DECOR_MINIMIZE = (1) shl (5);
-     GDK_DECOR_MAXIMIZE = (1) shl (6);
-
-type
-   PGdkWMfunction = ^TGdkWMfunction;
-   TGdkWMfunction = Longint;
-Const
-     GDK_FUNC_ALL = (1) shl (0);
-     GDK_FUNC_RESIZE = (1) shl (1);
-     GDK_FUNC_MOVE = (1) shl (2);
-     GDK_FUNC_MINIMIZE = (1) shl (3);
-     GDK_FUNC_MAXIMIZE = (1) shl (4);
-     GDK_FUNC_CLOSE = (1) shl (5);
-
-type
-     PGdkInputfunction = ^TGdkInputfunction;
-     TGdkInputfunction = procedure (data:gpointer; source:gint; condition:TGdkInputCondition);cdecl;
-
-     PGdkDestroyNotify = ^TGdkDestroyNotify;
-     TGdkDestroyNotify = procedure (data:gpointer);cdecl;
-
-type
-     PGdkColorContextMode = ^TGdkColorContextMode;
-     TGdkColorContextMode = longint;
-Const
-     GDK_CC_MODE_UNDEFINED = 0;
-     GDK_CC_MODE_BW = 1;
-     GDK_CC_MODE_STD_CMAP = 2;
-     GDK_CC_MODE_TRUE = 3;
-     GDK_CC_MODE_MY_GRAY = 4;
-     GDK_CC_MODE_PALETTE = 5;
-
-type
-   PGdkOverlapType = ^TGdkOverlapType;
-   TGdkOverlapType =  Longint;
-Const
-     GDK_OVERLAP_RECTANGLE_IN = 0;
-     GDK_OVERLAP_RECTANGLE_OUT = 1;
-     GDK_OVERLAP_RECTANGLE_PART = 2;
-
-type
-     PGdkDragAction = ^TGdkDragAction;
-     TGdkDragAction = longint;
-const
-     GDK_ACTION_DEFAULT = 1 shl 0;
-     GDK_ACTION_COPY = 1 shl 1;
-     GDK_ACTION_MOVE = 1 shl 2;
-     GDK_ACTION_LINK = 1 shl 3;
-     GDK_ACTION_PRIVATE = 1 shl 4;
-     GDK_ACTION_ASK = 1 shl 5;
-
-type
-     PGdkDragProtocol = ^TGdkDragProtocol;
-     TGdkDragProtocol = longint;
-const
-     GDK_DRAG_PROTO_MOTIF = 0;
-     GDK_DRAG_PROTO_XDND = 1;
-     GDK_DRAG_PROTO_ROOTWIN = 2;
-     GDK_DRAG_PROTO_NONE = 3;
-
-type
-     PGdkColor = ^TGdkColor;
-     TGdkColor = record
-          pixel : gulong;
-          red : gushort;
-          green : gushort;
-          blue : gushort;
-       end;
-
-     PGdkColormap = ^TGdkColormap;
-     TGdkColormap = record
-          size : gint;
-          colors : PGdkColor;
-       end;
-
-     PGdkVisual = ^TGdkVisual;
-     TGdkVisual = record
-          thetype : TGdkVisualType;
-          depth : gint;
-          byte_order : TGdkByteOrder;
-          colormap_size : gint;
-          bits_per_rgb : gint;
-          red_mask : guint32;
-          red_shift : gint;
-          red_prec : gint;
-          green_mask : guint32;
-          green_shift : gint;
-          green_prec : gint;
-          blue_mask : guint32;
-          blue_shift : gint;
-          blue_prec : gint;
-       end;
-
-     PGdkCursor = ^TGdkCursor;
-
-     PGdkWindowAttr = ^TGdkWindowAttr;
-     TGdkWindowAttr = record
-          title : ^gchar;
-          event_mask : gint;
-          x : gint16;
-          y : gint16;
-          width : gint16;
-          height : gint16;
-          wclass : TGdkWindowClass;
-          visual : PGdkVisual;
-          colormap : PGdkColormap;
-          window_type : TGdkWindowType;
-          cursor : PGdkCursor;
-          wmclass_name : ^gchar;
-          wmclass_class : ^gchar;
-          override_redirect : gboolean;
-       end;
-
-     PGdkGeometry = ^TGdkGeometry;
-     TGdkGeometry = record
-          min_width : gint;
-          min_height : gint;
-          max_width : gint;
-          max_height : gint;
-          base_width : gint;
-          base_height : gint;
-          width_inc : gint;
-          height_inc : gint;
-          min_aspect : gdouble;
-          max_aspect : gdouble;
-       end;
-
-     PGdkImage = ^TGdkImage;
-     PPGdkImage = ^PGdkImage;
-     TGdkImage = record
-          thetype : TGdkImageType;
-          visual : PGdkVisual;
-          byte_order : TGdkByteOrder;
-          width : guint16;
-          height : guint16;
-          depth : guint16;
-          bpp : guint16;
-          bpl : guint16;
-          mem : gpointer;
-       end;
-
-     PGdkFont = ^TGdkFont;
-     TGdkFont = record
-          thetype : TGdkFontType;
-          ascent : gint;
-          descent : gint;
-       end;
-
-     PGdkGCValues = ^TGdkGCValues;
-     TGdkGCValues = record
-          foreground : TGdkColor;
-          background : TGdkColor;
-          font : PGdkFont;
-          thefunction : TGdkfunction;
-          fill : TGdkFill;
-          tile : PGdkPixmap;
-          stipple : PGdkPixmap;
-          clip_mask : PGdkPixmap;
-          subwindow_mode : TGdkSubwindowMode;
-          ts_x_origin : gint;
-          ts_y_origin : gint;
-          clip_x_origin : gint;
-          clip_y_origin : gint;
-          graphics_exposures : gint;
-          line_width : gint;
-          line_style : TGdkLineStyle;
-          cap_style : TGdkCapStyle;
-          join_style : TGdkJoinStyle;
-       end;
-
-     PGdkGC = ^TGdkGC;
-     TGdkGC = record
-          dummy_var : gint;
-       end;
-
-     PGdkPoint = ^TGdkPoint;
-     TGdkPoint = record
-          x : gint16;
-          y : gint16;
-       end;
-
-     PGdkRectangle = ^TGdkRectangle;
-     TGdkRectangle = record
-          x : gint16;
-          y : gint16;
-          width : guint16;
-          height : guint16;
-       end;
-
-     PGdkSegment = ^TGdkSegment;
-     TGdkSegment = record
-          x1 : gint16;
-          y1 : gint16;
-          x2 : gint16;
-          y2 : gint16;
-       end;
-
-     TGdkCursor = record
-          thetype : TGdkCursorType;
-       end;
-
-     PGdkColorContextDither = ^TGdkColorContextDither;
-     TGdkColorContextDither = record
-          fast_rgb : array[0..31] of array[0..31] of array[0..31] of gint;
-          fast_err : array[0..31] of array[0..31] of array[0..31] of gint;
-          fast_erg : array[0..31] of array[0..31] of array[0..31] of gint;
-          fast_erb : array[0..31] of array[0..31] of array[0..31] of gint;
-       end;
-
-     PGdkColorContext = ^TGdkColorContext;
-     TGdkColorContext = record
-          visual : PGdkVisual;
-          colormap : PGdkColormap;
-          num_colors : gint;
-          max_colors : gint;
-          num_allocated : gint;
-          mode : TGdkColorContextMode;
-          need_to_free_colormap : gint;
-          std_cmap_atom : TGdkAtom;
-          clut : Pgulong;
-          cmap : PGdkColor;
-          color_hash : PGHashTable;
-          palette : PGdkColor;
-          num_palette : gint;
-          fast_dither : PGdkColorContextDither;
-          shifts : record
-               red : gint;
-               green : gint;
-               blue : gint;
-            end;
-          masks : record
-               red : gulong;
-               green : gulong;
-               blue : gulong;
-            end;
-          bits : record
-               red : gint;
-               green : gint;
-               blue : gint;
-            end;
-          max_entry : gulong;
-          black_pixel : gulong;
-          white_pixel : gulong;
-       end;
-
-     PGdkDeviceKey = ^TGdkDeviceKey;
-     TGdkDeviceKey = record
-          keyval : guint;
-          modifiers : TGdkModifierType;
-       end;
-
-     PGdkDeviceInfo = ^TGdkDeviceInfo;
-     TGdkDeviceInfo = record
-          deviceid : guint32;
-          name : ^gchar;
-          source : TGdkInputSource;
-          mode : TGdkInputMode;
-          has_cursor : gint;
-          num_axes : gint;
-          axes : ^TGdkAxisUse;
-          num_keys : gint;
-          keys : PGdkDeviceKey;
-       end;
-
-     PGdkTimeCoord = ^TGdkTimeCoord;
-     TGdkTimeCoord = record
-          time : guint32;
-          x : gdouble;
-          y : gdouble;
-          pressure : gdouble;
-          xtilt : gdouble;
-          ytilt : gdouble;
-       end;
-
-     PGdkDragContext = ^TGdkDragContext;
-     TGdkDragContext = record
-          protocol : TGdkDragProtocol;
-          is_source : gboolean;
-          source_window : PGdkWindow;
-          dest_window : PGdkWindow;
-          targets : PGList;
-          actions : TGdkDragAction;
-          suggested_action : TGdkDragAction;
-          action : TGdkDragAction;
-          start_time : guint32;
-       end;
-
-     TGdkXEvent = pointer;
-     PGdkXEvent = ^TGdkXEvent;
-
-     PGdkEvent = ^TGdkEvent;
-
-     TGdkEventFunc = procedure(event:PGdkEvent;data:gpointer);cdecl;
-     TGdkFilterFunc = function (xevent:PGdkXEvent; event:PGdkEvent; data:gpointer):TGdkFilterReturn;cdecl;
-
-     PGdkEventAny = ^TGdkEventAny;
-     TGdkEventAny = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-       end;
-
-     PGdkEventExpose = ^TGdkEventExpose;
-     TGdkEventExpose = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          area : TGdkRectangle;
-          count : gint;
-       end;
-
-     PGdkEventNoExpose = ^TGdkEventNoExpose;
-     TGdkEventNoExpose = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-       end;
-
-     PGdkEventVisibility = ^TGdkEventVisibility;
-     TGdkEventVisibility = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          state : TGdkVisibilityState;
-       end;
-
-     PGdkEventMotion = ^TGdkEventMotion;
-     TGdkEventMotion = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          time : guint32;
-          x : gdouble;
-          y : gdouble;
-          pressure : gdouble;
-          xtilt : gdouble;
-          ytilt : gdouble;
-          state : guint;
-          is_hint : gint16;
-          source : TGdkInputSource;
-          deviceid : guint32;
-          x_root : gdouble;
-          y_root : gdouble;
-       end;
-
-     PGdkEventButton = ^TGdkEventButton;
-     TGdkEventButton = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          time : guint32;
-          x : gdouble;
-          y : gdouble;
-          pressure : gdouble;
-          xtilt : gdouble;
-          ytilt : gdouble;
-          state : guint;
-          button : guint;
-          source : TGdkInputSource;
-          deviceid : guint32;
-          x_root : gdouble;
-          y_root : gdouble;
-       end;
-
-     PGdkEventKey = ^TGdkEventKey;
-     TGdkEventKey = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          time : guint32;
-          state : guint;
-          keyval : guint;
-          length : gint;
-          thestring : Pgchar;
-       end;
-
-     PGdkEventCrossing = ^TGdkEventCrossing;
-     TGdkEventCrossing = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          subwindow : PGdkWindow;
-          time : guint32;
-          x : gdouble;
-          y : gdouble;
-          x_root : gdouble;
-          y_root : gdouble;
-          mode : TGdkCrossingMode;
-          detail : TGdkNotifyType;
-          focus : gboolean;
-          state : guint;
-       end;
-
-     PGdkEventFocus = ^TGdkEventFocus;
-     TGdkEventFocus = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          thein : gint16;
-       end;
-
-     PGdkEventConfigure = ^TGdkEventConfigure;
-     TGdkEventConfigure = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          x : gint16;
-          y : gint16;
-          width : gint16;
-          height : gint16;
-       end;
-
-     PGdkEventProperty = ^TGdkEventProperty;
-     TGdkEventProperty = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          atom : TGdkAtom;
-          time : guint32;
-          state : guint;
-       end;
-
-     PGdkEventSelection = ^TGdkEventSelection;
-     TGdkEventSelection = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          selection : TGdkAtom;
-          target : TGdkAtom;
-          theproperty : TGdkAtom;
-          requestor : guint32;
-          time : guint32;
-       end;
-
-     PGdkEventProximity = ^TGdkEventProximity;
-     TGdkEventProximity = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          time : guint32;
-          source : TGdkInputSource;
-          deviceid : guint32;
-       end;
-
-     PGdkEventClient = ^TGdkEventClient;
-     TGdkEventClient = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          message_type : TGdkAtom;
-          data_format : gushort;
-          dummy : gushort;
-          data : record
-              case longint of
-                 0 : ( b : array[0..19] of char );
-                 1 : ( s : array[0..9] of system.integer );
-                 2 : ( l : array[0..4] of longint );
-              end;
-       end;
-
-     PGdkEventDND = ^TGdkEventDND;
-     TGdkEventDND = record
-          thetype : TGdkEventType;
-          window : PGdkWindow;
-          send_event : gint8;
-          context : PGdkDragContext;
-          time : guint32;
-          x_root : gshort;
-          y_root : gshort;
-       end;
-
-     TGdkEvent = record
-         case longint of
-            0 : ( thetype : TGdkEventType );
-            1 : ( any : TGdkEventAny );
-            2 : ( expose : TGdkEventExpose );
-            3 : ( no_expose : TGdkEventNoExpose );
-            4 : ( visibility : TGdkEventVisibility );
-            5 : ( motion : TGdkEventMotion );
-            6 : ( button : TGdkEventButton );
-            7 : ( key : TGdkEventKey );
-            8 : ( crossing : TGdkEventCrossing );
-            9 : ( focus_change : TGdkEventFocus );
-            10 : ( configure : TGdkEventConfigure );
-            11 : ( theproperty : TGdkEventProperty );
-            12 : ( selection : TGdkEventSelection );
-            13 : ( proximity : TGdkEventProximity );
-            14 : ( client : TGdkEventClient );
-            15 : ( dnd : TGdkEventDND );
-         end;
-
-     PGdkRegion = ^TGdkRegion;
-     TGdkRegion = record
-          user_data : gpointer;
-       end;
-
-     PGdkICAttr = ^TGdkICAttr;
-     TGdkICAttr = record
-          style : TGdkIMStyle;
-          client_window : PGdkWindow;
-          focus_window : PGdkWindow;
-          filter_events : TGdkEventMask;
-          spot_location : TGdkPoint;
-          line_spacing : gint;
-          cursor : PGdkCursor;
-          preedit_fontset : PGdkFont;
-          preedit_area : TGdkRectangle;
-          preedit_area_needed : TGdkRectangle;
-          preedit_foreground : TGdkColor;
-          preedit_background : TGdkColor;
-          preedit_pixmap : PGdkPixmap;
-          preedit_colormap : PGdkColormap;
-          status_fontset : PGdkFont;
-          status_area : TGdkRectangle;
-          status_area_needed : TGdkRectangle;
-          status_foreground : TGdkColor;
-          status_background : TGdkColor;
-          status_pixmap : PGdkPixmap;
-          status_colormap : PGdkColormap;
-       end;
-
-{$endif read_interface}
-

packages/extra/gtk/gdk/gdkx.pp

@@ -1,125 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-{$ifndef gtkwin}
-  {$ifndef gtkos2}
-function  GDK_GET_ROOT_WINDOW : PGdkWindow;
-function  GDK_GET_ROOT_PARENT : PGdkWindow;
-function  GDK_GET_XDISPLAY : PDisplay;
-function  GDK_WINDOW_XDISPLAY(win : PGdkWindowPrivate) : PDisplay;
-function  GDK_WINDOW_XWINDOW(win : PGdkWindowPrivate) : Twindow;
-function  GDK_IMAGE_XDISPLAY(image : PGdkImagePrivate) : PDisplay;
-function  GDK_IMAGE_XIMAGE(image : PGdkImagePrivate) : PXImage;
-function  GDK_GC_XDISPLAY(gc : PGdkGCPrivate) : PDisplay;
-function  GDK_GC_XGC(gc : PGdkGCPrivate) : TGC;
-function  GDK_COLORMAP_XDISPLAY(cmap : PGdkColorMapPrivate) : PDisplay;
-function  GDK_COLORMAP_XCOLORMAP(cmap : PGdkColorMapPrivate) : TColorMap;
-function  GDK_VISUAL_XVISUAL(vis : PGdkVisualPrivate) : PVisual;
-function  GDK_FONT_XDISPLAY(font : PGdkFontPrivate) : PDisplay;
-function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
-
-function  gdkx_visual_get(xvisualid:TVisualID):PGdkVisual;cdecl;external gdkdll name 'gdkx_visual_get';
-function  gdkx_colormap_get(xcolormap:TColormap):PGdkColormap;cdecl;external gdkdll name 'gdkx_colormap_get';
-{$ifndef gtkdarwin}
-function  gdk_get_client_window(dpy:pDisplay; win:TWindow):TWindow;cdecl;external gdkdll name 'gdk_get_client_window';
-{$endif not gtkdarwin}
-  {$endif}
-{$endif}
-
-{$ifndef gtkos2}
-function  gdk_pixmap_foreign_new(anid:guint32):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_foreign_new';
-function  gdk_window_foreign_new(anid:guint32):PGdkWindow;cdecl;external gdkdll name 'gdk_window_foreign_new';
-{$endif}
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-{$ifndef gtkwin}
-  {$ifndef gtkos2}
-function  GDK_GET_ROOT_WINDOW : PGdkWindow;
-    begin
-       GDK_GET_ROOT_WINDOW:=PGdkwindow(PtrInt(gdk_root_window));
-    end;
-
-function  GDK_GET_ROOT_PARENT : PGdkWindow;
-    begin
-       GDK_GET_ROOT_PARENT:=PGdkWindow(@(gdk_root_parent));
-    end;
-
-function  GDK_GET_XDISPLAY : PDisplay;
-    begin
-       GDK_GET_XDISPLAY:=gdk_display;
-    end;
-
-function  GDK_WINDOW_XDISPLAY(win : PGdkWindowPrivate) : PDisplay;
-    begin
-       GDK_WINDOW_XDISPLAY:=(PGdkWindowPrivate(win))^.xdisplay;
-    end;
-
-function  GDK_WINDOW_XWINDOW(win : PGdkWindowPrivate) : Twindow;
-    begin
-       GDK_WINDOW_XWINDOW:=(PGdkWindowPrivate(win))^.xwindow;
-    end;
-
-function  GDK_IMAGE_XDISPLAY(image : PGdkImagePrivate) : PDisplay;
-    begin
-       GDK_IMAGE_XDISPLAY:=(PGdkImagePrivate(image))^.xdisplay;
-    end;
-
-function  GDK_IMAGE_XIMAGE(image : PGdkImagePrivate) : PXImage;
-    begin
-       GDK_IMAGE_XIMAGE:=(PGdkImagePrivate(image))^.ximage;
-    end;
-
-function  GDK_GC_XDISPLAY(gc : PGdkGCPrivate) : PDisplay;
-    begin
-       GDK_GC_XDISPLAY:=(PGdkGCPrivate(gc))^.xdisplay;
-    end;
-
-function  GDK_GC_XGC(gc : PGdkGCPrivate) : TGC;
-    begin
-       GDK_GC_XGC:=(PGdkGCPrivate(gc))^.xgc;
-    end;
-
-function  GDK_COLORMAP_XDISPLAY(cmap : PGdkColorMapPrivate) : PDisplay;
-    begin
-       GDK_COLORMAP_XDISPLAY:=(PGdkColormapPrivate(cmap))^.xdisplay;
-    end;
-
-function  GDK_COLORMAP_XCOLORMAP(cmap : PGdkColorMapPrivate) : TColorMap;
-    begin
-       GDK_COLORMAP_XCOLORMAP:=(PGdkColormapPrivate(cmap))^.xcolormap;
-    end;
-
-function  GDK_VISUAL_XVISUAL(vis : PGdkVisualPrivate) : PVisual;
-    begin
-       GDK_VISUAL_XVISUAL:=(PGdkVisualPrivate(vis))^.xvisual;
-    end;
-
-function  GDK_FONT_XDISPLAY(font : PGdkFontPrivate) : PDisplay;
-    begin
-       GDK_FONT_XDISPLAY:=(PGdkFontPrivate(font))^.xdisplay;
-    end;
-
-function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
-    begin
-       GDK_FONT_XFONT:=(PGdkFontPrivate(font))^.xfont;
-    end;
-
-  {$endif}
-{$endif}
-
-{$endif read_implementation}
-
-

packages/extra/gtk/glib/glib.pp

@@ -1,1660 +0,0 @@
-{
-
-   GLIB - Library of useful routines for C programming
-   Copyright (C) 1995-1997  Peter Mattis, Spencer Kimball and Josh MacDonald
-
-   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.
-}
-unit glib;
-interface
-
-{$mode objfpc}
-
-{ Always use smartlinking for win32, this solves some undefined functions
-  in the development gtk versions which change often (PFV) }
-{$ifdef win32}
-  {$ifndef NO_SMART_LINK}
-    {$smartlink on}
-  {$endif}
-{$endif}
-
-{$ifdef win32}
-  const
-    glibdll='libglib-2.0-0';
-  {$define gtkwin}
-
-  {$packrecords C}
-{$else}
-  {$ifdef os2}
-    const
-      glibdll='glib12';
-    {$define gtkos2}
-
-    {$packrecords C}
-  {$else}
-    const
-     {$ifdef FreeBSD}
-      glibdll='glib-12';
-      {$linklib glib-12}
-     {$else}
-     {$ifdef darwin}
-      glibdll='glib-1.2.0';
-      {$linklib glib-1.2.0}
-     {$else darwin}
-      glibdll='glib';
-      {$linklib glib}
-     {$endif darwin}
-     {$endif}
-    {$linklib c}
-
-    {$packrecords C}
-  {$endif}
-{$endif}
-
-{ Pointers to basic pascal types, inserted by h2pas conversion program.}
-Type
-  FLoat     = Single;
-
-  const
-     NULL = nil;
-
-     G_DIR_SEPARATOR = '/';
-     G_DIR_SEPARATOR_S = '/';
-     G_SEARCHPATH_SEPARATOR = ':';
-     G_SEARCHPATH_SEPARATOR_S = ':';
-
-type
-   PPgchar = ^Pgchar;
-   Pgchar = ^gchar;
-   gchar = char;
-   Pgshort = ^gshort;
-   gshort = smallint;
-   Pglong = ^glong;
-   glong = ptrint;
-   Pgint = ^gint;
-   gint = longint;
-   Pgboolean = ^gboolean;
-   gboolean = longbool;
-   Pguchar = ^guchar;
-   guchar = char;
-   Pgushort = ^gushort;
-   gushort = word;
-   Pgulong = ^gulong;
-   gulong = ptruint;
-   Pguint = ^guint;
-   guint = cardinal;
-   Pgfloat = ^gfloat;
-   gfloat = float;
-   Pgdouble = ^gdouble;
-   gdouble = double;
-   Pgpointer = ^gpointer;
-   gpointer = pointer;
-
-   gint8 = ShortInt;
-   guint8 = byte;
-   gint16 = smallint;
-   guint16 = word;
-   gint32 = longint;
-   guint32 = cardinal;
-
-   Pgint8 = ^ShortInt;
-   Pguint8 = ^byte;
-   Pgint16 = ^smallint;
-   Pguint16 = ^word;
-   Pgint32 = ^longint;
-   Pguint32 = ^cardinal;
-
-   PPgint8 = ^Pgint8;
-   PPguint8 = ^Pguint8;
-   PPgint16 = ^Pgint16;
-   PPguint16 = ^Pguint16;
-   PPgint32 = ^Pgint32;
-   PPguint32 = ^Pguint32;
-
-   gconstpointer = pointer;
-   gssize = gint32;
-   gsize = guint32;
-   TGQuark = guint32;
-   TGTime = gint32;
-
-{$ifndef gtkos2}
-var
-   glib_major_version : guint;external glibdll name 'glib_major_version';
-   glib_minor_version : guint;external glibdll name 'glib_minor_version';
-   glib_micro_version : guint;external glibdll name 'glib_micro_version';
-   glib_interface_age : guint;external glibdll name 'glib_interface_age';
-   glib_binary_age : guint;external glibdll name 'glib_binary_age';
-{$endif}
-
-type
-   PGList = ^TGList;
-   TGList = record
-        data : gpointer;
-        next : PGList;
-        prev : PGList;
-     end;
-   PGSList = ^TGSList;
-   PPGSList = ^PGSList;
-   TGSList = record
-        data : gpointer;
-        next : PGSList;
-     end;
-   PGString = ^TGString;
-   TGString = record
-        str : Pgchar;
-        len : gint;
-     end;
-   PGArray = ^TGArray;
-   TGArray = record
-        data : Pgchar;
-        len : guint;
-     end;
-   PGDebugKey = ^TGDebugKey;
-   TGDebugKey = record
-        key : Pgchar;
-        value : guint;
-     end;
-   PGHashTable = ^TGHashTable;
-   TGHashTable = record
-        dummy : gint;
-     end;
-   PGCache = ^TGCache;
-   TGCache = record
-        dummy : gint;
-     end;
-   PGTree = ^TGTree;
-   TGTree = record
-        dummy : gint;
-     end;
-   PGTimer = ^TGTimer;
-   TGTimer = record
-        dummy : gint;
-     end;
-   PGMemChunk = ^TGMemChunk;
-   TGMemChunk = record
-        dummy : gint;
-     end;
-   PGStringChunk = ^TGStringChunk;
-   TGStringChunk = record
-        dummy : gint;
-     end;
-
-     PGByteArray = ^TGByteArray;
-     TGByteArray = record
-          data : Pguint8;
-          len : guint;
-       end;
-
-     PGPtrArray = ^TGPtrArray;
-     TGPtrArray = record
-          pdata : Pgpointer;
-          len : guint;
-       end;
-
-     PGTuples = ^TGTuples;
-     TGTuples = record
-          len : guint;
-       end;
-
-type
-   PGTraverseType = ^TGTraverseType;
-   TGTraverseType = longint;
-const
-   G_IN_ORDER = 0;
-   G_PRE_ORDER = 1;
-   G_POST_ORDER = 2;
-
-type
-    TGTraverseFlags = longint;
-const
-    G_TRAVERSE_LEAFS = 1 shl 0;
-    G_TRAVERSE_NON_LEAFS = 1 shl 1;
-    G_TRAVERSE_ALL = 1 shl 0 + 1 shl 1;
-    G_TRAVERSE_MASK = 3;
-
-type
-    TGLogLevelFlags = longint;
-const
-    G_LOG_FLAG_RECURSION = 1 shl 0;
-    G_LOG_FLAG_FATAL = 1 shl 1;
-    G_LOG_LEVEL_ERROR = 1 shl 2;
-    G_LOG_LEVEL_CRITICAL = 1 shl 3;
-    G_LOG_LEVEL_WARNING = 1 shl 4;
-    G_LOG_LEVEL_MESSAGE = 1 shl 5;
-    G_LOG_LEVEL_INFO = 1 shl 6;
-    G_LOG_LEVEL_DEBUG = 1 shl 7;
-    G_LOG_LEVEL_MASK = (1 shl 8) - 2;
-
-    type
-       PGNode = ^TGNode;
-       TGNode = record
-            data : gpointer;
-            next : PGNode;
-            prev : PGNode;
-            parent : PGNode;
-            children : PGNode;
-         end;
-
-    const
-       G_HOOK_FLAG_USER_SHIFT = 4;
-
-    type
-       TGHookFlagMask = longint;
-    const
-       G_HOOK_FLAG_ACTIVE = 1 shl 0;
-       G_HOOK_FLAG_IN_CALL = 1 shl 1;
-       G_HOOK_FLAG_MASK = $0f;
-
-    type
-       PGHook = ^TGHook;
-       PGHookList = ^TGHookList;
-
-       TGHookCompareFunc = function (new_hook:PGHook; sibling:PGHook):gint;cdecl;
-       TGHookFindFunc = function (hook:PGHook; data:gpointer):gboolean;cdecl;
-       TGHookMarshaller = procedure (hook:PGHook; data:gpointer);cdecl;
-       TGHookCheckMarshaller = function (hook:PGHook; data:gpointer):gboolean;cdecl;
-       TGHookFunc = procedure (data:gpointer);cdecl;
-       TGHookCheckFunc = function (data:gpointer):gboolean;cdecl;
-       TGHookFreeFunc = procedure (hook_list:PGHookList; hook:PGHook);cdecl;
-
-       TGDestroyNotify = procedure (data:gpointer);cdecl;
-
-       TGHookList = record
-            seq_id : guint;
-            hook_size : guint;
-            flag0 : word;
-            hooks : PGHook;
-            hook_memchunk : PGMemChunk;
-            hook_free : TGHookFreeFunc;
-            hook_destroy : TGHookFreeFunc;
-         end;
-
-       TGHook = record
-            data : gpointer;
-            next : PGHook;
-            prev : PGHook;
-            ref_count : guint;
-            hook_id : guint;
-            flags : guint;
-            func : gpointer;
-            destroy : TGDestroyNotify;
-         end;
-
-    const
-       bm_TGHookList_is_setup = $1;
-       bp_TGHookList_is_setup = 0;
-
-const
-   G_CSET_UA_2_Z = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
-   G_CSET_a_2_z = 'abcdefghijklmnopqrstuvwxyz';
-
-type
-   PGErrorType = ^TGErrorType;
-   TGErrorType = longint;
-const
-   G_ERR_UNKNOWN = 0;
-   G_ERR_UNEXP_EOF = 1;
-   G_ERR_UNEXP_EOF_IN_STRING = 2;
-   G_ERR_UNEXP_EOF_IN_COMMENT = 3;
-   G_ERR_NON_DIGIT_IN_CONST = 4;
-   G_ERR_DIGIT_RADIX = 5;
-   G_ERR_FLOAT_RADIX = 6;
-   G_ERR_FLOAT_MALFORMED = 7;
-
-type
-  PGTokenType = ^TGTokenType;
-  TGTokenType = longint;
-const
-    G_TOKEN_EOF                   = 0;
-    G_TOKEN_LEFT_PAREN            = ord('(');
-    G_TOKEN_RIGHT_PAREN           = ord(')');
-    G_TOKEN_LEFT_CURLY            = ord('{');
-    G_TOKEN_RIGHT_CURLY           = ord('}');
-    G_TOKEN_LEFT_BRACE            = ord('[');
-    G_TOKEN_RIGHT_BRACE           = ord(']');
-    G_TOKEN_EQUAL_SIGN            = ord('=');
-    G_TOKEN_COMMA                 = ord(',');
-
-    G_TOKEN_NONE                  = 256;
-
-    G_TOKEN_ERROR = 257;
-
-    G_TOKEN_CHAR = 258;
-    G_TOKEN_BINARY = 259;
-    G_TOKEN_OCTAL = 260;
-    G_TOKEN_INT = 261;
-    G_TOKEN_HEX = 262;
-    G_TOKEN_FLOAT = 263;
-    G_TOKEN_STRING = 264;
-
-    G_TOKEN_SYMBOL = 265;
-    G_TOKEN_IDENTIFIER = 266;
-    G_TOKEN_IDENTIFIER_NULL = 267;
-
-    G_TOKEN_COMMENT_SINGLE = 268;
-    G_TOKEN_COMMENT_MULTI = 269;
-    G_TOKEN_LAST = 270;
-
-type
-   PGTokenValue = ^TGTokenValue;
-   TGTokenValue = record
-       case longint of
-          0 : ( v_symbol:gpointer );
-          1 : ( v_identifier:Pgchar );
-          2 : ( v_binary:gulong );
-          3 : ( v_octal:gulong );
-          4 : ( v_int:gulong );
-          5 : ( v_float:gdouble );
-          6 : ( v_hex:gulong );
-          7 : ( v_string:Pgchar );
-          8 : ( v_comment:Pgchar );
-          9 : ( v_char:guchar );
-          10 : ( v_error:guint );
-     end;
-
-PGScannerConfig = ^TGScannerConfig;
-TGScannerConfig = Record
-         cset_skip_characters,
-         cset_identifier_first,
-         cset_identifier_nth,
-         cpair_comment_single : Pgchar;
-         flag0 : guint;
-end;
-   PGScanner = ^TGScanner;
-
-  TGScannerMsgFunc = procedure (scanner:PGScanner; message:Pgchar; error:gint);cdecl;
-
-   TGScanner = record
-            user_data : gpointer;
-            max_parse_errors : guint;
-            parse_errors : guint;
-            input_name : Pgchar;
-            derived_data : gpointer;
-            config : PGScannerConfig;
-            token :TGTokenType;
-            value : TGTokenValue;
-            line : guint;
-            position : guint;
-            next_token :TGTokenType;
-            next_value : TGTokenValue;
-            next_line : guint;
-            next_position : guint;
-            symbol_table : PGHashTable;
-            input_fd : gint;
-            text : Pgchar;
-            text_end : Pgchar;
-            buffer : Pgchar;
-            scope_id : guint;
-            msg_handler :TGScannerMsgFunc;
-     end;
-
-
-    const
-       bm_TGScannerConfig_case_sensitive = $1;
-       bp_TGScannerConfig_case_sensitive = 0;
-       bm_TGScannerConfig_skip_comment_multi = $2;
-       bp_TGScannerConfig_skip_comment_multi = 1;
-       bm_TGScannerConfig_skip_comment_single = $4;
-       bp_TGScannerConfig_skip_comment_single = 2;
-       bm_TGScannerConfig_scan_comment_multi = $8;
-       bp_TGScannerConfig_scan_comment_multi = 3;
-       bm_TGScannerConfig_scan_identifier = $10;
-       bp_TGScannerConfig_scan_identifier = 4;
-       bm_TGScannerConfig_scan_identifier_1char = $20;
-       bp_TGScannerConfig_scan_identifier_1char = 5;
-       bm_TGScannerConfig_scan_identifier_NULL = $40;
-       bp_TGScannerConfig_scan_identifier_NULL = 6;
-       bm_TGScannerConfig_scan_symbols = $80;
-       bp_TGScannerConfig_scan_symbols = 7;
-       bm_TGScannerConfig_scan_binary = $100;
-       bp_TGScannerConfig_scan_binary = 8;
-       bm_TGScannerConfig_scan_octal = $200;
-       bp_TGScannerConfig_scan_octal = 9;
-       bm_TGScannerConfig_scan_float = $400;
-       bp_TGScannerConfig_scan_float = 10;
-       bm_TGScannerConfig_scan_hex = $800;
-       bp_TGScannerConfig_scan_hex = 11;
-       bm_TGScannerConfig_scan_hex_dollar = $1000;
-       bp_TGScannerConfig_scan_hex_dollar = 12;
-       bm_TGScannerConfig_scan_string_sq = $2000;
-       bp_TGScannerConfig_scan_string_sq = 13;
-       bm_TGScannerConfig_scan_string_dq = $4000;
-       bp_TGScannerConfig_scan_string_dq = 14;
-       bm_TGScannerConfig_numbers_2_int = $8000;
-       bp_TGScannerConfig_numbers_2_int = 15;
-       bm_TGScannerConfig_int_2_float = $10000;
-       bp_TGScannerConfig_int_2_float = 16;
-       bm_TGScannerConfig_identifier_2_string = $20000;
-       bp_TGScannerConfig_identifier_2_string = 17;
-       bm_TGScannerConfig_char_2_token = $40000;
-       bp_TGScannerConfig_char_2_token = 18;
-       bm_TGScannerConfig_symbol_2_token = $80000;
-       bp_TGScannerConfig_symbol_2_token = 19;
-       bm_TGScannerConfig_scope_0_fallback = $100000;
-       bp_TGScannerConfig_scope_0_fallback = 20;
-
-type
-   PGFunc = ^TGFunc;
-   TGFunc = procedure(data:gpointer; user_data:gpointer);cdecl;
-   PGHFunc = ^TGHFunc;
-   TGHFunc = procedure(key:gpointer; value:gpointer; user_data:gpointer);cdecl;
-   PGHRFunc = ^TGHRFunc;
-   TGHRFunc = function (key:gpointer; value:gpointer; user_data:gpointer):gboolean;cdecl;
-   PGHashFunc = ^TGHashFunc;
-   TGHashFunc = function(key:gpointer):guint;cdecl;
-   PGCompareFunc = ^TGCompareFunc;
-   TGCompareFunc = function (a:gpointer; b:gpointer):gint;cdecl;
-   PGCacheNewFunc = ^TGCacheNewFunc;
-   TGCacheNewFunc = function(key:gpointer):gpointer;cdecl;
-   PGCacheDupFunc = ^TGCacheDupFunc;
-   TGCacheDupFunc = function(value:gpointer):gpointer;cdecl;
-   PGCacheDestroyFunc = ^TGCacheDestroyFunc;
-   TGCacheDestroyFunc = procedure(value:gpointer);cdecl;
-   PGTraverseFunc = ^TGTraverseFunc;
-   TGTraverseFunc = function(key:gpointer; value:gpointer; data:gpointer):gint;cdecl;
-   PGSearchFunc = ^TGSearchFunc;
-   TGSearchFunc = function(key:gpointer; data:gpointer):gint;cdecl;
-   PGErrorFunc = ^TGErrorFunc;
-   TGErrorFunc = procedure(str:Pgchar);cdecl;
-   PGWarningFunc = ^TGWarningFunc;
-   TGWarningFunc = procedure(str:Pgchar);cdecl;
-   PGPrintFunc = ^TGPrintFunc;
-   TGPrintFunc = procedure(str:Pgchar);cdecl;
-
-   TGCompletionFunc = function (_para1:gpointer):Pgchar;cdecl;
-   TGDataForeachFunc = procedure (key_id:TGQuark; data:gpointer; user_data:gpointer);cdecl;
-   TGFreeFunc = procedure (data:gpointer);cdecl;
-   TGLogFunc = procedure (log_domain:Pgchar; log_level:TGLogLevelFlags; message:Pgchar; user_data:gpointer);cdecl;
-   TGNodeTraverseFunc = function (node:PGNode; data:gpointer):gboolean;cdecl;
-   TGNodeForeachFunc = procedure (node:PGNode; data:gpointer);cdecl;
-   TGVoidFunc = procedure ;cdecl;
-
-   PGallocator = pointer;
-   PGrelation  = pointer;
-   PGData      = pointer;
-   PPGData     = ^PGData;
-   PTm         = pointer;
-   PGMainloop  = pointer;
-   PGMutex     = pointer;
-
-{$ifndef gtkwin}
-procedure g_list_push_allocator(allocator:PGAllocator);cdecl;external glibdll name 'g_list_push_allocator';
-{$endif}
-procedure g_list_pop_allocator;cdecl;external glibdll name 'g_list_pop_allocator';
-function  g_list_alloc:PGList;cdecl;external glibdll name 'g_list_alloc';
-procedure g_list_free(list:PGList);cdecl;external glibdll name 'g_list_free';
-procedure g_list_free_1(list:PGList);cdecl;external glibdll name 'g_list_free_1';
-function  g_list_append(list:PGList; data:gpointer):PGList;cdecl;external glibdll name 'g_list_append';
-function  g_list_prepend(list:PGList; data:gpointer):PGList;cdecl;external glibdll name 'g_list_prepend';
-function  g_list_insert(list:PGList; data:gpointer; position:gint):PGList;cdecl;external glibdll name 'g_list_insert';
-function  g_list_insert_sorted(list:PGList; data:gpointer; func:TGCompareFunc):PGList;cdecl;external glibdll name 'g_list_insert_sorted';
-function  g_list_concat(list1:PGList; list2:PGList):PGList;cdecl;external glibdll name 'g_list_concat';
-function  g_list_remove(list:PGList; data:gpointer):PGList;cdecl;external glibdll name 'g_list_remove';
-function  g_list_remove_link(list:PGList; link:PGList):PGList;cdecl;external glibdll name 'g_list_remove_link';
-function  g_list_reverse(list:PGList):PGList;cdecl;external glibdll name 'g_list_reverse';
-function  g_list_copy(list:PGList):PGList;cdecl;external glibdll name 'g_list_copy';
-function  g_list_nth(list:PGList; n:guint):PGList;cdecl;external glibdll name 'g_list_nth';
-function  g_list_find(list:PGList; data:gpointer):PGList;cdecl;external glibdll name 'g_list_find';
-function  g_list_find_custom(list:PGList; data:gpointer; func:TGCompareFunc):PGList;cdecl;external glibdll name 'g_list_find_custom';
-function  g_list_index(list:PGList; data:gpointer):gint;cdecl;external glibdll name 'g_list_index';
-function  g_list_position(list:PGList; llink:PGList):gint;cdecl;external glibdll name 'g_list_position';
-function  g_list_last(list:PGList):PGList;cdecl;external glibdll name 'g_list_last';
-function  g_list_first(list:PGList):PGList;cdecl;external glibdll name 'g_list_first';
-function  g_list_length(list:PGList):guint;cdecl;external glibdll name 'g_list_length';
-procedure g_list_foreach(list:PGList; func:TGFunc; user_data:gpointer);cdecl;external glibdll name 'g_list_foreach';
-function  g_list_sort(list:PGList; compare_func:TGCompareFunc):PGList;cdecl;external glibdll name 'g_list_sort';
-function  g_list_nth_data(list:PGList; n:guint):gpointer;cdecl;external glibdll name 'g_list_nth_data';
-function  g_list_previous(list : PGlist) : PGlist;
-function  g_list_next(list : PGlist) : PGlist;
-
-procedure g_slist_push_allocator(allocator:PGAllocator);cdecl;external glibdll name 'g_slist_push_allocator';
-procedure g_slist_pop_allocator;cdecl;external glibdll name 'g_slist_pop_allocator';
-function  g_slist_alloc:PGSList;cdecl;external glibdll name 'g_slist_alloc';
-procedure g_slist_free(list:PGSList);cdecl;external glibdll name 'g_slist_free';
-procedure g_slist_free_1(list:PGSList);cdecl;external glibdll name 'g_slist_free_1';
-function  g_slist_append(list:PGSList; data:gpointer):PGSList;cdecl;external glibdll name 'g_slist_append';
-function  g_slist_prepend(list:PGSList; data:gpointer):PGSList;cdecl;external glibdll name 'g_slist_prepend';
-function  g_slist_insert(list:PGSList; data:gpointer; position:gint):PGSList;cdecl;external glibdll name 'g_slist_insert';
-function  g_slist_insert_sorted(list:PGSList; data:gpointer; func:TGCompareFunc):PGSList;cdecl;external glibdll name 'g_slist_insert_sorted';
-function  g_slist_concat(list1:PGSList; list2:PGSList):PGSList;cdecl;external glibdll name 'g_slist_concat';
-function  g_slist_remove(list:PGSList; data:gpointer):PGSList;cdecl;external glibdll name 'g_slist_remove';
-function  g_slist_remove_link(list:PGSList; link:PGSList):PGSList;cdecl;external glibdll name 'g_slist_remove_link';
-function  g_slist_reverse(list:PGSList):PGSList;cdecl;external glibdll name 'g_slist_reverse';
-function  g_slist_copy(list:PGSList):PGSList;cdecl;external glibdll name 'g_slist_copy';
-function  g_slist_nth(list:PGSList; n:guint):PGSList;cdecl;external glibdll name 'g_slist_nth';
-function  g_slist_find(list:PGSList; data:gpointer):PGSList;cdecl;external glibdll name 'g_slist_find';
-function  g_slist_find_custom(list:PGSList; data:gpointer; func:TGCompareFunc):PGSList;cdecl;external glibdll name 'g_slist_find_custom';
-function  g_slist_position(list:PGSList; llink:PGSList):gint;cdecl;external glibdll name 'g_slist_position';
-function  g_slist_index(list:PGSList; data:gpointer):gint;cdecl;external glibdll name 'g_slist_index';
-function  g_slist_last(list:PGSList):PGSList;cdecl;external glibdll name 'g_slist_last';
-function  g_slist_length(list:PGSList):guint;cdecl;external glibdll name 'g_slist_length';
-procedure g_slist_foreach(list:PGSList; func:TGFunc; user_data:gpointer);cdecl;external glibdll name 'g_slist_foreach';
-function  g_slist_sort(list:PGSList; compare_func:TGCompareFunc):PGSList;cdecl;external glibdll name 'g_slist_sort';
-function  g_slist_nth_data(list:PGSList; n:guint):gpointer;cdecl;external glibdll name 'g_slist_nth_data';
-function  g_slist_next(slist : PGSList) : PGSList;
-
-function  g_hash_table_new(hash_func:TGHashFunc; key_compare_func:TGCompareFunc):PGHashTable;cdecl;external glibdll name 'g_hash_table_new';
-procedure g_hash_table_destroy(hash_table:PGHashTable);cdecl;external glibdll name 'g_hash_table_destroy';
-procedure g_hash_table_insert(hash_table:PGHashTable; key:gpointer; value:gpointer);cdecl;external glibdll name 'g_hash_table_insert';
-procedure g_hash_table_remove(hash_table:PGHashTable; key:gpointer);cdecl;external glibdll name 'g_hash_table_remove';
-function  g_hash_table_lookup(hash_table:PGHashTable; key:gpointer):gpointer;cdecl;external glibdll name 'g_hash_table_lookup';
-function  g_hash_table_lookup_extended(hash_table:PGHashTable; lookup_key:gconstpointer; orig_key:Pgpointer; value:Pgpointer):gboolean;cdecl;external glibdll name 'g_hash_table_lookup_extended';
-procedure g_hash_table_freeze(hash_table:PGHashTable);cdecl;external glibdll name 'g_hash_table_freeze';
-procedure g_hash_table_thaw(hash_table:PGHashTable);cdecl;external glibdll name 'g_hash_table_thaw';
-procedure g_hash_table_foreach(hash_table:PGHashTable; func:TGHFunc; user_data:gpointer);cdecl;external glibdll name 'g_hash_table_foreach';
-function  g_hash_table_foreach_remove(hash_table:PGHashTable; func:TGHRFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_hash_table_foreach_remove';
-function  g_hash_table_size(hash_table:PGHashTable):guint;cdecl;external glibdll name 'g_hash_table_size';
-
-function  g_cache_new(value_new_func:TGCacheNewFunc; value_destroy_func:TGCacheDestroyFunc;
-                      key_dup_func:TGCacheDupFunc; key_destroy_func:TGCacheDestroyFunc;
-                      hash_key_func:TGHashFunc; hash_value_func:TGHashFunc; key_compare_func:TGCompareFunc):PGCache;
-                      cdecl;external glibdll name 'g_cache_new';
-procedure g_cache_destroy(cache:PGCache);cdecl;external glibdll name 'g_cache_destroy';
-function  g_cache_insert(cache:PGCache; key:gpointer):gpointer;cdecl;external glibdll name 'g_cache_insert';
-procedure g_cache_remove(cache:PGCache; value:gpointer);cdecl;external glibdll name 'g_cache_remove';
-procedure g_cache_key_foreach(cache:PGCache; func:TGHFunc; user_data:gpointer);cdecl;external glibdll name 'g_cache_key_foreach';
-procedure g_cache_value_foreach(cache:PGCache; func:TGHFunc; user_data:gpointer);cdecl;external glibdll name 'g_cache_value_foreach';
-
-function  g_tree_new(key_compare_func:TGCompareFunc):PGTree;cdecl;external glibdll name 'g_tree_new';
-procedure g_tree_destroy(tree:PGTree);cdecl;external glibdll name 'g_tree_destroy';
-procedure g_tree_insert(tree:PGTree; key:gpointer; value:gpointer);cdecl;external glibdll name 'g_tree_insert';
-procedure g_tree_remove(tree:PGTree; key:gpointer);cdecl;external glibdll name 'g_tree_remove';
-function  g_tree_lookup(tree:PGTree; key:gpointer):gpointer;cdecl;external glibdll name 'g_tree_lookup';
-procedure g_tree_traverse(tree:PGTree; traverse_func:TGTraverseFunc; traverse_type:TGTraverseType; data:gpointer);cdecl;external glibdll name 'g_tree_traverse';
-function  g_tree_search(tree:PGTree; search_func:TGSearchFunc; data:gpointer):gpointer;cdecl;external glibdll name 'g_tree_search';
-function  g_tree_height(tree:PGTree):gint;cdecl;external glibdll name 'g_tree_height';
-function  g_tree_nnodes(tree:PGTree):gint;cdecl;external glibdll name 'g_tree_nnodes';
-
-function  G_NODE_IS_ROOT(node : PGNode) : boolean;
-function  G_NODE_IS_LEAF(node : PGNode) : boolean;
-procedure g_node_push_allocator(allocator:PGAllocator);cdecl;external glibdll name 'g_node_push_allocator';
-procedure g_node_pop_allocator;cdecl;external glibdll name 'g_node_pop_allocator';
-function  g_node_new(data:gpointer):PGNode;cdecl;external glibdll name 'g_node_new';
-procedure g_node_destroy(root:PGNode);cdecl;external glibdll name 'g_node_destroy';
-procedure g_node_unlink(node:PGNode);cdecl;external glibdll name 'g_node_unlink';
-function  g_node_insert(parent:PGNode; position:gint; node:PGNode):PGNode;cdecl;external glibdll name 'g_node_insert';
-function  g_node_insert_before(parent:PGNode; sibling:PGNode; node:PGNode):PGNode;cdecl;external glibdll name 'g_node_insert_before';
-function  g_node_prepend(parent:PGNode; node:PGNode):PGNode;cdecl;external glibdll name 'g_node_prepend';
-function  g_node_n_nodes(root:PGNode; flags:TGTraverseFlags):guint;cdecl;external glibdll name 'g_node_n_nodes';
-function  g_node_get_root(node:PGNode):PGNode;cdecl;external glibdll name 'g_node_get_root';
-function  g_node_is_ancestor(node:PGNode; descendant:PGNode):gboolean;cdecl;external glibdll name 'g_node_is_ancestor';
-function  g_node_depth(node:PGNode):guint;cdecl;external glibdll name 'g_node_depth';
-function  g_node_find(root:PGNode; order:TGTraverseType; flags:TGTraverseFlags; data:gpointer):PGNode;cdecl;external glibdll name 'g_node_find';
-function  g_node_append(parent,node : PGNode) : PGNode;
-function  g_node_insert_data(parent:PGNode;position:gint;data : pointer) : PGNode;
-function  g_node_insert_data_before(parent,sibling:PGNode;data : pointer) : PGNode;
-function  g_node_prepend_data(parent:PGNode;data : pointer) : PGNode;
-function  g_node_append_data(parent:PGNode;data : pointer) : PGNode;
-procedure g_node_traverse(root:PGNode; order:TGTraverseType; flags:TGTraverseFlags; max_depth:gint; func:TGNodeTraverseFunc; data:gpointer);cdecl;external glibdll name 'g_node_traverse';
-function  g_node_max_height(root:PGNode):guint;cdecl;external glibdll name 'g_node_max_height';
-procedure g_node_children_foreach(node:PGNode; flags:TGTraverseFlags; func:TGNodeForeachFunc; data:gpointer);cdecl;external glibdll name 'g_node_children_foreach';
-procedure g_node_reverse_children(node:PGNode);cdecl;external glibdll name 'g_node_reverse_children';
-function  g_node_n_children(node:PGNode):guint;cdecl;external glibdll name 'g_node_n_children';
-function  g_node_nth_child(node:PGNode; n:guint):PGNode;cdecl;external glibdll name 'g_node_nth_child';
-function  g_node_last_child(node:PGNode):PGNode;cdecl;external glibdll name 'g_node_last_child';
-function  g_node_find_child(node:PGNode; flags:TGTraverseFlags; data:gpointer):PGNode;cdecl;external glibdll name 'g_node_find_child';
-function  g_node_child_position(node:PGNode; child:PGNode):gint;cdecl;external glibdll name 'g_node_child_position';
-function  g_node_child_index(node:PGNode; data:gpointer):gint;cdecl;external glibdll name 'g_node_child_index';
-function  g_node_first_sibling(node:PGNode):PGNode;cdecl;external glibdll name 'g_node_first_sibling';
-function  g_node_last_sibling(node:PGNode):PGNode;cdecl;external glibdll name 'g_node_last_sibling';
-function  g_node_prev_sibling(node : PGnode) : PGNode;
-function  g_node_next_sibling(node : PGnode) : PGnode;
-function  g_node_first_child(node : PGnode) : PGnode;
-
-function  is_setup(var a : TGHookList) : guint;
-procedure set_is_setup(var a : TGHookList; __is_setup : guint);
-function  G_HOOK_DEFERRED_DESTROY : TGHookFreeFunc;
-function  G_HOOK_ACTIVE(hook : PGHook) : boolean;
-function  G_HOOK_IN_CALL(hook : PGHook) : boolean;
-function  G_HOOK_IS_VALID(hook : PGHook) : boolean;
-function  G_HOOK_IS_UNLINKED(hook : PGHook) : boolean;
-
-procedure g_hook_list_init(hook_list:PGHookList; hook_size:guint);cdecl;external glibdll name 'g_hook_list_init';
-procedure g_hook_list_clear(hook_list:PGHookList);cdecl;external glibdll name 'g_hook_list_clear';
-function  g_hook_alloc(hook_list:PGHookList):PGHook;cdecl;external glibdll name 'g_hook_alloc';
-procedure g_hook_free(hook_list:PGHookList; hook:PGHook);cdecl;external glibdll name 'g_hook_free';
-procedure g_hook_ref(hook_list:PGHookList; hook:PGHook);cdecl;external glibdll name 'g_hook_ref';
-procedure g_hook_unref(hook_list:PGHookList; hook:PGHook);cdecl;external glibdll name 'g_hook_unref';
-function  g_hook_destroy(hook_list:PGHookList; hook_id:guint):gboolean;cdecl;external glibdll name 'g_hook_destroy';
-procedure g_hook_destroy_link(hook_list:PGHookList; hook:PGHook);cdecl;external glibdll name 'g_hook_destroy_link';
-procedure g_hook_prepend(hook_list:PGHookList; hook:PGHook);cdecl;external glibdll name 'g_hook_prepend';
-procedure g_hook_insert_before(hook_list:PGHookList; sibling:PGHook; hook:PGHook);cdecl;external glibdll name 'g_hook_insert_before';
-procedure g_hook_insert_sorted(hook_list:PGHookList; hook:PGHook; func:TGHookCompareFunc);cdecl;external glibdll name 'g_hook_insert_sorted';
-function  g_hook_get(hook_list:PGHookList; hook_id:guint):PGHook;cdecl;external glibdll name 'g_hook_get';
-function  g_hook_find(hook_list:PGHookList; need_valids:gboolean; func:TGHookFindFunc; data:gpointer):PGHook;cdecl;external glibdll name 'g_hook_find';
-function  g_hook_find_data(hook_list:PGHookList; need_valids:gboolean; data:gpointer):PGHook;cdecl;external glibdll name 'g_hook_find_data';
-function  g_hook_find_func(hook_list:PGHookList; need_valids:gboolean; func:gpointer):PGHook;cdecl;external glibdll name 'g_hook_find_func';
-function  g_hook_find_func_data(hook_list:PGHookList; need_valids:gboolean; func:gpointer; data:gpointer):PGHook;cdecl;external glibdll name 'g_hook_find_func_data';
-function  g_hook_first_valid(hook_list:PGHookList; may_be_in_call:gboolean):PGHook;cdecl;external glibdll name 'g_hook_first_valid';
-function  g_hook_next_valid(hook_list:PGHookList; hook:PGHook; may_be_in_call:gboolean):PGHook;cdecl;external glibdll name 'g_hook_next_valid';
-function  g_hook_compare_ids(new_hook:PGHook; sibling:PGHook):gint;cdecl;external glibdll name 'g_hook_compare_ids';
-procedure g_hook_append(hook_list:PGhooklist;hook : PGhook);
-procedure g_hook_list_invoke(hook_list:PGHookList; may_recurse:gboolean);cdecl;external glibdll name 'g_hook_list_invoke';
-procedure g_hook_list_invoke_check(hook_list:PGHookList; may_recurse:gboolean);cdecl;external glibdll name 'g_hook_list_invoke_check';
-procedure g_hook_list_marshal(hook_list:PGHookList; may_recurse:gboolean; marshaller:TGHookMarshaller; data:gpointer);cdecl;external glibdll name 'g_hook_list_marshal';
-procedure g_hook_list_marshal_check(hook_list:PGHookList; may_recurse:gboolean; marshaller:TGHookCheckMarshaller; data:gpointer);cdecl;external glibdll name 'g_hook_list_marshal_check';
-
-procedure g_on_error_query(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_query';
-procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace';
-
-{$ifndef gtkwin}
-  {$ifndef gtkos2}
-var
-  g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib';
-  {$endif}
-{$endif}
-
-function  g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler';
-procedure g_log_remove_handler(log_domain:Pgchar; handler_id:guint);cdecl;external glibdll name 'g_log_remove_handler';
-procedure g_log_default_handler(log_domain:Pgchar; log_level:TGLogLevelFlags; message:Pgchar; unused_data:gpointer);cdecl;external glibdll name 'g_log_default_handler';
-procedure g_logv(log_domain:Pgchar; log_level:TGLogLevelFlags; format:Pgchar; args:array of const);cdecl;external glibdll name 'g_logv';
-function  g_log_set_fatal_mask(log_domain:Pgchar; fatal_mask:TGLogLevelFlags):TGLogLevelFlags;cdecl;external glibdll name 'g_log_set_fatal_mask';
-function  g_log_set_always_fatal(fatal_mask:TGLogLevelFlags):TGLogLevelFlags;cdecl;external glibdll name 'g_log_set_always_fatal';
-
-function  g_set_printerr_handler(func:TGPrintFunc):TGPrintFunc;cdecl;external glibdll name 'g_set_printerr_handler';
-function  g_set_print_handler(func:TGPrintFunc):TGPrintFunc;cdecl;external glibdll name 'g_set_print_handler';
-function  g_set_error_handler(func:TGErrorFunc):TGErrorFunc;cdecl;external glibdll name 'g_set_error_handler';
-function  g_set_warning_handler(func:TGWarningFunc):TGWarningFunc;cdecl;external glibdll name 'g_set_warning_handler';
-function  g_set_message_handler(func:TGPrintFunc):TGPrintFunc;cdecl;external glibdll name 'g_set_message_handler';
-
-function  g_malloc(size:gulong):gpointer;cdecl;external glibdll name 'g_malloc';
-function  g_malloc0(size:gulong):gpointer;cdecl;external glibdll name 'g_malloc0';
-function  g_realloc(mem:gpointer; size:gulong):gpointer;cdecl;external glibdll name 'g_realloc';
-procedure g_free(mem:gpointer);cdecl;external glibdll name 'g_free';
-procedure g_mem_profile;cdecl;external glibdll name 'g_mem_profile';
-procedure g_mem_check(mem:gpointer);cdecl;external glibdll name 'g_mem_check';
-
-    const
-       G_ALLOCATOR_LIST = 1;
-       G_ALLOCATOR_SLIST = 2;
-       G_ALLOCATOR_NODE = 3;
-
-function  g_allocator_new(name:Pgchar; n_preallocs:guint):PGAllocator;cdecl;external glibdll name 'g_allocator_new';
-procedure g_allocator_free(allocator:PGAllocator);cdecl;external glibdll name 'g_allocator_free';
-
-   const
-       G_ALLOC_ONLY = 1;
-       G_ALLOC_AND_FREE = 2;
-
-function  g_mem_chunk_new(name:Pgchar; atom_size:gint; area_size:gulong; thetype:gint):PGMemChunk;cdecl;external glibdll name 'g_mem_chunk_new';
-procedure g_mem_chunk_destroy(mem_chunk:PGMemChunk);cdecl;external glibdll name 'g_mem_chunk_destroy';
-function  g_mem_chunk_alloc(mem_chunk:PGMemChunk):gpointer;cdecl;external glibdll name 'g_mem_chunk_alloc';
-function  g_mem_chunk_alloc0(mem_chunk:PGMemChunk):gpointer;cdecl;external glibdll name 'g_mem_chunk_alloc0';
-procedure g_mem_chunk_free(mem_chunk:PGMemChunk; mem:gpointer);cdecl;external glibdll name 'g_mem_chunk_free';
-procedure g_mem_chunk_clean(mem_chunk:PGMemChunk);cdecl;external glibdll name 'g_mem_chunk_clean';
-procedure g_mem_chunk_reset(mem_chunk:PGMemChunk);cdecl;external glibdll name 'g_mem_chunk_reset';
-procedure g_mem_chunk_print(mem_chunk:PGMemChunk);cdecl;external glibdll name 'g_mem_chunk_print';
-procedure g_mem_chunk_info;cdecl;external glibdll name 'g_mem_chunk_info';
-procedure g_blow_chunks;cdecl;external glibdll name 'g_blow_chunks';
-function  g_timer_new:PGTimer;cdecl;external glibdll name 'g_timer_new';
-procedure g_timer_destroy(timer:PGTimer);cdecl;external glibdll name 'g_timer_destroy';
-procedure g_timer_start(timer:PGTimer);cdecl;external glibdll name 'g_timer_start';
-procedure g_timer_stop(timer:PGTimer);cdecl;external glibdll name 'g_timer_stop';
-procedure g_timer_reset(timer:PGTimer);cdecl;external glibdll name 'g_timer_reset';
-function  g_timer_elapsed(timer:PGTimer; microseconds:Pgulong):gdouble;cdecl;external glibdll name 'g_timer_elapsed';
-
-const
-       G_STR_DELIMITERS = '_-|> <.';
-
-function  g_strdelimit(thestring:Pgchar; delimiters:Pgchar; new_delimiter:gchar):Pgchar;cdecl;external glibdll name 'g_strdelimit';
-function  g_strtod(nptr:Pgchar; endptr:PPgchar):gdouble;cdecl;external glibdll name 'g_strtod';
-function  g_strerror(errnum:gint):Pgchar;cdecl;external glibdll name 'g_strerror';
-function  g_strsignal(signum:gint):Pgchar;cdecl;external glibdll name 'g_strsignal';
-function  g_strcasecmp(s1:Pgchar; s2:Pgchar):gint;cdecl;external glibdll name 'g_strcasecmp';
-function  g_strncasecmp(s1:Pgchar; s2:Pgchar; n:guint):gint;cdecl;external glibdll name 'g_strncasecmp';
-procedure g_strdown(thestring:Pgchar);cdecl;external glibdll name 'g_strdown';
-procedure g_strup(thestring:Pgchar);cdecl;external glibdll name 'g_strup';
-procedure g_strreverse(thestring:Pgchar);cdecl;external glibdll name 'g_strreverse';
-function  g_strchug(thestring:Pgchar):Pgchar;cdecl;external glibdll name 'g_strchug';
-function  g_strchomp(thestring:Pgchar):Pgchar;cdecl;external glibdll name 'g_strchomp';
-function  g_strstrip(thestring : Pgchar) : Pgchar;
-function  g_strdup(str:Pgchar):Pgchar;cdecl;external glibdll name 'g_strdup';
-function  g_strdup_printf(format:Pgchar;args:array of const):Pgchar;cdecl;external glibdll name 'g_strdup_printf';
-function  g_strdup_vprintf(format:Pgchar; args:array of const):Pgchar;cdecl;external glibdll name 'g_strdup_vprintf';
-function  g_strndup(str:Pgchar; n:guint):Pgchar;cdecl;external glibdll name 'g_strndup';
-function  g_strnfill(length:guint; fill_char:gchar):Pgchar;cdecl;external glibdll name 'g_strnfill';
-function  g_strconcat(string1:Pgchar; args:array of const):Pgchar;cdecl;external glibdll name 'g_strconcat';
-function  g_strjoin(separator:Pgchar; args:array of const):Pgchar;cdecl;external glibdll name 'g_strjoin';
-function  g_strescape(thestring:Pgchar):Pgchar;cdecl;external glibdll name 'g_strescape';
-function  g_memdup(mem:gconstpointer; byte_size:guint):gpointer;cdecl;external glibdll name 'g_memdup';
-function  g_strsplit(thestring:Pgchar; delimiter:Pgchar; max_tokens:gint):PPgchar;cdecl;external glibdll name 'g_strsplit';
-function  g_strjoinv(separator:Pgchar; str_array:PPgchar):Pgchar;cdecl;external glibdll name 'g_strjoinv';
-procedure g_strfreev(str_array:PPgchar);cdecl;external glibdll name 'g_strfreev';
-function  g_printf_string_upper_bound(format:Pgchar; args:array of const):guint;cdecl;external glibdll name 'g_printf_string_upper_bound';
-function  g_get_user_name:Pgchar;cdecl;external glibdll name 'g_get_user_name';
-function  g_get_real_name:Pgchar;cdecl;external glibdll name 'g_get_real_name';
-function  g_get_home_dir:Pgchar;cdecl;external glibdll name 'g_get_home_dir';
-function  g_get_tmp_dir:Pgchar;cdecl;external glibdll name 'g_get_tmp_dir';
-function  g_get_prgname:Pgchar;cdecl;external glibdll name 'g_get_prgname';
-procedure g_set_prgname(prgname:Pgchar);cdecl;external glibdll name 'g_set_prgname';
-function  g_parse_debug_string(thestring:Pgchar; keys:PGDebugKey; nkeys:guint):guint;cdecl;external glibdll name 'g_parse_debug_string';
-function  g_vsnprintf(thestring:Pgchar; n:gulong; format:Pgchar; args:array of const):gint;cdecl;external glibdll name 'g_vsnprintf';
-function  g_basename(file_name:Pgchar):Pgchar;cdecl;external glibdll name 'g_basename';
-function  g_path_is_absolute(file_name:Pgchar):gboolean;cdecl;external glibdll name 'g_path_is_absolute';
-function  g_path_skip_root(file_name:Pgchar):Pgchar;cdecl;external glibdll name 'g_path_skip_root';
-function  g_dirname(file_name:Pgchar):Pgchar;cdecl;external glibdll name 'g_dirname';
-function  g_get_current_dir:Pgchar;cdecl;external glibdll name 'g_get_current_dir';
-function  g_getenv(variable:Pgchar):Pgchar;cdecl;external glibdll name 'g_getenv';
-procedure g_atexit(func:TGVoidFunc);cdecl;external glibdll name 'g_atexit';
-
-function  g_string_chunk_new(size:gint):PGStringChunk;cdecl;external glibdll name 'g_string_chunk_new';
-procedure g_string_chunk_free(chunk:PGStringChunk);cdecl;external glibdll name 'g_string_chunk_free';
-function  g_string_chunk_insert(chunk:PGStringChunk; thestring:Pgchar):Pgchar;cdecl;external glibdll name 'g_string_chunk_insert';
-function  g_string_chunk_insert_const(chunk:PGStringChunk; thestring:Pgchar):Pgchar;cdecl;external glibdll name 'g_string_chunk_insert_const';
-function  g_string_new(init:Pgchar):PGString;cdecl;external glibdll name 'g_string_new';
-function  g_string_sized_new(dfl_size:guint):PGString;cdecl;external glibdll name 'g_string_sized_new';
-procedure g_string_free(thestring:PGString; free_segment:gint);cdecl;external glibdll name 'g_string_free';
-function  g_string_assign(lval:PGString; rval:Pgchar):PGString;cdecl;external glibdll name 'g_string_assign';
-function  g_string_truncate(thestring:PGString; len:gint):PGString;cdecl;external glibdll name 'g_string_truncate';
-function  g_string_append(thestring:PGString; val:Pgchar):PGString;cdecl;external glibdll name 'g_string_append';
-function  g_string_append_c(thestring:PGString; c:gchar):PGString;cdecl;external glibdll name 'g_string_append_c';
-function  g_string_prepend(thestring:PGString; val:Pgchar):PGString;cdecl;external glibdll name 'g_string_prepend';
-function  g_string_prepend_c(thestring:PGString; c:gchar):PGString;cdecl;external glibdll name 'g_string_prepend_c';
-function  g_string_insert(thestring:PGString; pos:gint; val:Pgchar):PGString;cdecl;external glibdll name 'g_string_insert';
-function  g_string_insert_c(thestring:PGString; pos:gint; c:gchar):PGString;cdecl;external glibdll name 'g_string_insert_c';
-function  g_string_erase(thestring:PGString; pos:gint; len:gint):PGString;cdecl;external glibdll name 'g_string_erase';
-function  g_string_down(thestring:PGString):PGString;cdecl;external glibdll name 'g_string_down';
-function  g_string_up(thestring:PGString):PGString;cdecl;external glibdll name 'g_string_up';
-procedure g_string_sprintf(thestring:PGString; fmt:Pgchar; args:array of const);cdecl;external glibdll name 'g_string_sprintf';
-procedure g_string_sprintfa(thestring:PGString; fmt:Pgchar; args:array of const);cdecl;external glibdll name 'g_string_sprintfa';
-
-function  g_array_append_val(a:PGarray;v : longint) : PGarray;
-function  g_array_prepend_val(a:PGarray;v : longint) : PGarray;
-function  g_array_insert_val(a:PGarray;i:guint;v : longint) : PGarray;
-function  g_array_new(zero_terminated:gint):PGArray;cdecl;external glibdll name 'g_array_new';
-procedure g_array_free(thearray:PGArray; free_segment:gint);cdecl;external glibdll name 'g_array_free';
-function  g_array_append_vals(thearray:PGArray; data:gconstpointer; len:guint):PGArray;cdecl;external glibdll name 'g_array_append_vals';
-function  g_array_prepend_vals(thearray:PGArray; data:gconstpointer; len:guint):PGArray;cdecl;external glibdll name 'g_array_prepend_vals';
-function  g_array_insert_vals(thearray:PGArray; index:guint; data:gconstpointer; len:guint):PGArray;cdecl;external glibdll name 'g_array_insert_vals';
-function  g_array_set_size(thearray:PGArray; length:guint):PGArray;cdecl;external glibdll name 'g_array_set_size';
-function  g_array_remove_index(thearray:PGArray; index:guint):PGArray;cdecl;external glibdll name 'g_array_remove_index';
-function  g_array_remove_index_fast(thearray:PGArray; index:guint):PGArray;cdecl;external glibdll name 'g_array_remove_index_fast';
-
-function  g_ptr_array_new:PGPtrArray;cdecl;external glibdll name 'g_ptr_array_new';
-procedure g_ptr_array_free(thearray:PGPtrArray; free_seg:gboolean);cdecl;external glibdll name 'g_ptr_array_free';
-procedure g_ptr_array_set_size(thearray:PGPtrArray; length:gint);cdecl;external glibdll name 'g_ptr_array_set_size';
-function  g_ptr_array_remove_index(thearray:PGPtrArray; index:guint):gpointer;cdecl;external glibdll name 'g_ptr_array_remove_index';
-function  g_ptr_array_remove_index_fast(thearray:PGPtrArray; index:guint):gpointer;cdecl;external glibdll name 'g_ptr_array_remove_index_fast';
-function  g_ptr_array_remove(thearray:PGPtrArray; data:gpointer):gboolean;cdecl;external glibdll name 'g_ptr_array_remove';
-function  g_ptr_array_remove_fast(thearray:PGPtrArray; data:gpointer):gboolean;cdecl;external glibdll name 'g_ptr_array_remove_fast';
-procedure g_ptr_array_add(thearray:PGPtrArray; data:gpointer);cdecl;external glibdll name 'g_ptr_array_add';
-
-function  g_byte_array_new:PGByteArray;cdecl;external glibdll name 'g_byte_array_new';
-procedure g_byte_array_free(thearray:PGByteArray; free_segment:gboolean);cdecl;external glibdll name 'g_byte_array_free';
-function  g_byte_array_append(thearray:PGByteArray; data:Pguint8; len:guint):PGByteArray;cdecl;external glibdll name 'g_byte_array_append';
-function  g_byte_array_prepend(thearray:PGByteArray; data:Pguint8; len:guint):PGByteArray;cdecl;external glibdll name 'g_byte_array_prepend';
-function  g_byte_array_set_size(thearray:PGByteArray; length:guint):PGByteArray;cdecl;external glibdll name 'g_byte_array_set_size';
-function  g_byte_array_remove_index(thearray:PGByteArray; index:guint):PGByteArray;cdecl;external glibdll name 'g_byte_array_remove_index';
-function  g_byte_array_remove_index_fast(thearray:PGByteArray; index:guint):PGByteArray;cdecl;external glibdll name 'g_byte_array_remove_index_fast';
-
-function  g_str_equal(v:gconstpointer; v2:gconstpointer):gint;cdecl;external glibdll name 'g_str_equal';
-function  g_str_hash(v:gconstpointer):guint;cdecl;external glibdll name 'g_str_hash';
-
-function  g_int_equal(v:gconstpointer; v2:gconstpointer):gint;cdecl;external glibdll name 'g_int_equal';
-function  g_int_hash(v:gconstpointer):guint;cdecl;external glibdll name 'g_int_hash';
-
-function  g_direct_hash(v:gconstpointer):guint;cdecl;external glibdll name 'g_direct_hash';
-function  g_direct_equal(v:gconstpointer; v2:gconstpointer):gint;cdecl;external glibdll name 'g_direct_equal';
-
-function  g_quark_try_string(thestring:Pgchar):TGQuark;cdecl;external glibdll name 'g_quark_try_string';
-function  g_quark_from_static_string(thestring:Pgchar):TGQuark;cdecl;external glibdll name 'g_quark_from_static_string';
-function  g_quark_from_string(thestring:Pgchar):TGQuark;cdecl;external glibdll name 'g_quark_from_string';
-function  g_quark_to_string(quark:TGQuark):Pgchar;cdecl;external glibdll name 'g_quark_to_string';
-
-procedure g_datalist_init(datalist:PPGData);cdecl;external glibdll name 'g_datalist_init';
-procedure g_datalist_clear(datalist:PPGData);cdecl;external glibdll name 'g_datalist_clear';
-function  g_datalist_id_get_data(datalist:PPGData; key_id:TGQuark):gpointer;cdecl;external glibdll name 'g_datalist_id_get_data';
-procedure g_datalist_id_set_data_full(datalist:PPGData; key_id:TGQuark; data:gpointer; destroy_func:TGDestroyNotify);cdecl;external glibdll name 'g_datalist_id_set_data_full';
-procedure g_datalist_id_remove_no_notify(datalist:PPGData; key_id:TGQuark);cdecl;external glibdll name 'g_datalist_id_remove_no_notify';
-procedure g_datalist_foreach(datalist:PPGData; func:TGDataForeachFunc; user_data:gpointer);cdecl;external glibdll name 'g_datalist_foreach';
-procedure g_datalist_id_set_data(dl:PPGdata;q:TGQuark;d : pointer);
-procedure g_datalist_id_remove_data(dl:PPGData;q:TGQuark);
-function  g_datalist_Get_data(dl:PPGData;k : Pgchar):gpointer;
-procedure g_datalist_set_data_full(dl:PPGData;k:Pgchar;d:gpointer;f : TGDestroyNotify);
-procedure g_datalist_remove_no_notify(dl:PPGdata;k : Pgchar);
-procedure g_datalist_set_data(dl:PPGdata;k:Pgchar;d : pointer);
-procedure g_datalist_remove_data(dl:PPGdata;k : Pgchar);
-
-procedure g_dataset_destroy(dataset_location:gconstpointer);cdecl;external glibdll name 'g_dataset_destroy';
-function  g_dataset_id_get_data(dataset_location:gconstpointer; key_id:TGQuark):gpointer;cdecl;external glibdll name 'g_dataset_id_get_data';
-procedure g_dataset_id_set_data_full(dataset_location:gconstpointer; key_id:TGQuark; data:gpointer; destroy_func:TGDestroyNotify);cdecl;external glibdll name 'g_dataset_id_set_data_full';
-procedure g_dataset_id_remove_no_notify(dataset_location:gconstpointer; key_id:TGQuark);cdecl;external glibdll name 'g_dataset_id_remove_no_notify';
-procedure g_dataset_foreach(dataset_location:gconstpointer; func:TGDataForeachFunc; user_data:gpointer);cdecl;external glibdll name 'g_dataset_foreach';
-procedure g_dataset_id_set_data(l:gconstpointer;k:TGQuark;d : gconstpointer);
-procedure g_dataset_id_remove_data(l : gconstpointer;k:TGQuark);
-function  g_dataset_get_data(l : gconstpointer;k:Pgchar) : gconstpointer;
-procedure g_dataset_set_data_full(l:gconstpointer;k:Pgchar;d:pointer;f : TGDestroynotify);
-procedure g_dataset_remove_no_notify(l : gconstpointer;k:Pgchar);
-procedure g_dataset_set_data(l:gconstpointer;k:Pgchar;d:pointer);
-procedure g_dataset_remove_data(l : gconstpointer;k:Pgchar);
-
-function  case_sensitive(var a : TGScannerConfig) : guint;
-procedure set_case_sensitive(var a : TGScannerConfig; __case_sensitive : guint);
-function  skip_comment_multi(var a : TGScannerConfig) : guint;
-procedure set_skip_comment_multi(var a : TGScannerConfig; __skip_comment_multi : guint);
-function  skip_comment_single(var a : TGScannerConfig) : guint;
-procedure set_skip_comment_single(var a : TGScannerConfig; __skip_comment_single : guint);
-function  scan_comment_multi(var a : TGScannerConfig) : guint;
-procedure set_scan_comment_multi(var a : TGScannerConfig; __scan_comment_multi : guint);
-function  scan_identifier(var a : TGScannerConfig) : guint;
-procedure set_scan_identifier(var a : TGScannerConfig; __scan_identifier : guint);
-function  scan_identifier_1char(var a : TGScannerConfig) : guint;
-procedure set_scan_identifier_1char(var a : TGScannerConfig; __scan_identifier_1char : guint);
-function  scan_identifier_NULL(var a : TGScannerConfig) : guint;
-procedure set_scan_identifier_NULL(var a : TGScannerConfig; __scan_identifier_NULL : guint);
-function  scan_symbols(var a : TGScannerConfig) : guint;
-procedure set_scan_symbols(var a : TGScannerConfig; __scan_symbols : guint);
-function  scan_binary(var a : TGScannerConfig) : guint;
-procedure set_scan_binary(var a : TGScannerConfig; __scan_binary : guint);
-function  scan_octal(var a : TGScannerConfig) : guint;
-procedure set_scan_octal(var a : TGScannerConfig; __scan_octal : guint);
-function  scan_float(var a : TGScannerConfig) : guint;
-procedure set_scan_float(var a : TGScannerConfig; __scan_float : guint);
-function  scan_hex(var a : TGScannerConfig) : guint;
-procedure set_scan_hex(var a : TGScannerConfig; __scan_hex : guint);
-function  scan_hex_dollar(var a : TGScannerConfig) : guint;
-procedure set_scan_hex_dollar(var a : TGScannerConfig; __scan_hex_dollar : guint);
-function  scan_string_sq(var a : TGScannerConfig) : guint;cdecl;
-procedure set_scan_string_sq(var a : TGScannerConfig; __scan_string_sq : guint);cdecl;
-function  scan_string_dq(var a : TGScannerConfig) : guint;cdecl;
-procedure set_scan_string_dq(var a : TGScannerConfig; __scan_string_dq : guint);cdecl;
-function  numbers_2_int(var a : TGScannerConfig) : guint;
-procedure set_numbers_2_int(var a : TGScannerConfig; __numbers_2_int : guint);
-function  int_2_float(var a : TGScannerConfig) : guint;
-procedure set_int_2_float(var a : TGScannerConfig; __int_2_float : guint);
-function  identifier_2_string(var a : TGScannerConfig) : guint;
-procedure set_identifier_2_string(var a : TGScannerConfig; __identifier_2_string : guint);
-function  char_2_token(var a : TGScannerConfig) : guint;
-procedure set_char_2_token(var a : TGScannerConfig; __char_2_token : guint);
-function  symbol_2_token(var a : TGScannerConfig) : guint;
-procedure set_symbol_2_token(var a : TGScannerConfig; __symbol_2_token : guint);
-function  scope_0_fallback(var a : TGScannerConfig) : guint;
-procedure set_scope_0_fallback(var a : TGScannerConfig; __scope_0_fallback : guint);
-
-function  g_scanner_new(config_templ:PGScannerConfig):PGScanner;cdecl;external glibdll name 'g_scanner_new';
-procedure g_scanner_destroy(scanner:PGScanner);cdecl;external glibdll name 'g_scanner_destroy';
-procedure g_scanner_input_file(scanner:PGScanner; input_fd:gint);cdecl;external glibdll name 'g_scanner_input_file';
-procedure g_scanner_sync_file_offset(scanner:PGScanner);cdecl;external glibdll name 'g_scanner_sync_file_offset';
-procedure g_scanner_input_text(scanner:PGScanner; text:Pgchar; text_len:guint);cdecl;external glibdll name 'g_scanner_input_text';
-function  g_scanner_get_next_token(scanner:PGScanner):TGTokenType;cdecl;external glibdll name 'g_scanner_get_next_token';
-function  g_scanner_peek_next_token(scanner:PGScanner):TGTokenType;cdecl;external glibdll name 'g_scanner_peek_next_token';
-function  g_scanner_cur_token(scanner:PGScanner):TGTokenType;cdecl;external glibdll name 'g_scanner_cur_token';
-function  g_scanner_cur_value(scanner:PGScanner):TGTokenValue;cdecl;external glibdll name 'g_scanner_cur_value';
-function  g_scanner_cur_line(scanner:PGScanner):guint;cdecl;external glibdll name 'g_scanner_cur_line';
-function  g_scanner_cur_position(scanner:PGScanner):guint;cdecl;external glibdll name 'g_scanner_cur_position';
-function  g_scanner_eof(scanner:PGScanner):gboolean;cdecl;external glibdll name 'g_scanner_eof';
-function  g_scanner_set_scope(scanner:PGScanner; scope_id:guint):guint;cdecl;external glibdll name 'g_scanner_set_scope';
-procedure g_scanner_scope_add_symbol(scanner:PGScanner; scope_id:guint; symbol:Pgchar; value:gpointer);cdecl;external glibdll name 'g_scanner_scope_add_symbol';
-procedure g_scanner_scope_remove_symbol(scanner:PGScanner; scope_id:guint; symbol:Pgchar);cdecl;external glibdll name 'g_scanner_scope_remove_symbol';
-function  g_scanner_scope_lookup_symbol(scanner:PGScanner; scope_id:guint; symbol:Pgchar):gpointer;cdecl;external glibdll name 'g_scanner_scope_lookup_symbol';
-procedure g_scanner_scope_foreach_symbol(scanner:PGScanner; scope_id:guint; func:TGHFunc; user_data:gpointer);cdecl;external glibdll name 'g_scanner_scope_foreach_symbol';
-function  g_scanner_lookup_symbol(scanner:PGScanner; symbol:Pgchar):gpointer;cdecl;external glibdll name 'g_scanner_lookup_symbol';
-procedure g_scanner_freeze_symbol_table(scanner:PGScanner);cdecl;external glibdll name 'g_scanner_freeze_symbol_table';
-procedure g_scanner_thaw_symbol_table(scanner:PGScanner);cdecl;external glibdll name 'g_scanner_thaw_symbol_table';
-procedure g_scanner_unexp_token(scanner:PGScanner; expected_token:TGTokenType; identifier_spec:Pgchar; symbol_spec:Pgchar; symbol_name:Pgchar; message:Pgchar; is_error:gint);cdecl;external glibdll name 'g_scanner_unexp_token';
-function  g_scanner_stat_mode(filename:Pgchar):gint;cdecl;external glibdll name 'g_scanner_stat_mode';
-
-type
-     PGCompletion = ^TGCompletion;
-     TGCompletion = record
-          items : PGList;
-          func : TGCompletionFunc;
-          prefix : Pgchar;
-          cache : PGList;
-       end;
-
-function  g_completion_new(func:TGCompletionFunc):PGCompletion;cdecl;external glibdll name 'g_completion_new';
-procedure g_completion_add_items(cmp:PGCompletion; items:PGList);cdecl;external glibdll name 'g_completion_add_items';
-procedure g_completion_remove_items(cmp:PGCompletion; items:PGList);cdecl;external glibdll name 'g_completion_remove_items';
-procedure g_completion_clear_items(cmp:PGCompletion);cdecl;external glibdll name 'g_completion_clear_items';
-function  g_completion_complete(cmp:PGCompletion; prefix:Pgchar; new_prefix:PPgchar):PGList;cdecl;external glibdll name 'g_completion_complete';
-procedure g_completion_free(cmp:PGCompletion);cdecl;external glibdll name 'g_completion_free';
-
-    type
-       TGDateYear = guint16;
-       TGDateDay = guint8;
-
-       TGDateDMY = longint;
-const
-       G_DATEDMY_DAY = 0;
-       G_DATEDMY_MONTH = 1;
-       G_DATEDMY_YEAR = 2;
-
-type
-       TGDateWeekday = longint;
-const
-       G_DATE_BAD_WEEKDAY = 0;
-       G_DATE_MONDAY = 1;
-         G_DATE_TUESDAY = 2;
-         G_DATE_WEDNESDAY = 3;
-         G_DATE_THURSDAY = 4;
-         G_DATE_FRIDAY = 5;
-         G_DATE_SATURDAY = 6;
-         G_DATE_SUNDAY = 7;
-
-type
-       TGDateMonth = longint;
-const
-         G_DATE_BAD_MONTH = 0;
-         G_DATE_JANUARY = 1;
-         G_DATE_FEBRUARY = 2;
-         G_DATE_MARCH = 3;
-         G_DATE_APRIL = 4;
-         G_DATE_MAY = 5;
-         G_DATE_JUNE = 6;
-         G_DATE_JULY = 7;
-         G_DATE_AUGUST = 8;
-         G_DATE_SEPTEMBER = 9;
-         G_DATE_OCTOBER = 10;
-         G_DATE_NOVEMBER = 11;
-         G_DATE_DECEMBER = 12;
-
-    const
-       G_DATE_BAD_JULIAN = 0;
-       G_DATE_BAD_DAY = 0;
-       G_DATE_BAD_YEAR = 0;
-
-    type
-       PGDate = ^TGDate;
-       TGDate = record
-            flag0 : longint;
-            flag1 : longint;
-         end;
-
-    const
-       bm_TGDate_julian_days = $FFFFFFFF;
-       bp_TGDate_julian_days = 0;
-       bm_TGDate_julian = $1;
-       bp_TGDate_julian = 0;
-       bm_TGDate_dmy = $2;
-       bp_TGDate_dmy = 1;
-       bm_TGDate_day = $FC;
-       bp_TGDate_day = 2;
-       bm_TGDate_month = $F00;
-       bp_TGDate_month = 8;
-       bm_TGDate_year = $FFFF000;
-       bp_TGDate_year = 12;
-function  julian_days(var a : TGDate) : guint;
-procedure set_julian_days(var a : TGDate; __julian_days : guint);
-function  julian(var a : TGDate) : guint;
-procedure set_julian(var a : TGDate; __julian : guint);
-function  dmy(var a : TGDate) : guint;
-procedure set_dmy(var a : TGDate; __dmy : guint);
-function  day(var a : TGDate) : guint;
-procedure set_day(var a : TGDate; __day : guint);
-function  month(var a : TGDate) : guint;
-procedure set_month(var a : TGDate; __month : guint);
-function  year(var a : TGDate) : guint;
-procedure set_year(var a : TGDate; __year : guint);
-
-function  g_date_new:PGDate;cdecl;external glibdll name 'g_date_new';
-function  g_date_new_dmy(day:TGDateDay; month:TGDateMonth; year:TGDateYear):PGDate;cdecl;external glibdll name 'g_date_new_dmy';
-function  g_date_new_julian(julian_day:guint32):PGDate;cdecl;external glibdll name 'g_date_new_julian';
-procedure g_date_free(date:PGDate);cdecl;external glibdll name 'g_date_free';
-function  g_date_valid(date:PGDate):gboolean;cdecl;external glibdll name 'g_date_valid';
-function  g_date_valid_day(day:TGDateDay):gboolean;cdecl;external glibdll name 'g_date_valid_day';
-function  g_date_valid_month(month:TGDateMonth):gboolean;cdecl;external glibdll name 'g_date_valid_month';
-function  g_date_valid_year(year:TGDateYear):gboolean;cdecl;external glibdll name 'g_date_valid_year';
-function  g_date_valid_weekday(weekday:TGDateWeekday):gboolean;cdecl;external glibdll name 'g_date_valid_weekday';
-function  g_date_valid_julian(julian_date:guint32):gboolean;cdecl;external glibdll name 'g_date_valid_julian';
-function  g_date_valid_dmy(day:TGDateDay; month:TGDateMonth; year:TGDateYear):gboolean;cdecl;external glibdll name 'g_date_valid_dmy';
-function  g_date_weekday(date:PGDate):TGDateWeekday;cdecl;external glibdll name 'g_date_weekday';
-function  g_date_month(date:PGDate):TGDateMonth;cdecl;external glibdll name 'g_date_month';
-function  g_date_year(date:PGDate):TGDateYear;cdecl;external glibdll name 'g_date_year';
-function  g_date_day(date:PGDate):TGDateDay;cdecl;external glibdll name 'g_date_day';
-function  g_date_julian(date:PGDate):guint32;cdecl;external glibdll name 'g_date_julian';
-function  g_date_day_of_year(date:PGDate):guint;cdecl;external glibdll name 'g_date_day_of_year';
-function  g_date_monday_week_of_year(date:PGDate):guint;cdecl;external glibdll name 'g_date_monday_week_of_year';
-function  g_date_sunday_week_of_year(date:PGDate):guint;cdecl;external glibdll name 'g_date_sunday_week_of_year';
-procedure g_date_clear(date:PGDate; n_dates:guint);cdecl;external glibdll name 'g_date_clear';
-procedure g_date_set_parse(date:PGDate; str:Pgchar);cdecl;external glibdll name 'g_date_set_parse';
-procedure g_date_set_time(date:PGDate; time:TGTime);cdecl;external glibdll name 'g_date_set_time';
-procedure g_date_set_month(date:PGDate; month:TGDateMonth);cdecl;external glibdll name 'g_date_set_month';
-procedure g_date_set_day(date:PGDate; day:TGDateDay);cdecl;external glibdll name 'g_date_set_day';
-procedure g_date_set_year(date:PGDate; year:TGDateYear);cdecl;external glibdll name 'g_date_set_year';
-procedure g_date_set_dmy(date:PGDate; day:TGDateDay; month:TGDateMonth; y:TGDateYear);cdecl;external glibdll name 'g_date_set_dmy';
-procedure g_date_set_julian(date:PGDate; julian_date:guint32);cdecl;external glibdll name 'g_date_set_julian';
-function  g_date_is_first_of_month(date:PGDate):gboolean;cdecl;external glibdll name 'g_date_is_first_of_month';
-function  g_date_is_last_of_month(date:PGDate):gboolean;cdecl;external glibdll name 'g_date_is_last_of_month';
-procedure g_date_add_days(date:PGDate; n_days:guint);cdecl;external glibdll name 'g_date_add_days';
-procedure g_date_subtract_days(date:PGDate; n_days:guint);cdecl;external glibdll name 'g_date_subtract_days';
-procedure g_date_add_months(date:PGDate; n_months:guint);cdecl;external glibdll name 'g_date_add_months';
-procedure g_date_subtract_months(date:PGDate; n_months:guint);cdecl;external glibdll name 'g_date_subtract_months';
-procedure g_date_add_years(date:PGDate; n_years:guint);cdecl;external glibdll name 'g_date_add_years';
-procedure g_date_subtract_years(date:PGDate; n_years:guint);cdecl;external glibdll name 'g_date_subtract_years';
-function  g_date_is_leap_year(year:TGDateYear):gboolean;cdecl;external glibdll name 'g_date_is_leap_year';
-function  g_date_days_in_month(month:TGDateMonth; year:TGDateYear):guint8;cdecl;external glibdll name 'g_date_days_in_month';
-function  g_date_monday_weeks_in_year(year:TGDateYear):guint8;cdecl;external glibdll name 'g_date_monday_weeks_in_year';
-function  g_date_sunday_weeks_in_year(year:TGDateYear):guint8;cdecl;external glibdll name 'g_date_sunday_weeks_in_year';
-function  g_date_compare(lhs:PGDate; rhs:PGDate):gint;cdecl;external glibdll name 'g_date_compare';
-procedure g_date_to_struct_tm(date:PGDate; tm:ptm);cdecl;external glibdll name 'g_date_to_struct_tm';
-function  g_date_strftime(s:Pgchar; slen:gsize; format:Pgchar; date:PGDate):gsize;cdecl;external glibdll name 'g_date_strftime';
-function  g_relation_new(fields:gint):PGRelation;cdecl;external glibdll name 'g_relation_new';
-procedure g_relation_destroy(relation:PGRelation);cdecl;external glibdll name 'g_relation_destroy';
-procedure g_relation_index(relation:PGRelation; field:gint; hash_func:TGHashFunc; key_compare_func:TGCompareFunc);cdecl;external glibdll name 'g_relation_index';
-procedure g_relation_insert(relation:PGRelation; args:array of const);cdecl;external glibdll name 'g_relation_insert';
-function  g_relation_delete(relation:PGRelation; key:gconstpointer; field:gint):gint;cdecl;external glibdll name 'g_relation_delete';
-function  g_relation_select(relation:PGRelation; key:gconstpointer; field:gint):PGTuples;cdecl;external glibdll name 'g_relation_select';
-function  g_relation_count(relation:PGRelation; key:gconstpointer; field:gint):gint;cdecl;external glibdll name 'g_relation_count';
-function  g_relation_exists(relation:PGRelation; args:array of const):gboolean;cdecl;external glibdll name 'g_relation_exists';
-procedure g_relation_print(relation:PGRelation);cdecl;external glibdll name 'g_relation_print';
-procedure g_tuples_destroy(tuples:PGTuples);cdecl;external glibdll name 'g_tuples_destroy';
-function  g_tuples_index(tuples:PGTuples; index:gint; field:gint):gpointer;cdecl;external glibdll name 'g_tuples_index';
-function  g_spaced_primes_closest(num:guint):guint;cdecl;external glibdll name 'g_spaced_primes_closest';
-
-    type
-       TGIOError = longint;
-    const
-       G_IO_ERROR_NONE = 0;
-       G_IO_ERROR_AGAIN = 1;
-       G_IO_ERROR_INVAL = 2;
-       G_IO_ERROR_UNKNOWN = 3;
-
-    type
-       TGSeekType = longint;
-    const
-       G_SEEK_CUR = 0;
-       G_SEEK_SET = 1;
-       G_SEEK_END = 2;
-
-       G_IO_IN    = 1;
-       G_IO_OUT   = 4;
-       G_IO_PRI   = 2;
-       G_IO_ERR   = 8;
-
-       G_IO_HUP   = 16;
-       G_IO_NVAL  = 32;
-
-    type
-       TGIOCondition = longint;
-
-       PGIOFuncs = ^TGIOFuncs;
-
-       PGIOChannel = ^TGIOChannel;
-       TGIOChannel = record
-            channel_flags : guint;
-            ref_count : guint;
-            funcs : PGIOFuncs;
-         end;
-
-       TGIOFunc = function (source:PGIOChannel; condition:TGIOCondition; data:gpointer):gboolean;cdecl;
-
-       TGIOFuncs = record
-            io_read : function (channel:PGIOChannel; buf:Pgchar; count:guint; bytes_read:Pguint):TGIOError;cdecl;
-            io_write : function (channel:PGIOChannel; buf:Pgchar; count:guint; bytes_written:Pguint):TGIOError;cdecl;
-            io_seek : function (channel:PGIOChannel; offset:gint; thetype:TGSeekType):TGIOError;cdecl;
-            io_close : procedure (channel:PGIOChannel);cdecl;
-            io_add_watch : function (channel:PGIOChannel; priority:gint; condition:TGIOCondition; func:TGIOFunc; user_data:gpointer; notify:TGDestroyNotify):guint;cdecl;
-            io_free : procedure (channel:PGIOChannel);cdecl;
-         end;
-
-procedure g_io_channel_init(channel:PGIOChannel);cdecl;external glibdll name 'g_io_channel_init';
-procedure g_io_channel_ref(channel:PGIOChannel);cdecl;external glibdll name 'g_io_channel_ref';
-procedure g_io_channel_unref(channel:PGIOChannel);cdecl;external glibdll name 'g_io_channel_unref';
-function  g_io_channel_read(channel:PGIOChannel; buf:Pgchar; count:guint; bytes_read:Pguint):TGIOError;cdecl;external glibdll name 'g_io_channel_read';
-function  g_io_channel_write(channel:PGIOChannel; buf:Pgchar; count:guint; bytes_written:Pguint):TGIOError;cdecl;external glibdll name 'g_io_channel_write';
-function  g_io_channel_seek(channel:PGIOChannel; offset:gint; thetype:TGSeekType):TGIOError;cdecl;external glibdll name 'g_io_channel_seek';
-procedure g_io_channel_close(channel:PGIOChannel);cdecl;external glibdll name 'g_io_channel_close';
-function  g_io_add_watch_full(channel:PGIOChannel; priority:gint; condition:TGIOCondition; func:TGIOFunc; user_data:gpointer; notify:TGDestroyNotify):guint;cdecl;external glibdll name 'g_io_add_watch_full';
-function  g_io_add_watch(channel:PGIOChannel; condition:TGIOCondition; func:TGIOFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_io_add_watch';
-
-    type
-       PGTimeVal = ^TGTimeVal;
-       TGTimeVal = record
-            tv_sec : glong;
-            tv_usec : glong;
-         end;
-
-       PGSourceFuncs = ^TGSourceFuncs;
-       TGSourceFuncs = record
-            prepare : function (source_data:gpointer; current_time:PGTimeVal; timeout:Pgint; user_data:gpointer):gboolean;cdecl;
-            check : function (source_data:gpointer; current_time:PGTimeVal; user_data:gpointer):gboolean;cdecl;
-            dispatch : function (source_data:gpointer; current_time:PGTimeVal; user_data:gpointer):gboolean;cdecl;
-            destroy : TGDestroyNotify;
-         end;
-
-    const
-       G_PRIORITY_HIGH = -100;
-       G_PRIORITY_DEFAULT = 0;
-       G_PRIORITY_HIGH_IDLE = 100;
-       G_PRIORITY_DEFAULT_IDLE = 200;
-       G_PRIORITY_LOW = 300;
-
-    type
-       TGSourceFunc = function (data:gpointer):gboolean;cdecl;
-
-function  g_source_add(priority:gint; can_recurse:gboolean; funcs:PGSourceFuncs; source_data:gpointer; user_data:gpointer; notify:TGDestroyNotify):guint;cdecl;external glibdll name 'g_source_add';
-function  g_source_remove(tag:guint):gboolean;cdecl;external glibdll name 'g_source_remove';
-function  g_source_remove_by_user_data(user_data:gpointer):gboolean;cdecl;external glibdll name 'g_source_remove_by_user_data';
-function  g_source_remove_by_source_data(source_data:gpointer):gboolean;cdecl;external glibdll name 'g_source_remove_by_source_data';
-function  g_source_remove_by_funcs_user_data(funcs:PGSourceFuncs; user_data:gpointer):gboolean;cdecl;external glibdll name 'g_source_remove_by_funcs_user_data';
-procedure g_get_current_time(result:PGTimeVal);cdecl;external glibdll name 'g_get_current_time';
-function  g_main_new(is_running:gboolean):PGMainLoop;cdecl;external glibdll name 'g_main_new';
-procedure g_main_run(loop:PGMainLoop);cdecl;external glibdll name 'g_main_run';
-procedure g_main_quit(loop:PGMainLoop);cdecl;external glibdll name 'g_main_quit';
-procedure g_main_destroy(loop:PGMainLoop);cdecl;external glibdll name 'g_main_destroy';
-function  g_main_is_running(loop:PGMainLoop):gboolean;cdecl;external glibdll name 'g_main_is_running';
-function  g_main_iteration(may_block:gboolean):gboolean;cdecl;external glibdll name 'g_main_iteration';
-function  g_main_pending:gboolean;cdecl;external glibdll name 'g_main_pending';
-function  g_timeout_add_full(priority:gint; interval:guint; thefunction:TGSourceFunc; data:gpointer; notify:TGDestroyNotify):guint;cdecl;external glibdll name 'g_timeout_add_full';
-function  g_timeout_add(interval:guint; thefunction:TGSourceFunc; data:gpointer):guint;cdecl;external glibdll name 'g_timeout_add';
-function  g_idle_add(thefunction:TGSourceFunc; data:gpointer):guint;cdecl;external glibdll name 'g_idle_add';
-function  g_idle_add_full(priority:gint; thefunction:TGSourceFunc; data:gpointer; destroy:TGDestroyNotify):guint;cdecl;external glibdll name 'g_idle_add_full';
-function  g_idle_remove_by_data(data:gpointer):gboolean;cdecl;external glibdll name 'g_idle_remove_by_data';
-
-    type
-       PGPollFD = ^TGPollFD;
-       TGPollFD = record
-            fd : gint;
-            events : gushort;
-            revents : gushort;
-         end;
-
-       TGPollFunc = function (ufds:PGPollFD; nfsd:guint; timeout:gint):gint;cdecl;
-
-procedure g_main_add_poll(fd:PGPollFD; priority:gint);cdecl;external glibdll name 'g_main_add_poll';
-procedure g_main_remove_poll(fd:PGPollFD);cdecl;external glibdll name 'g_main_remove_poll';
-procedure g_main_set_poll_func(func:TGPollFunc);cdecl;external glibdll name 'g_main_set_poll_func';
-function  g_io_channel_unix_new(fd:longint):PGIOChannel;cdecl;external glibdll name 'g_io_channel_unix_new';
-function  g_io_channel_unix_get_fd(channel:PGIOChannel):gint;cdecl;external glibdll name 'g_io_channel_unix_get_fd';
-
-
-implementation
-
-function  g_list_previous(list : PGlist) : PGlist;
-begin
-  if list<>nil then
-    g_list_previous:=(PGList(list))^.prev
-  else
-    g_list_previous:=NULL;
-end;
-
-function  g_list_next(list : PGlist) : PGlist;
-begin
-  if list<>nil then
-    g_list_next:=(PGList(list))^.next
-  else
-    g_list_next:=NULL;
-end;
-
-function  g_slist_next(slist : PGSList) : PGSList;
-begin
-  if slist<>nil then
-    g_slist_next:=(PGSList(slist))^.next
-  else
-    g_slist_next:=NULL;
-end;
-
-function  G_NODE_IS_ROOT(node : PGNode) : boolean;
-begin
-  G_NODE_IS_ROOT:={((((PGNode(node))^.parent) = (NULL and (@((PGNode(node))^.prev)))) = (NULL and (@((PGNode(node))^.next)))) = NULL; }false;
-end;
-
-function  G_NODE_IS_LEAF(node : PGNode) : boolean;
-begin
-  G_NODE_IS_LEAF:=((PGNode(node))^.children) = NULL;
-end;
-
-function  g_node_append(parent,node : PGNode) : PGNode;
-begin
-  g_node_append:=g_node_insert_before(parent,NULL,node);
-end;
-
-function  g_node_insert_data(parent: PGNode;position:gint;data:pointer) : PGNode;
-begin
-  g_node_insert_data:=g_node_insert(parent,position,g_node_new(data));
-end;
-
-function  g_node_insert_data_before(parent,sibling : PGNode;data:pointer) : PGNode;
-begin
-  g_node_insert_data_before:=g_node_insert_before(parent,sibling,g_node_new(data));
-end;
-
-function  g_node_prepend_data(parent:PGNode;data : pointer) : PGNode;
-begin
-  g_node_prepend_data:=g_node_prepend(parent,g_node_new(data));
-end;
-
-function  g_node_append_data(parent : PGNode;data:pointer) : PGNode;
-begin
-  g_node_append_data:=g_node_insert_before(parent,NULL,g_node_new(data));
-end;
-
-function  g_node_prev_sibling(node : PGnode) : PGNode;
-begin
-  if node<>nil then
-    g_node_prev_sibling:=(PGNode(node))^.prev
-  else
-    g_node_prev_sibling:=NULL;
-end;
-
-function  g_node_next_sibling(node : PGNode) : PGNode;
-begin
-  if node<>nil then
-    g_node_next_sibling:=(PGNode(node))^.next
-  else
-    g_node_next_sibling:=NULL;
-end;
-
-function  g_node_first_child(node : PGNode) : PGNode;
-begin
-  if node<>nil then
-    g_node_first_child:=(PGNode(node))^.children
-  else
-    g_node_first_child:=NULL;
-end;
-
-function G_HOOK_DEFERRED_DESTROY : TGHookFreeFunc;
-begin
-  G_HOOK_DEFERRED_DESTROY:=TGHookFreeFunc($01);
-end;
-
-function  is_setup(var a : TGHookList) : guint;
-      begin
-        is_setup:=(a.flag0 and bm_TGHookList_is_setup) shr bp_TGHookList_is_setup;
-      end;
-
-procedure set_is_setup(var a : TGHookList; __is_setup : guint);
-      begin
-         a.flag0:=a.flag0 or ((__is_setup shl bp_TGHookList_is_setup) and bm_TGHookList_is_setup);
-      end;
-
-function  G_HOOK_ACTIVE(hook : PGHook) : boolean;
-begin
-  G_HOOK_ACTIVE:=(((PGHook(hook))^.flags) and cardinal(G_HOOK_FLAG_ACTIVE)) <> 0;
-end;
-
-function  G_HOOK_IN_CALL(hook : PGHook) : boolean;
-begin
-  G_HOOK_IN_CALL:=(((PGHook(hook))^.flags) and cardinal(G_HOOK_FLAG_IN_CALL)) <> 0;
-end;
-
-function  G_HOOK_IS_VALID(hook : PGHook) : boolean;
-begin
-  G_HOOK_IS_VALID:=(hook^.hook_id<>0) and G_HOOK_ACTIVE(hook);
-end;
-
-function  G_HOOK_IS_UNLINKED(hook : PGHook) : boolean;
-begin
-  G_HOOK_IS_UNLINKED:=(hook^.next=NULL) and (hook^.prev=NULL) and (hook^.hook_id=0) and (hook^.ref_count = 0);
-end;
-
-procedure g_hook_append(hook_list:PGhooklist;hook : PGHook);
-begin
-  g_hook_insert_before(hook_list,nil,hook);
-end;
-
-function  g_strstrip(thestring : Pgchar) : Pgchar;
-begin
-  g_strstrip:=g_strchomp(g_strchug(thestring));
-end;
-
-function  g_array_append_val(a:PGArray;v : longint) : PGarray;
-begin
-  g_array_append_val:=g_array_append_vals(a,@(v),1);
-end;
-
-function  g_array_prepend_val(a:PGArray;v : longint) : PGarray;
-begin
-  g_array_prepend_val:=g_array_prepend_vals(a,@(v),1);
-end;
-
-function  g_array_insert_val(a:PGArray;i:guint;v : longint) : PGarray;
-begin
-  g_array_insert_val:=g_array_insert_vals(a,i,@(v),1);
-end;
-
-procedure g_datalist_id_set_data(dl:PPGdata;q:TGQuark;d : pointer);
-begin
-  g_datalist_id_set_data_full(dl,q,d,NULL);
-end;
-
-procedure g_datalist_id_remove_data(dl:PPGData;q:TGQuark);
-begin
-  g_datalist_id_set_data(dl,q,NULL);
-end;
-
-function  g_datalist_Get_data(dl:PPGData;k : Pgchar):gpointer;
-begin
-  g_datalist_Get_data:=g_datalist_id_get_data(dl,g_quark_try_string(k));
-end;
-
-procedure g_datalist_set_data_full(dl:PPGData;k:Pgchar;d:gpointer;f : TGdestroynotify);
-begin
-  g_datalist_id_set_data_full(dl,g_quark_from_string(k),d,f);
-end;
-
-procedure g_datalist_remove_no_notify(dl:PPGdata;k : Pgchar);
-begin
-  g_datalist_id_remove_no_notify(dl,g_quark_try_string(k));
-end;
-
-procedure g_datalist_set_data(dl:PPGdata;k:Pgchar;d : pointer);
-begin
-  g_datalist_set_data_full(dl,k,d,NULL);
-end;
-
-procedure g_datalist_remove_data(dl:PPGdata;k : Pgchar);
-begin
-  g_datalist_id_set_data(dl,g_quark_try_string(k),NULL);
-end;
-
-procedure g_dataset_id_set_data(l:gconstpointer;k:TGQuark;d : gconstpointer);
-begin
-  g_dataset_id_set_data_full(l,k,d,NULL);
-end;
-
-procedure g_dataset_id_remove_data(l : gconstpointer;k:TGQuark);
-begin
-  g_dataset_id_set_data(l,k,NULL);
-end;
-
-function  g_dataset_get_data(l : gconstpointer;k:Pgchar) : gconstpointer;
-begin
-  g_dataset_get_data:=g_dataset_id_get_data(l,g_quark_try_string(k));
-end;
-
-procedure g_dataset_set_data_full(l:gconstpointer;k:Pgchar;d:pointer;f : TGDestroynotify);
-begin
-  g_dataset_id_set_data_full(l,g_quark_from_string(k),d,f);
-end;
-
-procedure g_dataset_remove_no_notify(l : gconstpointer;k:Pgchar);
-begin
-  g_dataset_id_remove_no_notify(l,g_quark_try_string(k));
-end;
-
-procedure g_dataset_set_data(l:gconstpointer;k:Pgchar;d:pointer);
-begin
-  g_dataset_set_data_full(l,k,d,NULL);
-end;
-
-procedure g_dataset_remove_data(l : gconstpointer;k:Pgchar);
-begin
-  g_dataset_id_set_data(l,g_quark_try_string(k),NULL);
-end;
-
-function  case_sensitive(var a : TGScannerConfig) : guint;
-      begin
-         case_sensitive:=(a.flag0 and bm_TGScannerConfig_case_sensitive) shr bp_TGScannerConfig_case_sensitive;
-      end;
-
-procedure set_case_sensitive(var a : TGScannerConfig; __case_sensitive : guint);
-      begin
-         a.flag0:=a.flag0 or ((__case_sensitive shl bp_TGScannerConfig_case_sensitive) and bm_TGScannerConfig_case_sensitive);
-      end;
-
-function  skip_comment_multi(var a : TGScannerConfig) : guint;
-      begin
-         skip_comment_multi:=(a.flag0 and bm_TGScannerConfig_skip_comment_multi) shr bp_TGScannerConfig_skip_comment_multi;
-      end;
-
-procedure set_skip_comment_multi(var a : TGScannerConfig; __skip_comment_multi : guint);
-      begin
-         a.flag0:=a.flag0 or ((__skip_comment_multi shl bp_TGScannerConfig_skip_comment_multi) and bm_TGScannerConfig_skip_comment_multi);
-      end;
-
-function  skip_comment_single(var a : TGScannerConfig) : guint;
-      begin
-         skip_comment_single:=(a.flag0 and bm_TGScannerConfig_skip_comment_single) shr bp_TGScannerConfig_skip_comment_single;
-      end;
-
-procedure set_skip_comment_single(var a : TGScannerConfig; __skip_comment_single : guint);
-      begin
-         a.flag0:=a.flag0 or ((__skip_comment_single shl bp_TGScannerConfig_skip_comment_single) and bm_TGScannerConfig_skip_comment_single);
-      end;
-
-function  scan_comment_multi(var a : TGScannerConfig) : guint;
-      begin
-         scan_comment_multi:=(a.flag0 and bm_TGScannerConfig_scan_comment_multi) shr bp_TGScannerConfig_scan_comment_multi;
-      end;
-
-procedure set_scan_comment_multi(var a : TGScannerConfig; __scan_comment_multi : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_comment_multi shl bp_TGScannerConfig_scan_comment_multi) and bm_TGScannerConfig_scan_comment_multi);
-      end;
-
-function  scan_identifier(var a : TGScannerConfig) : guint;
-      begin
-         scan_identifier:=(a.flag0 and bm_TGScannerConfig_scan_identifier) shr bp_TGScannerConfig_scan_identifier;
-      end;
-
-procedure set_scan_identifier(var a : TGScannerConfig; __scan_identifier : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_identifier shl bp_TGScannerConfig_scan_identifier) and bm_TGScannerConfig_scan_identifier);
-      end;
-
-function  scan_identifier_1char(var a : TGScannerConfig) : guint;
-      begin
-         scan_identifier_1char:=(a.flag0 and bm_TGScannerConfig_scan_identifier_1char) shr bp_TGScannerConfig_scan_identifier_1char;
-      end;
-
-procedure set_scan_identifier_1char(var a : TGScannerConfig; __scan_identifier_1char : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_identifier_1char shl bp_TGScannerConfig_scan_identifier_1char) and bm_TGScannerConfig_scan_identifier_1char);
-      end;
-
-function  scan_identifier_NULL(var a : TGScannerConfig) : guint;
-      begin
-         scan_identifier_NULL:=(a.flag0 and bm_TGScannerConfig_scan_identifier_NULL) shr bp_TGScannerConfig_scan_identifier_NULL;
-      end;
-
-procedure set_scan_identifier_NULL(var a : TGScannerConfig; __scan_identifier_NULL : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_identifier_NULL shl bp_TGScannerConfig_scan_identifier_NULL) and bm_TGScannerConfig_scan_identifier_NULL);
-      end;
-
-function  scan_symbols(var a : TGScannerConfig) : guint;
-      begin
-         scan_symbols:=(a.flag0 and bm_TGScannerConfig_scan_symbols) shr bp_TGScannerConfig_scan_symbols;
-      end;
-
-procedure set_scan_symbols(var a : TGScannerConfig; __scan_symbols : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_symbols shl bp_TGScannerConfig_scan_symbols) and bm_TGScannerConfig_scan_symbols);
-      end;
-
-function  scan_binary(var a : TGScannerConfig) : guint;
-      begin
-         scan_binary:=(a.flag0 and bm_TGScannerConfig_scan_binary) shr bp_TGScannerConfig_scan_binary;
-      end;
-
-procedure set_scan_binary(var a : TGScannerConfig; __scan_binary : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_binary shl bp_TGScannerConfig_scan_binary) and bm_TGScannerConfig_scan_binary);
-      end;
-
-function  scan_octal(var a : TGScannerConfig) : guint;
-      begin
-         scan_octal:=(a.flag0 and bm_TGScannerConfig_scan_octal) shr bp_TGScannerConfig_scan_octal;
-      end;
-
-procedure set_scan_octal(var a : TGScannerConfig; __scan_octal : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_octal shl bp_TGScannerConfig_scan_octal) and bm_TGScannerConfig_scan_octal);
-      end;
-
-function  scan_float(var a : TGScannerConfig) : guint;
-      begin
-         scan_float:=(a.flag0 and bm_TGScannerConfig_scan_float) shr bp_TGScannerConfig_scan_float;
-      end;
-
-procedure set_scan_float(var a : TGScannerConfig; __scan_float : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_float shl bp_TGScannerConfig_scan_float) and bm_TGScannerConfig_scan_float);
-      end;
-
-function  scan_hex(var a : TGScannerConfig) : guint;
-      begin
-         scan_hex:=(a.flag0 and bm_TGScannerConfig_scan_hex) shr bp_TGScannerConfig_scan_hex;
-      end;
-
-procedure set_scan_hex(var a : TGScannerConfig; __scan_hex : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_hex shl bp_TGScannerConfig_scan_hex) and bm_TGScannerConfig_scan_hex);
-      end;
-
-function  scan_hex_dollar(var a : TGScannerConfig) : guint;
-      begin
-         scan_hex_dollar:=(a.flag0 and bm_TGScannerConfig_scan_hex_dollar) shr bp_TGScannerConfig_scan_hex_dollar;
-      end;
-
-procedure set_scan_hex_dollar(var a : TGScannerConfig; __scan_hex_dollar : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scan_hex_dollar shl bp_TGScannerConfig_scan_hex_dollar) and bm_TGScannerConfig_scan_hex_dollar);
-      end;
-
-function  scan_string_sq(var a : TGScannerConfig) : guint;cdecl;
-      begin
-         scan_string_sq:=(a.flag0 and bm_TGScannerConfig_scan_string_sq) shr bp_TGScannerConfig_scan_string_sq;
-      end;
-
-procedure set_scan_string_sq(var a : TGScannerConfig; __scan_string_sq : guint);cdecl;
-      begin
-         a.flag0:=a.flag0 or ((__scan_string_sq shl bp_TGScannerConfig_scan_string_sq) and bm_TGScannerConfig_scan_string_sq);
-      end;
-
-function  scan_string_dq(var a : TGScannerConfig) : guint;cdecl;
-      begin
-         scan_string_dq:=(a.flag0 and bm_TGScannerConfig_scan_string_dq) shr bp_TGScannerConfig_scan_string_dq;
-      end;
-
-procedure set_scan_string_dq(var a : TGScannerConfig; __scan_string_dq : guint);cdecl;
-      begin
-         a.flag0:=a.flag0 or ((__scan_string_dq shl bp_TGScannerConfig_scan_string_dq) and bm_TGScannerConfig_scan_string_dq);
-      end;
-
-function  numbers_2_int(var a : TGScannerConfig) : guint;
-      begin
-         numbers_2_int:=(a.flag0 and bm_TGScannerConfig_numbers_2_int) shr bp_TGScannerConfig_numbers_2_int;
-      end;
-
-procedure set_numbers_2_int(var a : TGScannerConfig; __numbers_2_int : guint);
-      begin
-         a.flag0:=a.flag0 or ((__numbers_2_int shl bp_TGScannerConfig_numbers_2_int) and bm_TGScannerConfig_numbers_2_int);
-      end;
-
-function  int_2_float(var a : TGScannerConfig) : guint;
-      begin
-         int_2_float:=(a.flag0 and bm_TGScannerConfig_int_2_float) shr bp_TGScannerConfig_int_2_float;
-      end;
-
-procedure set_int_2_float(var a : TGScannerConfig; __int_2_float : guint);
-      begin
-         a.flag0:=a.flag0 or ((__int_2_float shl bp_TGScannerConfig_int_2_float) and bm_TGScannerConfig_int_2_float);
-      end;
-
-function  identifier_2_string(var a : TGScannerConfig) : guint;
-      begin
-         identifier_2_string:=(a.flag0 and bm_TGScannerConfig_identifier_2_string) shr bp_TGScannerConfig_identifier_2_string;
-      end;
-
-procedure set_identifier_2_string(var a : TGScannerConfig; __identifier_2_string : guint);
-      begin
-         a.flag0:=a.flag0 or ((__identifier_2_string shl bp_TGScannerConfig_identifier_2_string) and bm_TGScannerConfig_identifier_2_string);
-      end;
-
-function  char_2_token(var a : TGScannerConfig) : guint;
-      begin
-         char_2_token:=(a.flag0 and bm_TGScannerConfig_char_2_token) shr bp_TGScannerConfig_char_2_token;
-      end;
-
-procedure set_char_2_token(var a : TGScannerConfig; __char_2_token : guint);
-      begin
-         a.flag0:=a.flag0 or ((__char_2_token shl bp_TGScannerConfig_char_2_token) and bm_TGScannerConfig_char_2_token);
-      end;
-
-function  symbol_2_token(var a : TGScannerConfig) : guint;
-      begin
-         symbol_2_token:=(a.flag0 and bm_TGScannerConfig_symbol_2_token) shr bp_TGScannerConfig_symbol_2_token;
-      end;
-
-procedure set_symbol_2_token(var a : TGScannerConfig; __symbol_2_token : guint);
-      begin
-         a.flag0:=a.flag0 or ((__symbol_2_token shl bp_TGScannerConfig_symbol_2_token) and bm_TGScannerConfig_symbol_2_token);
-      end;
-
-function  scope_0_fallback(var a : TGScannerConfig) : guint;
-      begin
-         scope_0_fallback:=(a.flag0 and bm_TGScannerConfig_scope_0_fallback) shr bp_TGScannerConfig_scope_0_fallback;
-      end;
-
-procedure set_scope_0_fallback(var a : TGScannerConfig; __scope_0_fallback : guint);
-      begin
-         a.flag0:=a.flag0 or ((__scope_0_fallback shl bp_TGScannerConfig_scope_0_fallback) and bm_TGScannerConfig_scope_0_fallback);
-      end;
-
-function  julian_days(var a : TGDate) : guint;
-     begin
-        julian_days:=(a.flag0 and bm_TGDate_julian_days) shr bp_TGDate_julian_days;
-     end;
-
-procedure set_julian_days(var a : TGDate; __julian_days : guint);
-      begin
-         a.flag0:=a.flag0 or ((__julian_days shl bp_TGDate_julian_days) and bm_TGDate_julian_days);
-      end;
-
-function  julian(var a : TGDate) : guint;
-      begin
-         julian:=(a.flag0 and bm_TGDate_julian) shr bp_TGDate_julian;
-      end;
-
-procedure set_julian(var a : TGDate; __julian : guint);
-      begin
-         a.flag0:=a.flag0 or ((__julian shl bp_TGDate_julian) and bm_TGDate_julian);
-      end;
-
-function  dmy(var a : TGDate) : guint;
-      begin
-         dmy:=(a.flag0 and bm_TGDate_dmy) shr bp_TGDate_dmy;
-      end;
-
-procedure set_dmy(var a : TGDate; __dmy : guint);
-      begin
-         a.flag0:=a.flag0 or ((__dmy shl bp_TGDate_dmy) and bm_TGDate_dmy);
-      end;
-
-function  day(var a : TGDate) : guint;
-      begin
-         day:=(a.flag0 and bm_TGDate_day) shr bp_TGDate_day;
-      end;
-
-procedure set_day(var a : TGDate; __day : guint);
-      begin
-         a.flag0:=a.flag0 or ((__day shl bp_TGDate_day) and bm_TGDate_day);
-      end;
-
-function  month(var a : TGDate) : guint;
-      begin
-         month:=(a.flag0 and bm_TGDate_month) shr bp_TGDate_month;
-      end;
-
-procedure set_month(var a : TGDate; __month : guint);
-      begin
-         a.flag0:=a.flag0 or ((__month shl bp_TGDate_month) and bm_TGDate_month);
-      end;
-
-function  year(var a : TGDate) : guint;
-      begin
-         year:=(a.flag0 and bm_TGDate_year) shr bp_TGDate_year;
-      end;
-
-procedure set_year(var a : TGDate; __year : guint);
-      begin
-         a.flag0:=a.flag0 or ((__year shl bp_TGDate_year) and bm_TGDate_year);
-      end;
-
-end.

packages/extra/gtk/glib/gmodule.pp

@@ -1,87 +0,0 @@
-{
-
-   GMODULE - GLIB wrapper code for dynamic module loading
-   Copyright (C) 1998 Tim Janik
-
-   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.
-}
-unit gmodule;
-interface
-
-{$mode objfpc}
-
-{ Always use smartlinking for win32, this solves some undefined functions
-  in the development gtk versions which change often (PFV) }
-{$ifdef win32}
-  {$ifndef NO_SMART_LINK}
-    {$smartlink on}
-  {$endif}
-{$endif}
-
-uses
-  glib;
-
-{$ifdef win32}
-  const
-    gmoduledll='libgmodule-2.0-0';
-  {$define gtkwin}
-
-  {$packrecords C}
-{$else}
-  {$ifdef os2}
-    const
-      gmoduledll='gmodule';
-    {$define gtkos2}
-
-    {$packrecords C}
-  {$else}
-    const
-      gmoduledll='gmodule';
-
-    {$packrecords C}
-  {$endif}
-{$endif}
-
-{$ifndef gtkos2}
-    var
-       g_log_domain_gmodule : Pgchar;external gmoduledll name 'g_log_domain_gmodule';
-{$endif}
-
-    type
-       PGModule=pointer;
-
-       TGModuleFlags = longint;
-    const
-       G_MODULE_BIND_LAZY = 1 shl 0;
-       G_MODULE_BIND_MASK = 1;
-
-    type
-       TGModuleCheckInit = function (module:PGModule):Pgchar;cdecl;
-       TGModuleUnload = procedure (module:PGModule);cdecl;
-
-function  g_module_supported:gboolean;cdecl;external gmoduledll name 'g_module_supported';
-function  g_module_open(file_name:Pgchar; flags:TGModuleFlags):PGModule;cdecl;external gmoduledll name 'g_module_open';
-function  g_module_close(module:PGModule):gboolean;cdecl;external gmoduledll name 'g_module_close';
-procedure g_module_make_resident(module:PGModule);cdecl;external gmoduledll name 'g_module_make_resident';
-function  g_module_error:Pgchar;cdecl;external gmoduledll name 'g_module_error';
-function  g_module_symbol(module:PGModule; symbol_name:Pgchar; symbol:Pgpointer):gboolean;cdecl;external gmoduledll name 'g_module_symbol';
-function  g_module_name(module:PGModule):Pgchar;cdecl;external gmoduledll name 'g_module_name';
-function  g_module_build_path(directory:Pgchar; module_name:Pgchar):Pgchar;cdecl;external gmoduledll name 'g_module_build_path';
-
-
-implementation
-
-end.

packages/extra/gtk/gtk/gtk.pp

@@ -1,99 +0,0 @@
-{
-
-   GTK - The GIMP Toolkit
-   Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
-
-   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.
-
- **********************************************************************}
-unit gtk;
-interface
-
-{ Always use smartlinking for win32, this solves some undefined functions
-  in the development gtk versions which change often (PFV) }
-{$ifdef win32}
-  {$ifndef NO_SMART_LINK}
-    {$smartlink on}
-  {$endif}
-{$endif}
-
-{$mode objfpc} { needed for array of const }
-
-uses
-  glib,gdk;
-
-{$ifdef win32}
-  const
-    gtkdll='libgtk-0';
-  {$define gtkwin}
-
-  {$packrecords c}
-{$else}
-  {$ifdef os2}
-    const
-      gtkdll='gtk12';
-    {$define gtkos2}
-
-    {$packrecords c}
-  {$else}
-    const
-    {$ifdef FreeBSD}
-      gtkdll='gtk-12';
-      {$linklib gtk-12}
-    {$else}
-    {$ifdef darwin}
-      {$define gtkdarwin}
-      gtkdll='gtk-1.2.0';
-      {$linklib gtk-1.2.0}
-    {$else}
-      gtkdll='gtk';
-      {$linklib gtk}
-    {$endif darwin}
-    {$endif freebsd}
-    {$linklib c}
-    {$linklib Xi}
-    {$linklib Xext}
-    {$linklib X11}
-    {$linklib m}
-
-    {$packrecords C}
-  {$endif}
-{$endif}
-
-Type
-  PLongint  = ^Longint;
-  PByte     = ^Byte;
-  PWord     = ^Word;
-  PINteger  = ^Integer;
-  PCardinal = ^Cardinal;
-  PReal     = ^Real;
-  PDouble   = ^Double;
-
-{$define gtk_include_files}
-
-{$define read_interface}
-{$undef read_implementation}
-
-{$i gtkincludes.pp}
-
-  implementation
-
-{$undef read_interface}
-{$define read_implementation}
-
-{$i gtkincludes.pp}
-
-end.

packages/extra/gtk/gtk/gtkaccelerator.pp

@@ -1,39 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkAcceleratorTable = ^TGtkAcceleratorTable;
-       TGtkAcceleratorTable = record
-            entries : array[0..255] of PGList;
-            ref_count : guint;
-            modifier_mask : guint8;
-         end;
-
-{$ifndef win32}
-function  gtk_accelerator_table_new : PGtkAcceleratorTable;cdecl;external gtkdll name 'gtk_accelerator_table_new';
-function  gtk_accelerator_table_find (obj:PGtkObject; signal_name:Pgchar; accelerator_key:guchar; accelerator_mods:guint8): PGtkAcceleratorTable;cdecl;external gtkdll name 'gtk_accelerator_table_find';
-function  gtk_accelerator_table_ref (table:PGtkAcceleratorTable):PGtkAcceleratorTable;cdecl;external gtkdll name 'gtk_accelerator_table_ref';
-procedure gtk_accelerator_table_unref(table:PGtkAcceleratorTable);cdecl;external gtkdll name 'gtk_accelerator_table_unref';
-procedure gtk_accelerator_table_install(table:PGtkAcceleratorTable; obj:PGtkObject; signal_name:Pgchar; accelerator_key:guchar; accelerator_mods:guint8);cdecl;external gtkdll name 'gtk_accelerator_table_install';
-procedure gtk_accelerator_table_remove(table:PGtkAcceleratorTable; obj:PGtkObject; signal_name:Pgchar);cdecl;external gtkdll name 'gtk_accelerator_table_remove';
-function  gtk_accelerator_table_check(table:PGtkAcceleratorTable; accelerator_key:guchar; accelerator_mods:guint8):gint;cdecl;external gtkdll name 'gtk_accelerator_table_check';
-procedure gtk_accelerator_tables_delete(obj:PGtkObject);cdecl;external gtkdll name 'gtk_accelerator_tables_delete';
-procedure gtk_accelerator_table_set_mod_mask(table:PGtkAcceleratorTable; modifier_mask:guint8);cdecl;external gtkdll name 'gtk_accelerator_table_set_mod_mask';
-{$endif}
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-

packages/extra/gtk/gtk/gtkaccelgroup.pp

@@ -1,79 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     TGtkAccelFlags = (
-       GTK_ACCEL_VISIBLE := 1 shl 0,
-       GTK_ACCEL_SIGNAL_VISIBLE := 1 shl 1,
-       GTK_ACCEL_LOCKED := 1 shl 2,
-       GTK_ACCEL_MASK := $07
-       );
-
-     PGtkAccelGroup = ^TGtkAccelGroup;
-     TGtkAccelGroup = record
-          ref_count : guint;
-          lock_count : guint;
-          modifier_mask : TGdkModifierType;
-          attach_objects : PGSList;
-       end;
-
-     PGtkAccelEntry = ^TGtkAccelEntry;
-     TGtkAccelEntry = record
-          accel_group : PGtkAccelGroup;
-          accelerator_key : guint;
-          accelerator_mods : TGdkModifierType;
-          accel_flags : TGtkAccelFlags;
-          _object : PGtkObject;
-          signal_id : guint;
-       end;
-
-function  gtk_accel_group_new:PGtkAccelGroup;cdecl;external gtkdll name 'gtk_accel_group_new';
-function  gtk_accel_group_get_default:PGtkAccelGroup;cdecl;external gtkdll name 'gtk_accel_group_get_default';
-function  gtk_accel_group_ref(accel_group:PGtkAccelGroup):PGtkAccelGroup;cdecl;external gtkdll name 'gtk_accel_group_ref';
-procedure gtk_accel_group_unref(accel_group:PGtkAccelGroup);cdecl;external gtkdll name 'gtk_accel_group_unref';
-function  gtk_accel_group_activate(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType):gboolean;cdecl;external gtkdll name 'gtk_accel_group_activate';
-function  gtk_accel_groups_activate(_object:PGtkObject; accel_key:guint; accel_mods:TGdkModifierType):gboolean;cdecl;external gtkdll name 'gtk_accel_groups_activate';
-procedure gtk_accel_group_attach(accel_group:PGtkAccelGroup; _object:PGtkObject);cdecl;external gtkdll name 'gtk_accel_group_attach';
-procedure gtk_accel_group_detach(accel_group:PGtkAccelGroup; _object:PGtkObject);cdecl;external gtkdll name 'gtk_accel_group_detach';
-procedure gtk_accel_group_lock(accel_group:PGtkAccelGroup);cdecl;external gtkdll name 'gtk_accel_group_lock';
-procedure gtk_accel_group_unlock(accel_group:PGtkAccelGroup);cdecl;external gtkdll name 'gtk_accel_group_unlock';
-function  gtk_accel_group_get_entry(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType):PGtkAccelEntry;cdecl;external gtkdll name 'gtk_accel_group_get_entry';
-procedure gtk_accel_group_lock_entry(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType);cdecl;external gtkdll name 'gtk_accel_group_lock_entry';
-procedure gtk_accel_group_unlock_entry(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType);cdecl;external gtkdll name 'gtk_accel_group_unlock_entry';
-procedure gtk_accel_group_add(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType; accel_flags:TGtkAccelFlags; _object:PGtkObject; accel_signal:Pgchar);cdecl;external gtkdll name 'gtk_accel_group_add';
-procedure gtk_accel_group_remove(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType; _object:PGtkObject);cdecl;external gtkdll name 'gtk_accel_group_remove';
-procedure gtk_accel_group_handle_add(_object:PGtkObject; accel_signal_id:guint; accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType; accel_flags:TGtkAccelFlags);cdecl;external gtkdll name 'gtk_accel_group_handle_add';
-procedure gtk_accel_group_handle_remove(_object:PGtkObject; accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType);cdecl;external gtkdll name 'gtk_accel_group_handle_remove';
-function  gtk_accel_group_create_add(class_type:TGtkType; signal_flags:TGtkSignalRunType; handler_offset:guint):guint;cdecl;external gtkdll name 'gtk_accel_group_create_add';
-function  gtk_accel_group_create_remove(class_type:TGtkType; signal_flags:TGtkSignalRunType; handler_offset:guint):guint;cdecl;external gtkdll name 'gtk_accel_group_create_remove';
-{$ifndef gtkwin}
-{$ifndef darwin}
-procedure gtk_accel_group_marshal_add(_object:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_accel_group_marshal_add';
-procedure gtk_accel_group_marshal_remove(_object:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_accel_group_marshal_remove';
-{$endif}
-{$endif}
-function  gtk_accel_groups_from_object(_object:PGtkObject):PGSList;cdecl;external gtkdll name 'gtk_accel_groups_from_object';
-function  gtk_accel_group_entries_from_object(_object:PGtkObject):PGSList;cdecl;external gtkdll name 'gtk_accel_group_entries_from_object';
-function  gtk_accelerator_valid(keyval:guint; modifiers:TGdkModifierType):gboolean;cdecl;external gtkdll name 'gtk_accelerator_valid';
-procedure gtk_accelerator_parse(accelerator:Pgchar; accelerator_key:Pguint; accelerator_mods:PGdkModifierType);cdecl;external gtkdll name 'gtk_accelerator_parse';
-function  gtk_accelerator_name(accelerator_key:guint; accelerator_mods:TGdkModifierType):Pgchar;cdecl;external gtkdll name 'gtk_accelerator_name';
-procedure gtk_accelerator_set_default_mod_mask(default_mod_mask:TGdkModifierType);cdecl;external gtkdll name 'gtk_accelerator_set_default_mod_mask';
-function  gtk_accelerator_get_default_mod_mask:guint;cdecl;external gtkdll name 'gtk_accelerator_get_default_mod_mask';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkaccellabel.pp

@@ -1,87 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkAccelLabel = ^TGtkAccelLabel;
-     TGtkAccelLabel = record
-          _label : TGtkLabel;
-          queue_id : guint;
-          accel_padding : guint;
-          accel_widget : PGtkWidget;
-          accel_string : Pgchar;
-          accel_string_width : guint16;
-       end;
-
-     PGtkAccelLabelClass = ^TGtkAccelLabelClass;
-     TGtkAccelLabelClass = record
-          parent_class : TGtkLabelClass;
-          signal_quote1 : Pgchar;
-          signal_quote2 : Pgchar;
-          mod_name_shift : Pgchar;
-          mod_name_control : Pgchar;
-          mod_name_alt : Pgchar;
-          mod_separator : Pgchar;
-          accel_seperator : Pgchar;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-       end;
-
-const
-  bm_TGtkAccelLabelClass_latin1_to_char = $1;
-  bp_TGtkAccelLabelClass_latin1_to_char = 0;
-
-type
-  GTK_ACCEL_LABEL=PGtkAccelLabel;
-  GTK_ACCEL_LABEL_CLASS=PGtkAccelLabelClass;
-
-
-function  latin1_to_char(var a : TGtkAccelLabelClass) : guint;
-procedure set_latin1_to_char(var a : TGtkAccelLabelClass; __latin1_to_char : guint);
-
-function  GTK_ACCEL_LABEL_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_accel_label_get_type';
-function  GTK_IS_ACCEL_LABEL(obj:pointer):boolean;
-function  GTK_IS_ACCEL_LABEL_CLASS(klass:pointer):boolean;
-
-function  gtk_accel_label_get_type:TGtkType;cdecl;external gtkdll name 'gtk_accel_label_get_type';
-function  gtk_accel_label_new(thestring:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_accel_label_new';
-function  gtk_accel_label_get_accel_width(accel_label:PGtkAccelLabel):guint;cdecl;external gtkdll name 'gtk_accel_label_get_accel_width';
-procedure gtk_accel_label_set_accel_widget(accel_label:PGtkAccelLabel; accel_widget:PGtkWidget);cdecl;external gtkdll name 'gtk_accel_label_set_accel_widget';
-function  gtk_accel_label_refetch(accel_label:PGtkAccelLabel):gboolean;cdecl;external gtkdll name 'gtk_accel_label_refetch';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  latin1_to_char(var a : TGtkAccelLabelClass) : guint;
-    begin
-       latin1_to_char:=(a.flag0 and bm_TGtkAccelLabelClass_latin1_to_char) shr bp_TGtkAccelLabelClass_latin1_to_char;
-    end;
-
-procedure set_latin1_to_char(var a : TGtkAccelLabelClass; __latin1_to_char : guint);
-    begin
-       a.flag0:=a.flag0 or ((__latin1_to_char shl bp_TGtkAccelLabelClass_latin1_to_char) and bm_TGtkAccelLabelClass_latin1_to_char);
-    end;
-
-function  GTK_IS_ACCEL_LABEL(obj:pointer):boolean;
-begin
-  GTK_IS_ACCEL_LABEL:=(obj<>nil) and GTK_IS_ACCEL_LABEL_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ACCEL_LABEL_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ACCEL_LABEL_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ACCEL_LABEL_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkadjustment.pp

@@ -1,66 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-   type
-     PGtkAdjustment = ^TGtkAdjustment;
-     TGtkAdjustment = record
-          data : TGtkData;
-          lower : gfloat;
-          upper : gfloat;
-          value : gfloat;
-          step_increment : gfloat;
-          page_increment : gfloat;
-          page_size : gfloat;
-       end;
-
-     AdjustProc = procedure (adjustment:PGtkAdjustment);cdecl;
-
-     PGtkAdjustmentClass = ^TGtkAdjustmentClass;
-     TGtkAdjustmentClass = record
-          parent_class : TGtkDataClass;
-          changed : AdjustProc;
-          value_changed : AdjustProc;
-       end;
-
-type
-  GTK_ADJUSTMENT=PGtkAdjustment;
-  GTK_ADJUSTMENT_CLASS=PGtkAdjustmentClass;
-
-function  GTK_ADJUSTMENT_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_adjustment_get_type';
-function  GTK_IS_ADJUSTMENT(obj:pointer):boolean;
-function  GTK_IS_ADJUSTMENT_CLASS(klass:pointer):boolean;
-
-function  gtk_adjustment_get_type:TGtkType;cdecl;external gtkdll name 'gtk_adjustment_get_type';
-function  gtk_adjustment_new(value:gfloat; lower:gfloat; upper:gfloat; step_increment:gfloat; page_increment:gfloat;page_size:gfloat):PGtkObject;cdecl;external gtkdll name 'gtk_adjustment_new';
-procedure gtk_adjustment_changed(adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_adjustment_changed';
-procedure gtk_adjustment_value_changed(adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_adjustment_value_changed';
-procedure gtk_adjustment_clamp_page(adjustment:PGtkAdjustment; lower:gfloat; upper:gfloat);cdecl;external gtkdll name 'gtk_adjustment_clamp_page';
-procedure gtk_adjustment_set_value(adjustment:PGtkAdjustment; value:gfloat);cdecl;external gtkdll name 'gtk_adjustment_set_value';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_ADJUSTMENT(obj:pointer):boolean;
-begin
-  GTK_IS_ADJUSTMENT:=(obj<>nil) and GTK_IS_ADJUSTMENT_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ADJUSTMENT_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ADJUSTMENT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ADJUSTMENT_TYPE);
-end;
-
-{$endif read_implementation}
-

packages/extra/gtk/gtk/gtkalignment.pp

@@ -1,57 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkAlignment = ^TGtkAlignment;
-       TGtkAlignment = record
-            bin : TGtkBin;
-            xalign : gfloat;
-            yalign : gfloat;
-            xscale : gfloat;
-            yscale : gfloat;
-         end;
-
-       PGtkAlignmentClass = ^TGtkAlignmentClass;
-       TGtkAlignmentClass = record
-            parent_class : TGtkBinClass;
-         end;
-
-Type
-  GTK_ALIGNMENT=PGtkAlignment;
-  GTK_ALIGNMENT_CLASS=PGtkAlignmentClass;
-
-function  GTK_ALIGNMENT_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_alignment_get_type';
-function  GTK_IS_ALIGNMENT(obj:pointer):boolean;
-function  GTK_IS_ALIGNMENT_CLASS(klass:pointer):boolean;
-
-function  gtk_alignment_get_type:TGtkType;cdecl;external gtkdll name 'gtk_alignment_get_type';
-function  gtk_alignment_new (xalign:gfloat; yalign:gfloat; xscale:gfloat; yscale:gfloat):PGtkWidget;cdecl;external gtkdll name 'gtk_alignment_new';
-procedure gtk_alignment_set(alignment:PGtkAlignment; xalign:gfloat; yalign:gfloat; xscale:gfloat; yscale:gfloat);cdecl;external gtkdll name 'gtk_alignment_set';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_ALIGNMENT(obj:pointer):boolean;
-begin
-  GTK_IS_ALIGNMENT:=(obj<>nil) and GTK_IS_ALIGNMENT_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ALIGNMENT_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ALIGNMENT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ALIGNMENT_TYPE);
-end;
-
-{$endif read_implementation}
-

packages/extra/gtk/gtk/gtkarg.pp

@@ -1,41 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-{********************************
-  Types inserted in gtkobjects
-********************************}
-
-{$ifndef gtkwin}
-function  gtk_arg_new(arg_type:TGtkType):PGtkArg;cdecl;external gtkdll name 'gtk_arg_new';
-function  gtk_arg_copy(src_arg:PGtkArg; dest_arg:PGtkArg):PGtkArg;cdecl;external gtkdll name 'gtk_arg_copy';
-procedure gtk_arg_free(arg:PGtkArg; free_contents:gboolean);cdecl;external gtkdll name 'gtk_arg_free';
-procedure gtk_arg_reset(arg:PGtkArg);cdecl;external gtkdll name 'gtk_arg_reset';
-function  gtk_arg_values_equal(arg1:PGtkArg; arg2:PGtkArg):gboolean;cdecl;external gtkdll name 'gtk_arg_values_equal';
-function  gtk_args_collect(object_type:TGtkType; arg_info_hash_table:PGHashTable; arg_list_p:PPGSList; info_list_p:PPGSList; first_arg_name:Pgchar; var_args:array of const):Pgchar;cdecl;external gtkdll name 'gtk_args_collect';
-procedure gtk_args_collect_cleanup(arg_list:PGSList; info_list:PGSList);cdecl;external gtkdll name 'gtk_args_collect_cleanup';
-function  gtk_arg_get_info(object_type:TGtkType; arg_info_hash_table:PGHashTable; arg_name:Pgchar; info_p:PPGtkArgInfo):Pgchar;cdecl;external gtkdll name 'gtk_arg_get_info';
-function  gtk_arg_type_new_static(base_class_type:TGtkType; arg_name:Pgchar; class_n_args_offset:guint; arg_info_hash_table:PGHashTable; arg_type:TGtkType; arg_flags:guint; arg_id:guint):PGtkArgInfo;cdecl;external gtkdll name 'gtk_arg_type_new_static';
-function  gtk_args_query(class_type:TGtkType; arg_info_hash_table:PGHashTable; arg_flags:PPguint32; n_args_p:Pguint):PGtkArg;cdecl;external gtkdll name 'gtk_args_query';
-function  gtk_arg_name_strip_type(arg_name:Pgchar):Pgchar;cdecl;external gtkdll name 'gtk_arg_name_strip_type';
-function  gtk_arg_info_equal(arg_info_1:gconstpointer; arg_info_2:gconstpointer):gint;cdecl;external gtkdll name 'gtk_arg_info_equal';
-function  gtk_arg_info_hash(arg_info:gconstpointer):guint;cdecl;external gtkdll name 'gtk_arg_info_hash';
-procedure gtk_arg_to_valueloc(arg:PGtkArg; value_pointer:gpointer);cdecl;external gtkdll name 'gtk_arg_to_valueloc';
-{$endif}
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkarrow.pp

@@ -1,55 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkArrow = ^TGtkArrow;
-       TGtkArrow = record
-            misc : TGtkMisc;
-            arrow_type : gint16;
-            shadow_type : gint16;
-         end;
-
-       PGtkArrowClass = ^TGtkArrowClass;
-       TGtkArrowClass = record
-            parent_class : TGtkMiscClass;
-         end;
-
-Type
-  GTK_ARROW = PGtkArrow;
-  GTK_ARROW_CLASS = PGtkArrowClass;
-
-function  GTK_ARROW_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_arrow_get_type';
-function  GTK_IS_ARROW(obj:pointer):boolean;
-function  GTK_IS_ARROW_CLASS(klass:pointer):boolean;
-
-function  gtk_arrow_get_type:TGtkType;cdecl;external gtkdll name 'gtk_arrow_get_type';
-function  gtk_arrow_new (arrow_type:TGtkArrowType; shadow_type:TGtkShadowType):PGtkWidget;cdecl;external gtkdll name 'gtk_arrow_new';
-procedure gtk_arrow_set(arrow:PGtkArrow; arrow_type:TGtkArrowType; shadow_type:TGtkShadowType);cdecl;external gtkdll name 'gtk_arrow_set';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_ARROW(obj:pointer):boolean;
-begin
-  GTK_IS_ARROW:=(obj<>nil) and GTK_IS_ARROW_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ARROW_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ARROW_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ARROW_TYPE);
-end;
-
-{$endif read_implementation}
-

packages/extra/gtk/gtk/gtkaspectframe.pp

@@ -1,59 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkAspectFrame = ^TGtkAspectFrame;
-       TGtkAspectFrame = record
-            frame : TGtkFrame;
-            xalign : gfloat;
-            yalign : gfloat;
-            ratio : gfloat;
-            obey_child : gint;
-            center_allocation : TGtkAllocation;
-         end;
-
-       PGtkAspectFrameClass = ^TGtkAspectFrameClass;
-       TGtkAspectFrameClass = record
-            parent_class : TGtkBinClass;
-         end;
-
-Type
-  GTK_ASPECT_FRAME=PGtkAspectFrame;
-  GTK_ASPECT_FRAME_CLASS=PGtkAspectFrameClass;
-
-function  GTK_ASPECT_FRAME_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_aspect_frame_get_type';
-function  GTK_IS_ASPECT_FRAME(obj:pointer):boolean;
-function  GTK_IS_ASPECT_FRAME_CLASS(klass:pointer):boolean;
-
-function  gtk_aspect_frame_get_type:TGtkType;cdecl;external gtkdll name 'gtk_aspect_frame_get_type';
-function  gtk_aspect_frame_new (thelabel:Pgchar; xalign:gfloat; yalign:gfloat; ratio:gfloat; obey_child:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_aspect_frame_new';
-procedure gtk_aspect_frame_set(aspect_frame:PGtkAspectFrame; xalign:gfloat; yalign:gfloat; ratio:gfloat; obey_child:gint);cdecl;external gtkdll name 'gtk_aspect_frame_set';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_ASPECT_FRAME(obj:pointer):boolean;
-begin
-  GTK_IS_ASPECT_FRAME:=(obj<>nil) and GTK_IS_ASPECT_FRAME_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ASPECT_FRAME_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ASPECT_FRAME_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ASPECT_FRAME_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkbbox.pp

@@ -1,72 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    const
-       GTK_BUTTONBOX_DEFAULT = -1;
-
-    type
-       PGtkButtonBox = ^TGtkButtonBox;
-       TGtkButtonBox = record
-            box : TGtkBox;
-            spacing : gint;
-            child_min_width : gint;
-            child_min_height : gint;
-            child_ipad_x : gint;
-            child_ipad_y : gint;
-            layout_style : TGtkButtonBoxStyle;
-         end;
-
-       PGtkButtonBoxClass = ^TGtkButtonBoxClass;
-       TGtkButtonBoxClass = record
-            parent_class : TGtkBoxClass;
-         end;
-
-Type
-  GTK_BUTTON_BOX=PGtkButtonBox;
-  GTK_BUTTON_BOX_CLASS=PGtkButtonBoxClass;
-
-function  GTK_BUTTON_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_button_box_get_type';
-function  GTK_IS_BUTTON_BOX(obj:pointer):boolean;
-function  GTK_IS_BUTTON_BOX_CLASS(klass:pointer):boolean;
-
-function  gtk_button_box_get_type:TGtktype;cdecl;external gtkdll name 'gtk_button_box_get_type';
-procedure gtk_button_box_get_child_size_default(min_width:Pgint; min_height:Pgint);cdecl;external gtkdll name 'gtk_button_box_get_child_size_default';
-procedure gtk_button_box_get_child_ipadding_default(ipad_x:Pgint; ipad_y:Pgint);cdecl;external gtkdll name 'gtk_button_box_get_child_ipadding_default';
-procedure gtk_button_box_set_child_size_default(min_width:gint; min_height:gint);cdecl;external gtkdll name 'gtk_button_box_set_child_size_default';
-procedure gtk_button_box_set_child_ipadding_default(ipad_x:gint; ipad_y:gint);cdecl;external gtkdll name 'gtk_button_box_set_child_ipadding_default';
-function  gtk_button_box_get_spacing(widget:PGtkButtonBox):gint;cdecl;external gtkdll name 'gtk_button_box_get_spacing';
-function  gtk_button_box_get_layout(widget:PGtkButtonBox):TGtkButtonBoxStyle;cdecl;external gtkdll name 'gtk_button_box_get_layout';
-procedure gtk_button_box_get_child_size(widget:PGtkButtonBox; min_width:Pgint; min_height:Pgint);cdecl;external gtkdll name 'gtk_button_box_get_child_size';
-procedure gtk_button_box_get_child_ipadding(widget:PGtkButtonBox; ipad_x:Pgint; ipad_y:Pgint);cdecl;external gtkdll name 'gtk_button_box_get_child_ipadding';
-procedure gtk_button_box_set_spacing(widget:PGtkButtonBox; spacing:gint);cdecl;external gtkdll name 'gtk_button_box_set_spacing';
-procedure gtk_button_box_set_layout(widget:PGtkButtonBox; layout_style:TGtkButtonBoxStyle);cdecl;external gtkdll name 'gtk_button_box_set_layout';
-procedure gtk_button_box_set_child_size(widget:PGtkButtonBox; min_width:gint; min_height:gint);cdecl;external gtkdll name 'gtk_button_box_set_child_size';
-procedure gtk_button_box_set_child_ipadding(widget:PGtkButtonBox; ipad_x:gint; ipad_y:gint);cdecl;external gtkdll name 'gtk_button_box_set_child_ipadding';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_BUTTON_BOX(obj:pointer):boolean;
-begin
-  GTK_IS_BUTTON_BOX:=(obj<>nil) and GTK_IS_BUTTON_BOX_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_BUTTON_BOX_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_BUTTON_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_BUTTON_BOX_TYPE);
-end;
-
-{$endif read_implementation}
-

packages/extra/gtk/gtk/gtkbin.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkBin = ^TGtkBin;
-       TGtkBin = record
-            container : TGtkContainer;
-            child : PGtkWidget;
-         end;
-
-       PGtkBinClass = ^TGtkBinClass;
-       TGtkBinClass = record
-            parent_class : TGtkContainerClass;
-         end;
-
-Type
-  GTK_BIN=PGtkBin;
-  GTK_BIN_CLASS=PGtkBinClass;
-
-function  GTK_BIN_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_bin_get_type';
-function  GTK_IS_BIN(obj:pointer):boolean;
-function  GTK_IS_BIN_CLASS(klass:pointer):boolean;
-
-function  gtk_bin_get_type:TGtkType;cdecl;external gtkdll name 'gtk_bin_get_type';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_BIN(obj:pointer):boolean;
-begin
-  GTK_IS_BIN:=(obj<>nil) and GTK_IS_BIN_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_BIN_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_BIN_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_BIN_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkbindings.pp

@@ -1,128 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkPatternSpec = ^TGtkPatternSpec;
-     TGtkPatternSpec = record
-          match_type : TGtkMatchType;
-          pattern_length : guint;
-          pattern : Pgchar;
-          pattern_reversed : Pgchar;
-          user_data : gpointer;
-          seq_id : guint;
-       end;
-
-procedure gtk_pattern_spec_init(pspec:PGtkPatternSpec; pattern:Pgchar);cdecl;external gtkdll name 'gtk_pattern_spec_init';
-procedure gtk_pattern_spec_free_segs(pspec:PGtkPatternSpec);cdecl;external gtkdll name 'gtk_pattern_spec_free_segs';
-function  gtk_pattern_match(pspec:PGtkPatternSpec; string_length:guint; thestring:Pgchar; string_reversed:Pgchar):gboolean;cdecl;external gtkdll name 'gtk_pattern_match';
-function  gtk_pattern_match_string(pspec:PGtkPatternSpec; thestring:Pgchar):gboolean;cdecl;external gtkdll name 'gtk_pattern_match_string';
-function  gtk_pattern_match_simple(pattern:Pgchar; thestring:Pgchar):gboolean;cdecl;external gtkdll name 'gtk_pattern_match_simple';
-
-  type
-     PGtkBindingSet = ^TGtkBindingSet;
-     PGtkBindingEntry = ^TGtkBindingEntry;
-     PGtkBindingSignal = ^TGtkBindingSignal;
-     PGtkBindingArg = ^TGtkBindingArg;
-
-     TGtkBindingSet = record
-          set_name : Pgchar;
-          priority : gint;
-          widget_path_pspecs : PGSList;
-          widget_class_pspecs : PGSList;
-          class_branch_pspecs : PGSList;
-          entries : PGtkBindingEntry;
-          current : PGtkBindingEntry;
-       end;
-
-     TGtkBindingEntry = record
-          keyval : guint;
-          modifiers : guint;
-          binding_set : PGtkBindingSet;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          set_next : PGtkBindingEntry;
-          hash_next : PGtkBindingEntry;
-          signals : PGtkBindingSignal;
-       end;
-
-     TGtkBindingSignal = record
-          next : PGtkBindingSignal;
-          signal_name : Pgchar;
-          n_args : guint;
-          args : PGtkBindingArg;
-       end;
-
-     TGtkBindingArg = record
-          arg_type : TGtkType;
-          d : record
-              case longint of
-                 0 : ( long_data : glong );
-                 1 : ( double_data : gdouble );
-                 2 : ( string_data : Pgchar );
-              end;
-       end;
-
-  const
-     bm_TGtkBindingEntry_destroyed = $1;
-     bp_TGtkBindingEntry_destroyed = 0;
-     bm_TGtkBindingEntry_in_emission = $2;
-     bp_TGtkBindingEntry_in_emission = 1;
-function  destroyed(var a : TGtkBindingEntry) : guint;
-procedure set_destroyed(var a : TGtkBindingEntry; __destroyed : guint);
-function  in_emission(var a : TGtkBindingEntry) : guint;
-procedure set_in_emission(var a : TGtkBindingEntry; __in_emission : guint);
-
-
-function  gtk_binding_set_new(set_name:Pgchar):PGtkBindingSet;cdecl;external gtkdll name 'gtk_binding_set_new';
-function  gtk_binding_set_by_class(object_class:gpointer):PGtkBindingSet;cdecl;external gtkdll name 'gtk_binding_set_by_class';
-function  gtk_binding_set_find(set_name:Pgchar):PGtkBindingSet;cdecl;external gtkdll name 'gtk_binding_set_find';
-function  gtk_bindings_activate(theobject:PGtkObject; keyval:guint; modifiers:guint):gboolean;cdecl;external gtkdll name 'gtk_bindings_activate';
-function  gtk_binding_set_activate(binding_set:PGtkBindingSet; keyval:guint; modifiers:guint; theobject:PGtkObject):gboolean;cdecl;external gtkdll name 'gtk_binding_set_activate';
-procedure gtk_binding_entry_add(binding_set:PGtkBindingSet; keyval:guint; modifiers:guint);cdecl;external gtkdll name 'gtk_binding_entry_clear';
-procedure gtk_binding_entry_clear(binding_set:PGtkBindingSet; keyval:guint; modifiers:guint);cdecl;external gtkdll name 'gtk_binding_entry_clear';
-procedure gtk_binding_entry_add_signal(binding_set:PGtkBindingSet; keyval:guint; modifiers:guint; signal_name:Pgchar; n_args:guint; args:array of const);cdecl;external gtkdll name 'gtk_binding_entry_add_signal';
-procedure gtk_binding_set_add_path(binding_set:PGtkBindingSet; path_type:TGtkPathType; path_pattern:Pgchar; priority:TGtkPathPriorityType);cdecl;external gtkdll name 'gtk_binding_set_add_path';
-{$ifndef gtkwin}
-procedure gtk_binding_entry_remove(binding_set:PGtkBindingSet; keyval:guint; modifiers:guint);cdecl;external gtkdll name 'gtk_binding_entry_remove';
-procedure gtk_binding_entry_add_signall(binding_set:PGtkBindingSet; keyval:guint; modifiers:guint; signal_name:Pgchar; binding_args:PGSList);cdecl;external gtkdll name 'gtk_binding_entry_add_signall';
-function  gtk_binding_parse_binding(scanner:PGScanner):guint;cdecl;external gtkdll name 'gtk_binding_parse_binding';
-{$endif}
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-
-function  destroyed(var a : TGtkBindingEntry) : guint;
-    begin
-       destroyed:=(a.flag0 and bm_TGtkBindingEntry_destroyed) shr bp_TGtkBindingEntry_destroyed;
-    end;
-
-procedure set_destroyed(var a : TGtkBindingEntry; __destroyed : guint);
-    begin
-       a.flag0:=a.flag0 or ((__destroyed shl bp_TGtkBindingEntry_destroyed) and bm_TGtkBindingEntry_destroyed);
-    end;
-
-function  in_emission(var a : TGtkBindingEntry) : guint;
-    begin
-       in_emission:=(a.flag0 and bm_TGtkBindingEntry_in_emission) shr bp_TGtkBindingEntry_in_emission;
-    end;
-
-procedure set_in_emission(var a : TGtkBindingEntry; __in_emission : guint);
-    begin
-       a.flag0:=a.flag0 or ((__in_emission shl bp_TGtkBindingEntry_in_emission) and bm_TGtkBindingEntry_in_emission);
-    end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkbox.pp

@@ -1,133 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkBox = ^TGtkBox;
-       TGtkBox = record
-            container : TGtkContainer;
-            children : PGList;
-            spacing : gint16;
-            flag0 : {$ifdef win32}longint{$else}word{$endif};
-         end;
-
-    const
-       bm_box_homogeneous = 1;
-       bp_box_homogeneous = 0;
-function  homogeneous(var a : TGtkBox) : guint;
-procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
-
-    type
-       PGtkBoxClass = ^TGtkBoxClass;
-       TGtkBoxClass = record
-            parent_class : TGtkContainerClass;
-         end;
-
-       PGtkBoxChild = ^TGtkBoxChild;
-       TGtkBoxChild = record
-            widget : PGtkWidget;
-            padding : guint16;
-            flag0 : {$ifdef win32}longint{$else}word{$endif};
-         end;
-
-    const
-       bm_box_expand = 1;
-       bp_box_expand = 0;
-       bm_box_fill = 2;
-       bp_box_fill = 1;
-       bm_box_pack = 4;
-       bp_box_pack = 2;
-
-function  expand(var a : TGtkBoxChild) : guint;
-procedure set_expand(var a : TGtkBoxChild; __expand : guint);
-function  fill(var a : TGtkBoxChild) : guint;
-procedure set_fill(var a : TGtkBoxChild; __fill : guint);
-function  pack(var a : TGtkBoxChild) : guint;
-procedure set_pack(var a : TGtkBoxChild; __pack : guint);
-
-Type
-  GTK_BOX=PGtkBox;
-  GTK_BOX_CLASS=PGtkBoxClass;
-
-function  GTK_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_box_get_type';
-function  GTK_IS_BOX(obj:pointer):boolean;
-function  GTK_IS_BOX_CLASS(klass:pointer):boolean;
-
-function  gtk_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_box_get_type';
-procedure gtk_box_pack_start(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint);cdecl;external gtkdll name 'gtk_box_pack_start';
-procedure gtk_box_pack_end(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint);cdecl;external gtkdll name 'gtk_box_pack_end';
-procedure gtk_box_pack_start_defaults(box:PGtkBox; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_box_pack_start_defaults';
-procedure gtk_box_pack_end_defaults(box:PGtkBox; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_box_pack_end_defaults';
-procedure gtk_box_set_homogeneous(box:PGtkBox; homogeneous:gboolean);cdecl;external gtkdll name 'gtk_box_set_homogeneous';
-procedure gtk_box_set_spacing(box:PGtkBox; spacing:gint);cdecl;external gtkdll name 'gtk_box_set_spacing';
-procedure gtk_box_reorder_child(box:PGtkBox; child:PGtkWidget; position:gint);cdecl;external gtkdll name 'gtk_box_reorder_child';
-procedure gtk_box_query_child_packing(box:PGtkBox; child:PGtkWidget; expand:Pgboolean; fill:Pgboolean; padding:Pguint;pack_type:PGtkPackType);cdecl;external gtkdll name 'gtk_box_query_child_packing';
-procedure gtk_box_set_child_packing(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint; pack_type:TGtkPackType);cdecl;external gtkdll name 'gtk_box_set_child_packing';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  homogeneous(var a : TGtkBox) : guint;
-      begin
-         homogeneous:=(a.flag0 and bm_box_homogeneous) shr bp_box_homogeneous;
-      end;
-
-procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
-      begin
-         a.flag0:=a.flag0 or ((__homogeneous shl bp_box_homogeneous) and bm_box_homogeneous);
-      end;
-
-function  expand(var a : TGtkBoxChild) : guint;
-      begin
-         expand:=(a.flag0 and bm_box_expand) shr bp_box_expand;
-      end;
-
-procedure set_expand(var a : TGtkBoxChild; __expand : guint);
-      begin
-         a.flag0:=a.flag0 or ((__expand shl bp_box_expand) and bm_box_expand);
-      end;
-
-function  fill(var a : TGtkBoxChild) : guint;
-      begin
-         fill:=(a.flag0 and bm_box_fill) shr bp_box_fill;
-      end;
-
-procedure set_fill(var a : TGtkBoxChild; __fill : guint);
-      begin
-         a.flag0:=a.flag0 or ((__fill shl bp_box_fill) and bm_box_fill);
-      end;
-
-function  pack(var a : TGtkBoxChild) : guint;
-      begin
-         pack:=(a.flag0 and bm_box_pack) shr bp_box_pack;
-      end;
-
-procedure set_pack(var a : TGtkBoxChild; __pack : guint);
-      begin
-         a.flag0:=a.flag0 or ((__pack shl bp_box_pack) and bm_box_pack);
-      end;
-
-function  GTK_IS_BOX(obj:pointer):boolean;
-begin
-  GTK_IS_BOX:=(obj<>nil) and GTK_IS_BOX_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_BOX_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_BOX_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkbutton.pp

@@ -1,113 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkButton = ^TGtkButton;
-       TGtkButton = record
-            bin : TGtkBin;
-            child : PGtkWidget;
-            flag0 : {$ifdef win32}longint{$else}word{$endif};
-         end;
-
-    const
-       bm_in_button = 1;
-       bp_in_button = 0;
-       bm_button_down = 2;
-       bp_button_down = 1;
-       bm_relief = 4;
-       bp_relief = 2;
-function  in_button(var a : TGtkButton) : guint;
-procedure set_in_button(var a : TGtkButton; __in_button : guint);
-function  button_down(var a : TGtkButton) : guint;
-procedure set_button_down(var a : TGtkButton; __button_down : guint);
-function  relief(var a : TGtkButton) : guint;
-procedure set_relief(var a : TGtkButton; __button_down : guint);
-
-    type
-       PGtkButtonClass = ^TGtkButtonClass;
-       TGtkButtonClass = record
-            parent_class : TGtkBinClass;
-            pressed : procedure (button:PGtkButton); cdecl;
-            released : procedure (button:PGtkButton); cdecl;
-            clicked : procedure (button:PGtkButton); cdecl;
-            enter : procedure (button:PGtkButton); cdecl;
-            leave : procedure (button:PGtkButton); cdecl;
-         end;
-
-Type
-  GTK_BUTTON=PGtkButton;
-  GTK_BUTTON_CLASS=PGtkButtonClass;
-
-function  GTK_BUTTON_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_button_get_type';
-function  GTK_IS_BUTTON(obj:pointer):boolean;
-function  GTK_IS_BUTTON_CLASS(klass:pointer):boolean;
-
-function  gtk_button_get_type:TGtkType;cdecl;external gtkdll name 'gtk_button_get_type';
-function  gtk_button_new : PGtkWidget;cdecl;external gtkdll name 'gtk_button_new';
-function  gtk_button_new_with_label (thelabel:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_button_new_with_label';
-procedure gtk_button_pressed(button:PGtkButton);cdecl;external gtkdll name 'gtk_button_pressed';
-procedure gtk_button_released(button:PGtkButton);cdecl;external gtkdll name 'gtk_button_released';
-procedure gtk_button_clicked(button:PGtkButton);cdecl;external gtkdll name 'gtk_button_clicked';
-procedure gtk_button_enter(button:PGtkButton);cdecl;external gtkdll name 'gtk_button_enter';
-procedure gtk_button_leave(button:PGtkButton);cdecl;external gtkdll name 'gtk_button_leave';
-procedure gtk_button_set_relief(button:PGtkButton; newstyle:TGtkReliefStyle);cdecl;external gtkdll name 'gtk_button_set_relief';
-function  gtk_button_get_relief(button:PGtkButton):TGtkReliefStyle;cdecl;external gtkdll name 'gtk_button_get_relief';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  in_button(var a : TGtkButton) : guint;
-      begin
-         in_button:=(a.flag0 and bm_in_button) shr bp_in_button;
-      end;
-
-procedure set_in_button(var a : TGtkButton; __in_button : guint);
-      begin
-         a.flag0:=a.flag0 or ((__in_button shl bp_in_button) and bm_in_button);
-      end;
-
-function  button_down(var a : TGtkButton) : guint;
-      begin
-         button_down:=(a.flag0 and bm_button_down) shr bp_button_down;
-      end;
-
-procedure set_button_down(var a : TGtkButton; __button_down : guint);
-      begin
-         a.flag0:=a.flag0 or ((__button_down shl bp_button_down) and bm_button_down);
-      end;
-
-function  relief(var a : TGtkButton) : guint;
-      begin
-         relief:=(a.flag0 and bm_relief) shr bp_relief;
-      end;
-
-procedure set_relief(var a : TGtkButton; __button_down : guint);
-      begin
-         a.flag0:=a.flag0 or ((__button_down shl bp_relief) and bm_relief);
-      end;
-
-function  GTK_IS_BUTTON(obj:pointer):boolean;
-begin
-  GTK_IS_BUTTON:=(obj<>nil) and GTK_IS_BUTTON_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_BUTTON_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_BUTTON_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_BUTTON_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkcalendar.pp

@@ -1,96 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     TGtkCalendarDisplayOptions = (
-       GTK_CALENDAR_SHOW_HEADING := 1 shl 0,
-       GTK_CALENDAR_SHOW_DAY_NAMES := 1 shl 1,
-       GTK_CALENDAR_NO_MONTH_CHANGE := 1 shl 2,
-       GTK_CALENDAR_SHOW_WEEK_NUMBERS := 1 shl 3,
-       GTK_CALENDAR_WEEK_START_MONDAY := 1 shl 4
-       );
-
-     PGtkCalendar = ^TGtkCalendar;
-     TGtkCalendar = record
-          widget : TGtkWidget;
-          header_style : PGtkStyle;
-          label_style : PGtkStyle;
-          month : gint;
-          year : gint;
-          selected_day : gint;
-          day_month : array[0..5] of array[0..6] of gint;
-          day : array[0..5] of array[0..6] of gint;
-          num_marked_dates : gint;
-          marked_date : array[0..30] of gint;
-          display_flags : TGtkCalendarDisplayOptions;
-          marked_date_color : array[0..30] of TGdkColor;
-          gc : PGdkGC;
-          xor_gc : PGdkGC;
-          focus_row : gint;
-          focus_col : gint;
-          highlight_row : gint;
-          highlight_col : gint;
-          private_data : gpointer;
-          grow_space : array[0..31] of gchar;
-       end;
-
-     PGtkCalendarClass = ^TGtkCalendarClass;
-     TGtkCalendarClass = record
-          parent_class : TGtkWidgetClass;
-          month_changed : procedure (calendar:PGtkCalendar);cdecl;
-          day_selected : procedure (calendar:PGtkCalendar);cdecl;
-          day_selected_double_click : procedure (calendar:PGtkCalendar);cdecl;
-          prev_month : procedure (calendar:PGtkCalendar);cdecl;
-          next_month : procedure (calendar:PGtkCalendar);cdecl;
-          prev_year : procedure (calendar:PGtkCalendar);cdecl;
-          next_year : procedure (calendar:PGtkCalendar);cdecl;
-       end;
-
-type
-  GTK_CALENDAR=PGtkCalendar;
-  GTK_CALENDAR_CLASS=PGtkCalendarClass;
-
-function  GTK_CALENDAR_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_calendar_get_type';
-function  GTK_IS_CALENDAR(obj:pointer):boolean;
-function  GTK_IS_CALENDAR_CLASS(klass:pointer):boolean;
-
-function  gtk_calendar_get_type:TGtkType;cdecl;external gtkdll name 'gtk_calendar_get_type';
-function  gtk_calendar_new:PGtkWidget;cdecl;external gtkdll name 'gtk_calendar_new';
-function  gtk_calendar_select_month(calendar:PGtkCalendar; month:guint; year:guint):gint;cdecl;external gtkdll name 'gtk_calendar_select_month';
-procedure gtk_calendar_select_day(calendar:PGtkCalendar; day:guint);cdecl;external gtkdll name 'gtk_calendar_select_day';
-function  gtk_calendar_mark_day(calendar:PGtkCalendar; day:guint):gint;cdecl;external gtkdll name 'gtk_calendar_mark_day';
-function  gtk_calendar_unmark_day(calendar:PGtkCalendar; day:guint):gint;cdecl;external gtkdll name 'gtk_calendar_unmark_day';
-procedure gtk_calendar_clear_marks(calendar:PGtkCalendar);cdecl;external gtkdll name 'gtk_calendar_clear_marks';
-procedure gtk_calendar_display_options(calendar:PGtkCalendar; flags:TGtkCalendarDisplayOptions);cdecl;external gtkdll name 'gtk_calendar_display_options';
-procedure gtk_calendar_get_date(calendar:PGtkCalendar; year:Pguint; month:Pguint; day:Pguint);cdecl;external gtkdll name 'gtk_calendar_get_date';
-procedure gtk_calendar_freeze(calendar:PGtkCalendar);cdecl;external gtkdll name 'gtk_calendar_freeze';
-procedure gtk_calendar_thaw(calendar:PGtkCalendar);cdecl;external gtkdll name 'gtk_calendar_thaw';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_CALENDAR(obj:pointer):boolean;
-begin
-  GTK_IS_CALENDAR:=(obj<>nil) and GTK_IS_CALENDAR_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CALENDAR_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CALENDAR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CALENDAR_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkcheckbutton.pp

@@ -1,57 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkCheckButton = ^TGtkCheckButton;
-       TGtkCheckButton = record
-            toggle_button : TGtkToggleButton;
-         end;
-
-       PGtkCheckButtonClass = ^TGtkCheckButtonClass;
-       TGtkCheckButtonClass = record
-            parent_class : TGtkToggleButtonClass;
-            indicator_size : guint16;
-            indicator_spacing : guint16;
-            draw_indicator : procedure (check_button:PGtkCheckButton; area:PGdkRectangle); cdecl;
-         end;
-
-Type
-  GTK_CHECK_BUTTON=PGtkCheckButton;
-  GTK_CHECK_BUTTON_CLASS=PGtkCheckButtonClass;
-
-function  GTK_CHECK_BUTTON_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_check_button_get_type';
-function  GTK_IS_CHECK_BUTTON(obj:pointer):boolean;
-function  GTK_IS_CHECK_BUTTON_CLASS(klass:pointer):boolean;
-
-function  gtk_check_button_get_type:TGtkType;cdecl;external gtkdll name 'gtk_check_button_get_type';
-function  gtk_check_button_new : PGtkWidget;cdecl;external gtkdll name 'gtk_check_button_new';
-function  gtk_check_button_new_with_label (thelabel:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_check_button_new_with_label';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_CHECK_BUTTON(obj:pointer):boolean;
-begin
-  GTK_IS_CHECK_BUTTON:=(obj<>nil) and GTK_IS_CHECK_BUTTON_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CHECK_BUTTON_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CHECK_BUTTON_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CHECK_BUTTON_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkcheckmenuitem.pp

@@ -1,91 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkCheckMenuItem = ^TGtkCheckMenuItem;
-       TGtkCheckMenuItem = record
-            menu_item : TGtkMenuItem;
-            flag0 : longint;
-         end;
-
-    const
-       bm_checkmenuitem_active = 1;
-       bp_checkmenuitem_active = 0;
-       bm_checkmenuitem_always_show_toggle = 2;
-       bp_checkmenuitem_always_show_toggle = 1;
-function  active(var a : TGtkCheckMenuItem) : guint;
-procedure set_active(var a : TGtkCheckMenuItem; __active : guint);
-function  always_show_toggle(var a : TGtkCheckMenuItem) : guint;
-procedure set_always_show_toggle(var a : TGtkCheckMenuItem; __always_show_toggle : guint);
-
-    type
-       PGtkCheckMenuItemClass = ^TGtkCheckMenuItemClass;
-       TGtkCheckMenuItemClass = record
-            parent_class : TGtkMenuItemClass;
-            toggled : procedure (check_menu_item:PGtkCheckMenuItem); cdecl;
-            draw_indicator : procedure (check_menu_item:PGtkCheckMenuItem; area:PGdkRectangle); cdecl;
-         end;
-
-Type
-  GTK_CHECK_MENU_ITEM=PGtkCheckMenuItem;
-  GTK_CHECK_MENU_ITEM_CLASS=PGtkCheckMenuItemClass;
-
-function  GTK_CHECK_MENU_ITEM_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_check_menu_item_get_type';
-function  GTK_IS_CHECK_MENU_ITEM(obj:pointer):boolean;
-function  GTK_IS_CHECK_MENU_ITEM_CLASS(klass:pointer):boolean;
-
-function  gtk_check_menu_item_get_type:TGtkType;cdecl;external gtkdll name 'gtk_check_menu_item_get_type';
-function  gtk_check_menu_item_new : PGtkWidget;cdecl;external gtkdll name 'gtk_check_menu_item_new';
-function  gtk_check_menu_item_new_with_label (thelabel:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_check_menu_item_new_with_label';
-procedure gtk_check_menu_item_set_active(check_menu_item:PGtkCheckMenuItem; is_active:gboolean);cdecl;external gtkdll name 'gtk_check_menu_item_set_active';
-procedure gtk_check_menu_item_set_show_toggle(menu_item:PGtkCheckMenuItem; always:gboolean);cdecl;external gtkdll name 'gtk_check_menu_item_set_show_toggle';
-procedure gtk_check_menu_item_toggled(check_menu_item:PGtkCheckMenuItem);cdecl;external gtkdll name 'gtk_check_menu_item_toggled';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  active(var a : TGtkCheckMenuItem) : guint;
-      begin
-         active:=(a.flag0 and bm_checkmenuitem_active) shr bp_checkmenuitem_active;
-      end;
-
-procedure set_active(var a : TGtkCheckMenuItem; __active : guint);
-      begin
-         a.flag0:=a.flag0 or ((__active shl bp_checkmenuitem_active) and bm_checkmenuitem_active);
-      end;
-
-function  always_show_toggle(var a : TGtkCheckMenuItem) : guint;
-      begin
-         always_show_toggle:=(a.flag0 and bm_checkmenuitem_always_show_toggle) shr bp_checkmenuitem_always_show_toggle;
-      end;
-
-procedure set_always_show_toggle(var a : TGtkCheckMenuItem; __always_show_toggle : guint);
-      begin
-         a.flag0:=a.flag0 or ((__always_show_toggle shl bp_checkmenuitem_always_show_toggle) and bm_checkmenuitem_always_show_toggle);
-      end;
-
-function  GTK_IS_CHECK_MENU_ITEM(obj:pointer):boolean;
-begin
-  GTK_IS_CHECK_MENU_ITEM:=(obj<>nil) and GTK_IS_CHECK_MENU_ITEM_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CHECK_MENU_ITEM_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CHECK_MENU_ITEM_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CHECK_MENU_ITEM_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkclist.pp

@@ -1,422 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-
-    type
-       TGtkCellType = (GTK_CELL_EMPTY,GTK_CELL_TEXT,GTK_CELL_PIXMAP,
-         GTK_CELL_PIXTEXT,GTK_CELL_WIDGET);
-
-       TGtkCListDragPos = (GTK_CLIST_DRAG_NONE,GTK_CLIST_DRAG_BEFORE,
-         GTK_CLIST_DRAG_INTO,GTK_CLIST_DRAG_AFTER
-         );
-
-       TGtkButtonAction = (GTK_BUTTON_IGNORED := 0,GTK_BUTTON_SELECTS := 1 shl 0,
-         GTK_BUTTON_DRAGS := 1 shl 1,GTK_BUTTON_EXPANDS := 1 shl 2
-         );
-
-       PGtkCList = ^TGtkCList;
-       PGtkCListClass = ^TGtkCListClass;
-       PGtkCListColumn = ^TGtkCListColumn;
-       PGtkCListRow = ^TGtkCListRow;
-       PGtkCellText = ^TGtkCellText;
-       PGtkCellPixmap = ^TGtkCellPixmap;
-       PGtkCellPixText = ^TGtkCellPixText;
-       PGtkCellWidget = ^TGtkCellWidget;
-       PGtkCell = ^TGtkCell;
-
-       TGtkCListCompareFunc = function (clist:PGtkCList; ptr1:gconstpointer; ptr2:gconstpointer):gint;cdecl;
-
-       PGtkCListCellInfo = ^TGtkCListCellInfo;
-       TGtkCListCellInfo = record
-            row : gint;
-            column : gint;
-         end;
-
-       PGtkCListDestInfo = ^TGtkCListDestInfo;
-       TGtkCListDestInfo = record
-            cell : TGtkCListCellInfo;
-            insert_pos : TGtkCListDragPos;
-         end;
-
-       TGtkCList = record
-            container : TGtkContainer;
-            flags : guint16;
-            row_mem_chunk : PGMemChunk;
-            cell_mem_chunk : PGMemChunk;
-            freeze_count : guint;
-            internal_allocation : TGdkRectangle;
-            rows : gint;
-            row_center_offset : gint;
-            row_height : gint;
-            row_list : PGList;
-            row_list_end : PGList;
-            columns : gint;
-            column_title_area : TGdkRectangle;
-            title_window : PGdkWindow;
-            column : PGtkCListColumn;
-            clist_window : PGdkWindow;
-            clist_window_width : gint;
-            clist_window_height : gint;
-            hoffset : gint;
-            voffset : gint;
-            shadow_type : TGtkShadowType;
-            selection_mode : TGtkSelectionMode;
-            selection : PGList;
-            selection_end : PGList;
-            undo_selection : PGList;
-            undo_unselection : PGList;
-            undo_anchor : gint;
-            button_actions : array[0..4] of guint8;
-            drag_button : guint8;
-            click_cell : TGtkCListCellInfo;
-            hadjustment : PGtkAdjustment;
-            vadjustment : PGtkAdjustment;
-            xor_gc : PGdkGC;
-            fg_gc : PGdkGC;
-            bg_gc : PGdkGC;
-            cursor_drag : PGdkCursor;
-            x_drag : gint;
-            focus_row : gint;
-            anchor : gint;
-            anchor_state : TGtkStateType;
-            drag_pos : gint;
-            htimer : gint;
-            vtimer : gint;
-            sort_type : TGtkSortType;
-            compare : TGtkCListCompareFunc;
-            sort_column : gint;
-         end;
-
-       TGtkCListClass = record
-            parent_class : TGtkContainerClass;
-            set_scroll_adjustments : procedure (clist:PGtkCList; hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment);cdecl;
-            refresh : procedure (clist:PGtkCList);cdecl;
-            select_row : procedure (clist:PGtkCList; row:gint; column:gint; event:PGdkEvent);cdecl;
-            unselect_row : procedure (clist:PGtkCList; row:gint; column:gint; event:PGdkEvent);cdecl;
-            row_move : procedure (clist:PGtkCList; source_row:gint; dest_row:gint);cdecl;
-            click_column : procedure (clist:PGtkCList; column:gint);cdecl;
-            resize_column : procedure (clist:PGtkCList; column:gint; width:gint);cdecl;
-            toggle_focus_row : procedure (clist:PGtkCList);cdecl;
-            select_all : procedure (clist:PGtkCList);cdecl;
-            unselect_all : procedure (clist:PGtkCList);cdecl;
-            undo_selection : procedure (clist:PGtkCList);cdecl;
-            start_selection : procedure (clist:PGtkCList);cdecl;
-            end_selection : procedure (clist:PGtkCList);cdecl;
-            extend_selection : procedure (clist:PGtkCList; scroll_type:TGtkScrollType; position:gfloat; auto_start_selection:gboolean);cdecl;
-            scroll_horizontal : procedure (clist:PGtkCList; scroll_type:TGtkScrollType; position:gfloat);cdecl;
-            scroll_vertical : procedure (clist:PGtkCList; scroll_type:TGtkScrollType; position:gfloat);cdecl;
-            toggle_add_mode : procedure (clist:PGtkCList);cdecl;
-            abort_column_resize : procedure (clist:PGtkCList);cdecl;
-            resync_selection : procedure (clist:PGtkCList; event:PGdkEvent);cdecl;
-            selection_find : function (clist:PGtkCList; row_number:gint; row_list_element:PGList):PGList;cdecl;
-            draw_row : procedure (clist:PGtkCList; area:PGdkRectangle; row:gint; clist_row:PGtkCListRow);cdecl;
-            draw_drag_highlight : procedure (clist:PGtkCList; target_row:PGtkCListRow; target_row_number:gint; drag_pos:TGtkCListDragPos);cdecl;
-            clear : procedure (clist:PGtkCList);cdecl;
-            fake_unselect_all : procedure (clist:PGtkCList; row:gint);cdecl;
-            sort_list : procedure (clist:PGtkCList);cdecl;
-            insert_row : procedure (clist:PGtkCList; row:gint; text:PPgchar);cdecl;
-            remove_row : procedure (clist:PGtkCList; row:gint);cdecl;
-            set_cell_contents : procedure (clist:PGtkCList; clist_row:PGtkCListRow; column:gint; thetype:TGtkCellType; text:Pgchar; spacing:guint8; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;
-            cell_size_request : procedure (clist:PGtkCList; clist_row:PGtkCListRow; column:gint; requisition:PGtkRequisition);cdecl;
-         end;
-
-       TGtkCListColumn = record
-            title : Pgchar;
-            area : TGdkRectangle;
-            button : PGtkWidget;
-            window : PGdkWindow;
-            width : gint;
-            min_width : gint;
-            max_width : gint;
-            justification : TGtkJustification;
-            flag0 : {$ifdef win32}longint{$else}word{$endif};
-         end;
-
-       TGtkCListRow = record
-            cell : PGtkCell;
-            state : TGtkStateType;
-            foreground : TGdkColor;
-            background : TGdkColor;
-            style : PGtkStyle;
-            data : gpointer;
-            destroy : TGtkDestroyNotify;
-            flag0 : {$ifdef win32}longint{$else}word{$endif};
-         end;
-       TGtkCellText = record
-            thetype : TGtkCellType;
-            vertical : gint16;
-            horizontal : gint16;
-            style : PGtkStyle;
-            thetext : Pgchar;
-         end;
-       TGtkCellPixmap = record
-            thetype : TGtkCellType;
-            vertical : gint16;
-            horizontal : gint16;
-            style : PGtkStyle;
-            pixmap : PGdkPixmap;
-            mask : PGdkBitmap;
-         end;
-       TGtkCellPixText = record
-            thetype : TGtkCellType;
-            vertical : gint16;
-            horizontal : gint16;
-            style : PGtkStyle;
-            thetext : Pgchar;
-            spacing : guint8;
-            pixmap : PGdkPixmap;
-            mask : PGdkBitmap;
-         end;
-       TGtkCellWidget = record
-            thetype : TGtkCellType;
-            vertical : gint16;
-            horizontal : gint16;
-            style : PGtkStyle;
-            widget : PGtkWidget;
-         end;
-       TGtkCell = record
-            thetype : TGtkCellType;
-            vertical : gint16;
-            horizontal : gint16;
-            style : PGtkStyle;
-            u : record
-                case longint of
-                   0 : ( text : Pgchar );
-                   1 : ( pm : record
-                        pixmap : PGdkPixmap;
-                        mask : PGdkBitmap;
-                     end );
-                   2 : ( pt : record
-                        text : Pgchar;
-                        spacing : guint8;
-                        pixmap : PGdkPixmap;
-                        mask : PGdkBitmap;
-                     end );
-                   3 : ( widget : PGtkWidget );
-                end;
-         end;
-
-    const
-       bm_TGtkCListColumn_visible = $1;
-       bp_TGtkCListColumn_visible = 0;
-       bm_TGtkCListColumn_width_set = $2;
-       bp_TGtkCListColumn_width_set = 1;
-       bm_TGtkCListColumn_resizeable = $4;
-       bp_TGtkCListColumn_resizeable = 2;
-       bm_TGtkCListColumn_auto_resize = $8;
-       bp_TGtkCListColumn_auto_resize = 3;
-       bm_TGtkCListColumn_button_passive = $10;
-       bp_TGtkCListColumn_button_passive = 4;
-function  visible(var a : TGtkCListColumn) : guint;
-procedure set_visible(var a : TGtkCListColumn; __visible : guint);
-function  width_set(var a : TGtkCListColumn) : guint;
-procedure set_width_set(var a : TGtkCListColumn; __width_set : guint);
-function  resizeable(var a : TGtkCListColumn) : guint;
-procedure set_resizeable(var a : TGtkCListColumn; __resizeable : guint);
-function  auto_resize(var a : TGtkCListColumn) : guint;
-procedure set_auto_resize(var a : TGtkCListColumn; __auto_resize : guint);
-function  button_passive(var a : TGtkCListColumn) : guint;
-procedure set_button_passive(var a : TGtkCListColumn; __button_passive : guint);
-    const
-       bm_TGtkCListRow_fg_set = $1;
-       bp_TGtkCListRow_fg_set = 0;
-       bm_TGtkCListRow_bg_set = $2;
-       bp_TGtkCListRow_bg_set = 1;
-       bm_TGtkCListRow_selectable = $4;
-       bp_TGtkCListRow_selectable = 2;
-function  fg_set(var a : TGtkCListRow) : guint;cdecl;
-procedure set_fg_set(var a : TGtkCListRow; __fg_set : guint);cdecl;
-function  bg_set(var a : TGtkCListRow) : guint;cdecl;
-procedure set_bg_set(var a : TGtkCListRow; __bg_set : guint);cdecl;
-function  selectable(var a : TGtkCListRow) : guint;
-procedure set_selectable(var a : TGtkCListRow; __selectable : guint);
-
-Type
-  GTK_CLIST=PGtkCList;
-  GTK_CLIST_CLASS=PGtkCListClass;
-
-function  GTK_CLIST_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_clist_get_type';
-function  GTK_IS_CLIST(obj:pointer):boolean;
-function  GTK_IS_CLIST_CLASS(klass:pointer):boolean;
-
-function  gtk_clist_get_type:TGtkType;cdecl;external gtkdll name 'gtk_clist_get_type';
-procedure gtk_clist_construct(clist:PGtkCList; columns:gint; titles:PPgchar);cdecl;external gtkdll name 'gtk_clist_construct';
-function  gtk_clist_new (columns:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_clist_new';
-function  gtk_clist_new_with_titles (columns:gint; titles:PPgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_clist_new_with_titles';
-procedure gtk_clist_set_hadjustment(clist:PGtkCList; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_clist_set_hadjustment';
-procedure gtk_clist_set_vadjustment(clist:PGtkCList; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_clist_set_vadjustment';
-function  gtk_clist_get_hadjustment(clist:PGtkCList):PGtkAdjustment;cdecl;external gtkdll name 'gtk_clist_get_hadjustment';
-function  gtk_clist_get_vadjustment(clist:PGtkCList):PGtkAdjustment;cdecl;external gtkdll name 'gtk_clist_get_vadjustment';
-procedure gtk_clist_set_shadow_type(clist:PGtkCList; thetype:TGtkShadowType);cdecl;external gtkdll name 'gtk_clist_set_shadow_type';
-procedure gtk_clist_set_selection_mode(clist:PGtkCList; mode:TGtkSelectionMode);cdecl;external gtkdll name 'gtk_clist_set_selection_mode';
-procedure gtk_clist_set_reorderable(clist:PGtkCList; reorderable:gboolean);cdecl;external gtkdll name 'gtk_clist_set_reorderable';
-procedure gtk_clist_set_use_drag_icons(clist:PGtkCList; use_icons:gboolean);cdecl;external gtkdll name 'gtk_clist_set_use_drag_icons';
-procedure gtk_clist_set_button_actions(clist:PGtkCList; button:guint; button_actions:guint8);cdecl;external gtkdll name 'gtk_clist_set_button_actions';
-procedure gtk_clist_freeze(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_freeze';
-procedure gtk_clist_thaw(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_thaw';
-procedure gtk_clist_column_titles_show(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_column_titles_show';
-procedure gtk_clist_column_titles_hide(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_column_titles_hide';
-procedure gtk_clist_column_title_active(clist:PGtkCList; column:gint);cdecl;external gtkdll name 'gtk_clist_column_title_active';
-procedure gtk_clist_column_title_passive(clist:PGtkCList; column:gint);cdecl;external gtkdll name 'gtk_clist_column_title_passive';
-procedure gtk_clist_column_titles_active(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_column_titles_active';
-procedure gtk_clist_column_titles_passive(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_column_titles_passive';
-procedure gtk_clist_set_column_title(clist:PGtkCList; column:gint; title:Pgchar);cdecl;external gtkdll name 'gtk_clist_set_column_title';
-function  gtk_clist_get_column_title(clist:PGtkCList; column:gint):Pgchar;cdecl;external gtkdll name 'gtk_clist_get_column_title';
-procedure gtk_clist_set_column_widget(clist:PGtkCList; column:gint; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_clist_set_column_widget';
-function  gtk_clist_get_column_widget(clist:PGtkCList; column:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_clist_get_column_widget';
-procedure gtk_clist_set_column_justification(clist:PGtkCList; column:gint; justification:TGtkJustification);cdecl;external gtkdll name 'gtk_clist_set_column_justification';
-procedure gtk_clist_set_column_visibility(clist:PGtkCList; column:gint; visible:gboolean);cdecl;external gtkdll name 'gtk_clist_set_column_visibility';
-procedure gtk_clist_set_column_resizeable(clist:PGtkCList; column:gint; resizeable:gboolean);cdecl;external gtkdll name 'gtk_clist_set_column_resizeable';
-procedure gtk_clist_set_column_auto_resize(clist:PGtkCList; column:gint; auto_resize:gboolean);cdecl;external gtkdll name 'gtk_clist_set_column_auto_resize';
-function  gtk_clist_columns_autosize(clist:PGtkCList):gint;cdecl;external gtkdll name 'gtk_clist_columns_autosize';
-function  gtk_clist_optimal_column_width(clist:PGtkCList; column:gint):gint;cdecl;external gtkdll name 'gtk_clist_optimal_column_width';
-procedure gtk_clist_set_column_width(clist:PGtkCList; column:gint; width:gint);cdecl;external gtkdll name 'gtk_clist_set_column_width';
-procedure gtk_clist_set_column_min_width(clist:PGtkCList; column:gint; min_width:gint);cdecl;external gtkdll name 'gtk_clist_set_column_min_width';
-procedure gtk_clist_set_column_max_width(clist:PGtkCList; column:gint; max_width:gint);cdecl;external gtkdll name 'gtk_clist_set_column_max_width';
-procedure gtk_clist_set_row_height(clist:PGtkCList; height:guint);cdecl;external gtkdll name 'gtk_clist_set_row_height';
-procedure gtk_clist_moveto(clist:PGtkCList; row:gint; column:gint; row_align:gfloat; col_align:gfloat);cdecl;external gtkdll name 'gtk_clist_moveto';
-function  gtk_clist_row_is_visible(clist:PGtkCList; row:gint):TGtkVisibility;cdecl;external gtkdll name 'gtk_clist_row_is_visible';
-function  gtk_clist_get_cell_type(clist:PGtkCList; row:gint; column:gint):TGtkCellType;cdecl;external gtkdll name 'gtk_clist_get_cell_type';
-procedure gtk_clist_set_text(clist:PGtkCList; row:gint; column:gint; thetext:Pgchar);cdecl;external gtkdll name 'gtk_clist_set_text';
-function  gtk_clist_get_text(clist:PGtkCList; row:gint; column:gint; thetext:PPgchar):gint;cdecl;external gtkdll name 'gtk_clist_get_text';
-procedure gtk_clist_set_pixmap(clist:PGtkCList; row:gint; column:gint; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_clist_set_pixmap';
-function  gtk_clist_get_pixmap(clist:PGtkCList; row:gint; column:gint; pixmap:PPGdkPixmap; mask:PPGdkBitmap):gint;cdecl;external gtkdll name 'gtk_clist_get_pixmap';
-procedure gtk_clist_set_pixtext(clist:PGtkCList; row:gint; column:gint; thetext:Pgchar; spacing:guint8;pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_clist_set_pixtext';
-function  gtk_clist_get_pixtext(clist:PGtkCList; row:gint; column:gint; thetext:PPgchar; spacing:Pguint8;pixmap:PPGdkPixmap; mask:PPGdkBitmap):gint;cdecl;external gtkdll name 'gtk_clist_get_pixtext';
-procedure gtk_clist_set_foreground(clist:PGtkCList; row:gint; color:PGdkColor);cdecl;external gtkdll name 'gtk_clist_set_foreground';
-procedure gtk_clist_set_background(clist:PGtkCList; row:gint; color:PGdkColor);cdecl;external gtkdll name 'gtk_clist_set_background';
-procedure gtk_clist_set_cell_style(clist:PGtkCList; row:gint; column:gint; style:PGtkStyle);cdecl;external gtkdll name 'gtk_clist_set_cell_style';
-function  gtk_clist_get_cell_style(clist:PGtkCList; row:gint; column:gint):PGtkStyle;cdecl;external gtkdll name 'gtk_clist_get_cell_style';
-procedure gtk_clist_set_row_style(clist:PGtkCList; row:gint; style:PGtkStyle);cdecl;external gtkdll name 'gtk_clist_set_row_style';
-function  gtk_clist_get_row_style(clist:PGtkCList; row:gint):PGtkStyle;cdecl;external gtkdll name 'gtk_clist_get_row_style';
-procedure gtk_clist_set_shift(clist:PGtkCList; row:gint; column:gint; vertical:gint; horizontal:gint);cdecl;external gtkdll name 'gtk_clist_set_shift';
-function  gtk_clist_prepend(clist:PGtkCList; thetext:PPgchar):gint;cdecl;external gtkdll name 'gtk_clist_prepend';
-function  gtk_clist_append(clist:PGtkCList; thetext:PPgchar):gint;cdecl;external gtkdll name 'gtk_clist_append';
-procedure gtk_clist_insert(clist:PGtkCList; row:gint; thetext:PPgchar);cdecl;external gtkdll name 'gtk_clist_insert';
-procedure gtk_clist_remove(clist:PGtkCList; row:gint);cdecl;external gtkdll name 'gtk_clist_remove';
-procedure gtk_clist_set_row_data(clist:PGtkCList; row:gint; data:gpointer);cdecl;external gtkdll name 'gtk_clist_set_row_data';
-procedure gtk_clist_set_row_data_full(clist:PGtkCList; row:gint; data:gpointer; destroy:TGtkDestroyNotify);cdecl;external gtkdll name 'gtk_clist_set_row_data_full';
-function  gtk_clist_get_row_data(clist:PGtkCList; row:gint):gpointer;cdecl;external gtkdll name 'gtk_clist_get_row_data';
-function  gtk_clist_find_row_from_data(clist:PGtkCList; data:gpointer):gint;cdecl;external gtkdll name 'gtk_clist_find_row_from_data';
-procedure gtk_clist_select_row(clist:PGtkCList; row:gint; column:gint);cdecl;external gtkdll name 'gtk_clist_select_row';
-procedure gtk_clist_unselect_row(clist:PGtkCList; row:gint; column:gint);cdecl;external gtkdll name 'gtk_clist_unselect_row';
-procedure gtk_clist_clear(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_clear';
-function  gtk_clist_get_selection_info(clist:PGtkCList; x:gint; y:gint; row:Pgint; column:Pgint):gint;cdecl;external gtkdll name 'gtk_clist_get_selection_info';
-procedure gtk_clist_select_all(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_select_all';
-procedure gtk_clist_unselect_all(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_unselect_all';
-procedure gtk_clist_swap_rows(clist:PGtkCList; row1:gint; row2:gint);cdecl;external gtkdll name 'gtk_clist_swap_rows';
-procedure gtk_clist_row_move(clist:PGtkCList; source_row:gint; dest_row:gint);cdecl;external gtkdll name 'gtk_clist_row_move';
-procedure gtk_clist_set_compare_func(clist:PGtkCList; cmp_func:TGtkCListCompareFunc);cdecl;external gtkdll name 'gtk_clist_set_compare_func';
-procedure gtk_clist_set_sort_column(clist:PGtkCList; column:gint);cdecl;external gtkdll name 'gtk_clist_set_sort_column';
-procedure gtk_clist_set_sort_type(clist:PGtkCList; sort_type:TGtkSortType);cdecl;external gtkdll name 'gtk_clist_set_sort_type';
-procedure gtk_clist_sort(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_sort';
-procedure gtk_clist_set_auto_sort(clist:PGtkCList; auto_sort:gboolean);cdecl;external gtkdll name 'gtk_clist_set_auto_sort';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  visible(var a : TGtkCListColumn) : guint;
-      begin
-         visible:=(a.flag0 and bm_TGtkCListColumn_visible) shr bp_TGtkCListColumn_visible;
-      end;
-
-procedure set_visible(var a : TGtkCListColumn; __visible : guint);
-      begin
-         a.flag0:=a.flag0 or ((__visible shl bp_TGtkCListColumn_visible) and bm_TGtkCListColumn_visible);
-      end;
-
-function  width_set(var a : TGtkCListColumn) : guint;
-      begin
-         width_set:=(a.flag0 and bm_TGtkCListColumn_width_set) shr bp_TGtkCListColumn_width_set;
-      end;
-
-procedure set_width_set(var a : TGtkCListColumn; __width_set : guint);
-      begin
-         a.flag0:=a.flag0 or ((__width_set shl bp_TGtkCListColumn_width_set) and bm_TGtkCListColumn_width_set);
-      end;
-
-function  resizeable(var a : TGtkCListColumn) : guint;
-      begin
-         resizeable:=(a.flag0 and bm_TGtkCListColumn_resizeable) shr bp_TGtkCListColumn_resizeable;
-      end;
-
-procedure set_resizeable(var a : TGtkCListColumn; __resizeable : guint);
-      begin
-         a.flag0:=a.flag0 or ((__resizeable shl bp_TGtkCListColumn_resizeable) and bm_TGtkCListColumn_resizeable);
-      end;
-
-function  auto_resize(var a : TGtkCListColumn) : guint;
-      begin
-         auto_resize:=(a.flag0 and bm_TGtkCListColumn_auto_resize) shr bp_TGtkCListColumn_auto_resize;
-      end;
-
-procedure set_auto_resize(var a : TGtkCListColumn; __auto_resize : guint);
-      begin
-         a.flag0:=a.flag0 or ((__auto_resize shl bp_TGtkCListColumn_auto_resize) and bm_TGtkCListColumn_auto_resize);
-      end;
-
-function  button_passive(var a : TGtkCListColumn) : guint;
-      begin
-         button_passive:=(a.flag0 and bm_TGtkCListColumn_button_passive) shr bp_TGtkCListColumn_button_passive;
-      end;
-
-procedure set_button_passive(var a : TGtkCListColumn; __button_passive : guint);
-      begin
-         a.flag0:=a.flag0 or ((__button_passive shl bp_TGtkCListColumn_button_passive) and bm_TGtkCListColumn_button_passive);
-      end;
-
-function  fg_set(var a : TGtkCListRow) : guint;cdecl;
-      begin
-         fg_set:=(a.flag0 and bm_TGtkCListRow_fg_set) shr bp_TGtkCListRow_fg_set;
-      end;
-
-procedure set_fg_set(var a : TGtkCListRow; __fg_set : guint);cdecl;
-      begin
-         a.flag0:=a.flag0 or ((__fg_set shl bp_TGtkCListRow_fg_set) and bm_TGtkCListRow_fg_set);
-      end;
-
-function  bg_set(var a : TGtkCListRow) : guint;cdecl;
-      begin
-         bg_set:=(a.flag0 and bm_TGtkCListRow_bg_set) shr bp_TGtkCListRow_bg_set;
-      end;
-
-procedure set_bg_set(var a : TGtkCListRow; __bg_set : guint);cdecl;
-      begin
-         a.flag0:=a.flag0 or ((__bg_set shl bp_TGtkCListRow_bg_set) and bm_TGtkCListRow_bg_set);
-      end;
-
-function  selectable(var a : TGtkCListRow) : guint;
-      begin
-         selectable:=(a.flag0 and bm_TGtkCListRow_selectable) shr bp_TGtkCListRow_selectable;
-      end;
-
-procedure set_selectable(var a : TGtkCListRow; __selectable : guint);
-      begin
-         a.flag0:=a.flag0 or ((__selectable shl bp_TGtkCListRow_selectable) and bm_TGtkCListRow_selectable);
-      end;
-
-function  GTK_IS_CLIST(obj:pointer):boolean;
-begin
-  GTK_IS_CLIST:=(obj<>nil) and GTK_IS_CLIST_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CLIST_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CLIST_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CLIST_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkcolorsel.pp

@@ -1,101 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkColorSelection = ^TGtkColorSelection;
-       TGtkColorSelection = record
-            vbox : TGtkVBox;
-            wheel_area : PGtkWidget;
-            value_area : PGtkWidget;
-            sample_area : PGtkWidget;
-            sample_area_eb : PGtkWidget;
-            scales : array[0..7] of PGtkWidget;
-            entries : array[0..7] of PGtkWidget;
-            opacity_label : PGtkWidget;
-            wheel_gc : PGdkGC;
-            value_gc : PGdkGC;
-            sample_gc : PGdkGC;
-            policy : TGtkUpdateType;
-            use_opacity : gint;
-            timer_active : gint;
-            timer_tag : gint;
-            values : array[0..7] of gdouble;
-            old_values : array[0..7] of gdouble;
-            wheel_buf : Pguchar;
-            value_buf : Pguchar;
-            sample_buf : Pguchar;
-         end;
-
-       PGtkColorSelectionClass = ^TGtkColorSelectionClass;
-       TGtkColorSelectionClass = record
-            parent_class : TGtkVBoxClass;
-            color_changed : procedure (colorsel:PGtkColorSelection); cdecl;
-         end;
-
-       PGtkColorSelectionDialog = ^TGtkColorSelectionDialog;
-       TGtkColorSelectionDialog = record
-            window : TGtkWindow;
-            colorsel : PGtkWidget;
-            main_vbox : PGtkWidget;
-            ok_button : PGtkWidget;
-            reset_button : PGtkWidget;
-            cancel_button : PGtkWidget;
-            help_button : PGtkWidget;
-         end;
-
-       PGtkColorSelectionDialogClass = ^TGtkColorSelectionDialogClass;
-       TGtkColorSelectionDialogClass = record
-            parent_class : TGtkWindowClass;
-         end;
-
-Type
-  GTK_COLOR_SELECTION=PGtkColorSelection;
-  GTK_COLOR_SELECTION_CLASS=PGtkColorSelectionClass;
-
-  GTK_COLOR_SELECTION_DIALOG=PGtkColorSelectionDialog;
-  GTK_COLOR_SELECTION_DIALOG_CLASS=PGtkColorSelectionDialogClass;
-
-{ ColorSelection }
-function  GTK_COLOR_SELECTION_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_color_selection_get_type';
-function  GTK_IS_COLOR_SELECTION(obj:pointer):boolean;
-function  GTK_IS_COLOR_SELECTION_CLASS(klass:pointer):boolean;
-
-function  gtk_color_selection_get_type:TGtkType;cdecl;external gtkdll name 'gtk_color_selection_get_type';
-function  gtk_color_selection_new:PGtkWidget;cdecl;external gtkdll name 'gtk_color_selection_new';
-procedure gtk_color_selection_set_update_policy(colorsel:PGtkColorSelection; policy:TGtkUpdateType);cdecl;external gtkdll name 'gtk_color_selection_set_update_policy';
-procedure gtk_color_selection_set_opacity(colorsel:PGtkColorSelection; use_opacity:gint);cdecl;external gtkdll name 'gtk_color_selection_set_opacity';
-procedure gtk_color_selection_set_color(colorsel:PGtkColorSelection; color:Pgdouble);cdecl;external gtkdll name 'gtk_color_selection_set_color';
-procedure gtk_color_selection_get_color(colorsel:PGtkColorSelection; color:Pgdouble);cdecl;external gtkdll name 'gtk_color_selection_get_color';
-
-{ ColorSelectionDialog }
-function  gtk_color_selection_dialog_get_type:guint;cdecl;external gtkdll name 'gtk_color_selection_dialog_get_type';
-function  gtk_color_selection_dialog_new (title:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_color_selection_dialog_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_COLOR_SELECTION(obj:pointer):boolean;
-begin
-  GTK_IS_COLOR_SELECTION:=(obj<>nil) and GTK_IS_COLOR_SELECTION_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_COLOR_SELECTION_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_COLOR_SELECTION_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_COLOR_SELECTION_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkcombo.pp

@@ -1,143 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkCombo = ^TGtkCombo;
-     TGtkCombo = record
-          hbox : TGtkHBox;
-          entry : PGtkWidget;
-          button : PGtkWidget;
-          popup : PGtkWidget;
-          popwin : PGtkWidget;
-          list : PGtkWidget;
-          entry_change_id : guint;
-          list_change_id : guint;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          current_button : guint16;
-          activate_id : guint;
-       end;
-
-  const
-     bm_value_in_list = 1;
-     bp_value_in_list = 0;
-     bm_ok_if_empty = 2;
-     bp_ok_if_empty = 1;
-     bm_case_sensitive = 4;
-     bp_case_sensitive = 2;
-     bm_use_arrows = 8;
-     bp_use_arrows = 3;
-     bm_use_arrows_always = 16;
-     bp_use_arrows_always = 4;
-function  value_in_list(var a : TGtkCombo) : guint;
-procedure set_value_in_list(var a : TGtkCombo; __value_in_list : guint);
-function  ok_if_empty(var a : TGtkCombo) : guint;
-procedure set_ok_if_empty(var a : TGtkCombo; __ok_if_empty : guint);
-function  case_sensitive(var a : TGtkCombo) : guint;
-procedure set_case_sensitive(var a : TGtkCombo; __case_sensitive : guint);
-function  use_arrows(var a : TGtkCombo) : guint;
-procedure set_use_arrows(var a : TGtkCombo; __use_arrows : guint);
-function  use_arrows_always(var a : TGtkCombo) : guint;
-procedure set_use_arrows_always(var a : TGtkCombo; __use_arrows_always : guint);
-
-  type
-     PGtkComboClass = ^TGtkComboClass;
-     TGtkComboClass = record
-          parent_class : TGtkHBoxClass;
-       end;
-
-Type
-  GTK_COMBO=PGtkCombo;
-  GTK_COMBO_CLASS=PGtkComboClass;
-
-function  GTK_COMBO_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_combo_get_type';
-function  GTK_IS_COMBO(obj:pointer):boolean;
-function  GTK_IS_COMBO_CLASS(klass:pointer):boolean;
-
-function  gtk_combo_get_type:TGtkType;cdecl;external gtkdll name 'gtk_combo_get_type';
-function  gtk_combo_new : PGtkWidget;cdecl;external gtkdll name 'gtk_combo_new';
-procedure gtk_combo_set_value_in_list(combo:PGtkCombo; val:gint; ok_if_empty:gint);cdecl;external gtkdll name 'gtk_combo_set_value_in_list';
-procedure gtk_combo_set_use_arrows(combo:PGtkCombo; val:gint);cdecl;external gtkdll name 'gtk_combo_set_use_arrows';
-procedure gtk_combo_set_use_arrows_always(combo:PGtkCombo; val:gint);cdecl;external gtkdll name 'gtk_combo_set_use_arrows_always';
-procedure gtk_combo_set_case_sensitive(combo:PGtkCombo; val:gint);cdecl;external gtkdll name 'gtk_combo_set_case_sensitive';
-procedure gtk_combo_set_item_string(combo:PGtkCombo; item:PGtkItem; item_value:Pgchar);cdecl;external gtkdll name 'gtk_combo_set_item_string';
-procedure gtk_combo_set_popdown_strings(combo:PGtkCombo; strings:PGList);cdecl;external gtkdll name 'gtk_combo_set_popdown_strings';
-procedure gtk_combo_disable_activate(combo:PGtkCombo);cdecl;external gtkdll name 'gtk_combo_disable_activate';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  value_in_list(var a : TGtkCombo) : guint;
-    begin
-       value_in_list:=(a.flag0 and bm_value_in_list) shr bp_value_in_list;
-    end;
-
-procedure set_value_in_list(var a : TGtkCombo; __value_in_list : guint);
-    begin
-       a.flag0:=a.flag0 or ((__value_in_list shl bp_value_in_list) and bm_value_in_list);
-    end;
-
-function  ok_if_empty(var a : TGtkCombo) : guint;
-    begin
-       ok_if_empty:=(a.flag0 and bm_ok_if_empty) shr bp_ok_if_empty;
-    end;
-
-procedure set_ok_if_empty(var a : TGtkCombo; __ok_if_empty : guint);
-    begin
-       a.flag0:=a.flag0 or ((__ok_if_empty shl bp_ok_if_empty) and bm_ok_if_empty);
-    end;
-
-function  case_sensitive(var a : TGtkCombo) : guint;
-    begin
-       case_sensitive:=(a.flag0 and bm_case_sensitive) shr bp_case_sensitive;
-    end;
-
-procedure set_case_sensitive(var a : TGtkCombo; __case_sensitive : guint);
-    begin
-       a.flag0:=a.flag0 or ((__case_sensitive shl bp_case_sensitive) and bm_case_sensitive);
-    end;
-
-function  use_arrows(var a : TGtkCombo) : guint;
-    begin
-       use_arrows:=(a.flag0 and bm_use_arrows) shr bp_use_arrows;
-    end;
-
-procedure set_use_arrows(var a : TGtkCombo; __use_arrows : guint);
-    begin
-       a.flag0:=a.flag0 or ((__use_arrows shl bp_use_arrows) and bm_use_arrows);
-    end;
-
-function  use_arrows_always(var a : TGtkCombo) : guint;
-    begin
-       use_arrows_always:=(a.flag0 and bm_use_arrows_always) shr bp_use_arrows_always;
-    end;
-
-procedure set_use_arrows_always(var a : TGtkCombo; __use_arrows_always : guint);
-    begin
-       a.flag0:=a.flag0 or ((__use_arrows_always shl bp_use_arrows_always) and bm_use_arrows_always);
-    end;
-
-function  GTK_IS_COMBO(obj:pointer):boolean;
-begin
-  GTK_IS_COMBO:=(obj<>nil) and GTK_IS_COMBO_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_COMBO_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_COMBO_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_COMBO_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkcontainer.pp

@@ -1,144 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkContainer = ^TGtkContainer;
-       TGtkContainer = record
-            widget : TGtkWidget;
-            focus_child : PGtkWidget;
-            flag0 : longint;
-            resize_widgets : PGSList;
-         end;
-  const
-     bm_TGtkContainer_border_width = $FFFF;
-     bp_TGtkContainer_border_width = 0;
-     bm_TGtkContainer_need_resize = $10000;
-     bp_TGtkContainer_need_resize = 16;
-     bm_TGtkContainer_resize_mode = $60000;
-     bp_TGtkContainer_resize_mode = 17;
-function  border_width(var a : TGtkContainer) : guint;
-procedure set_border_width(var a : TGtkContainer; __border_width : guint);
-function  need_resize(var a : TGtkContainer) : guint;
-procedure set_need_resize(var a : TGtkContainer; __need_resize : guint);
-function  resize_mode(var a : TGtkContainer) : guint;
-procedure set_resize_mode(var a : TGtkContainer; __resize_mode : guint);
-
-    type
-       PGtkContainerClass = ^TGtkContainerClass;
-       TGtkContainerClass = record
-          parent_class : TGtkWidgetClass;
-          n_child_args : guint;
-          add : procedure (container:PGtkContainer; widget:PGtkWidget); cdecl;
-          remove : procedure (container:PGtkContainer; widget:PGtkWidget); cdecl;
-          check_resize : procedure (container:PGtkContainer);cdecl;
-          forall : procedure (container:PGtkContainer; include_internals:gboolean; callback:TGtkCallback; callbabck_data:gpointer);cdecl;
-          focus : function (container:PGtkContainer; direction:TGtkDirectionType):gint; cdecl;
-          set_focus_child : procedure (container:PGtkContainer; widget:PGtkWidget);cdecl;
-          child_type : function (container:PGtkContainer):TGtkType;cdecl;
-          set_child_arg : procedure (container:PGtkContainer; child:PGtkWidget; arg:PGtkArg; arg_id:guint);cdecl;
-          get_child_arg : procedure (container:PGtkContainer; child:PGtkWidget; arg:PGtkArg; arg_id:guint);cdecl;
-          composite_name : function (container:PGtkContainer; child:PGtkWidget):Pgchar;cdecl;
-          pad1 : TGtkfunction;
-          pad2 : TGtkfunction;
-        end;
-
-Type
-  GTK_CONTAINER = PGtkContainer;
-  GTK_CONTAINER_CLASS = PGtkContainerClass;
-
-function  GTK_CONTAINER_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_container_get_type';
-function  GTK_IS_CONTAINER(obj:pointer):boolean;
-function  GTK_IS_CONTAINER_CLASS(klass:pointer):boolean;
-
-function  gtk_container_get_type:TGtkType;cdecl;external gtkdll name 'gtk_container_get_type';
-procedure gtk_container_set_border_width(container:PGtkContainer; border_width:guint);cdecl;external gtkdll name 'gtk_container_set_border_width';
-procedure gtk_container_add(container:PGtkContainer; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_container_add';
-procedure gtk_container_remove(container:PGtkContainer; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_container_remove';
-procedure gtk_container_set_resize_mode(container:PGtkContainer; resize_mode:TGtkResizeMode);cdecl;external gtkdll name 'gtk_container_set_resize_mode';
-procedure gtk_container_check_resize(container:PGtkContainer);cdecl;external gtkdll name 'gtk_container_check_resize';
-procedure gtk_container_foreach(container:PGtkContainer; callback:TGtkCallback; callback_data:gpointer);cdecl;external gtkdll name 'gtk_container_foreach';
-procedure gtk_container_foreach_full(container:PGtkContainer; callback:TGtkCallback; marshal:TGtkCallbackMarshal; callback_data:gpointer; notify:TGtkDestroyNotify);cdecl;external gtkdll name 'gtk_container_foreach_full';
-function  gtk_container_children (container:PGtkContainer):PGList;cdecl;external gtkdll name 'gtk_container_children';
-function  gtk_container_focus(container:PGtkContainer; direction:TGtkDirectionType):gint;cdecl;external gtkdll name 'gtk_container_focus';
-procedure gtk_container_set_focus_child(container:PGtkContainer; child:PGtkWidget);cdecl;external gtkdll name 'gtk_container_set_focus_child';
-procedure gtk_container_set_focus_vadjustment(container:PGtkContainer; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_container_set_focus_vadjustment';
-procedure gtk_container_set_focus_hadjustment(container:PGtkContainer; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_container_set_focus_hadjustment';
-procedure gtk_container_register_toplevel(container:PGtkContainer);cdecl;external gtkdll name 'gtk_container_register_toplevel';
-procedure gtk_container_unregister_toplevel(container:PGtkContainer);cdecl;external gtkdll name 'gtk_container_unregister_toplevel';
-function  gtk_container_get_toplevels:PGList;cdecl;external gtkdll name 'gtk_container_get_toplevels';
-procedure gtk_container_resize_children(container:PGtkContainer);cdecl;external gtkdll name 'gtk_container_resize_children';
-function  gtk_container_child_type(container:PGtkContainer):TGtkType;cdecl;external gtkdll name 'gtk_container_child_type';
-procedure gtk_container_add_child_arg_type(arg_name:Pgchar; arg_type:TGtkType; arg_flags:guint; arg_id:guint);cdecl;external gtkdll name 'gtk_container_add_child_arg_type';
-function  gtk_container_query_child_args(class_type:TGtkType; arg_flags:PPguint32; nargs:Pguint):PGtkArg;cdecl;external gtkdll name 'gtk_container_query_child_args';
-procedure gtk_container_child_getv(container:PGtkContainer; child:PGtkWidget; n_args:guint; args:PGtkArg);cdecl;external gtkdll name 'gtk_container_child_getv';
-procedure gtk_container_child_setv(container:PGtkContainer; child:PGtkWidget; n_args:guint; args:PGtkArg);cdecl;external gtkdll name 'gtk_container_child_setv';
-procedure gtk_container_add_with_args(container:PGtkContainer; widget:PGtkWidget; first_arg_name:Pgchar; args:array of const);cdecl;external gtkdll name 'gtk_container_add_with_args';
-procedure gtk_container_addv(container:PGtkContainer; widget:PGtkWidget; n_args:guint; args:PGtkArg);cdecl;external gtkdll name 'gtk_container_addv';
-procedure gtk_container_child_set(container:PGtkContainer; child:PGtkWidget; first_arg_name:Pgchar; args:array of const);cdecl;external gtkdll name 'gtk_container_child_set';
-procedure gtk_container_queue_resize(container:PGtkContainer);cdecl;external gtkdll name 'gtk_container_queue_resize';
-procedure gtk_container_clear_resize_widgets(container:PGtkContainer);cdecl;external gtkdll name 'gtk_container_clear_resize_widgets';
-procedure gtk_container_arg_set(container:PGtkContainer; child:PGtkWidget; arg:PGtkArg; info:PGtkArgInfo);cdecl;external gtkdll name 'gtk_container_arg_set';
-procedure gtk_container_arg_get(container:PGtkContainer; child:PGtkWidget; arg:PGtkArg; info:PGtkArgInfo);cdecl;external gtkdll name 'gtk_container_arg_get';
-function  gtk_container_child_args_collect(object_type:TGtkType; arg_list_p:PPGSList; info_list_p:PPGSList; first_arg_name:Pgchar; args:array of const):Pgchar;cdecl;external gtkdll name 'gtk_container_child_args_collect';
-function  gtk_container_child_arg_get_info(object_type:TGtkType; arg_name:Pgchar; info_p:PPGtkArgInfo):Pgchar;cdecl;external gtkdll name 'gtk_container_child_arg_get_info';
-procedure gtk_container_forall(container:PGtkContainer; callback:TGtkCallback; callback_data:gpointer);cdecl;external gtkdll name 'gtk_container_forall';
-function  gtk_container_child_composite_name(container:PGtkContainer; child:PGtkWidget):Pgchar;cdecl;external gtkdll name 'gtk_container_child_composite_name';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  border_width(var a : TGtkContainer) : guint;
-    begin
-       border_width:=(a.flag0 and bm_TGtkContainer_border_width) shr bp_TGtkContainer_border_width;
-    end;
-
-procedure set_border_width(var a : TGtkContainer; __border_width : guint);
-    begin
-       a.flag0:=a.flag0 or ((__border_width shl bp_TGtkContainer_border_width) and bm_TGtkContainer_border_width);
-    end;
-
-function  need_resize(var a : TGtkContainer) : guint;
-    begin
-       need_resize:=(a.flag0 and bm_TGtkContainer_need_resize) shr bp_TGtkContainer_need_resize;
-    end;
-
-procedure set_need_resize(var a : TGtkContainer; __need_resize : guint);
-    begin
-       a.flag0:=a.flag0 or ((__need_resize shl bp_TGtkContainer_need_resize) and bm_TGtkContainer_need_resize);
-    end;
-
-function  resize_mode(var a : TGtkContainer) : guint;
-    begin
-       resize_mode:=(a.flag0 and bm_TGtkContainer_resize_mode) shr bp_TGtkContainer_resize_mode;
-    end;
-
-procedure set_resize_mode(var a : TGtkContainer; __resize_mode : guint);
-    begin
-       a.flag0:=a.flag0 or ((__resize_mode shl bp_TGtkContainer_resize_mode) and bm_TGtkContainer_resize_mode);
-    end;
-
-function  GTK_IS_CONTAINER(obj:pointer):boolean;
-begin
-  GTK_IS_CONTAINER:=(obj<>nil) and GTK_IS_CONTAINER_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CONTAINER_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CONTAINER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CONTAINER_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkctree.pp

@@ -1,280 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     TGtkCTreePos = (GTK_CTREE_POS_BEFORE,GTK_CTREE_POS_AS_CHILD,
-       GTK_CTREE_POS_AFTER);
-
-     TGtkCTreeLineStyle = (GTK_CTREE_LINES_NONE,GTK_CTREE_LINES_SOLID,
-       GTK_CTREE_LINES_DOTTED,GTK_CTREE_LINES_TABBED
-       );
-
-     TGtkCTreeExpanderStyle = (GTK_CTREE_EXPANDER_NONE,GTK_CTREE_EXPANDER_SQUARE,
-       GTK_CTREE_EXPANDER_TRIANGLE,GTK_CTREE_EXPANDER_CIRCULAR
-       );
-
-     TGtkCTreeExpansionType = (GTK_CTREE_EXPANSION_EXPAND,GTK_CTREE_EXPANSION_EXPAND_RECURSIVE,
-       GTK_CTREE_EXPANSION_COLLAPSE,GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE,
-       GTK_CTREE_EXPANSION_TOGGLE,GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE
-       );
-
-     PGtkCTree = ^TGtkCTree;
-     PGtkCTreeNode = ^TGtkCTreeNode;
-     PGtkCTreeRow = ^TGtkCTreeRow;
-     PGtkCTreeClass = ^TGtkCTreeClass;
-
-     TGtkCTreeFunc = procedure (ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer);cdecl;
-
-     TGtkCTreeGNodeFunc = function (ctree:PGtkCTree; depth:guint; gnode:PGNode; cnode:PGtkCTreeNode; data:gpointer):gboolean;cdecl;
-
-     TGtkCTreeCompareDragFunc = function (ctree:PGtkCTree; source_node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode):gboolean;cdecl;
-
-     TGtkCTree = record
-          clist : TGtkCList;
-          lines_gc : PGdkGC;
-          tree_indent : gint;
-          tree_spacing : gint;
-          tree_column : gint;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          drag_compare : TGtkCTreeCompareDragFunc;
-       end;
-
-     TGtkCTreeNode = record
-          list : TGList;
-       end;
-
-     TGtkCTreeRow = record
-          row : TGtkCListRow;
-          parent : PGtkCTreeNode;
-          sibling : PGtkCTreeNode;
-          children : PGtkCTreeNode;
-          pixmap_closed : PGdkPixmap;
-          mask_closed : PGdkBitmap;
-          pixmap_opened : PGdkPixmap;
-          mask_opened : PGdkBitmap;
-          level : guint16;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-       end;
-
-     TGtkCTreeClass = record
-          parent_class : TGtkCListClass;
-          tree_select_row : procedure (ctree:PGtkCTree; row:PGtkCTreeNode; column:gint);cdecl;
-          tree_unselect_row : procedure (ctree:PGtkCTree; row:PGtkCTreeNode; column:gint);cdecl;
-          tree_expand : procedure (ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;
-          tree_collapse : procedure (ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;
-          tree_move : procedure (ctree:PGtkCTree; node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode);cdecl;
-          change_focus_row_expansion : procedure (ctree:PGtkCTree; action:TGtkCTreeExpansionType);cdecl;
-       end;
-
-  const
-     bm_TGtkCTree_line_style = $3;
-     bp_TGtkCTree_line_style = 0;
-     bm_TGtkCTree_expander_style = $C;
-     bp_TGtkCTree_expander_style = 2;
-     bm_TGtkCTree_show_stub = $10;
-     bp_TGtkCTree_show_stub = 4;
-function  line_style(var a : TGtkCTree) : guint;
-procedure set_line_style(var a : TGtkCTree; __line_style : guint);
-function  expander_style(var a : TGtkCTree) : guint;
-procedure set_expander_style(var a : TGtkCTree; __expander_style : guint);
-function  show_stub(var a : TGtkCTree) : guint;
-procedure set_show_stub(var a : TGtkCTree; __show_stub : guint);
-
-  const
-     bm_TGtkCTreeRow_is_leaf = $1;
-     bp_TGtkCTreeRow_is_leaf = 0;
-     bm_TGtkCTreeRow_expanded = $2;
-     bp_TGtkCTreeRow_expanded = 1;
-function  is_leaf(var a : TGtkCTreeRow) : guint;
-procedure set_is_leaf(var a : TGtkCTreeRow; __is_leaf : guint);
-function  expanded(var a : TGtkCTreeRow) : guint;
-procedure set_expanded(var a : TGtkCTreeRow; __expanded : guint);
-
-function  GTK_CTREE_ROW(_node_ : PGList) : PGtkCTreeRow;
-function  GTK_CTREE_NODE(_node_ : PGList) : PGtkCTreeNode;
-function  GTK_CTREE_NODE_NEXT(_nnode_ : PGList) : PGtkCTreeNode;
-function  GTK_CTREE_NODE_PREV(_pnode_ : PGList) : PGtkCTreeNode;
-function  GTK_CTREE_FUNC(_func_ : pointer) : TGtkCTreeFunc;
-
-type
-  GTK_CTREE=PGtkCTree;
-  GTK_CTREE_CLASS=PGtkCTreeClass;
-
-function  GTK_CTREE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_ctree_get_type';
-function  GTK_IS_CTREE(obj:pointer):boolean;
-function  GTK_IS_CTREE_CLASS(klass:pointer):boolean;
-
-function  gtk_ctree_get_type:TGtkType;cdecl;external gtkdll name 'gtk_ctree_get_type';
-procedure gtk_ctree_construct(ctree:PGtkCTree; columns:gint; tree_column:gint; titles:PPgchar);cdecl;external gtkdll name 'gtk_ctree_construct';
-function  gtk_ctree_new_with_titles(columns:gint; tree_column:gint; titles:PPgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_ctree_new_with_titles';
-function  gtk_ctree_new(columns:gint; tree_column:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_ctree_new';
-function  gtk_ctree_insert_node(ctree:PGtkCTree; parent:PGtkCTreeNode; sibling:PGtkCTreeNode; text:PPgchar; spacing:guint8; pixmap_closed:PGdkPixmap; mask_closed:PGdkBitmap; pixmap_opened:PGdkPixmap; mask_opened:PGdkBitmap; is_leaf:gboolean; expanded:gboolean):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_insert_node';
-procedure gtk_ctree_remove_node(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_remove_node';
-function  gtk_ctree_insert_gnode(ctree:PGtkCTree; parent:PGtkCTreeNode; sibling:PGtkCTreeNode; gnode:PGNode; func:TGtkCTreeGNodeFunc; data:gpointer):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_insert_gnode';
-function  gtk_ctree_export_to_gnode(ctree:PGtkCTree; parent:PGNode; sibling:PGNode; node:PGtkCTreeNode; func:TGtkCTreeGNodeFunc; data:gpointer):PGNode;cdecl;external gtkdll name 'gtk_ctree_export_to_gnode';
-procedure gtk_ctree_post_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; func:TGtkCTreeFunc; data:gpointer);cdecl;external gtkdll name 'gtk_ctree_post_recursive';
-procedure gtk_ctree_post_recursive_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint; func:TGtkCTreeFunc; data:gpointer);cdecl;external gtkdll name 'gtk_ctree_post_recursive_to_depth';
-procedure gtk_ctree_pre_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; func:TGtkCTreeFunc; data:gpointer);cdecl;external gtkdll name 'gtk_ctree_pre_recursive';
-procedure gtk_ctree_pre_recursive_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint; func:TGtkCTreeFunc; data:gpointer);cdecl;external gtkdll name 'gtk_ctree_pre_recursive_to_depth';
-function  gtk_ctree_is_viewable(ctree:PGtkCTree; node:PGtkCTreeNode):gboolean;cdecl;external gtkdll name 'gtk_ctree_is_viewable';
-function  gtk_ctree_last(ctree:PGtkCTree; node:PGtkCTreeNode):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_last';
-function  gtk_ctree_find_node_ptr(ctree:PGtkCTree; ctree_row:PGtkCTreeRow):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_find_node_ptr';
-function  gtk_ctree_node_nth(ctree:PGtkCTree; row:guint):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_node_nth';
-function  gtk_ctree_find(ctree:PGtkCTree; node:PGtkCTreeNode; child:PGtkCTreeNode):gboolean;cdecl;external gtkdll name 'gtk_ctree_find';
-function  gtk_ctree_is_ancestor(ctree:PGtkCTree; node:PGtkCTreeNode; child:PGtkCTreeNode):gboolean;cdecl;external gtkdll name 'gtk_ctree_is_ancestor';
-function  gtk_ctree_find_by_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_find_by_row_data';
-{//$ifndef gtkwin}
-function  gtk_ctree_find_all_by_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer):PGList;cdecl;external gtkdll name 'gtk_ctree_find_all_by_row_data';
-function  gtk_ctree_find_by_row_data_custom(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; func:TGCompareFunc):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_find_by_row_data_custom';
-function  gtk_ctree_find_all_by_row_data_custom(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; func:TGCompareFunc):PGList;cdecl;external gtkdll name 'gtk_ctree_find_all_by_row_data_custom';
-{//$endif}
-function  gtk_ctree_is_hot_spot(ctree:PGtkCTree; x:gint; y:gint):gboolean;cdecl;external gtkdll name 'gtk_ctree_is_hot_spot';
-procedure gtk_ctree_node_set_text(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:Pgchar);cdecl;external gtkdll name 'gtk_ctree_node_set_text';
-procedure gtk_ctree_node_set_pixmap(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_ctree_node_set_pixmap';
-procedure gtk_ctree_node_set_pixtext(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:Pgchar; spacing:guint8; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_ctree_node_set_pixtext';
-procedure gtk_ctree_set_node_info(ctree:PGtkCTree; node:PGtkCTreeNode; text:Pgchar; spacing:guint8; pixmap_closed:PGdkPixmap; mask_closed:PGdkBitmap; pixmap_opened:PGdkPixmap; mask_opened:PGdkBitmap; is_leaf:gboolean; expanded:gboolean);cdecl;external gtkdll name 'gtk_ctree_set_node_info';
-procedure gtk_ctree_node_set_shift(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; vertical:gint; horizontal:gint);cdecl;external gtkdll name 'gtk_ctree_node_set_shift';
-function  gtk_ctree_node_get_selectable(ctree:PGtkCTree; node:PGtkCTreeNode):gboolean;cdecl;external gtkdll name 'gtk_ctree_node_get_selectable';
-function  gtk_ctree_node_get_cell_type(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint):TGtkCellType;cdecl;external gtkdll name 'gtk_ctree_node_get_cell_type';
-function  gtk_ctree_node_get_text(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:PPgchar):gint;cdecl;external gtkdll name 'gtk_ctree_node_get_text';
-function  gtk_ctree_node_get_pixmap(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; pixmap:PPGdkPixmap; mask:PPGdkBitmap):gint;cdecl;external gtkdll name 'gtk_ctree_node_get_pixmap';
-function  gtk_ctree_node_get_pixtext(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:PPgchar; spacing:Pguint8; pixmap:PPGdkPixmap; mask:PPGdkBitmap):gint;cdecl;external gtkdll name 'gtk_ctree_node_get_pixtext';
-function  gtk_ctree_get_node_info(ctree:PGtkCTree; node:PGtkCTreeNode; text:PPgchar; spacing:Pguint8; pixmap_closed:PPGdkPixmap; mask_closed:PPGdkBitmap; pixmap_opened:PPGdkPixmap; mask_opened:PPGdkBitmap; is_leaf:Pgboolean; expanded:Pgboolean):gint;cdecl;external gtkdll name 'gtk_ctree_get_node_info';
-procedure gtk_ctree_node_set_row_style(ctree:PGtkCTree; node:PGtkCTreeNode; style:PGtkStyle);cdecl;external gtkdll name 'gtk_ctree_node_set_row_style';
-function  gtk_ctree_node_get_row_style(ctree:PGtkCTree; node:PGtkCTreeNode):PGtkStyle;cdecl;external gtkdll name 'gtk_ctree_node_get_row_style';
-procedure gtk_ctree_node_set_cell_style(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; style:PGtkStyle);cdecl;external gtkdll name 'gtk_ctree_node_set_cell_style';
-function  gtk_ctree_node_get_cell_style(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint):PGtkStyle;cdecl;external gtkdll name 'gtk_ctree_node_get_cell_style';
-procedure gtk_ctree_node_set_foreground(ctree:PGtkCTree; node:PGtkCTreeNode; color:PGdkColor);cdecl;external gtkdll name 'gtk_ctree_node_set_foreground';
-procedure gtk_ctree_node_set_background(ctree:PGtkCTree; node:PGtkCTreeNode; color:PGdkColor);cdecl;external gtkdll name 'gtk_ctree_node_set_background';
-procedure gtk_ctree_node_set_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer);cdecl;external gtkdll name 'gtk_ctree_node_set_row_data';
-procedure gtk_ctree_node_set_row_data_full(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; destroy:TGtkDestroyNotify);cdecl;external gtkdll name 'gtk_ctree_node_set_row_data_full';
-function  gtk_ctree_node_get_row_data(ctree:PGtkCTree; node:PGtkCTreeNode):gpointer;cdecl;external gtkdll name 'gtk_ctree_node_get_row_data';
-procedure gtk_ctree_node_moveto(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; row_align:gfloat; col_align:gfloat);cdecl;external gtkdll name 'gtk_ctree_node_moveto';
-function  gtk_ctree_node_is_visible(ctree:PGtkCTree; node:PGtkCTreeNode):TGtkVisibility;cdecl;external gtkdll name 'gtk_ctree_node_is_visible';
-procedure gtk_ctree_set_indent(ctree:PGtkCTree; indent:gint);cdecl;external gtkdll name 'gtk_ctree_set_indent';
-procedure gtk_ctree_set_spacing(ctree:PGtkCTree; spacing:gint);cdecl;external gtkdll name 'gtk_ctree_set_spacing';
-{//$ifndef gtkwin}
-procedure gtk_ctree_set_show_stub(ctree:PGtkCTree; show_stub:gboolean);cdecl;external gtkdll name 'gtk_ctree_set_show_stub';
-{//$endif}
-procedure gtk_ctree_set_line_style(ctree:PGtkCTree; line_style:TGtkCTreeLineStyle);cdecl;external gtkdll name 'gtk_ctree_set_line_style';
-procedure gtk_ctree_set_expander_style(ctree:PGtkCTree; expander_style:TGtkCTreeExpanderStyle);cdecl;external gtkdll name 'gtk_ctree_set_expander_style';
-procedure gtk_ctree_set_drag_compare_func(ctree:PGtkCTree; cmp_func:TGtkCTreeCompareDragFunc);cdecl;external gtkdll name 'gtk_ctree_set_drag_compare_func';
-procedure gtk_ctree_sort_node(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_sort_node';
-procedure gtk_ctree_sort_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_sort_recursive';
-
-procedure gtk_ctree_move(ctree:PGtkCTree; node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_move';
-procedure gtk_ctree_expand(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_expand';
-procedure gtk_ctree_expand_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_expand_recursive';
-procedure gtk_ctree_expand_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint);cdecl;external gtkdll name 'gtk_ctree_expand_to_depth';
-procedure gtk_ctree_collapse(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_collapse';
-procedure gtk_ctree_collapse_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_collapse_recursive';
-procedure gtk_ctree_collapse_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint);cdecl;external gtkdll name 'gtk_ctree_collapse_to_depth';
-procedure gtk_ctree_select(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_select';
-procedure gtk_ctree_select_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_select_recursive';
-procedure gtk_ctree_unselect(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_unselect';
-procedure gtk_ctree_unselect_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_unselect_recursive';
-procedure gtk_ctree_real_select_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; state:gint);cdecl;external gtkdll name 'gtk_ctree_real_select_recursive';
-procedure gtk_ctree_node_set_selectable(ctree:PGtkCTree; node:PGtkCTreeNode; selectable:gboolean);cdecl;external gtkdll name 'gtk_ctree_node_set_selectable';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_CTREE_ROW(_node_ : PGList) : PGtkCTreeRow;
-    begin
-       GTK_CTREE_ROW:=PGtkCTreeRow((PGList(_node_))^.data);
-    end;
-
-function  GTK_CTREE_NODE(_node_ : PGList) : PGtkCTreeNode;
-    begin
-       GTK_CTREE_NODE:=PGtkCTreeNode(_node_);
-    end;
-
-function  GTK_CTREE_NODE_NEXT(_nnode_ : PGList) : PGtkCTreeNode;
-    begin
-       GTK_CTREE_NODE_NEXT:=PGtkCTreeNode((PGList(_nnode_))^.next);
-    end;
-
-function  GTK_CTREE_NODE_PREV(_pnode_ : PGList) : PGtkCTreeNode;
-    begin
-       GTK_CTREE_NODE_PREV:=PGtkCTreeNode((PGList(_pnode_))^.prev);
-    end;
-
-function  GTK_CTREE_FUNC(_func_ : pointer) : TGtkCTreeFunc;
-    begin
-       GTK_CTREE_FUNC:=TGtkCTreeFunc(_func_);
-    end;
-
-function  line_style(var a : TGtkCTree) : guint;
-    begin
-       line_style:=(a.flag0 and bm_TGtkCTree_line_style) shr bp_TGtkCTree_line_style;
-    end;
-
-procedure set_line_style(var a : TGtkCTree; __line_style : guint);
-    begin
-       a.flag0:=a.flag0 or ((__line_style shl bp_TGtkCTree_line_style) and bm_TGtkCTree_line_style);
-    end;
-
-function  expander_style(var a : TGtkCTree) : guint;
-    begin
-       expander_style:=(a.flag0 and bm_TGtkCTree_expander_style) shr bp_TGtkCTree_expander_style;
-    end;
-
-procedure set_expander_style(var a : TGtkCTree; __expander_style : guint);
-    begin
-       a.flag0:=a.flag0 or ((__expander_style shl bp_TGtkCTree_expander_style) and bm_TGtkCTree_expander_style);
-    end;
-
-function  show_stub(var a : TGtkCTree) : guint;
-    begin
-       show_stub:=(a.flag0 and bm_TGtkCTree_show_stub) shr bp_TGtkCTree_show_stub;
-    end;
-
-procedure set_show_stub(var a : TGtkCTree; __show_stub : guint);
-    begin
-       a.flag0:=a.flag0 or ((__show_stub shl bp_TGtkCTree_show_stub) and bm_TGtkCTree_show_stub);
-    end;
-
-function  is_leaf(var a : TGtkCTreeRow) : guint;
-    begin
-       is_leaf:=(a.flag0 and bm_TGtkCTreeRow_is_leaf) shr bp_TGtkCTreeRow_is_leaf;
-    end;
-
-procedure set_is_leaf(var a : TGtkCTreeRow; __is_leaf : guint);
-    begin
-       a.flag0:=a.flag0 or ((__is_leaf shl bp_TGtkCTreeRow_is_leaf) and bm_TGtkCTreeRow_is_leaf);
-    end;
-
-function  expanded(var a : TGtkCTreeRow) : guint;
-    begin
-       expanded:=(a.flag0 and bm_TGtkCTreeRow_expanded) shr bp_TGtkCTreeRow_expanded;
-    end;
-
-procedure set_expanded(var a : TGtkCTreeRow; __expanded : guint);
-    begin
-       a.flag0:=a.flag0 or ((__expanded shl bp_TGtkCTreeRow_expanded) and bm_TGtkCTreeRow_expanded);
-    end;
-
-function  GTK_IS_CTREE(obj:pointer):boolean;
-begin
-  GTK_IS_CTREE:=(obj<>nil) and GTK_IS_CTREE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CTREE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CTREE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CTREE_TYPE);
-end;
-
-{$endif read_implementation}
-

packages/extra/gtk/gtk/gtkcurve.pp

@@ -1,77 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     Tgfloatarray = Array[0..1] of gfloat;
-     PgfloatArray = ^TgfloatArray;
-
-     PGtkCurve = ^TGtkCurve;
-     TGtkCurve = record
-          graph : TGtkDrawingArea;
-          cursor_type : gint;
-          min_x : gfloat;
-          max_x : gfloat;
-          min_y : gfloat;
-          max_y : gfloat;
-          pixmap : PGdkPixmap;
-          curve_type : TGtkCurveType;
-          height : gint;
-          grab_point : gint;
-          last : gint;
-          num_points : gint;
-          point : PGdkPoint;
-          num_ctlpoints : gint;
-          ctlpoint : PgfloatArray;
-       end;
-
-     PGtkCurveClass = ^TGtkCurveClass;
-     TGtkCurveClass = record
-          parent_class : TGtkDrawingAreaClass;
-          curve_type_changed : procedure (curve:PGtkCurve); cdecl;
-       end;
-
-Type
-  GTK_CURVE=PGtkCurve;
-  GTK_CURVE_CLASS=PGtkCurveClass;
-
-function  GTK_CURVE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_curve_get_type';
-function  GTK_IS_CURVE(obj:pointer):boolean;
-function  GTK_IS_CURVE_CLASS(klass:pointer):boolean;
-
-function  gtk_curve_get_type:TGtkType;cdecl;external gtkdll name 'gtk_curve_get_type';
-function  gtk_curve_new : PGtkWidget;cdecl;external gtkdll name 'gtk_curve_new';
-procedure gtk_curve_reset(curve:PGtkCurve);cdecl;external gtkdll name 'gtk_curve_reset';
-procedure gtk_curve_set_gamma(curve:PGtkCurve; gamma:gfloat);cdecl;external gtkdll name 'gtk_curve_set_gamma';
-procedure gtk_curve_set_range(curve:PGtkCurve; min_x:gfloat; max_x:gfloat; min_y:gfloat; max_y:gfloat);cdecl;external gtkdll name 'gtk_curve_set_range';
-procedure gtk_curve_get_vector(curve:PGtkCurve; veclen:longint; vector:Pgfloat);cdecl;external gtkdll name 'gtk_curve_get_vector';
-procedure gtk_curve_set_vector(curve:PGtkCurve; veclen:longint; vector:Pgfloat);cdecl;external gtkdll name 'gtk_curve_set_vector';
-procedure gtk_curve_set_curve_type(curve:PGtkCurve; thetype:TGtkCurveType);cdecl;external gtkdll name 'gtk_curve_set_curve_type';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_CURVE(obj:pointer):boolean;
-begin
-  GTK_IS_CURVE:=(obj<>nil) and GTK_IS_CURVE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_CURVE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_CURVE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CURVE_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkdata.pp

@@ -1,55 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkData = ^TGtkData;
-       TGtkData = record
-            theobject : TGtkObject;
-         end;
-
-       DisconnectProc  = procedure (data : PGtkdata);cdecl;
-
-       PGtkDataClass = ^TGtkDataClass;
-       TGtkDataClass = record
-            parent_class : TGtkObjectClass;
-            disconnect : disconnectproc;
-         end;
-
-Type
-  GTK_DATA=PGtkData;
-  GTK_DATA_CLASS=PGtkDataClass;
-
-function  GTK_DATA_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_data_get_type';
-function  GTK_IS_DATA(obj:pointer):boolean;
-function  GTK_IS_DATA_CLASS(klass:pointer):boolean;
-
-function  gtk_data_get_type:TGtkType;cdecl;external gtkdll name 'gtk_data_get_type';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_DATA(obj:pointer):boolean;
-begin
-  GTK_IS_DATA:=(obj<>nil) and GTK_IS_DATA_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_DATA_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_DATA_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_DATA_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkdialog.pp

@@ -1,55 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkDialog = ^TGtkDialog;
-     TGtkDialog = record
-          window : TGtkWindow;
-          vbox : PGtkWidget;
-          action_area : PGtkWidget;
-       end;
-
-     PGtkDialogClass = ^TGtkDialogClass;
-     TGtkDialogClass = record
-          parent_class : TGtkWindowClass;
-       end;
-
-Type
-  GTK_DIALOG=PGtkDialog;
-  GTK_DIALOG_CLASS=PGtkDialogClass;
-
-function  GTK_DIALOG_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_dialog_get_type';
-function  GTK_IS_DIALOG(obj:pointer):boolean;
-function  GTK_IS_DIALOG_CLASS(klass:pointer):boolean;
-
-function  gtk_dialog_get_type:TGtkType;cdecl;external gtkdll name 'gtk_dialog_get_type';
-function  gtk_dialog_new : PGtkWidget;cdecl;external gtkdll name 'gtk_dialog_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_DIALOG(obj:pointer):boolean;
-begin
-  GTK_IS_DIALOG:=(obj<>nil) and GTK_IS_DIALOG_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_DIALOG_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_DIALOG_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_DIALOG_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkdnd.pp

@@ -1,47 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     TGtkDestDefaults = (GTK_DEST_DEFAULT_MOTION := 1 shl 0,GTK_DEST_DEFAULT_HIGHLIGHT := 1 shl 1,
-       GTK_DEST_DEFAULT_DROP := 1 shl 2,GTK_DEST_DEFAULT_ALL := $07
-       );
-
-     TGtkTargetFlags = (GTK_TARGET_SAME_APP := 1 shl 0,GTK_TARGET_SAME_WIDGET := 1 shl 1
-       );
-
-procedure gtk_drag_get_data(widget:PGtkWidget; context:PGdkDragContext; target:TGdkAtom; time:guint32);cdecl;external gtkdll name 'gtk_drag_get_data';
-procedure gtk_drag_finish(context:PGdkDragContext; success:gboolean; del:gboolean; time:guint32);cdecl;external gtkdll name 'gtk_drag_finish';
-function  gtk_drag_get_source_widget(context:PGdkDragContext):PGtkWidget;cdecl;external gtkdll name 'gtk_drag_get_source_widget';
-procedure gtk_drag_highlight(widget:PGtkWidget);cdecl;external gtkdll name 'gtk_drag_highlight';
-procedure gtk_drag_unhighlight(widget:PGtkWidget);cdecl;external gtkdll name 'gtk_drag_unhighlight';
-procedure gtk_drag_dest_set(widget:PGtkWidget; flags:TGtkDestDefaults; targets:PGtkTargetEntry; n_targets:gint; actions:TGdkDragAction);cdecl;external gtkdll name 'gtk_drag_dest_set';
-procedure gtk_drag_dest_set_proxy(widget:PGtkWidget; proxy_window:PGdkWindow; protocol:TGdkDragProtocol; use_coordinates:gboolean);cdecl;external gtkdll name 'gtk_drag_dest_set_proxy';
-procedure gtk_drag_dest_unset(widget:PGtkWidget);cdecl;external gtkdll name 'gtk_drag_dest_unset';
-procedure gtk_drag_source_set(widget:PGtkWidget; start_button_mask:TGdkModifierType; targets:PGtkTargetEntry; n_targets:gint; actions:TGdkDragAction);cdecl;external gtkdll name 'gtk_drag_source_set';
-procedure gtk_drag_source_unset(widget:PGtkWidget);cdecl;external gtkdll name 'gtk_drag_source_unset';
-procedure gtk_drag_source_set_icon(widget:PGtkWidget; colormap:PGdkColormap; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_drag_source_set_icon';
-function  gtk_drag_begin(widget:PGtkWidget; targets:PGtkTargetList; actions:TGdkDragAction; button:gint; event:PGdkEvent):PGdkDragContext;cdecl;external gtkdll name 'gtk_drag_begin';
-procedure gtk_drag_set_icon_widget(context:PGdkDragContext; widget:PGtkWidget; hot_x:gint; hot_y:gint);cdecl;external gtkdll name 'gtk_drag_set_icon_widget';
-procedure gtk_drag_set_icon_pixmap(context:PGdkDragContext; colormap:PGdkColormap; pixmap:PGdkPixmap; mask:PGdkBitmap; hot_x:gint; hot_y:gint);cdecl;external gtkdll name 'gtk_drag_set_icon_pixmap';
-procedure gtk_drag_set_icon_default(context:PGdkDragContext);cdecl;external gtkdll name 'gtk_drag_set_icon_default';
-procedure gtk_drag_set_default_icon(colormap:PGdkColormap; pixmap:PGdkPixmap; mask:PGdkBitmap; hot_x:gint; hot_y:gint);cdecl;external gtkdll name 'gtk_drag_set_default_icon';
-procedure gtk_drag_source_handle_event(widget:PGtkWidget; event:PGdkEvent);cdecl;external gtkdll name 'gtk_drag_source_handle_event';
-procedure gtk_drag_dest_handle_event(toplevel:PGtkWidget; event:PGdkEvent);cdecl;external gtkdll name 'gtk_drag_dest_handle_event';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkdrawingarea.pp

@@ -1,55 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkDrawingArea = ^TGtkDrawingArea;
-     TGtkDrawingArea = record
-          widget : TGtkWidget;
-          draw_data : gpointer;
-       end;
-
-     PGtkDrawingAreaClass = ^TGtkDrawingAreaClass;
-     TGtkDrawingAreaClass = record
-          parent_class : TGtkWidgetClass;
-       end;
-
-Type
-  GTK_DRAWING_AREA=PGtkDrawingArea;
-  GTK_DRAWING_AREA_CLASS=PGtkDrawingAreaClass;
-
-function  GTK_DRAWING_AREA_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_drawing_area_get_type';
-function  GTK_IS_DRAWING_AREA(obj:pointer):boolean;
-function  GTK_IS_DRAWING_AREA_CLASS(klass:pointer):boolean;
-
-function  gtk_drawing_area_get_type:TGtkType;cdecl;external gtkdll name 'gtk_drawing_area_get_type';
-function  gtk_drawing_area_new : PGtkWidget;cdecl;external gtkdll name 'gtk_drawing_area_new';
-procedure gtk_drawing_area_size(darea:PGtkDrawingArea; width:gint; height:gint);cdecl;external gtkdll name 'gtk_drawing_area_size';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_DRAWING_AREA(obj:pointer):boolean;
-begin
-  GTK_IS_DRAWING_AREA:=(obj<>nil) and GTK_IS_DRAWING_AREA_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_DRAWING_AREA_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_DRAWING_AREA_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_DRAWING_AREA_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkeditable.pp

@@ -1,139 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-
-     PGtkEditable = ^TGtkEditable;
-     TGtkEditable = record
-          widget : TGtkWidget;
-          current_pos : guint;
-          selection_start_pos : guint;
-          selection_end_pos : guint;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          ic : PGdkIC;
-          ic_attr : PGdkICAttr;
-          clipboard_text : Pgchar;
-       end;
-     TGtkTextfunction = procedure (editable:PGtkEditable; time:guint32); cdecl;
-
-  const
-     bm_TGtkEditable_has_selection = $1;
-     bp_TGtkEditable_has_selection = 0;
-     bm_TGtkEditable_editable = $2;
-     bp_TGtkEditable_editable = 1;
-     bm_TGtkEditable_visible = $4;
-     bp_TGtkEditable_visible = 2;
-function  has_selection(var a : TGtkEditable) : guint;
-procedure set_has_selection(var a : TGtkEditable; __has_selection : guint);
-function  editable(var a : TGtkEditable) : guint;
-procedure set_editable(var a : TGtkEditable; __editable : guint);
-function  visible(var a : TGtkEditable) : guint;
-procedure set_visible(var a : TGtkEditable; __visible : guint);
-
-  type
-     PGtkEditableClass = ^TGtkEditableClass;
-     TGtkEditableClass = record
-          parent_class : TGtkWidgetClass;
-          changed : procedure (editable:PGtkEditable);cdecl;
-          insert_text : procedure (editable:PGtkEditable; thetext:Pgchar; length:gint; position:Pgint); cdecl;
-          delete_text : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
-          activate : procedure (editable:PGtkEditable);cdecl;
-          set_editable : procedure (editable:PGtkEditable; is_editable:gboolean);cdecl;
-          move_cursor : procedure (editable:PGtkEditable; x:gint; y:gint);cdecl;
-          move_word : procedure (editable:PGtkEditable; n:gint);cdecl;
-          move_page : procedure (editable:PGtkEditable; x:gint; y:gint);cdecl;
-          move_to_row : procedure (editable:PGtkEditable; row:gint);cdecl;
-          move_to_column : procedure (editable:PGtkEditable; row:gint);cdecl;
-          kill_char : procedure (editable:PGtkEditable; direction:gint);cdecl;
-          kill_word : procedure (editable:PGtkEditable; direction:gint);cdecl;
-          kill_line : procedure (editable:PGtkEditable; direction:gint);cdecl;
-          cut_clipboard : procedure (editable:PGtkEditable);cdecl;
-          copy_clipboard : procedure (editable:PGtkEditable);cdecl;
-          paste_clipboard : procedure (editable:PGtkEditable);cdecl;
-          update_text : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
-          get_chars : function (editable:PGtkEditable; start_pos:gint; end_pos:gint):Pgchar; cdecl;
-          set_selection : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
-          set_position : procedure (editable:PGtkEditable; position:gint);cdecl;
-       end;
-
-Type
-  GTK_EDITABLE=PGtkEditable;
-  GTK_EDITABLE_CLASS=PGtkEditableClass;
-
-function  GTK_EDITABLE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_editable_get_type';
-function  GTK_IS_EDITABLE(obj:pointer):boolean;
-function  GTK_IS_EDITABLE_CLASS(klass:pointer):boolean;
-
-function  gtk_editable_get_type:TGtkType;cdecl;external gtkdll name 'gtk_editable_get_type';
-procedure gtk_editable_select_region(editable:PGtkEditable; start:gint; theend:gint);cdecl;external gtkdll name 'gtk_editable_select_region';
-procedure gtk_editable_insert_text(editable:PGtkEditable; new_text:Pgchar; new_text_length:gint; position:Pgint);cdecl;external gtkdll name 'gtk_editable_insert_text';
-procedure gtk_editable_delete_text(editable:PGtkEditable; start_pos:gint; end_pos:gint);cdecl;external gtkdll name 'gtk_editable_delete_text';
-function  gtk_editable_get_chars (editable:PGtkEditable; start_pos:gint; end_pos:gint):Pgchar;cdecl;external gtkdll name 'gtk_editable_get_chars';
-procedure gtk_editable_cut_clipboard(editable:PGtkEditable);cdecl;external gtkdll name 'gtk_editable_cut_clipboard';
-procedure gtk_editable_copy_clipboard(editable:PGtkEditable);cdecl;external gtkdll name 'gtk_editable_copy_clipboard';
-procedure gtk_editable_paste_clipboard(editable:PGtkEditable);cdecl;external gtkdll name 'gtk_editable_paste_clipboard';
-procedure gtk_editable_claim_selection(editable:PGtkEditable; claim:gboolean; time:guint32);cdecl;external gtkdll name 'gtk_editable_claim_selection';
-procedure gtk_editable_delete_selection(editable:PGtkEditable);cdecl;external gtkdll name 'gtk_editable_delete_selection';
-procedure gtk_editable_changed(editable:PGtkEditable);cdecl;external gtkdll name 'gtk_editable_changed';
-procedure gtk_editable_set_position(editable:PGtkEditable; position:gint);cdecl;external gtkdll name 'gtk_editable_set_position';
-function  gtk_editable_get_position(editable:PGtkEditable):gint;cdecl;external gtkdll name 'gtk_editable_get_position';
-procedure gtk_editable_set_editable(editable:PGtkEditable; is_editable:gboolean);cdecl;external gtkdll name 'gtk_editable_set_editable';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  has_selection(var a : TGtkEditable) : guint;
-    begin
-       has_selection:=(a.flag0 and bm_TGtkEditable_has_selection) shr bp_TGtkEditable_has_selection;
-    end;
-
-procedure set_has_selection(var a : TGtkEditable; __has_selection : guint);
-    begin
-       a.flag0:=a.flag0 or ((__has_selection shl bp_TGtkEditable_has_selection) and bm_TGtkEditable_has_selection);
-    end;
-
-function  editable(var a : TGtkEditable) : guint;
-    begin
-       editable:=(a.flag0 and bm_TGtkEditable_editable) shr bp_TGtkEditable_editable;
-    end;
-
-procedure set_editable(var a : TGtkEditable; __editable : guint);
-    begin
-       a.flag0:=a.flag0 or ((__editable shl bp_TGtkEditable_editable) and bm_TGtkEditable_editable);
-    end;
-
-function  visible(var a : TGtkEditable) : guint;
-    begin
-       visible:=(a.flag0 and bm_TGtkEditable_visible) shr bp_TGtkEditable_visible;
-    end;
-
-procedure set_visible(var a : TGtkEditable; __visible : guint);
-    begin
-       a.flag0:=a.flag0 or ((__visible shl bp_TGtkEditable_visible) and bm_TGtkEditable_visible);
-    end;
-
-function  GTK_IS_EDITABLE(obj:pointer):boolean;
-begin
-  GTK_IS_EDITABLE:=(obj<>nil) and GTK_IS_EDITABLE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_EDITABLE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_EDITABLE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_EDITABLE_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkentry.pp

@@ -1,122 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkEntry = ^TGtkEntry;
-     TGtkEntry = record
-          editable : TGtkEditable;
-          text_area : PGdkWindow;
-          backing_pixmap : PGdkPixmap;
-          cursor : PGdkCursor;
-          text : PGdkWChar;
-          text_size : guint16;
-          text_length : guint16;
-          text_max_length : guint16;
-          scroll_offset : gint;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          timer : guint32;
-          button : guint;
-          char_offset : Pgint;
-          text_mb : Pgchar;
-          flag1 : {$ifdef win32}longint{$else}word{$endif};
-       end;
-
-  const
-     bm_TGtkEntry_visible = $1;
-     bp_TGtkEntry_visible = 0;
-     bm_TGtkEntry_text_mb_dirty = $1;
-     bp_TGtkEntry_text_mb_dirty = 0;
-     bm_TGtkEntry_use_wchar = $2;
-     bp_TGtkEntry_use_wchar = 1;
-function  visible(var a : TGtkEntry) : guint;
-procedure set_visible(var a : TGtkEntry; __visible : guint);
-function  text_mb_dirty(var a : TGtkEntry) : guint;
-procedure set_text_mb_dirty(var a : TGtkEntry; __text_mb_dirty : guint);
-function  use_wchar(var a : TGtkEntry) : guint;
-procedure set_use_wchar(var a : TGtkEntry; __use_wchar : guint);
-
-  type
-     PGtkEntryClass = ^TGtkEntryClass;
-     TGtkEntryClass = record
-          parent_class : TGtkEditableClass;
-       end;
-
-Type
-  GTK_ENTRY=PGtkEntry;
-  GTK_ENTRY_CLASS=PGtkEntryClass;
-
-function  GTK_ENTRY_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_entry_get_type';
-function  GTK_IS_ENTRY(obj:pointer):boolean;
-function  GTK_IS_ENTRY_CLASS(klass:pointer):boolean;
-
-function  gtk_entry_get_type:TGtkType;cdecl;external gtkdll name 'gtk_entry_get_type';
-function  gtk_entry_new :PGtkWidget;cdecl;external gtkdll name 'gtk_entry_new';
-function  gtk_entry_new_with_max_length (max:guint16):PGtkWidget;cdecl;external gtkdll name 'gtk_entry_new_with_max_length';
-procedure gtk_entry_set_text(entry:PGtkEntry; text:Pgchar);cdecl;external gtkdll name 'gtk_entry_set_text';
-procedure gtk_entry_append_text(entry:PGtkEntry; text:Pgchar);cdecl;external gtkdll name 'gtk_entry_append_text';
-procedure gtk_entry_prepend_text(entry:PGtkEntry; text:Pgchar);cdecl;external gtkdll name 'gtk_entry_prepend_text';
-procedure gtk_entry_set_position(entry:PGtkEntry; position:gint);cdecl;external gtkdll name 'gtk_entry_set_position';
-function  gtk_entry_get_text (entry:PGtkEntry):Pgchar;cdecl;external gtkdll name 'gtk_entry_get_text';
-procedure gtk_entry_select_region(entry:PGtkEntry; start:gint; theend:gint);cdecl;external gtkdll name 'gtk_entry_select_region';
-procedure gtk_entry_set_visibility(entry:PGtkEntry; visible:gboolean);cdecl;external gtkdll name 'gtk_entry_set_visibility';
-procedure gtk_entry_set_editable(entry:PGtkEntry; editable:gboolean);cdecl;external gtkdll name 'gtk_entry_set_editable';
-procedure gtk_entry_set_max_length(entry:PGtkEntry; max:guint16);cdecl;external gtkdll name 'gtk_entry_set_max_length';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  visible(var a : TGtkEntry) : guint;
-    begin
-       visible:=(a.flag0 and bm_TGtkEntry_visible) shr bp_TGtkEntry_visible;
-    end;
-
-procedure set_visible(var a : TGtkEntry; __visible : guint);
-    begin
-       a.flag0:=a.flag0 or ((__visible shl bp_TGtkEntry_visible) and bm_TGtkEntry_visible);
-    end;
-
-function  text_mb_dirty(var a : TGtkEntry) : guint;
-    begin
-       text_mb_dirty:=(a.flag1 and bm_TGtkEntry_text_mb_dirty) shr bp_TGtkEntry_text_mb_dirty;
-    end;
-
-procedure set_text_mb_dirty(var a : TGtkEntry; __text_mb_dirty : guint);
-    begin
-       a.flag1:=a.flag1 or ((__text_mb_dirty shl bp_TGtkEntry_text_mb_dirty) and bm_TGtkEntry_text_mb_dirty);
-    end;
-
-function  use_wchar(var a : TGtkEntry) : guint;
-    begin
-       use_wchar:=(a.flag1 and bm_TGtkEntry_use_wchar) shr bp_TGtkEntry_use_wchar;
-    end;
-
-procedure set_use_wchar(var a : TGtkEntry; __use_wchar : guint);
-    begin
-       a.flag1:=a.flag1 or ((__use_wchar shl bp_TGtkEntry_use_wchar) and bm_TGtkEntry_use_wchar);
-    end;
-
-function  GTK_IS_ENTRY(obj:pointer):boolean;
-begin
-  GTK_IS_ENTRY:=(obj<>nil) and GTK_IS_ENTRY_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ENTRY_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ENTRY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ENTRY_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkenums.pp

@@ -1,305 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-type
-     PGtkArrowType = ^TGtkArrowType;
-     TGtkArrowType = longint;
-const
-     GTK_ARROW_UP = 0;
-     GTK_ARROW_DOWN = 1;
-     GTK_ARROW_LEFT = 2;
-     GTK_ARROW_RIGHT = 3;
-
-type
-     PGtkAttachOptions = ^TGtkAttachOptions;
-     TGtkAttachOptions = longint;
-const
-     GTK_EXPAND = 1 shl 0;
-     GTK_SHRINK = 1 shl 1;
-     GTK_FILL = 1 shl 2;
-
-type
-     PGtkButtonBoxStyle = ^TGtkButtonBoxStyle;
-     TGtkButtonBoxStyle = longint;
-const
-     GTK_BUTTONBOX_DEFAULT_STYLE = 0;
-     GTK_BUTTONBOX_SPREAD = 1;
-     GTK_BUTTONBOX_EDGE = 2;
-     GTK_BUTTONBOX_START = 3;
-     GTK_BUTTONBOX_END =4;
-
-type
-     PGtkCurveType = ^TGtkCurveType;
-     TGtkCurveType = longint;
-const
-     GTK_CURVE_TYPE_LINEAR = 0;
-     GTK_CURVE_TYPE_SPLINE = 1;
-     GTK_CURVE_TYPE_FREE = 2;
-
-type
-     PGtkDirectionType = ^TGtkDirectionType;
-     TGtkDirectionType = longint;
-const
-     GTK_DIR_TAB_FORWARD = 0;
-     GTK_DIR_TAB_BACKWARD = 1;
-     GTK_DIR_UP = 2;
-     GTK_DIR_DOWN = 3;
-     GTK_DIR_LEFT = 4;
-     GTK_DIR_RIGHT = 5;
-
-type
-     PGtkJustification = ^TGtkJustification;
-     TGtkJustification = longint;
-const
-     GTK_JUSTIFY_LEFT = 0;
-     GTK_JUSTIFY_RIGHT = 1;
-     GTK_JUSTIFY_CENTER = 2;
-     GTK_JUSTIFY_FILL = 3;
-
-type
-     PGtkMatchType = ^TGtkMatchType;
-     TGtkMatchType = longint;
-const
-     GTK_MATCH_ALL = 0;
-     GTK_MATCH_ALL_TAIL = 1;
-     GTK_MATCH_HEAD = 2;
-     GTK_MATCH_TAIL = 3;
-     GTK_MATCH_EXACT = 4;
-     GTK_MATCH_LAST = 5;
-
-type
-     PGtkMenuDirectionType = ^TGtkMenuDirectionType;
-     TGtkMenuDirectionType = longint;
-const
-     GTK_MENU_DIR_PARENT = 0;
-     GTK_MENU_DIR_CHILD = 1;
-     GTK_MENU_DIR_NEXT = 2;
-     GTK_MENU_DIR_PREV = 3;
-
-type
-     PGtkMenuFactoryType = ^TGtkMenuFactoryType;
-     TGtkMenuFactoryType = longint;
-const
-     GTK_MENU_FACTORY_MENU = 0;
-     GTK_MENU_FACTORY_MENU_BAR = 1;
-     GTK_MENU_FACTORY_OPTION_MENU = 2;
-
-type
-     PGtkMetricType = ^TGtkMetricType;
-     TGtkMetricType = longint;
-const
-     GTK_PIXELS = 0;
-     GTK_INCHES = 1;
-     GTK_CENTIMETERS = 2;
-
-type
-     PGtkOrientation = ^TGtkOrientation;
-     TGtkOrientation = longint;
-const
-     GTK_ORIENTATION_HORIZONTAL = 0;
-     GTK_ORIENTATION_VERTICAL = 1;
-
-type
-     PGtkCornerType = ^TGtkCornerType;
-     TGtkCornerType = longint;
-const
-     GTK_CORNER_TOP_LEFT = 0;
-     GTK_CORNER_BOTTOM_LEFT = 1;
-     GTK_CORNER_TOP_RIGHT = 2;
-     GTK_CORNER_BOTTOM_RIGHT =3;
-
-type
-     PGtkPackType = ^TGtkPackType;
-     TGtkPackType = longint;
-const
-     GTK_PACK_START = 0;
-     GTK_PACK_END = 1;
-
-type
-     PGtkPathPriorityType = ^TGtkPathPriorityType;
-     TGtkPathPriorityType = longint;
-const
-     GTK_PATH_PRIO_LOWEST = 0;
-     GTK_PATH_PRIO_GTK = 4;
-     GTK_PATH_PRIO_APPLICATION = 8;
-     GTK_PATH_PRIO_RC = 12;
-     GTK_PATH_PRIO_HIGHEST = 15;
-     GTK_PATH_PRIO_MASK = GTK_PATH_PRIO_HIGHEST;
-
-type
-     PGtkPathType = ^TGtkPathType;
-     TGtkPathType = longint;
-const
-     GTK_PATH_WIDGET = 0;
-     GTK_PATH_WIDGET_CLASS = 1;
-     GTK_PATH_CLASS = 2;
-
-type
-     PGtkPolicyType = ^TGtkPolicyType;
-     TGtkPolicyType = longint;
-const
-     GTK_POLICY_ALWAYS = 0;
-     GTK_POLICY_AUTOMATIC = 1;
-     GTK_POLICY_NEVER = 2;
-
-type
-     PGtkPositionType = ^TGtkPositionType;
-     TGtkPositionType = longint;
-const
-     GTK_POS_LEFT = 0;
-     GTK_POS_RIGHT = 1;
-     GTK_POS_TOP = 2;
-     GTK_POS_BOTTOM = 3;
-
-type
-     PGtkPreviewType = ^TGtkPreviewType;
-     TGtkPreviewType = longint;
-const
-     GTK_PREVIEW_COLOR = 0;
-     GTK_PREVIEW_GRAYSCALE = 1;
-
-type
-     PGtkReliefStyle = ^TGtkReliefStyle;
-     TGtkReliefStyle = longint;
-const
-     GTK_RELIEF_NORMAL = 0;
-     GTK_RELIEF_HALF = 1;
-     GTK_RELIEF_NONE = 2;
-
-type
-     PGtkResizeMode = ^TGtkResizeMode;
-     TGtkResizeMode = longint;
-const
-     GTK_RESIZE_PARENT = 0;
-     GTK_RESIZE_QUEUE = 1;
-     GTK_RESIZE_IMMEDIATE = 2;
-
-type
-     PGtkSignalRunType = ^TGtkSignalRunType;
-     TGtkSignalRunType = longint;
-const
-     GTK_RUN_FIRST = 1 shl 0;
-     GTK_RUN_LAST = 1 shl 1;
-     GTK_RUN_BOTH = 3;
-     GTK_RUN_NO_RECURSE = 1 shl 2;
-     GTK_RUN_ACTION = 1 shl 3;
-     GTK_RUN_NO_HOOKS = 1 shl 4;
-
-type
-     PGtkScrollType = ^TGtkScrollType;
-     TGtkScrollType = longint;
-const
-     GTK_SCROLL_NONE = 0;
-     GTK_SCROLL_STEP_BACKWARD = 1;
-     GTK_SCROLL_STEP_FORWARD = 2;
-     GTK_SCROLL_PAGE_BACKWARD = 3;
-     GTK_SCROLL_PAGE_FORWARD = 4;
-     GTK_SCROLL_JUMP = 5;
-
-type
-     PGtkSelectionMode = ^TGtkSelectionMode;
-     TGtkSelectionMode = longint;
-const
-     GTK_SELECTION_SINGLE = 0;
-     GTK_SELECTION_BROWSE = 1;
-     GTK_SELECTION_MULTIPLE = 2;
-     GTK_SELECTION_EXTENDED = 3;
-
-type
-     PGtkShadowType = ^TGtkShadowType;
-     TGtkShadowType = longint;
-const
-     GTK_SHADOW_NONE = 0;
-     GTK_SHADOW_IN = 1;
-     GTK_SHADOW_OUT = 2;
-     GTK_SHADOW_ETCHED_IN = 3;
-     GTK_SHADOW_ETCHED_OUT = 4;
-
-type
-     PGtkStateType = ^TGtkStateType;
-     TGtkStateType = longint;
-const
-     GTK_STATE_NORMAL = 0;
-     GTK_STATE_ACTIVE = 1;
-     GTK_STATE_PRELIGHT = 2;
-     GTK_STATE_SELECTED = 3;
-     GTK_STATE_INSENSITIVE = 4;
-
-type
-     PGtkSubmenuDirection = ^TGtkSubmenuDirection;
-     TGtkSubmenuDirection = longint;
-const
-     GTK_DIRECTION_LEFT = 0;
-     GTK_DIRECTION_RIGHT = 1;
-
-type
-     PGtkSubmenuPlacement = ^TGtkSubmenuPlacement;
-     TGtkSubmenuPlacement = longint;
-const
-     GTK_TOP_BOTTOM = 0;
-     GTK_LEFT_RIGHT = 1;
-
-type
-     PGtkToolbarStyle = ^TGtkToolbarStyle;
-     TGtkToolbarStyle = longint;
-const
-     GTK_TOOLBAR_ICONS = 0;
-     GTK_TOOLBAR_TEXT = 1;
-     GTK_TOOLBAR_BOTH = 2;
-
-type
-     PGtkTroughType = ^TGtkTroughType;
-     TGtkTroughType = longint;
-const
-     GTK_TROUGH_NONE = 0;
-     GTK_TROUGH_START = 1;
-     GTK_TROUGH_END = 2;
-     GTK_TROUGH_JUMP = 3;
-
-type
-     PGtkUpdateType = ^TGtkUpdateType;
-     TGtkUpdateType = longint;
-const
-     GTK_UPDATE_CONTINUOUS = 0;
-     GTK_UPDATE_DISCONTINUOUS = 1;
-     GTK_UPDATE_DELAYED = 2;
-
-type
-     PGtkVisibility = ^TGtkVisibility;
-     TGtkVisibility = longint;
-const
-     GTK_VISIBILITY_NONE = 0;
-     GTK_VISIBILITY_PARTIAL = 1;
-     GTK_VISIBILITY_FULL = 2;
-
-type
-     PGtkWindowPosition = ^TGtkWindowPosition;
-     TGtkWindowPosition = longint;
-const
-     GTK_WIN_POS_NONE = 0;
-     GTK_WIN_POS_CENTER = 1;
-     GTK_WIN_POS_MOUSE = 2;
-
-type
-     PGtkWindowType = ^TGtkWindowType;
-     TGtkWindowType = longint;
-const
-     GTK_WINDOW_TOPLEVEL = 0;
-     GTK_WINDOW_DIALOG = 1;
-     GTK_WINDOW_POPUP = 2;
-
-type
-     PGtkSortType = ^TGtkSortType;
-     TGtkSortType = longint;
-const
-     GTK_SORT_ASCENDING = 0;
-     GTK_SORT_DESCENDING = 1;
-
-{$endif read_interface}
-

packages/extra/gtk/gtk/gtkeventbox.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkEventBox = ^TGtkEventBox;
-     TGtkEventBox = record
-          bin : TGtkBin;
-       end;
-
-     PGtkEventBoxClass = ^TGtkEventBoxClass;
-     TGtkEventBoxClass = record
-          parent_class : TGtkBinClass;
-       end;
-
-Type
-  GTK_EVENT_BOX=PGtkEventBox;
-  GTK_EVENT_BOX_CLASS=PGtkEventBoxClass;
-
-function  GTK_EVENT_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_event_box_get_type';
-function  GTK_IS_EVENT_BOX(obj:pointer):boolean;
-function  GTK_IS_EVENT_BOX_CLASS(klass:pointer):boolean;
-
-function  gtk_event_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_event_box_get_type';
-function  gtk_event_box_new : PGtkWidget;cdecl;external gtkdll name 'gtk_event_box_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_EVENT_BOX(obj:pointer):boolean;
-begin
-  GTK_IS_EVENT_BOX:=(obj<>nil) and GTK_IS_EVENT_BOX_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_EVENT_BOX_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_EVENT_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_EVENT_BOX_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkfeatures.pp

@@ -1,37 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  const
-     GTK_MAJOR_VERSION_CONST = 1;
-     GTK_MINOR_VERSION_CONST = 2;
-     GTK_MICRO_VERSION_CONST = 5;
-     GTK_BINARY_AGE_CONST = 2;
-     GTK_INTERFACE_AGE_CONST = 0;
-
-function  GTK_CHECK_VERSION(major,minor,micro:longint):boolean;
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_CHECK_VERSION(major,minor,micro:longint):boolean;
-begin
-  GTK_CHECK_VERSION:=(GTK_MAJOR_VERSION_CONST>major) or
-     ((GTK_MAJOR_VERSION_CONST=major) and (GTK_MINOR_VERSION_CONST>minor)) or
-     ((GTK_MAJOR_VERSION_CONST=major) and (GTK_MINOR_VERSION_CONST=minor) and (GTK_MICRO_VERSION_CONST>=micro));
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkfilesel.pp

@@ -1,78 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkFileSelection = ^TGtkFileSelection;
-     TGtkFileSelection = record
-          window : TGtkWindow;
-          dir_list : PGtkWidget;
-          file_list : PGtkWidget;
-          selection_entry : PGtkWidget;
-          selection_text : PGtkWidget;
-          main_vbox : PGtkWidget;
-          ok_button : PGtkWidget;
-          cancel_button : PGtkWidget;
-          help_button : PGtkWidget;
-          history_pulldown : PGtkWidget;
-          history_menu : PGtkWidget;
-          history_list : PGList;
-          fileop_dialog : PGtkWidget;
-          fileop_entry : PGtkWidget;
-          fileop_file : ^gchar;
-          cmpl_state : gpointer;
-          fileop_c_dir : PGtkWidget;
-          fileop_del_file : PGtkWidget;
-          fileop_ren_file : PGtkWidget;
-          button_area : PGtkWidget;
-          action_area : PGtkWidget;
-       end;
-
-     PGtkFileSelectionClass = ^TGtkFileSelectionClass;
-     TGtkFileSelectionClass = record
-          parent_class : TGtkWindowClass;
-       end;
-
-Type
-  GTK_FILE_SELECTION=PGtkFileSelection;
-  GTK_FILE_SELECTION_CLASS=PGtkFileSelectionClass;
-
-function  GTK_FILE_SELECTION_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_file_selection_get_type';
-function  GTK_IS_FILE_SELECTION(obj:pointer):boolean;
-function  GTK_IS_FILE_SELECTION_CLASS(klass:pointer):boolean;
-
-function  gtk_file_selection_get_type:TGtkType;cdecl;external gtkdll name 'gtk_file_selection_get_type';
-function  gtk_file_selection_new (title:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_file_selection_new';
-procedure gtk_file_selection_set_filename(filesel:PGtkFileSelection; filename:Pgchar);cdecl;external gtkdll name 'gtk_file_selection_set_filename';
-function  gtk_file_selection_get_filename (filesel:PGtkFileSelection):Pgchar;cdecl;external gtkdll name 'gtk_file_selection_get_filename';
-procedure gtk_file_selection_complete(filesel:PGtkFileSelection; pattern:Pgchar);cdecl;external gtkdll name 'gtk_file_selection_complete';
-procedure gtk_file_selection_show_fileop_buttons(filesel:PGtkFileSelection);cdecl;external gtkdll name 'gtk_file_selection_show_fileop_buttons';
-procedure gtk_file_selection_hide_fileop_buttons(filesel:PGtkFileSelection);cdecl;external gtkdll name 'gtk_file_selection_hide_fileop_buttons';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_FILE_SELECTION(obj:pointer):boolean;
-begin
-  GTK_IS_FILE_SELECTION:=(obj<>nil) and GTK_IS_FILE_SELECTION_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_FILE_SELECTION_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_FILE_SELECTION_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_FILE_SELECTION_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkfixed.pp

@@ -1,63 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkFixed = ^TGtkFixed;
-     TGtkFixed = record
-          container : TGtkContainer;
-          children : PGList;
-       end;
-
-     PGtkFixedClass = ^TGtkFixedClass;
-     TGtkFixedClass = record
-          parent_class : TGtkContainerClass;
-       end;
-
-     PGtkFixedChild = ^TGtkFixedChild;
-     TGtkFixedChild = record
-          widget : PGtkWidget;
-          x : gint16;
-          y : gint16;
-       end;
-
-Type
-  GTK_FIXED=PGtkFixed;
-  GTK_FIXED_CLASS=PGtkFixedClass;
-
-function  GTK_FIXED_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_fixed_get_type';
-function  GTK_IS_FIXED(obj:pointer):boolean;
-function  GTK_IS_FIXED_CLASS(klass:pointer):boolean;
-
-function  gtk_fixed_get_type:TGtkType;cdecl;external gtkdll name 'gtk_fixed_get_type';
-function  gtk_fixed_new : PGtkWidget;cdecl;external gtkdll name 'gtk_fixed_new';
-procedure gtk_fixed_put(fixed:PGtkFixed; widget:PGtkWidget; x:gint16; y:gint16);cdecl;external gtkdll name 'gtk_fixed_put';
-procedure gtk_fixed_move(fixed:PGtkFixed; widget:PGtkWidget; x:gint16; y:gint16);cdecl;external gtkdll name 'gtk_fixed_move';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_FIXED(obj:pointer):boolean;
-begin
-  GTK_IS_FIXED:=(obj<>nil) and GTK_IS_FIXED_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_FIXED_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_FIXED_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_FIXED_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkfontsel.pp

@@ -1,153 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  const
-     GTK_NUM_FONT_PROPERTIES = 6;
-     GTK_NUM_STYLE_PROPERTIES = 5;
-     GTK_NUM_FONT_FILTERS = 2;
-
-  type
-     TGtkFontMetricType = (GTK_FONT_METRIC_PIXELS,GTK_FONT_METRIC_POINTS);
-
-     TGtkFontType = (GTK_FONT_BITMAP := 1 shl 0,GTK_FONT_SCALABLE := 1 shl 1,
-       GTK_FONT_SCALABLE_BITMAP := 1 shl 2,GTK_FONT_ALL := $07);
-
-     TGtkFontFilterType = (GTK_FONT_FILTER_BASE,GTK_FONT_FILTER_USER);
-
-     PGtkFontFilter = ^TGtkFontFilter;
-     TGtkFontFilter = record
-          font_type : gint;
-          property_filters : array[0..(GTK_NUM_FONT_PROPERTIES)-1] of Pguint16;
-          property_nfilters : array[0..(GTK_NUM_FONT_PROPERTIES)-1] of guint16;
-       end;
-
-     PGtkFontSelection = ^TGtkFontSelection;
-     TGtkFontSelection = record
-          notebook : TGtkNotebook;
-          main_vbox : PGtkWidget;
-          font_label : PGtkWidget;
-          font_entry : PGtkWidget;
-          font_clist : PGtkWidget;
-          font_style_entry : PGtkWidget;
-          font_style_clist : PGtkWidget;
-          size_entry : PGtkWidget;
-          size_clist : PGtkWidget;
-          pixels_button : PGtkWidget;
-          points_button : PGtkWidget;
-          filter_button : PGtkWidget;
-          preview_entry : PGtkWidget;
-          message_label : PGtkWidget;
-          info_vbox : PGtkWidget;
-          info_clist : PGtkWidget;
-          requested_font_name : PGtkWidget;
-          actual_font_name : PGtkWidget;
-          filter_vbox : PGtkWidget;
-          type_bitmaps_button : PGtkWidget;
-          type_scalable_button : PGtkWidget;
-          type_scaled_bitmaps_button : PGtkWidget;
-          filter_clists : array[0..(GTK_NUM_FONT_PROPERTIES)-1] of PGtkWidget;
-          font : PGdkFont;
-          font_index : gint;
-          style : gint;
-          metric : TGtkFontMetricType;
-          size : gint;
-          selected_size : gint;
-          property_values : array[0..(GTK_NUM_STYLE_PROPERTIES)-1] of guint16;
-          filters : array[0..(GTK_NUM_FONT_FILTERS)-1] of TGtkFontFilter;
-       end;
-
-     PGtkFontSelectionClass = ^TGtkFontSelectionClass;
-     TGtkFontSelectionClass = record
-          parent_class : TGtkNotebookClass;
-       end;
-
-     PGtkFontSelectionDialog = ^TGtkFontSelectionDialog;
-     TGtkFontSelectionDialog = record
-          window : TGtkWindow;
-          fontsel : PGtkWidget;
-          main_vbox : PGtkWidget;
-          action_area : PGtkWidget;
-          ok_button : PGtkWidget;
-          apply_button : PGtkWidget;
-          cancel_button : PGtkWidget;
-          dialog_width : gint;
-          auto_resize : gboolean;
-       end;
-
-     PGtkFontSelectionDialogClass = ^TGtkFontSelectionDialogClass;
-     TGtkFontSelectionDialogClass = record
-          parent_class : TGtkWindowClass;
-       end;
-
-type
-  GTK_FONT_SELECTION=PGtkFontSelection;
-  GTK_FONT_SELECTION_CLASS=PGtkFontSelectionClass;
-
-function  GTK_FONT_SELECTION_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_font_selection_get_type';
-function  GTK_IS_FONT_SELECTION(obj:pointer):boolean;
-function  GTK_IS_FONT_SELECTION_CLASS(klass:pointer):boolean;
-
-function  gtk_font_selection_get_type:TGtkType;cdecl;external gtkdll name 'gtk_font_selection_get_type';
-function  gtk_font_selection_new:PGtkWidget;cdecl;external gtkdll name 'gtk_font_selection_new';
-function  gtk_font_selection_get_font_name(fontsel:PGtkFontSelection):Pgchar;cdecl;external gtkdll name 'gtk_font_selection_get_font_name';
-function  gtk_font_selection_get_font(fontsel:PGtkFontSelection):PGdkFont;cdecl;external gtkdll name 'gtk_font_selection_get_font';
-function  gtk_font_selection_set_font_name(fontsel:PGtkFontSelection; fontname:Pgchar):gboolean;cdecl;external gtkdll name 'gtk_font_selection_set_font_name';
-procedure gtk_font_selection_set_filter(fontsel:PGtkFontSelection; filter_type:TGtkFontFilterType; font_type:TGtkFontType; foundries:PPgchar; weights:PPgchar; slants:PPgchar; setwidths:PPgchar; spacings:PPgchar; charsets:PPgchar);cdecl;external gtkdll name 'gtk_font_selection_set_filter';
-function  gtk_font_selection_get_preview_text(fontsel:PGtkFontSelection):Pgchar;cdecl;external gtkdll name 'gtk_font_selection_get_preview_text';
-procedure gtk_font_selection_set_preview_text(fontsel:PGtkFontSelection; text:Pgchar);cdecl;external gtkdll name 'gtk_font_selection_set_preview_text';
-
-type
-  GTK_FONT_SELECTION_DIALOG=PGtkFontSelectionDialog;
-  GTK_FONT_SELECTION_DIALOG_CLASS=PGtkFontSelectionDialogClass;
-
-function  GTK_FONT_SELECTION_DIALOG_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_font_selection_dialog_get_type';
-function  GTK_IS_FONT_SELECTION_DIALOG(obj:pointer):boolean;
-function  GTK_IS_FONT_SELECTION_DIALOG_CLASS(klass:pointer):boolean;
-
-function  gtk_font_selection_dialog_get_type:TGtkType;cdecl;external gtkdll name 'gtk_font_selection_dialog_get_type';
-function  gtk_font_selection_dialog_new(title:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_font_selection_dialog_new';
-function  gtk_font_selection_dialog_get_font_name(fsd:PGtkFontSelectionDialog):Pgchar;cdecl;external gtkdll name 'gtk_font_selection_dialog_get_font_name';
-function  gtk_font_selection_dialog_get_font(fsd:PGtkFontSelectionDialog):PGdkFont;cdecl;external gtkdll name 'gtk_font_selection_dialog_get_font';
-function  gtk_font_selection_dialog_set_font_name(fsd:PGtkFontSelectionDialog; fontname:Pgchar):gboolean;cdecl;external gtkdll name 'gtk_font_selection_dialog_set_font_name';
-procedure gtk_font_selection_dialog_set_filter(fsd:PGtkFontSelectionDialog; filter_type:TGtkFontFilterType; font_type:TGtkFontType; foundries:PPgchar; weights:PPgchar; slants:PPgchar; setwidths:PPgchar; spacings:PPgchar; charsets:PPgchar);cdecl;external gtkdll name 'gtk_font_selection_dialog_set_filter';
-function  gtk_font_selection_dialog_get_preview_text(fsd:PGtkFontSelectionDialog):Pgchar;cdecl;external gtkdll name 'gtk_font_selection_dialog_get_preview_text';
-procedure gtk_font_selection_dialog_set_preview_text(fsd:PGtkFontSelectionDialog; text:Pgchar);cdecl;external gtkdll name 'gtk_font_selection_dialog_set_preview_text';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_FONT_SELECTION(obj:pointer):boolean;
-begin
-  GTK_IS_FONT_SELECTION:=(obj<>nil) and GTK_IS_FONT_SELECTION_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_FONT_SELECTION_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_FONT_SELECTION_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_FONT_SELECTION_TYPE);
-end;
-
-function  GTK_IS_FONT_SELECTION_DIALOG(obj:pointer):boolean;
-begin
-  GTK_IS_FONT_SELECTION_DIALOG:=(obj<>nil) and GTK_IS_FONT_SELECTION_DIALOG_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_FONT_SELECTION_DIALOG_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_FONT_SELECTION_DIALOG_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_FONT_SELECTION_DIALOG_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkframe.pp

@@ -1,62 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkFrame = ^TGtkFrame;
-       TGtkFrame = record
-            bin : TGtkBin;
-            thelabel : Pgchar;
-            shadow_type : gint16;
-            label_width : gint16;
-            label_height : gint16;
-            label_xalign : gfloat;
-            label_yalign : gfloat;
-         end;
-
-       PGtkFrameClass = ^TGtkFrameClass;
-       TGtkFrameClass = record
-            parent_class : TGtkBinClass;
-         end;
-
-Type
-  GTK_FRAME=PGtkFrame;
-  GTK_FRAME_CLASS=PGtkFrameClass;
-
-function  GTK_FRAME_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_frame_get_type';
-function  GTK_IS_FRAME(obj:pointer):boolean;
-function  GTK_IS_FRAME_CLASS(klass:pointer):boolean;
-
-function  gtk_frame_get_type:TGtkType;cdecl;external gtkdll name 'gtk_frame_get_type';
-function  gtk_frame_new (thelabel:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_frame_new';
-procedure gtk_frame_set_label(frame:PGtkFrame; thelabel:Pgchar);cdecl;external gtkdll name 'gtk_frame_set_label';
-procedure gtk_frame_set_label_align(frame:PGtkFrame; xalign:gfloat; yalign:gfloat);cdecl;external gtkdll name 'gtk_frame_set_label_align';
-procedure gtk_frame_set_shadow_type(frame:PGtkFrame; thetype:TGtkShadowType);cdecl;external gtkdll name 'gtk_frame_set_shadow_type';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_FRAME(obj:pointer):boolean;
-begin
-  GTK_IS_FRAME:=(obj<>nil) and GTK_IS_FRAME_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_FRAME_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_FRAME_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_FRAME_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkgamma.pp

@@ -1,59 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkGammaCurve = ^TGtkGammaCurve;
-     TGtkGammaCurve = record
-          vbox : TGtkVBox;
-          table : PGtkWidget;
-          curve : PGtkWidget;
-          button : array[0..4] of PGtkWidget;
-          gamma : gfloat;
-          gamma_dialog : PGtkWidget;
-          gamma_text : PGtkWidget;
-       end;
-
-     PGtkGammaCurveClass = ^TGtkGammaCurveClass;
-     TGtkGammaCurveClass = record
-          parent_class : TGtkVBoxClass;
-       end;
-
-type
-  GTK_GAMMA_CURVE=PGtkGammaCurve;
-  GTK_GAMMA_CURVE_CLASS=PGtkGammaCurveClass;
-
-function  GTK_GAMMA_CURVE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_gamma_curve_get_type';
-function  GTK_IS_GAMMA_CURVE(obj:pointer):boolean;
-function  GTK_IS_GAMMA_CURVE_CLASS(klass:pointer):boolean;
-
-function  gtk_gamma_curve_get_type:TGtkType;cdecl;external gtkdll name 'gtk_gamma_curve_get_type';
-function  gtk_gamma_curve_new :PGtkWidget;cdecl;external gtkdll name 'gtk_gamma_curve_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_GAMMA_CURVE(obj:pointer):boolean;
-begin
-  GTK_IS_GAMMA_CURVE:=(obj<>nil) and GTK_IS_GAMMA_CURVE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_GAMMA_CURVE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_GAMMA_CURVE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_GAMMA_CURVE_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkgc.pp

@@ -1,23 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-function  gtk_gc_get (depth:gint; colormap:PGdkColormap; values:PGdkGCValues; values_mask:TGdkGCValuesMask): PGdkGC;cdecl;external gtkdll name 'gtk_gc_get';
-procedure gtk_gc_release(gc:PGdkGC);cdecl;external gtkdll name 'gtk_gc_release';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhandlebox.pp

@@ -1,153 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHandleBox = ^TGtkHandleBox;
-     TGtkHandleBox = record
-          bin : TGtkBin;
-          bin_window : PGdkWindow;
-          float_window : PGdkWindow;
-          shadow_type : TGtkShadowType;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          deskoff_x : gint;
-          deskoff_y : gint;
-          attach_allocation : TGtkAllocation;
-          float_allocation : TGtkAllocation;
-       end;
-
-  const
-     bm_TGtkHandleBox_handle_position = $3;
-     bp_TGtkHandleBox_handle_position = 0;
-     bm_TGtkHandleBox_float_window_mapped = $4;
-     bp_TGtkHandleBox_float_window_mapped = 2;
-     bm_TGtkHandleBox_child_detached = $8;
-     bp_TGtkHandleBox_child_detached = 3;
-     bm_TGtkHandleBox_in_drag = $10;
-     bp_TGtkHandleBox_in_drag = 4;
-     bm_TGtkHandleBox_shrink_on_detach = $20;
-     bp_TGtkHandleBox_shrink_on_detach = 5;
-     bm_TGtkHandleBox_snap_edge = $1C0;
-     bp_TGtkHandleBox_snap_edge = 6;
-function  handle_position(var a : TGtkHandleBox) : guint;
-procedure set_handle_position(var a : TGtkHandleBox; __handle_position : guint);
-function  float_window_mapped(var a : TGtkHandleBox) : guint;
-procedure set_float_window_mapped(var a : TGtkHandleBox; __float_window_mapped : guint);
-function  child_detached(var a : TGtkHandleBox) : guint;
-procedure set_child_detached(var a : TGtkHandleBox; __child_detached : guint);
-function  in_drag(var a : TGtkHandleBox) : guint;
-procedure set_in_drag(var a : TGtkHandleBox; __in_drag : guint);
-function  shrink_on_detach(var a : TGtkHandleBox) : guint;
-procedure set_shrink_on_detach(var a : TGtkHandleBox; __shrink_on_detach : guint);
-function  snap_edge(var a : TGtkHandleBox) : gint;
-procedure set_snap_edge(var a : TGtkHandleBox; __snap_edge : gint);
-
-  type
-     PGtkHandleBoxClass = ^TGtkHandleBoxClass;
-     TGtkHandleBoxClass = record
-          parent_class : TGtkBinClass;
-          child_attached : procedure (handle_box:PGtkHandleBox; child:PGtkWidget); cdecl;
-          child_detached : procedure (handle_box:PGtkHandleBox; child:PGtkWidget); cdecl;
-       end;
-
-Type
-  GTK_HANDLE_BOX=PGtkHandleBox;
-  GTK_HANDLE_BOX_CLASS=PGtkHandleBoxClass;
-
-function  GTK_HANDLE_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_handle_box_get_type';
-function  GTK_IS_HANDLE_BOX(obj:pointer):boolean;
-function  GTK_IS_HANDLE_BOX_CLASS(klass:pointer):boolean;
-
-function  gtk_handle_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_handle_box_get_type';
-function  gtk_handle_box_new : PGtkWidget;cdecl;external gtkdll name 'gtk_handle_box_new';
-procedure gtk_handle_box_set_shadow_type(handle_box:PGtkHandleBox; thetype:TGtkShadowType);cdecl;external gtkdll name 'gtk_handle_box_set_shadow_type';
-procedure gtk_handle_box_set_handle_position(handle_box:PGtkHandleBox; position:TGtkPositionType);cdecl;external gtkdll name 'gtk_handle_box_set_handle_position';
-procedure gtk_handle_box_set_snap_edge(handle_box:PGtkHandleBox; edge:TGtkPositionType);cdecl;external gtkdll name 'gtk_handle_box_set_snap_edge';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  handle_position(var a : TGtkHandleBox) : guint;
-    begin
-       handle_position:=(a.flag0 and bm_TGtkHandleBox_handle_position) shr bp_TGtkHandleBox_handle_position;
-    end;
-
-procedure set_handle_position(var a : TGtkHandleBox; __handle_position : guint);
-    begin
-       a.flag0:=a.flag0 or ((__handle_position shl bp_TGtkHandleBox_handle_position) and bm_TGtkHandleBox_handle_position);
-    end;
-
-function  float_window_mapped(var a : TGtkHandleBox) : guint;
-    begin
-       float_window_mapped:=(a.flag0 and bm_TGtkHandleBox_float_window_mapped) shr bp_TGtkHandleBox_float_window_mapped;
-    end;
-
-procedure set_float_window_mapped(var a : TGtkHandleBox; __float_window_mapped : guint);
-    begin
-       a.flag0:=a.flag0 or ((__float_window_mapped shl bp_TGtkHandleBox_float_window_mapped) and bm_TGtkHandleBox_float_window_mapped);
-    end;
-
-function  child_detached(var a : TGtkHandleBox) : guint;
-    begin
-       child_detached:=(a.flag0 and bm_TGtkHandleBox_child_detached) shr bp_TGtkHandleBox_child_detached;
-    end;
-
-procedure set_child_detached(var a : TGtkHandleBox; __child_detached : guint);
-    begin
-       a.flag0:=a.flag0 or ((__child_detached shl bp_TGtkHandleBox_child_detached) and bm_TGtkHandleBox_child_detached);
-    end;
-
-function  in_drag(var a : TGtkHandleBox) : guint;
-    begin
-       in_drag:=(a.flag0 and bm_TGtkHandleBox_in_drag) shr bp_TGtkHandleBox_in_drag;
-    end;
-
-procedure set_in_drag(var a : TGtkHandleBox; __in_drag : guint);
-    begin
-       a.flag0:=a.flag0 or ((__in_drag shl bp_TGtkHandleBox_in_drag) and bm_TGtkHandleBox_in_drag);
-    end;
-
-function  shrink_on_detach(var a : TGtkHandleBox) : guint;
-    begin
-       shrink_on_detach:=(a.flag0 and bm_TGtkHandleBox_shrink_on_detach) shr bp_TGtkHandleBox_shrink_on_detach;
-    end;
-
-procedure set_shrink_on_detach(var a : TGtkHandleBox; __shrink_on_detach : guint);
-    begin
-       a.flag0:=a.flag0 or ((__shrink_on_detach shl bp_TGtkHandleBox_shrink_on_detach) and bm_TGtkHandleBox_shrink_on_detach);
-    end;
-
-function  snap_edge(var a : TGtkHandleBox) : gint;
-    begin
-       snap_edge:=(a.flag0 and bm_TGtkHandleBox_snap_edge) shr bp_TGtkHandleBox_snap_edge;
-    end;
-
-procedure set_snap_edge(var a : TGtkHandleBox; __snap_edge : gint);
-    begin
-       a.flag0:=a.flag0 or ((__snap_edge shl bp_TGtkHandleBox_snap_edge) and bm_TGtkHandleBox_snap_edge);
-    end;
-
-function  GTK_IS_HANDLE_BOX(obj:pointer):boolean;
-begin
-  GTK_IS_HANDLE_BOX:=(obj<>nil) and GTK_IS_HANDLE_BOX_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HANDLE_BOX_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HANDLE_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HANDLE_BOX_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhbbox.pp

@@ -1,57 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHButtonBox = ^TGtkHButtonBox;
-     TGtkHButtonBox = record
-          button_box : TGtkButtonBox;
-       end;
-
-     PGtkHButtonBoxClass = ^TGtkHButtonBoxClass;
-     TGtkHButtonBoxClass = record
-          parent_class : TGtkButtonBoxClass;
-       end;
-
-Type
-  GTK_HBUTTON_BOX=PGtkHButtonBox;
-  GTK_HBUTTON_BOX_CLASS=PGtkHButtonBoxClass;
-
-function  GTK_HBUTTON_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hbutton_box_get_type';
-function  GTK_IS_HBUTTON_BOX(obj:pointer):boolean;
-function  GTK_IS_HBUTTON_BOX_CLASS(klass:pointer):boolean;
-
-function  gtk_hbutton_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hbutton_box_get_type';
-function  gtk_hbutton_box_new :PGtkWidget;cdecl;external gtkdll name 'gtk_hbutton_box_new';
-function  gtk_hbutton_box_get_spacing_default:gint;cdecl;external gtkdll name 'gtk_hbutton_box_get_spacing_default';
-function  gtk_hbutton_box_get_layout_default:TGtkButtonBoxStyle;cdecl;external gtkdll name 'gtk_hbutton_box_get_layout_default';
-procedure gtk_hbutton_box_set_spacing_default(spacing:gint);cdecl;external gtkdll name 'gtk_hbutton_box_set_spacing_default';
-procedure gtk_hbutton_box_set_layout_default(layout:TGtkButtonBoxStyle);cdecl;external gtkdll name 'gtk_hbutton_box_set_layout_default';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HBUTTON_BOX(obj:pointer):boolean;
-begin
-  GTK_IS_HBUTTON_BOX:=(obj<>nil) and GTK_IS_HBUTTON_BOX_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HBUTTON_BOX_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HBUTTON_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HBUTTON_BOX_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhbox.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHBox = ^TGtkHBox;
-     TGtkHBox = record
-          box : TGtkBox;
-       end;
-
-     PGtkHBoxClass = ^TGtkHBoxClass;
-     TGtkHBoxClass = record
-          parent_class : TGtkBoxClass;
-       end;
-
-Type
-  GTK_HBOX=PGtkHBox;
-  GTK_HBOX_CLASS=PGtkHBoxClass;
-
-function  GTK_HBOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hbox_get_type';
-function  GTK_IS_HBOX(obj:pointer):boolean;
-function  GTK_IS_HBOX_CLASS(klass:pointer):boolean;
-
-function  gtk_hbox_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hbox_get_type';
-function  gtk_hbox_new(homogeneous:gboolean; spacing:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_hbox_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HBOX(obj:pointer):boolean;
-begin
-  GTK_IS_HBOX:=(obj<>nil) and GTK_IS_HBOX_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HBOX_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HBOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HBOX_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhpaned.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHPaned = ^TGtkHPaned;
-     TGtkHPaned = record
-          paned : TGtkPaned;
-       end;
-
-     PGtkHPanedClass = ^TGtkHPanedClass;
-     TGtkHPanedClass = record
-          parent_class : TGtkPanedClass;
-       end;
-
-Type
-  GTK_HPANED=PGtkHPaned;
-  GTK_HPANED_CLASS=PGtkHPanedClass;
-
-function  GTK_HPANED_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hpaned_get_type';
-function  GTK_IS_HPANED(obj:pointer):boolean;
-function  GTK_IS_HPANED_CLASS(klass:pointer):boolean;
-
-function  gtk_hpaned_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hpaned_get_type';
-function  gtk_hpaned_new : PGtkWidget;cdecl;external gtkdll name 'gtk_hpaned_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HPANED(obj:pointer):boolean;
-begin
-  GTK_IS_HPANED:=(obj<>nil) and GTK_IS_HPANED_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HPANED_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HPANED_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HPANED_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhruler.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHRuler = ^TGtkHRuler;
-     TGtkHRuler = record
-          ruler : TGtkRuler;
-       end;
-
-     PGtkHRulerClass = ^TGtkHRulerClass;
-     TGtkHRulerClass = record
-          parent_class : TGtkRulerClass;
-       end;
-
-Type
-  GTK_HRULER=PGtkHRuler;
-  GTK_HRULER_CLASS=PGtkHRulerClass;
-
-function  GTK_HRULER_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type';
-function  GTK_IS_HRULER(obj:pointer):boolean;
-function  GTK_IS_HRULER_CLASS(klass:pointer):boolean;
-
-function  gtk_hruler_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type';
-function  gtk_hruler_new:PGtkWidget;cdecl;external gtkdll name 'gtk_hruler_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HRULER(obj:pointer):boolean;
-begin
-  GTK_IS_HRULER:=(obj<>nil) and GTK_IS_HRULER_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HRULER_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HRULER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HRULER_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhscale.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHScale = ^TGtkHScale;
-     TGtkHScale = record
-          scale : TGtkScale;
-       end;
-
-     PGtkHScaleClass = ^TGtkHScaleClass;
-     TGtkHScaleClass = record
-          parent_class : TGtkScaleClass;
-       end;
-
-Type
-  GTK_HSCALE=PGtkHScale;
-  GTK_HSCALE_CLASS=PGtkHScaleClass;
-
-function  GTK_HSCALE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hscale_get_type';
-function  GTK_IS_HSCALE(obj:pointer):boolean;
-function  GTK_IS_HSCALE_CLASS(klass:pointer):boolean;
-
-function  gtk_hscale_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hscale_get_type';
-function  gtk_hscale_new(adjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_hscale_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HSCALE(obj:pointer):boolean;
-begin
-  GTK_IS_HSCALE:=(obj<>nil) and GTK_IS_HSCALE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HSCALE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HSCALE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HSCALE_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhscrollbar.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkHScrollbar = ^TGtkHScrollbar;
-       TGtkHScrollbar = record
-            scrollbar : TGtkScrollbar;
-         end;
-
-       PGtkHScrollbarClass = ^TGtkHScrollbarClass;
-       TGtkHScrollbarClass = record
-            parent_class : TGtkScrollbarClass;
-         end;
-
-Type
-  GTK_HSCROLLBAR=PGtkHScrollbar;
-  GTK_HSCROLLBAR_CLASS=PGtkHScrollbarClass;
-
-function  GTK_HSCROLLBAR_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hscrollbar_get_type';
-function  GTK_IS_HSCROLLBAR(obj:pointer):boolean;
-function  GTK_IS_HSCROLLBAR_CLASS(klass:pointer):boolean;
-
-function  gtk_hscrollbar_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hscrollbar_get_type';
-function  gtk_hscrollbar_new (adjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_hscrollbar_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HSCROLLBAR(obj:pointer):boolean;
-begin
-  GTK_IS_HSCROLLBAR:=(obj<>nil) and GTK_IS_HSCROLLBAR_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HSCROLLBAR_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HSCROLLBAR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HSCROLLBAR_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkhseparator.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkHSeparator = ^TGtkHSeparator;
-     TGtkHSeparator = record
-          separator : TGtkSeparator;
-       end;
-
-     PGtkHSeparatorClass = ^TGtkHSeparatorClass;
-     TGtkHSeparatorClass = record
-          parent_class : TGtkSeparatorClass;
-       end;
-
-Type
-  GTK_HSEPARATOR=PGtkHSeparator;
-  GTK_HSEPARATOR_CLASS=PGtkHSeparatorClass;
-
-function  GTK_HSEPARATOR_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hseparator_get_type';
-function  GTK_IS_HSEPARATOR(obj:pointer):boolean;
-function  GTK_IS_HSEPARATOR_CLASS(klass:pointer):boolean;
-
-function  gtk_hseparator_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hseparator_get_type';
-function  gtk_hseparator_new:PGtkWidget;cdecl;external gtkdll name 'gtk_hseparator_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_HSEPARATOR(obj:pointer):boolean;
-begin
-  GTK_IS_HSEPARATOR:=(obj<>nil) and GTK_IS_HSEPARATOR_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_HSEPARATOR_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_HSEPARATOR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HSEPARATOR_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkimage.pp

@@ -1,57 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkImage = ^TGtkImage;
-     TGtkImage = record
-          misc : TGtkMisc;
-          image : PGdkImage;
-          mask : PGdkBitmap;
-       end;
-
-     PGtkImageClass = ^TGtkImageClass;
-     TGtkImageClass = record
-          parent_class : TGtkMiscClass;
-       end;
-
-Type
-  GTK_IMAGE=PGtkImage;
-  GTK_IMAGE_CLASS=PGtkImageClass;
-
-function  GTK_IMAGE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_image_get_type';
-function  GTK_IS_IMAGE(obj:pointer):boolean;
-function  GTK_IS_IMAGE_CLASS(klass:pointer):boolean;
-
-function  gtk_image_get_type:TGtkType;cdecl;external gtkdll name 'gtk_image_get_type';
-function  gtk_image_new(val:PGdkImage; mask:PGdkBitmap):PGtkWidget;cdecl;external gtkdll name 'gtk_image_new';
-procedure gtk_image_set(image:PGtkImage; val:PGdkImage; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_image_set';
-procedure gtk_image_get(image:PGtkImage; val:PPGdkImage; mask:PPGdkBitmap);cdecl;external gtkdll name 'gtk_image_get';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_IMAGE(obj:pointer):boolean;
-begin
-  GTK_IS_IMAGE:=(obj<>nil) and GTK_IS_IMAGE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_IMAGE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_IMAGE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_IMAGE_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkincludes.pp

@@ -1,116 +0,0 @@
-{
-
-   This file contains all includes needed by gtk.pp
-
-   Note: The order of the files is important !!
-}
-
-{$i gtkfeatures.pp}
-{$i gtkenums.pp}
-{$i gtkobjects.pp}
-{$i gtktypeutils.pp}
-{$i gtkdata.pp}
-{$i gtkadjustment.pp}
-{$i gtkaccelgroup.pp}
-{$i gtkwidget.pp}
-{$i gtkstyle.pp}
-{$i gtkmisc.pp}
-{$i gtklabel.pp}
-{$i gtkprivate.pp}
-{$i gtkaccellabel.pp}
-{$i gtkthemes.pp}
-{$i gtkmain.pp}
-{$i gtkdrawingarea.pp}
-{$i gtkcontainer.pp}
-{$i gtkbin.pp}
-{$i gtksignal.pp}
-{$i gtkitem.pp}
-{$i gtkarg.pp}
-{$i gtkmarshal.pp}
-{$i gtkbindings.pp}
-{$i gtkinvisible.pp}
-{$i gtkalignment.pp}
-{$i gtkwindow.pp}
-{$i gtkplug.pp}
-{$i gtksocket.pp}
-{$i gtkpacker.pp}
-{$i gtklayout.pp}
-{$i gtkframe.pp}
-{$i gtkaspectframe.pp}
-{$i gtkviewport.pp}
-{$i gtkrange.pp}
-{$i gtkrc.pp}
-{$i gtkeditable.pp}
-{$i gtktext.pp}
-{$i gtkarrow.pp}
-{$i gtkpixmap.pp}
-{$i gtkbutton.pp}
-{$i gtktogglebutton.pp}
-{$i gtkcheckbutton.pp}
-{$i gtkmenuitem.pp}
-{$i gtkcheckmenuitem.pp}
-{$i gtktearoffmenuitem.pp}
-{$i gtkcurve.pp}
-{$i gtkdialog.pp}
-{$i gtkentry.pp}
-{$i gtkeventbox.pp}
-{$i gtkfilesel.pp}
-{$i gtkfixed.pp}
-{$i gtkgc.pp}
-{$i gtkhandlebox.pp}
-{$i gtkimage.pp}
-{$i gtkinputdialog.pp}
-{$i gtklist.pp}
-{$i gtklistitem.pp}
-{$i gtkmenushell.pp}
-{$i gtkmenufactory.pp}
-{$i gtkmenu.pp}
-{$i gtkmenubar.pp}
-{$i gtkoptionmenu.pp}
-{$i gtkpreview.pp}
-{$i gtkitemfactory.pp}
-{$i gtkprogress.pp}
-{$i gtkprogressbar.pp}
-{$i gtkradiobutton.pp}
-{$i gtkradiomenuitem.pp}
-{$i gtkscrolledwindow.pp}
-{$i gtkselection.pp}
-{$i gtkdnd.pp}
-{$i gtkspinbutton.pp}
-{$i gtktable.pp}
-{$i gtktipsquery.pp}
-{$i gtktooltips.pp}
-{$i gtktoolbar.pp}
-{$i gtktreeitem.pp}
-{$i gtktree.pp}
-{$i gtkbox.pp}
-{$i gtkhbox.pp}
-{$i gtkvbox.pp}
-{$i gtkbbox.pp}
-{$i gtkhbbox.pp}
-{$i gtkvbbox.pp}
-{$i gtkpaned.pp}
-{$i gtkhpaned.pp}
-{$i gtkvpaned.pp}
-{$i gtkruler.pp}
-{$i gtkhruler.pp}
-{$i gtkvruler.pp}
-{$i gtkscale.pp}
-{$i gtkhscale.pp}
-{$i gtkvscale.pp}
-{$i gtkscrollbar.pp}
-{$i gtkhscrollbar.pp}
-{$i gtkvscrollbar.pp}
-{$i gtkseparator.pp}
-{$i gtkhseparator.pp}
-{$i gtkvseparator.pp}
-{$i gtkcombo.pp}
-{$i gtkstatusbar.pp}
-{$i gtkcolorsel.pp}
-{$i gtkgamma.pp}
-{$i gtkclist.pp}
-{$i gtknotebook.pp}
-{$i gtkctree.pp}
-{$i gtkcalendar.pp}
-{$i gtkfontsel.pp}
-

packages/extra/gtk/gtk/gtkinputdialog.pp

@@ -1,64 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkInputDialog = ^TGtkInputDialog;
-     TGtkInputDialog = record
-          dialog : TGtkDialog;
-          axis_list : PGtkWidget;
-          axis_listbox : PGtkWidget;
-          mode_optionmenu : PGtkWidget;
-          close_button : PGtkWidget;
-          save_button : PGtkWidget;
-          axis_items : array[0..ord(GDK_AXIS_LAST)-1] of PGtkWidget;
-          current_device : guint32;
-          keys_list : PGtkWidget;
-          keys_listbox : PGtkWidget;
-       end;
-
-     PGtkInputDialogClass = ^TGtkInputDialogClass;
-     TGtkInputDialogClass = record
-          parent_class : TGtkWindowClass;
-          enable_device : procedure (inputd:PGtkInputDialog; devid:guint32);cdecl;
-          disable_device : procedure (inputd:PGtkInputDialog; devid:guint32);cdecl;
-       end;
-
-Type
-  GTK_INPUT_DIALOG=PGtkInputDialog;
-  GTK_INPUT_DIALOG_CLASS=PGtkInputDialogClass;
-
-function  GTK_INPUT_DIALOG_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_input_dialog_get_type';
-function  GTK_IS_INPUT_DIALOG(obj:pointer):boolean;
-function  GTK_IS_INPUT_DIALOG_CLASS(klass:pointer):boolean;
-
-function  gtk_input_dialog_get_type:TGtkType;cdecl;external gtkdll name 'gtk_input_dialog_get_type';
-function  gtk_input_dialog_new:PGtkWidget;cdecl;external gtkdll name 'gtk_input_dialog_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_INPUT_DIALOG(obj:pointer):boolean;
-begin
-  GTK_IS_INPUT_DIALOG:=(obj<>nil) and GTK_IS_INPUT_DIALOG_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_INPUT_DIALOG_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_INPUT_DIALOG_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_INPUT_DIALOG_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkinvisible.pp

@@ -1,53 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkInvisible = ^TGtkInvisible;
-     TGtkInvisible = record
-          bin : TGtkBin;
-       end;
-
-     PGtkInvisibleClass = ^TGtkInvisibleClass;
-     TGtkInvisibleClass = record
-          parent_class : TGtkBinClass;
-       end;
-
-type
-  GTK_INVISIBLE=PGtkInvisible;
-  GTK_INVISIBLE_CLASS=PGtkInvisibleClass;
-
-function  GTK_INVISIBLE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
-function  GTK_IS_INVISIBLE(obj:pointer):boolean;
-function  GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
-
-function  gtk_invisible_get_type:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
-function  gtk_invisible_new:PGtkWidget;cdecl;external gtkdll name 'gtk_invisible_new';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_INVISIBLE(obj:pointer):boolean;
-begin
-  GTK_IS_INVISIBLE:=(obj<>nil) and GTK_IS_INVISIBLE_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_INVISIBLE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_INVISIBLE_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkitem.pp

@@ -1,58 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkItem = ^TGtkItem;
-       TGtkItem = record
-            bin : TGtkBin;
-         end;
-
-       PGtkItemClass = ^TGtkItemClass;
-       TGtkItemClass = record
-            parent_class : TGtkBinClass;
-            select : procedure (item:PGtkItem); cdecl;
-            deselect : procedure (item:PGtkItem); cdecl;
-            toggle : procedure (item:PGtkItem); cdecl;
-         end;
-
-Type
-  GTK_ITEM=PGtkItem;
-  GTK_ITEM_CLASS=PGtkItemClass;
-
-function  GTK_ITEM_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_item_get_type';
-function  GTK_IS_ITEM(obj:pointer):boolean;
-function  GTK_IS_ITEM_CLASS(klass:pointer):boolean;
-
-function  gtk_item_get_type:TGtkType;cdecl;external gtkdll name 'gtk_item_get_type';
-procedure gtk_item_select(item:PGtkItem);cdecl;external gtkdll name 'gtk_item_select';
-procedure gtk_item_deselect(item:PGtkItem);cdecl;external gtkdll name 'gtk_item_deselect';
-procedure gtk_item_toggle(item:PGtkItem);cdecl;external gtkdll name 'gtk_item_toggle';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_ITEM(obj:pointer):boolean;
-begin
-  GTK_IS_ITEM:=(obj<>nil) and GTK_IS_ITEM_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ITEM_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ITEM_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ITEM_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkitemfactory.pp

@@ -1,150 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     TGtkPrintFunc = procedure (func_data:gpointer; str:Pgchar);cdecl;
-
-     TGtkTranslateFunc = function (path:Pgchar; func_data:gpointer):Pgchar;cdecl;
-
-     TGtkItemFactoryCallback = procedure ;cdecl;
-
-     TGtkItemFactoryCallback1 = procedure (callback_data:gpointer; callback_action:guint; widget:PGtkWidget);cdecl;
-
-     TGtkItemFactoryCallback2 = procedure (widget:PGtkWidget; callback_data:gpointer; callback_action:guint);cdecl;
-
-     PGtkItemFactory = ^TGtkItemFactory;
-     TGtkItemFactory = record
-          theobject : TGtkObject;
-          path : Pgchar;
-          accel_group : PGtkAccelGroup;
-          widget : PGtkWidget;
-          items : PGSList;
-          translate_func : TGtkTranslateFunc;
-          translate_data : gpointer;
-          translate_notify : TGtkDestroyNotify;
-       end;
-
-     PGtkItemFactoryClass = ^TGtkItemFactoryClass;
-     TGtkItemFactoryClass = record
-          object_class : TGtkObjectClass;
-          cpair_comment_single : Pgchar;
-          item_ht : PGHashTable;
-          dummy : gpointer;
-       end;
-
-     PGtkItemFactoryEntry = ^TGtkItemFactoryEntry;
-     TGtkItemFactoryEntry = record
-          path : Pgchar;
-          accelerator : Pgchar;
-          callback : TGtkItemFactoryCallback;
-          callback_action : guint;
-          item_type : Pgchar;
-       end;
-
-     PGtkItemFactoryItem = ^TGtkItemFactoryItem;
-     TGtkItemFactoryItem = record
-          path : Pgchar;
-          accelerator_key : guint;
-          accelerator_mods : guint;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-          dummy : Pgchar;
-          widgets : PGSList;
-       end;
-
-  const
-     bm_TGtkItemFactoryItem_modified = $1;
-     bp_TGtkItemFactoryItem_modified = 0;
-     bm_TGtkItemFactoryItem_in_propagation = $2;
-     bp_TGtkItemFactoryItem_in_propagation = 1;
-function  modified(var a : TGtkItemFactoryItem) : guint;
-procedure set_modified(var a : TGtkItemFactoryItem; __modified : guint);
-function  in_propagation(var a : TGtkItemFactoryItem) : guint;
-procedure set_in_propagation(var a : TGtkItemFactoryItem; __in_propagation : guint);
-
-type
-  GTK_ITEM_FACTORY=TGtkItemFactory;
-  GTK_ITEM_FACTORY_CLASS=TGtkItemFactoryClass;
-
-function  GTK_ITEM_FACTORY_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_item_factory_get_type';
-function  GTK_IS_ITEM_FACTORY(obj:pointer):boolean;
-function  GTK_IS_ITEM_FACTORY_CLASS(klass:pointer):boolean;
-
-function  gtk_item_factory_get_type:TGtkType;cdecl;external gtkdll name 'gtk_item_factory_get_type';
-function  gtk_item_factory_new(container_type:TGtkType; path:Pgchar; accel_group:PGtkAccelGroup):PGtkItemFactory;cdecl;external gtkdll name 'gtk_item_factory_new';
-procedure gtk_item_factory_construct(ifactory:PGtkItemFactory; container_type:TGtkType; path:Pgchar; accel_group:PGtkAccelGroup);cdecl;external gtkdll name 'gtk_item_factory_construct';
-procedure gtk_item_factory_parse_rc(file_name:Pgchar);cdecl;external gtkdll name 'gtk_item_factory_parse_rc';
-procedure gtk_item_factory_parse_rc_string(rc_string:Pgchar);cdecl;external gtkdll name 'gtk_item_factory_parse_rc_string';
-procedure gtk_item_factory_parse_rc_scanner(scanner:PGScanner);cdecl;external gtkdll name 'gtk_item_factory_parse_rc_scanner';
-procedure gtk_item_factory_add_foreign(accel_widget:PGtkWidget; full_path:Pgchar; accel_group:PGtkAccelGroup; keyval:guint; modifiers:TGdkModifierType);cdecl;external gtkdll name 'gtk_item_factory_add_foreign';
-function  gtk_item_factory_from_widget(widget:PGtkWidget):PGtkItemFactory;cdecl;external gtkdll name 'gtk_item_factory_from_widget';
-function  gtk_item_factory_path_from_widget(widget:PGtkWidget):Pgchar;cdecl;external gtkdll name 'gtk_item_factory_path_from_widget';
-function  gtk_item_factory_get_item(ifactory:PGtkItemFactory; path:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_item_factory_get_item';
-function  gtk_item_factory_get_widget(ifactory:PGtkItemFactory; path:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_item_factory_get_widget';
-function  gtk_item_factory_get_widget_by_action(ifactory:PGtkItemFactory; action:guint):PGtkWidget;cdecl;external gtkdll name 'gtk_item_factory_get_widget_by_action';
-function  gtk_item_factory_get_item_by_action(ifactory:PGtkItemFactory; action:guint):PGtkWidget;cdecl;external gtkdll name 'gtk_item_factory_get_item_by_action';
-procedure gtk_item_factory_dump_items(path_pspec:PGtkPatternSpec; modified_only:gboolean; print_func:TGtkPrintFunc; func_data:gpointer);cdecl;external gtkdll name 'gtk_item_factory_dump_items';
-procedure gtk_item_factory_dump_rc(file_name:Pgchar; path_pspec:PGtkPatternSpec; modified_only:gboolean);cdecl;external gtkdll name 'gtk_item_factory_dump_rc';
-procedure gtk_item_factory_print_func(FILE_pointer:gpointer; thestring:Pgchar);cdecl;external gtkdll name 'gtk_item_factory_print_func';
-procedure gtk_item_factory_create_item(ifactory:PGtkItemFactory; entry:PGtkItemFactoryEntry; callback_data:gpointer; callback_type:guint);cdecl;external gtkdll name 'gtk_item_factory_create_item';
-procedure gtk_item_factory_create_items(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry; callback_data:gpointer);cdecl;external gtkdll name 'gtk_item_factory_create_items';
-procedure gtk_item_factory_delete_item(ifactory:PGtkItemFactory; path:Pgchar);cdecl;external gtkdll name 'gtk_item_factory_delete_item';
-procedure gtk_item_factory_delete_entry(ifactory:PGtkItemFactory; entry:PGtkItemFactoryEntry);cdecl;external gtkdll name 'gtk_item_factory_delete_entry';
-procedure gtk_item_factory_delete_entries(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry);cdecl;external gtkdll name 'gtk_item_factory_delete_entries';
-procedure gtk_item_factory_popup(ifactory:PGtkItemFactory; x:guint; y:guint; mouse_button:guint; time:guint32);cdecl;external gtkdll name 'gtk_item_factory_popup';
-procedure gtk_item_factory_popup_with_data(ifactory:PGtkItemFactory; popup_data:gpointer; destroy:TGtkDestroyNotify; x:guint; y:guint; mouse_button:guint; time:guint32);cdecl;external gtkdll name 'gtk_item_factory_popup_with_data';
-function  gtk_item_factory_popup_data(ifactory:PGtkItemFactory):gpointer;cdecl;external gtkdll name 'gtk_item_factory_popup_data';
-function  gtk_item_factory_popup_data_from_widget(widget:PGtkWidget):gpointer;cdecl;external gtkdll name 'gtk_item_factory_popup_data_from_widget';
-procedure gtk_item_factory_set_translate_func(ifactory:PGtkItemFactory; func:TGtkTranslateFunc; data:gpointer; notify:TGtkDestroyNotify);cdecl;external gtkdll name 'gtk_item_factory_set_translate_func';
-function  gtk_item_factory_from_path(path:Pgchar):PGtkItemFactory;cdecl;external gtkdll name 'gtk_item_factory_from_path';
-procedure gtk_item_factory_create_menu_entries(n_entries:guint; entries:PGtkMenuEntry);cdecl;external gtkdll name 'gtk_item_factory_create_menu_entries';
-procedure gtk_item_factories_path_delete(ifactory_path:Pgchar; path:Pgchar);cdecl;external gtkdll name 'gtk_item_factories_path_delete';
-procedure gtk_item_factory_create_items_ac(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry; callback_data:gpointer; callback_type:guint);cdecl;external gtkdll name 'gtk_item_factory_create_items_ac';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  modified(var a : TGtkItemFactoryItem) : guint;
-    begin
-       modified:=(a.flag0 and bm_TGtkItemFactoryItem_modified) shr bp_TGtkItemFactoryItem_modified;
-    end;
-
-procedure set_modified(var a : TGtkItemFactoryItem; __modified : guint);
-    begin
-       a.flag0:=a.flag0 or ((__modified shl bp_TGtkItemFactoryItem_modified) and bm_TGtkItemFactoryItem_modified);
-    end;
-
-function  in_propagation(var a : TGtkItemFactoryItem) : guint;
-    begin
-       in_propagation:=(a.flag0 and bm_TGtkItemFactoryItem_in_propagation) shr bp_TGtkItemFactoryItem_in_propagation;
-    end;
-
-procedure set_in_propagation(var a : TGtkItemFactoryItem; __in_propagation : guint);
-    begin
-       a.flag0:=a.flag0 or ((__in_propagation shl bp_TGtkItemFactoryItem_in_propagation) and bm_TGtkItemFactoryItem_in_propagation);
-    end;
-
-function  GTK_IS_ITEM_FACTORY(obj:pointer):boolean;
-begin
-  GTK_IS_ITEM_FACTORY:=(obj<>nil) and GTK_IS_ITEM_FACTORY_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_ITEM_FACTORY_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_ITEM_FACTORY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ITEM_FACTORY_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtklabel.pp

@@ -1,98 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-    type
-       PGtkLabelWord = pointer;
-
-       PGtkLabel = ^TGtkLabel;
-       TGtkLabel = record
-          misc : TGtkMisc;
-          thelabel : Pgchar;
-          label_wc : PGdkWChar;
-          pattern : Pgchar;
-          words : PGtkLabelWord;
-          flag0 : longint;
-          wrap : gboolean;
-        end;
-
-  const
-     bm_TGtkLabel_max_width = $FFFF;
-     bp_TGtkLabel_max_width = 0;
-     bm_TGtkLabel_jtype = $30000;
-     bp_TGtkLabel_jtype = 16;
-function  max_width(var a : TGtkLabel) : guint;
-procedure set_max_width(var a : TGtkLabel; __max_width : guint);
-function  jtype(var a : TGtkLabel) : guint;
-procedure set_jtype(var a : TGtkLabel; __jtype : guint);
-
-    type
-       PGtkLabelClass = ^TGtkLabelClass;
-       TGtkLabelClass = record
-            parent_class : TGtkMiscClass;
-         end;
-
-Type
-  GTK_LABEL=PGtkLabel;
-  GTK_LABEL_CLASS=PGtkLabelClass;
-
-function  GTK_LABEL_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_label_get_type';
-function  GTK_IS_LABEL(obj:pointer):boolean;
-function  GTK_IS_LABEL_CLASS(klass:pointer):boolean;
-
-function  gtk_label_get_type:TGtkType;cdecl;external gtkdll name 'gtk_label_get_type';
-function  gtk_label_new (str:pchar):PGtkWidget;cdecl;external gtkdll name 'gtk_label_new';
-procedure gtk_label_set_text(theLabel: PGtkLabel; str:pchar);cdecl;external gtkdll name 'gtk_label_set_text';
-procedure gtk_label_set_justify(thelabel:PGtkLabel; jtype:TGtkJustification);cdecl;external gtkdll name 'gtk_label_set_justify';
-procedure gtk_label_set_pattern(thelabel:PGtkLabel; pattern:Pgchar);cdecl;external gtkdll name 'gtk_label_set_pattern';
-procedure gtk_label_set_line_wrap(thelabel:PGtkLabel; wrap:gboolean);cdecl;external gtkdll name 'gtk_label_set_line_wrap';
-procedure gtk_label_get(thelabel:PGtkLabel; str:ppchar);cdecl;external gtkdll name 'gtk_label_get';
-function  gtk_label_parse_uline(thelabel:PGtkLabel;thestring:Pgchar):guint;cdecl;external gtkdll name 'gtk_label_parse_uline';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  max_width(var a : TGtkLabel) : guint;
-    begin
-       max_width:=(a.flag0 and bm_TGtkLabel_max_width) shr bp_TGtkLabel_max_width;
-    end;
-
-procedure set_max_width(var a : TGtkLabel; __max_width : guint);
-    begin
-       a.flag0:=a.flag0 or ((__max_width shl bp_TGtkLabel_max_width) and bm_TGtkLabel_max_width);
-    end;
-
-function  jtype(var a : TGtkLabel) : guint;
-    begin
-       jtype:=(a.flag0 and bm_TGtkLabel_jtype) shr bp_TGtkLabel_jtype;
-    end;
-
-procedure set_jtype(var a : TGtkLabel; __jtype : guint);
-    begin
-       a.flag0:=a.flag0 or ((__jtype shl bp_TGtkLabel_jtype) and bm_TGtkLabel_jtype);
-    end;
-
-function  GTK_IS_LABEL(obj:pointer):boolean;
-begin
-  GTK_IS_LABEL:=(obj<>nil) and GTK_IS_LABEL_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_LABEL_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_LABEL_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_LABEL_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtklayout.pp

@@ -1,76 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkLayout = ^TGtkLayout;
-     TGtkLayout = record
-          container : TGtkContainer;
-          children : PGList;
-          width : guint;
-          height : guint;
-          xoffset : guint;
-          yoffset : guint;
-          hadjustment : PGtkAdjustment;
-          vadjustment : PGtkAdjustment;
-          bin_window : PGdkWindow;
-          visibility : TGdkVisibilityState;
-          configure_serial : gulong;
-          scroll_x : gint;
-          scroll_y : gint;
-          freeze_count : guint;
-       end;
-
-     PGtkLayoutClass = ^TGtkLayoutClass;
-     TGtkLayoutClass = record
-          parent_class : TGtkContainerClass;
-          set_scroll_adjustments : procedure (layout:PGtkLayout; hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment);cdecl;
-       end;
-
-type
-  GTK_LAYOUT=PGtkLayout;
-  GTK_LAYOUT_CLASS=PGtkLayoutClass;
-
-function  GTK_LAYOUT_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_layout_get_type';
-function  GTK_IS_LAYOUT(obj:pointer):boolean;
-function  GTK_IS_LAYOUT_CLASS(klass:pointer):boolean;
-
-function  gtk_layout_get_type:TGtkType;cdecl;external gtkdll name 'gtk_layout_get_type';
-function  gtk_layout_new(hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_layout_new';
-procedure gtk_layout_put(layout:PGtkLayout; widget:PGtkWidget; x:gint; y:gint);cdecl;external gtkdll name 'gtk_layout_put';
-procedure gtk_layout_move(layout:PGtkLayout; widget:PGtkWidget; x:gint; y:gint);cdecl;external gtkdll name 'gtk_layout_move';
-procedure gtk_layout_set_size(layout:PGtkLayout; width:guint; height:guint);cdecl;external gtkdll name 'gtk_layout_set_size';
-function  gtk_layout_get_hadjustment(layout:PGtkLayout):PGtkAdjustment;cdecl;external gtkdll name 'gtk_layout_get_hadjustment';
-function  gtk_layout_get_vadjustment(layout:PGtkLayout):PGtkAdjustment;cdecl;external gtkdll name 'gtk_layout_get_vadjustment';
-procedure gtk_layout_set_hadjustment(layout:PGtkLayout; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_layout_set_hadjustment';
-procedure gtk_layout_set_vadjustment(layout:PGtkLayout; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_layout_set_vadjustment';
-procedure gtk_layout_freeze(layout:PGtkLayout);cdecl;external gtkdll name 'gtk_layout_freeze';
-procedure gtk_layout_thaw(layout:PGtkLayout);cdecl;external gtkdll name 'gtk_layout_thaw';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_LAYOUT(obj:pointer):boolean;
-begin
-  GTK_IS_LAYOUT:=(obj<>nil) and GTK_IS_LAYOUT_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_LAYOUT_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_LAYOUT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_LAYOUT_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtklist.pp

@@ -1,137 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkList = ^TGtkList;
-     TGtkList = record
-          container : TGtkContainer;
-          children : PGList;
-          selection : PGList;
-          undo_selection : PGList;
-          undo_unselection : PGList;
-          last_focus_child : PGtkWidget;
-          undo_focus_child : PGtkWidget;
-          htimer : guint;
-          vtimer : guint;
-          anchor : gint;
-          drag_pos : gint;
-          anchor_state : TGtkStateType;
-          flag0 : {$ifdef win32}longint{$else}word{$endif};
-       end;
-
-  const
-     bm_TGtkList_selection_mode = $3;
-     bp_TGtkList_selection_mode = 0;
-     bm_TGtkList_drag_selection = $4;
-     bp_TGtkList_drag_selection = 2;
-     bm_TGtkList_add_mode = $8;
-     bp_TGtkList_add_mode = 3;
-function  selection_mode(var a : TGtkList) : guint;
-procedure set_selection_mode(var a : TGtkList; __selection_mode : guint);
-function  drag_selection(var a : TGtkList) : guint;cdecl;
-procedure set_drag_selection(var a : TGtkList; __drag_selection : guint);cdecl;
-function  add_mode(var a : TGtkList) : guint;
-procedure set_add_mode(var a : TGtkList; __add_mode : guint);
-
-  type
-     PGtkListClass = ^TGtkListClass;
-     TGtkListClass = record
-          parent_class : TGtkContainerClass;
-          selection_changed : procedure (list:PGtkList); cdecl;
-          select_child : procedure (list:PGtkList; child:PGtkWidget); cdecl;
-          unselect_child : procedure (list:PGtkList; child:PGtkWidget); cdecl;
-       end;
-
-Type
-  GTK_LIST=PGtkList;
-  GTK_LIST_CLASS=PGtkListClass;
-
-function  GTK_LIST_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_list_get_type';
-function  GTK_IS_LIST(obj:pointer):boolean;
-function  GTK_IS_LIST_CLASS(klass:pointer):boolean;
-
-function  gtk_list_get_type:TGtkType;cdecl;external gtkdll name 'gtk_list_get_type';
-function  gtk_list_new:PGtkWidget;cdecl;external gtkdll name 'gtk_list_new';
-procedure gtk_list_insert_items(list:PGtkList; items:PGList; position:gint);cdecl;external gtkdll name 'gtk_list_insert_items';
-procedure gtk_list_append_items(list:PGtkList; items:PGList);cdecl;external gtkdll name 'gtk_list_append_items';
-procedure gtk_list_prepend_items(list:PGtkList; items:PGList);cdecl;external gtkdll name 'gtk_list_prepend_items';
-procedure gtk_list_remove_items(list:PGtkList; items:PGList);cdecl;external gtkdll name 'gtk_list_remove_items';
-procedure gtk_list_remove_items_no_unref(list:PGtkList; items:PGList);cdecl;external gtkdll name 'gtk_list_remove_items_no_unref';
-procedure gtk_list_clear_items(list:PGtkList; start:gint; theend:gint);cdecl;external gtkdll name 'gtk_list_clear_items';
-procedure gtk_list_select_item(list:PGtkList; item:gint);cdecl;external gtkdll name 'gtk_list_select_item';
-procedure gtk_list_unselect_item(list:PGtkList; item:gint);cdecl;external gtkdll name 'gtk_list_unselect_item';
-procedure gtk_list_select_child(list:PGtkList; child:PGtkWidget);cdecl;external gtkdll name 'gtk_list_select_child';
-procedure gtk_list_unselect_child(list:PGtkList; child:PGtkWidget);cdecl;external gtkdll name 'gtk_list_unselect_child';
-function  gtk_list_child_position(list:PGtkList; child:PGtkWidget):gint;cdecl;external gtkdll name 'gtk_list_child_position';
-procedure gtk_list_set_selection_mode(list:PGtkList; mode:TGtkSelectionMode);cdecl;external gtkdll name 'gtk_list_set_selection_mode';
-procedure gtk_list_extend_selection(list:PGtkList; scroll_type:TGtkScrollType; position:gfloat; auto_start_selection:gboolean);cdecl;external gtkdll name 'gtk_list_extend_selection';
-procedure gtk_list_start_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_start_selection';
-procedure gtk_list_end_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_end_selection';
-procedure gtk_list_select_all(list:PGtkList);cdecl;external gtkdll name 'gtk_list_select_all';
-procedure gtk_list_unselect_all(list:PGtkList);cdecl;external gtkdll name 'gtk_list_unselect_all';
-procedure gtk_list_scroll_horizontal(list:PGtkList; scroll_type:TGtkScrollType; position:gfloat);cdecl;external gtkdll name 'gtk_list_scroll_horizontal';
-procedure gtk_list_scroll_vertical(list:PGtkList; scroll_type:TGtkScrollType; position:gfloat);cdecl;external gtkdll name 'gtk_list_scroll_vertical';
-procedure gtk_list_toggle_add_mode(list:PGtkList);cdecl;external gtkdll name 'gtk_list_toggle_add_mode';
-procedure gtk_list_toggle_focus_row(list:PGtkList);cdecl;external gtkdll name 'gtk_list_toggle_focus_row';
-procedure gtk_list_toggle_row(list:PGtkList; item:PGtkWidget);cdecl;external gtkdll name 'gtk_list_toggle_row';
-procedure gtk_list_undo_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_undo_selection';
-procedure gtk_list_end_drag_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_end_drag_selection';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  selection_mode(var a : TGtkList) : guint;
-    begin
-       selection_mode:=(a.flag0 and bm_TGtkList_selection_mode) shr bp_TGtkList_selection_mode;
-    end;
-
-procedure set_selection_mode(var a : TGtkList; __selection_mode : guint);
-    begin
-       a.flag0:=a.flag0 or ((__selection_mode shl bp_TGtkList_selection_mode) and bm_TGtkList_selection_mode);
-    end;
-
-function  drag_selection(var a : TGtkList) : guint;cdecl;
-    begin
-       drag_selection:=(a.flag0 and bm_TGtkList_drag_selection) shr bp_TGtkList_drag_selection;
-    end;
-
-procedure set_drag_selection(var a : TGtkList; __drag_selection : guint);cdecl;
-    begin
-       a.flag0:=a.flag0 or ((__drag_selection shl bp_TGtkList_drag_selection) and bm_TGtkList_drag_selection);
-    end;
-
-function  add_mode(var a : TGtkList) : guint;
-    begin
-       add_mode:=(a.flag0 and bm_TGtkList_add_mode) shr bp_TGtkList_add_mode;
-    end;
-
-procedure set_add_mode(var a : TGtkList; __add_mode : guint);
-    begin
-       a.flag0:=a.flag0 or ((__add_mode shl bp_TGtkList_add_mode) and bm_TGtkList_add_mode);
-    end;
-
-function  GTK_IS_LIST(obj:pointer):boolean;
-begin
-  GTK_IS_LIST:=(obj<>nil) and GTK_IS_LIST_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_LIST_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_LIST_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_LIST_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtklistitem.pp

@@ -1,66 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  type
-     PGtkListItem = ^TGtkListItem;
-     TGtkListItem = record
-          item : TGtkItem;
-       end;
-
-     PGtkListItemClass = ^TGtkListItemClass;
-     TGtkListItemClass = record
-          parent_class : TGtkItemClass;
-          toggle_focus_row : procedure (list_item:PGtkListItem);cdecl;
-          select_all : procedure (list_item:PGtkListItem);cdecl;
-          unselect_all : procedure (list_item:PGtkListItem);cdecl;
-          undo_selection : procedure (list_item:PGtkListItem);cdecl;
-          start_selection : procedure (list_item:PGtkListItem);cdecl;
-          end_selection : procedure (list_item:PGtkListItem);cdecl;
-          extend_selection : procedure (list_item:PGtkListItem; scroll_type:TGtkScrollType; position:gfloat; auto_start_selection:gboolean);cdecl;
-          scroll_horizontal : procedure (list_item:PGtkListItem; scroll_type:TGtkScrollType; position:gfloat);cdecl;
-          scroll_vertical : procedure (list_item:PGtkListItem; scroll_type:TGtkScrollType; position:gfloat);cdecl;
-          toggle_add_mode : procedure (list_item:PGtkListItem);cdecl;
-       end;
-
-Type
-  GTK_LIST_ITEM=PGtkListItem;
-  GTK_LIST_ITEM_CLASS=PGtkListItemClass;
-
-function  GTK_LIST_ITEM_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_list_item_get_type';
-function  GTK_IS_LIST_ITEM(obj:pointer):boolean;
-function  GTK_IS_LIST_ITEM_CLASS(klass:pointer):boolean;
-
-function  gtk_list_item_get_type:TGtkType;cdecl;external gtkdll name 'gtk_list_item_get_type';
-function  gtk_list_item_new:PGtkWidget;cdecl;external gtkdll name 'gtk_list_item_new';
-function  gtk_list_item_new_with_label(thelabel:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_list_item_new_with_label';
-procedure gtk_list_item_select(list_item:PGtkListItem);cdecl;external gtkdll name 'gtk_list_item_select';
-procedure gtk_list_item_deselect(list_item:PGtkListItem);cdecl;external gtkdll name 'gtk_list_item_deselect';
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-
-function  GTK_IS_LIST_ITEM(obj:pointer):boolean;
-begin
-  GTK_IS_LIST_ITEM:=(obj<>nil) and GTK_IS_LIST_ITEM_CLASS(PGtkTypeObject(obj)^.klass);
-end;
-
-function  GTK_IS_LIST_ITEM_CLASS(klass:pointer):boolean;
-begin
-  GTK_IS_LIST_ITEM_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_LIST_ITEM_TYPE);
-end;
-
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkmain.pp

@@ -1,83 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-  const
-     GTK_PRIORITY_REDRAW = G_PRIORITY_HIGH_IDLE + 20;
-     GTK_PRIORITY_RESIZE = G_PRIORITY_HIGH_IDLE + 10;
-     GTK_PRIORITY_HIGH = G_PRIORITY_HIGH;
-     GTK_PRIORITY_INTERNAL = GTK_PRIORITY_REDRAW;
-     GTK_PRIORITY_DEFAULT = G_PRIORITY_DEFAULT_IDLE;
-     GTK_PRIORITY_LOW = G_PRIORITY_LOW;
-
-  type
-
-     TGtkModuleInitFunc = procedure (argc:Pgint; argv:pPPgchar);cdecl;
-     TGtkKeySnoopFunc = function (grab_widget:PGtkWidget;event:PGdkEventKey;func_data:gpointer):gint;cdecl;
-
-{$ifndef gtkos2}
-    var
-       gtk_major_version : guint;external gtkdll name 'gtk_major_version';
-       gtk_minor_version : guint;external gtkdll name 'gtk_minor_version';
-       gtk_micro_version : guint;external gtkdll name 'gtk_micro_version';
-       gtk_binary_age : guint;external gtkdll name 'gtk_binary_age';
-       gtk_interface_age : guint;external gtkdll name 'gtk_interface_age';
-{$endif}
-
-function  gtk_check_gtkversion(required_major:guint; required_minor:guint; required_micro:guint):Pgchar;cdecl;external gtkdll name 'gtk_check_version';
-procedure gtk_init(argc:plongint; argv:pppchar);cdecl;external gtkdll name 'gtk_init';
-function  gtk_init_check(argc:plongint; argv:pppchar):gboolean;cdecl;external gtkdll name 'gtk_init_check';
-procedure gtk_exit(error_code:gint);cdecl;external gtkdll name 'gtk_exit';
-function  gtk_set_locale:Pgchar;cdecl;external gtkdll name 'gtk_set_locale';
-function  gtk_events_pending:gint;cdecl;external gtkdll name 'gtk_events_pending';
-procedure gtk_main_do_event(event:PGdkEvent);cdecl;external gtkdll name 'gtk_main_do_event';
-procedure gtk_main;cdecl;external gtkdll name 'gtk_main';
-function  gtk_main_level:guint;cdecl;external gtkdll name 'gtk_main_level';
-procedure gtk_main_quit;cdecl;external gtkdll name 'gtk_main_quit';
-function  gtk_main_iteration:gint;cdecl;external gtkdll name 'gtk_main_iteration';
-function  gtk_main_iteration_do(blocking:gboolean):gint;cdecl;external gtkdll name 'gtk_main_iteration_do';
-function  gtk_true:gint;cdecl;external gtkdll name 'gtk_true';
-function  gtk_false:gint;cdecl;external gtkdll name 'gtk_false';
-procedure gtk_grab_add(widget:PGtkWidget);cdecl;external gtkdll name 'gtk_grab_add';
-function  gtk_grab_get_current:PGtkWidget;cdecl;external gtkdll name 'gtk_grab_get_current';
-procedure gtk_grab_remove(widget:PGtkWidget);cdecl;external gtkdll name 'gtk_grab_remove';
-procedure gtk_init_add(thefunction :TGtkfunction; data:gpointer);cdecl;external gtkdll name 'gtk_init_add';
-procedure gtk_quit_add_destroy(main_level:guint; theobject:PGtkObject);cdecl;external gtkdll name 'gtk_quit_add_destroy';
-function  gtk_quit_add(main_level:guint; thefunction:TGtkfunction; data:gpointer):guint;cdecl;external gtkdll name 'gtk_quit_add';
-function  gtk_quit_add_full(main_level:guint; thefunction:TGtkfunction; marshal:TGtkCallbackMarshal; data:gpointer; destroy:TGtkDestroyNotify):guint;cdecl;external gtkdll name 'gtk_quit_add_full';
-procedure gtk_quit_remove(quit_handler_id:guint);cdecl;external gtkdll name 'gtk_quit_remove';
-procedure gtk_quit_remove_by_data(data:gpointer);cdecl;external gtkdll name 'gtk_quit_remove_by_data';
-function  gtk_timeout_add(interval:guint32; thefunction:TGtkfunction; data:gpointer):guint;cdecl;external gtkdll name 'gtk_timeout_add';
-function  gtk_timeout_add_full(interval:guint32; thefunction:TGtkfunction; marshal:TGtkCallbackMarshal; data:gpointer; destroy:TGtkDestroyNotify):guint;cdecl;external gtkdll name 'gtk_timeout_add_full';
-procedure gtk_timeout_remove(timeout_handler_id:guint);cdecl;external gtkdll name 'gtk_timeout_remove';
-function  gtk_idle_add(thefunction:TGtkfunction; data:gpointer):guint;cdecl;external gtkdll name 'gtk_idle_add';
-function  gtk_idle_add_priority(priority:gint; thefunction:TGtkfunction; data:gpointer):guint;cdecl;external gtkdll name 'gtk_idle_add_priority';
-function  gtk_idle_add_full(priority:gint; thefunction:TGtkfunction; marshal:TGtkCallbackMarshal; data:gpointer; destroy:TGtkDestroyNotify):guint;cdecl;external gtkdll name 'gtk_idle_add_full';
-procedure gtk_idle_remove(idle_handler_id:guint);cdecl;external gtkdll name 'gtk_idle_remove';
-procedure gtk_idle_remove_by_data(data:gpointer);cdecl;external gtkdll name 'gtk_idle_remove_by_data';
-function  gtk_input_add_full(source:gint; condition:TGdkInputCondition; thefunction:TGdkInputfunction; marshal:TGtkCallbackMarshal; data:gpointer; destroy:TGtkDestroyNotify):guint;cdecl;external gtkdll name 'gtk_input_add_full';
-procedure gtk_input_remove(input_handler_id:guint);cdecl;external gtkdll name 'gtk_input_remove';
-function  gtk_key_snooper_install(snooper:TGtkKeySnoopFunc; func_data:gpointer):guint;cdecl;external gtkdll name 'gtk_key_snooper_install';
-procedure gtk_key_snooper_remove(snooper_handler_id:guint);cdecl;external gtkdll name 'gtk_key_snooper_remove';
-function  gtk_get_current_event:PGdkEvent;cdecl;external gtkdll name 'gtk_get_current_event';
-function  gtk_get_event_widget(event:PGdkEvent):PGtkWidget;cdecl;external gtkdll name 'gtk_get_event_widget';
-{$ifndef gtkwin}
-procedure gtk_propagate_event(widget:PGtkWidget; event:PGdkEvent);cdecl;external gtkdll name 'gtk_propagate_event';
-{$endif}
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-

packages/extra/gtk/gtk/gtkmarshal.pp

@@ -1,108 +0,0 @@
-{
-}
-
-{****************************************************************************
-                                 Interface
-****************************************************************************}
-
-{$ifdef read_interface}
-
-{$ifdef gtkdarwin}
-{$define gtkwin}
-{$endif gtkdarwin}
-
-procedure gtk_marshal_BOOL__NONE(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__NONE';
-procedure gtk_marshal_BOOL__POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER';
-procedure gtk_marshal_BOOL__POINTER_POINTER_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER_POINTER_INT_INT';
-procedure gtk_marshal_BOOL__POINTER_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER_INT_INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_BOOL__POINTER_INT_INT_UINT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER_INT_INT_UINT';
-{$endif}
-procedure gtk_marshal_BOOL__POINTER_INT_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER_INT_INT_INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_BOOL__POINTER_STRING_STRING_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER_STRING_STRING_POINTER';
-{$endif}
-procedure gtk_marshal_BOOL__POINTER_POINTER_POINTER_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_BOOL__POINTER_POINTER_POINTER_POINTER';
-{$ifndef gtkwin}
-procedure gtk_marshal_ENUM__ENUM(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_ENUM__ENUM';
-{$endif}
-procedure gtk_marshal_INT__INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_INT__INT';
-procedure gtk_marshal_INT__POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_INT__POINTER';
-procedure gtk_marshal_INT__POINTER_CHAR_CHAR(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_INT__POINTER_CHAR_CHAR';
-procedure gtk_marshal_NONE__BOOL(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__BOOL';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__BOXED(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__BOXED';
-{$endif}
-procedure gtk_marshal_NONE__POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER';
-procedure gtk_marshal_NONE__C_CALLBACK(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__C_CALLBACK';
-procedure gtk_marshal_NONE__C_CALLBACK_C_CALLBACK(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__C_CALLBACK_C_CALLBACK';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__ENUM(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__ENUM';
-{$endif}
-procedure gtk_marshal_NONE__INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__ENUM_FLOAT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__ENUM_FLOAT';
-{$endif}
-procedure gtk_marshal_NONE__INT_FLOAT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_FLOAT';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__ENUM_FLOAT_BOOL(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__ENUM_FLOAT_BOOL';
-{$endif}
-procedure gtk_marshal_NONE__INT_FLOAT_BOOL(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_FLOAT_BOOL';
-procedure gtk_marshal_NONE__INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_INT';
-procedure gtk_marshal_NONE__INT_INT_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_INT_POINTER';
-procedure gtk_marshal_NONE__NONE(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__NONE';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__OBJECT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__OBJECT';
-{$endif}
-procedure gtk_marshal_NONE__POINTER_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_INT';
-procedure gtk_marshal_NONE__POINTER_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_POINTER';
-procedure gtk_marshal_NONE__POINTER_POINTER_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_POINTER_POINTER';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__POINTER_STRING_STRING(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_STRING_STRING';
-procedure gtk_marshal_NONE__POINTER_UINT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_UINT';
-procedure gtk_marshal_NONE__POINTER_UINT_ENUM(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_UINT_ENUM';
-{$endif}
-procedure gtk_marshal_NONE__POINTER_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_INT_INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__POINTER_POINTER_UINT_UINT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_POINTER_UINT_UINT';
-{$endif}
-procedure gtk_marshal_NONE__POINTER_POINTER_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_POINTER_INT_INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__POINTER_INT_INT_POINTER_UINT_UINT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_INT_INT_POINTER_UINT_UINT';
-{$endif}
-procedure gtk_marshal_NONE__POINTER_INT_INT_POINTER_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_INT_INT_POINTER_INT_INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__POINTER_UINT_UINT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_UINT_UINT';
-procedure gtk_marshal_NONE__STRING(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__STRING';
-procedure gtk_marshal_NONE__STRING_INT_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__STRING_INT_POINTER';
-{$endif}
-procedure gtk_marshal_NONE__POINTER_INT_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__POINTER_INT_POINTER';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__UINT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__UINT';
-procedure gtk_marshal_NONE__UINT_POINTER_UINT_ENUM_ENUM_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__UINT_POINTER_UINT_ENUM_ENUM_POINTER';
-{$endif}
-procedure gtk_marshal_NONE__INT_POINTER_INT_INT_INT_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_POINTER_INT_INT_INT_POINTER';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__UINT_POINTER_UINT_UINT_ENUM(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__UINT_POINTER_UINT_UINT_ENUM';
-{$endif}
-procedure gtk_marshal_NONE__INT_POINTER_INT_INT_INT(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_POINTER_INT_INT_INT';
-{$ifndef gtkwin}
-procedure gtk_marshal_NONE__UINT_STRING(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__UINT_STRING';
-{$endif}
-procedure gtk_marshal_NONE__INT_POINTER(theobject:PGtkObject; func:TGtkSignalFunc; func_data:gpointer; args:PGtkArg);cdecl;external gtkdll name 'gtk_marshal_NONE__INT_POINTER';
-
-{$ifdef gtkdarwin}
-{$undef gtkwin}
-{$endif gtkdarwin}
-
-{$endif read_interface}
-
-
-{****************************************************************************
-                              Implementation
-****************************************************************************}
-
-{$ifdef read_implementation}
-{$endif read_implementation}
-
-