diff --git a/src/test/Gtk/G.Mod b/src/test/Gtk/G.Mod
new file mode 100644
index 00000000..b1e221b9
--- /dev/null
+++ b/src/test/Gtk/G.Mod
@@ -0,0 +1,88 @@
+(***************************************************************************
+Project:     G
+Purpose:     Interface to Gtk GLib
+Version:     2.0
+Predecessor: Glib
+Changes:     don't repeat 'g_' at the beginning of the names, change some
+Target:	     Linux
+Compiler:    oo2c
+Date:        jan 2009
+Author:      Frank Hrebabetzky
+
+-- converted to use with voc by noch
+***************************************************************************)
+
+MODULE G (*[INTERFACE "C"; LINK LIB "glib-2.0" ADD_OPTION LibGladePrefix END]*);
+
+IMPORT SYSTEM;
+
+CONST
+  FALSE*                = 0;
+  TRUE*                 = 1;  (* original: #define TRUE	(!FALSE) *)
+
+TYPE
+  boolean*             = LONGINT;
+  char*                = CHAR;
+  float*               = REAL;
+  double*              = LONGREAL;
+  int*                 = LONGINT;
+  size*                = LONGINT;
+  ssize*               = LONGINT;
+  uint*                = LONGINT;
+  uint8*               = CHAR;
+  uint16*              = INTEGER;
+  uint32*              = LONGINT;
+  ulong*               = LONGINT;
+  ushort*              = INTEGER;
+  Quark*               = LONGINT;
+
+  VoidPtr*              = SYSTEM.PTR;
+  ArrayPtr*            = VoidPtr;
+  DataPtr*             = VoidPtr;
+  pointer*             = VoidPtr;
+  SListPtr*            = VoidPtr;
+  TypeClassPtr*        = VoidPtr;
+
+  string*    = POINTER (*[ CSTRING ]*) TO ARRAY OF char;
+
+  VoidFunc*    = PROCEDURE ();
+  
+  ErrorPtr*= POINTER TO Error;
+  Error* =   RECORD
+                domain*:                Quark;
+                code*:                  int;
+                message*:               string;
+              END;
+  
+  TypeInstance* =    RECORD             (* gtype.h *)
+                        gClass*:       TypeClassPtr
+                      END;
+
+  Object* =  RECORD                     (* gobject.h *)
+                gTypeInstance*:       TypeInstance;
+                refCount*:             uint;
+                qdata*:                 DataPtr
+              END;
+
+(*
+PROCEDURE -includeglib()
+   "#include <glib-2.0/glib.h>";
+
+PROCEDURE -includegmem()
+   "#include <glib-2.0/glib/gmem.h>";   
+
+PROCEDURE -includegconvert()
+   "#include <glib-2.0/glib/gconvert.h";
+*)
+PROCEDURE (*["g_free"]*) -free* (mem:pointer)
+   "g_free(mem)";
+(* 2 versions of g_localeto_utf8: first for using param.'error', second for
+   calling the proc.with act.param.'NIL', t.i. not using it.*)
+(*PROCEDURE g_locale_to_utf8* (opsysstring:Ptr_gchar; len:gssize;
+        VAR bytes_read,bytes_written:gsize; VAR error:GErrorPtr): Ptr_gchar;*)
+PROCEDURE (*["g_locale_to_utf8"]*) -localeToUtf8* (opsysstring:string; len:ssize;
+        VAR bytesRead,bytesWritten:size; error:VoidPtr): string
+	"(G_string)g_locale_to_utf8 (opsysstring, len, bytesRead, bytesWritten, size)";
+
+END G.
+
diff --git a/src/test/Gtk/Gdk.Mod b/src/test/Gtk/Gdk.Mod
new file mode 100644
index 00000000..cfd2587d
--- /dev/null
+++ b/src/test/Gtk/Gdk.Mod
@@ -0,0 +1,204 @@
+(***************************************************************************
+Project:     Gdk
+Purpose:     Interface
+Version:     2.0
+Predecessor: GTK
+Changes:     don't repeat 'g_' at the beginning of the names, change some
+Target:	     Linux
+Compiler:    oo2c
+Date:        jan 2009
+Author:      Frank Hrebabetzky
+
+-- converted to use with voc by noch
+***************************************************************************)
+
+MODULE Gdk
+  (*[INTERFACE "C"; LINK LIB "gdk-x11-2.0" ADD_OPTION LibGladePrefix END]*);
+
+IMPORT G, Pango, SYSTEM;
+
+CONST
+  GravityNorthWest*           = 1;
+  HintMinSize*                = 2;
+  
+  (* GdkFunction *)
+  Copy*                         = 00H;
+  Invert*                       = 01H;
+  XOR*                          = 02H;
+  Clear*                        = 03H;
+  And*                          = 04H;
+  AndReverse*                   = 05H;
+  AndInvert*                    = 06H;
+  Noop*                         = 07H;
+  Or*                           = 08H;
+  Equiv*                        = 09H;
+  OrReverse*                    = 0AH;
+  CopyInvert*                   = 0BH;
+  OrInvert*                     = 0CH;
+  Nand*                         = 0DH;
+  Set*                          = 0EH;
+
+  (* GdkCapStyle *)
+  CapNotLastT*                  = 0;
+  CapButt*                      = 1;
+  CapRound*                     = 2;
+  CapProjecting*                = 3;
+
+  (* GdkJoinStyle *)
+  JoinMiter*                    = 0;
+  JoinRound*                    = 1;
+  JounBevel*                    = 2;
+
+  (* GdkLineStyle *)
+  LineSolid*                    = 0;
+  LineOnOffDash*                = 1;
+  LineDoubleDash*               = 2;
+
+TYPE
+  ColormapPtr*          = G.VoidPtr;
+  EventPtr*             = G.VoidPtr;
+  EventExposePtr*       = G.VoidPtr;
+  FontPtr*              = G.VoidPtr;
+  CPtr*                 = G.VoidPtr;
+  ImagePtr*             = G.VoidPtr;
+  PixmapPtr*            = G.VoidPtr;
+
+  ColorPtr* = POINTER TO Color;
+  Color* =    RECORD
+                pixel* :                G.uint32;
+                red*, green*, blue*:    G.uint16;
+              END;
+
+  DrawablePtr* = POINTER TO Drawable;
+  Drawable* = RECORD                     (* gdkdrawable.h *)
+                parentInstance*:        G.Object
+              END;
+  
+  GCValuesPtr* = POINTER TO GCValues;
+  GCValues* = RECORD
+                foreground*, background*:               Color;
+                font*:                                  FontPtr;
+                function*, fill*:                       G.int;
+                tile*, stipple*, clipMask*:             PixmapPtr;
+                subwindowMode*,
+                tsXOrigin*, tsYOrigin*,
+                clipXOrigin*, clipYOrigin*,
+                graphicsExposures*, lineWidth*,
+                lineStyle*, capStyle*, joinStyle*:      G.int
+              END;
+  
+  GeometryPtr* = POINTER TO Geometry;
+  Geometry* = RECORD
+                minWidth*, minHeight*,
+                maxWidth*, maxHeight*,
+                baseWidth*, baseHeight*,
+                widthInc*, heightInc*:          G.int;
+                minAspect*, maxAspect*:         G.double;
+                winGravity*:                    G.int;
+              END;
+
+  RectanglePtr* = POINTER TO Rectangle;
+  Rectangle*= RECORD                     (* gdktypes.h *)
+                x*, y*, width*, height*:        G.int
+              END;
+  
+  Window* =     Drawable;                (* gdktypes.h *)
+  WindowPtr* =  DrawablePtr;
+
+(*
+PROCEDURE -includeGdkColor()
+   "#include <gtk-2.0/gdk/gdkcolor.h>";
+
+PROCEDURE -includeGdkDrawable()
+   "#include <gtk-2.0/gdk/gdkdrawable.h>";
+
+PROCEDURE -includeGdkGc()
+   "#include <gtk-2.0/gdk/gdkgc.h>";
+
+PROCEDURE -includeGkdImage()
+   "#include <gtk-2.0/gdk/gdkimage.h>";
+
+PROCEDURE -includeGdkPixmap()
+   "#include <gtk-2.0/gdk/gdkpixmap.h>";
+*)
+PROCEDURE (*["gdk_colormap_alloc_color"]*) -colormapAllocColor*
+  (colormap:ColormapPtr; color:ColorPtr;
+  writeable,bestMatch:G.boolean): G.boolean
+  "(G_boolean)gdk_colormap_alloc_color(colormap, color, writeable, bestMatch)";
+
+PROCEDURE (*["gdk_colormap_get_system"]*) -colormapGetSystem* (): ColormapPtr
+   "(Gdk_ColormapPtr)gdk_colormap_get_system ()";
+
+PROCEDURE (*["gdk_draw_arc"]*) -drawArc* (drawable:DrawablePtr; gc:CPtr;
+        filled:G.boolean; x,y,width,height,angle1,angle2:G.int)
+   "gdk_draw_arc(drawable, gc, filled, x, y, width, height, angle1, angle2)";
+
+PROCEDURE (*["gdk_draw_image"]*) -drawImage* (drawable:DrawablePtr;
+  gc:CPtr; image:ImagePtr; xsrc,ysrc,xdest,ydest,width,height:G.int)
+ "gdk_draw_image(drawable, gc, image, xsrc, ysrc, xdest, ydest, width, height)";
+
+PROCEDURE (*["gdk_draw_layout"]*) -drawLayout* (drawable:DrawablePtr;
+  gc:CPtr; x,y:G.int; layout:Pango.LayoutPtr)
+  "gdk_draw_layout(drawable, gc, x, y, layout)";
+
+PROCEDURE (*["gdk_draw_line"]*) -drawLine* (drawable:DrawablePtr;
+  gc:CPtr; x1,y1,x2,y2:G.int)
+  "gdk_draw_line(drawable, gc, x1, y1, x2, y2)";
+
+PROCEDURE (*["gdk_draw_point"]*) -drawPoint* (drawable:DrawablePtr;
+  gc:CPtr; x,y:G.int)
+  "gdk_draw_point(drawable, gc, x, y)";
+
+PROCEDURE (*["gdk_draw_rectangle"]*) -drawRectangle* (drawable:DrawablePtr;
+  gc:CPtr; filled:G.boolean; x, y, width, height : G.int)
+  "gdk_draw_rectangle(drawable, gc, filled, x, y, width, height)";
+
+PROCEDURE (*["gdk_drawable_get_image"]*) -drawableGetImage* (drawable : DrawablePtr; x, y, width, height : G.int): ImagePtr
+  "(Gdk_ImagePtr)gdk_drawable_get_image(drawable, x, y, width, height)";
+
+PROCEDURE (*["gdk_gc_get_values"]*) -gcGetValues* (gc:CPtr; VAR values:GCValues)
+  "gdk_gc_get_values(gc, values)";
+
+PROCEDURE (*["gdk_gc_new"]*) -gcNew* (drawable:DrawablePtr): CPtr
+   "(Gdk_PCtr)gdk_gc_new(drawable)";
+
+PROCEDURE (*["gdk_gc_set_background"]*) -gcSetBackground*(gc:CPtr; color:ColorPtr)
+   "gdk_gc_set_background(gc, color)";
+
+PROCEDURE (*["gdk_gc_set_clip_origin"]*) -gcSetClipOrigin* (gc:CPtr; x,y:G.int)
+   "gdk_gc_set_clip_origin(gc, x, y)";
+
+PROCEDURE (*["gdk_gc_set_clip_rectangle"]*) -gcSetClipRectangle* (gc:CPtr; rectangle:RectanglePtr)
+  "gdk_gc_set_clip_rectangle(gc, rectangle)";
+
+PROCEDURE (*["gdk_gc_set_foreground"]*) -gcSetForeground* (gc:CPtr; color:ColorPtr)
+   "gdk_gc_set_foreground(gc, color)";
+
+PROCEDURE (*["gdk_gc_set_function"]*) -gcSetFunction* (gc:CPtr; function:G.int)
+   "gdk_gc_set_function(gc, function)";
+
+PROCEDURE (*["gdk_gc_set_line_attributes"]*) -gcSetLineAttributes*
+  (gc:CPtr; lineWidth,lineStyle,capStyle,joinStyle:G.int)
+  "gdk_gc_set_line_attributes(gc, lineWidth, lineStyle, capStyle, joinStyle)";
+
+PROCEDURE (*["gdk_gc_set_rgb_fg_color"]*) -gcSetRgbFgColor*(gc:CPtr; color:ColorPtr)
+   "gdk_gc_set_rgb_fg_color(gc, color)";
+
+PROCEDURE (*["gdk_gc_set_rgb_bg_color"]*) -gcSetRgbBgColor*
+  (gc:CPtr; color:ColorPtr)
+  "gdk_gc_set_rgb_bg_color(gc, color)";
+
+PROCEDURE (*["gdk_image_get_pixel"]*) -imageGetPixel*
+  (image:ImagePtr; x,y:G.int): G.uint32
+  "(G_uint32)gdk_image_get_pixel(image, x, y)";
+
+PROCEDURE (*["gdk_image_put_pixel"]*) -imagePutPixel*
+  (image:ImagePtr; x,y:G.int; pixel:G.uint32)
+  "gdk_image_put_pixel(image, x, y, pixel)";
+
+PROCEDURE (*["gdk_pixmap_new"]*) -pixmapNew*
+  (drawable:DrawablePtr; width,height,depth:G.int): PixmapPtr
+  "(Gdk_PixmapPtr)gdk_pixmap_new(drawable, width, height, depth)";
+
+END Gdk.
+
diff --git a/src/test/Gtk/Glade.Mod b/src/test/Gtk/Glade.Mod
new file mode 100644
index 00000000..7a576baa
--- /dev/null
+++ b/src/test/Gtk/Glade.Mod
@@ -0,0 +1,44 @@
+(***************************************************************************
+Project:     Glade
+Purpose:     Interface
+Version:     1.0
+Predecessor: -
+Changes:     -
+Target:	     Linux
+Compiler:    oo2c
+Date:        jan 2009
+Author:      Frank Hrebabetzky
+
+-- converted to use with voc by noch
+***************************************************************************)
+
+MODULE Glade
+  (*[INTERFACE "C"; LINK LIB "glade-2.0" ADD_OPTION LibGladePrefix END]*);
+
+IMPORT
+  SYSTEM, Gtk;
+
+TYPE
+
+  String* = ARRAY 256 OF CHAR;
+  GString = ARRAY 16000 OF CHAR;
+  CString* =    POINTER (*[CSTRING]*) TO String;
+  XMLPtr* =     (*SYSTEM.PTR*) POINTER TO GString;
+
+(*
+PROCEDURE -includeGladeXml()
+   "#include <libglade-2.0/glade/glade-xml.h>";
+*)
+PROCEDURE (*["glade_xml_new"]*) -xmlNew*
+        (fname,root,domain:CString): XMLPtr
+   "(Glade_XMLPtr)glade_xml_new(fname, root, domain)";
+
+PROCEDURE (*["glade_xml_signal_autoconnect"]*) -xmlSignalAutoconnect*
+        (self:XMLPtr)
+	"glade_xml_signal_autoconnect(self)";
+
+PROCEDURE (*["glade_xml_get_widget"]*) -xmlGetWidget*
+        (self:XMLPtr; name:CString): Gtk.WidgetPtr
+	"(Gtk_WidgetPtr)glade_xml_get_widget(self, name)";
+
+END Glade.
diff --git a/src/test/Gtk/Gtk.Mod b/src/test/Gtk/Gtk.Mod
new file mode 100644
index 00000000..a3dc0097
--- /dev/null
+++ b/src/test/Gtk/Gtk.Mod
@@ -0,0 +1,102 @@
+(***************************************************************************
+Project:     Gtk
+Purpose:     Interface
+Version:     2.0
+Predecessor: GTK 1.1
+Changes:     don't repeat 'gtk_' at the beginning of the names
+Target:	     Linux
+Compiler:    oo2c
+Date:        jan 2009
+Author:      Frank Hrebabetzky
+
+-- converted to use with voc by noch
+***************************************************************************)
+
+MODULE Gtk
+  (*[INTERFACE "C"; LINK LIB "gtk-x11-2.0" ADD_OPTION LibGladePrefix END]*);
+
+IMPORT G, Gdk, Pango, SYSTEM;
+
+CONST
+  WindowToplevel*      = 0;
+  (* GtkAttachOptions *)
+  EXPAND*               = 1;
+  SHRINK*               = 2;
+  FILL*                 = 4;
+  (* GtkButtonsType *)
+  ButtonsNone*          = 0;
+  ButtonsOk*            = 1;
+  ButtonsClose*         = 2;
+  ButtonsCancel*        = 3;
+  ButtonsYesNo*         = 4;
+  ButtonsOkCancel*      = 5;
+  (* GtkDialogFlags *)
+  DialogModal*          = 1;
+  DialogDestroyWithParent* = 2;
+  DialogNoSeparator*    = 4;
+  (* GtkMessageType *)
+  MessageInfo*          = 0;
+  MessageWarning*       = 1;
+  MessageQuestion*      = 2;
+  MessageError*         = 3;
+
+TYPE
+  Object* =   RECORD                     (* gtkobject.h *)
+                parentInstance*:        G.Object;
+                flags*:                 G.uint32
+              END;
+  RcStylePtr            = G.VoidPtr;
+  Allocation            = Gdk.Rectangle;
+
+  StylePtr*             = POINTER TO Style;
+  Style* = RECORD                        (* gtkstyle.h *)
+      parentInstance*:                         G.Object;
+      fg*, bg*, light*, dark*, mid*, text*,
+      base*, textAa*:                          ARRAY 5 OF Gdk.Color;
+      black*, white*:                           Gdk.Color;
+      fontDesc*:                               Pango.FontDescriptionPtr;
+      xthickness*, ythickness*:                 G.int;
+      fgGc*, bgGc*, lightGc*, darkGc*,
+      midGc*, textGc*, baseGc*, textAaGc*:     ARRAY 5 OF Gdk.CPtr;
+      blackGc*, whiteGc*:                       Gdk.CPtr;
+      bgPixmap*:                                ARRAY 5 OF Gdk.PixmapPtr;
+      attachCount*, depth*:                     G.int;
+      colormap*:                                Gdk.ColormapPtr;
+      privateFont*:                             Gdk.FontPtr;
+      privateFontDesc*:                         Pango.FontDescriptionPtr;
+      rcStyle*:                                 RcStylePtr;
+      styles*:                                  G.SListPtr;
+      propertyCache*:                           G.ArrayPtr;
+      iconFactories*:                          G.SListPtr
+    END;
+    
+  Requisition*  = RECORD                 (* gtkwidget.h *)
+                    width*, height*:    G.int
+                  END;
+
+  WidgetPtr*    = POINTER TO Widget;
+  Widget*       = RECORD                 (* gtkwidget.h *)
+      object*:          Object;
+      privateFlags*:    G.uint16;
+      state*:           G.uint8;
+      savedState*:      G.uint8;
+      name*:            G.string;
+      style*:           StylePtr;
+      requisition*:     Requisition;
+      allocation*:      Allocation;
+      window*:          Gdk.WindowPtr;
+      parent*:          WidgetPtr
+    END;
+
+  ArgVector* =  POINTER TO ARRAY OF POINTER TO ARRAY OF CHAR;
+(*
+PROCEDURE -includeGtk()
+   "#include <gtk-2.0/gtk/gtkmain.h>";
+*)
+PROCEDURE (*["gtk_init"]*) -init* (VAR argc:LONGINT; VAR argv:ArgVector)
+   "gtk_init(argc, argv)";
+
+PROCEDURE (*["gtk_main"]*) -main*
+   "gtk_main()";
+
+END Gtk.
diff --git a/src/test/Gtk/HelloWorld.Mod b/src/test/Gtk/HelloWorld.Mod
new file mode 100644
index 00000000..0ddf0296
--- /dev/null
+++ b/src/test/Gtk/HelloWorld.Mod
@@ -0,0 +1,61 @@
+(***************************************************************************
+Project:     HelloWorld
+Purpose:     A libglade-Hello-World with oo2c
+Version:     1.0
+Predecessor: -
+Changes:     -
+Target:	     Linux
+Compiler:    oo2c
+Date:        Jan. 2009
+Author:      Frank Hrebabetzky
+
+-- converted to use with voc by noch
+***************************************************************************)
+
+MODULE HelloWorld;
+
+IMPORT
+  SYSTEM, Args, Out := Console, G, Gdk, Gtk, Glade, handlers;
+
+CONST
+  (*GUIFILE =     "gui.glade";*)
+  ERRXML =      1;              (* xml file problem *)
+  ERRNOTFOUND = 2;              (* widget not found *)
+
+VAR
+  argc :        LONGINT;
+  argv :        Gtk.ArgVector;
+  xml:          Glade.XMLPtr;
+  drawing:      Gtk.WidgetPtr;
+  GuiFile, name:      Glade.CString;
+
+PROCEDURE (*["Hello"]*) Hello* (widget:Gtk.WidgetPtr; data:SYSTEM.PTR);
+BEGIN
+  Out.String("Hello, world!");   Out.Ln;
+END Hello;
+
+
+PROCEDURE (*["Draw"]*) Draw* (widget:Gtk.WidgetPtr;
+  event:Gdk.EventExposePtr; data:G.pointer): G.boolean;
+VAR a: G.int;
+BEGIN
+  a:= widget.allocation.width DIV 2;
+  Gdk.drawArc (widget.window, widget.style.fgGc[ORD(widget.state)], G.TRUE,
+  a DIV 2, a DIV 2, a, a, 0, 64*360);
+  RETURN G.TRUE;
+END Draw;
+
+BEGIN
+  argc:= Args.argc;
+  argv:= SYSTEM.VAL (Gtk.ArgVector, Args.argv);
+  Gtk.init (argc, argv);
+  NEW(GuiFile);
+  COPY("gui.glade", GuiFile^);
+  xml:= Glade.xmlNew (GuiFile, NIL, NIL);
+  ASSERT (SYSTEM.VAL(SYSTEM.PTR, xml)#NIL, ERRXML);
+  Glade.xmlSignalAutoconnect (xml);
+  NEW(name); COPY("drawing", name^);
+  drawing:= Glade.xmlGetWidget (xml, name);
+  ASSERT (drawing#NIL, ERRNOTFOUND);
+  Gtk.main;
+END HelloWorld.
diff --git a/src/test/Gtk/Pango.Mod b/src/test/Gtk/Pango.Mod
new file mode 100644
index 00000000..56d1197e
--- /dev/null
+++ b/src/test/Gtk/Pango.Mod
@@ -0,0 +1,90 @@
+(***************************************************************************
+Project:     Pango
+Purpose:     Interface
+Version:     2.0
+Predecessor: 
+Changes:     don't repeat 'g_' at the beginning of the names, change some
+Target:	     Linux
+Compiler:    oo2c
+Date:        jan 2009
+Author:      Frank Hrebabetzky
+
+-- converted to use with voc by noch
+***************************************************************************)
+
+MODULE Pango
+  (*[INTERFACE "C"; LINK LIB "pango-1.0" ADD_OPTION LibGTKPrefix END]*);
+
+IMPORT G, SYSTEM;
+
+CONST
+  SCALE* =              1024;
+
+TYPE
+  ContextPtr* =         G.VoidPtr;
+  FontDescriptionPtr* = G.VoidPtr;
+  FontPtr* =            G.VoidPtr;
+  LanguagePtr* =        G.VoidPtr;
+  LayoutPtr* =          G.VoidPtr;
+
+  FontMetricsPtr* =   POINTER TO FontMetrics;
+  FontMetrics* =      RECORD
+                        refCount*:                     G.uint;
+                        ascent*, descent*,
+                        approximateCharWidth*,
+                        approximateDigitWidth*:       G.int
+                      END;
+  
+  RectanglePtr* =     POINTER TO Rectangle;
+  Rectangle* =        RECORD
+                        x*, y*, width*, height*: G.int
+                      END;
+(*
+PROCEDURE -includePangoContext()
+   "#include <pango-1.0/pango/pango-context.h>";
+
+PROCEDURE -includePangoFont()
+   "#include <pango-1.0/pango/pango-font.h>";
+
+PROCEDURE -includePangoLayout()
+   "#include <pango-1.0/pango/pango-layout.h>";
+*)
+
+
+
+PROCEDURE (*["pango_context_get_metrics"]*) -contextGetMetrics*
+  (context:ContextPtr; desc:FontDescriptionPtr; language:LanguagePtr):
+  FontMetricsPtr
+  "(FontMetricsPtr)pango_context_get_metrics(context, desc, language)";
+
+PROCEDURE (*["pango_font_description_from_string"]*) -fontDescriptionFromString*
+  (str:G.string): FontDescriptionPtr
+  "(Pango_FontDescriptorPtr)pango_font_description_from_string(str)";
+
+PROCEDURE (*["pango_font_get_metrics"]*) -fontGetMetrics*
+  (font:FontPtr; language:LanguagePtr): FontMetricsPtr
+  "(Pango_FontMetricsPtr)pango_font_get_metrics(font, language)";
+
+PROCEDURE (*["pango_font_metrics_unref"]*) -fontMetricsUnref*
+  (metrics:FontMetricsPtr)
+  "pango_font_metrics_unref(metrics)";
+
+PROCEDURE (*["pango_layout_get_pixel_extents"]*) -layoutGetPixelExtents*
+  (layout:LayoutPtr; VAR inkRect,logicalRect:Rectangle)
+  "pango_layout_get_pixel_extents(layout, incRect, logicalRect)";
+
+PROCEDURE (*["pango_layout_get_pixel_size"]*) -layoutGetPixelSize*
+  (layout:LayoutPtr; VAR width,height:G.int)
+  "pango_layout_get_pixel_size(layout, width, height)";
+
+
+PROCEDURE (*["pango_layout_set_font_description"]*) -layoutSetFontDescription*
+  (layout:LayoutPtr; desc:FontDescriptionPtr)
+  "pango_layout_set_font_description(layout, desc)";
+
+PROCEDURE (*["pango_layout_set_text"]*) -layoutSetText*
+  (layout:LayoutPtr; text:G.string; length:G.int)
+   "pango_layout_set_text(layout, text, lenght)";
+
+END Pango.
+
diff --git a/src/test/Gtk/Readme.md b/src/test/Gtk/Readme.md
new file mode 100644
index 00000000..5a006d08
--- /dev/null
+++ b/src/test/Gtk/Readme.md
@@ -0,0 +1 @@
+this is an example how to write gtk applications with vishap oberon compiler
diff --git a/src/test/Gtk/gui.glade b/src/test/Gtk/gui.glade
new file mode 100644
index 00000000..e90f3634
--- /dev/null
+++ b/src/test/Gtk/gui.glade
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<glade-interface>
+  <!-- interface-requires gtk+ 2.6 -->
+  <!-- interface-naming-policy toplevel-contextual -->
+  <widget class="GtkWindow" id="winMain">
+    <property name="width_request">250</property>
+    <property name="height_request">150</property>
+    <property name="visible">True</property>
+    <property name="can_focus">False</property>
+    <property name="title" translatable="yes">OOC-Glade-Test</property>
+    <property name="resizable">False</property>
+    <signal name="destroy_event" handler="gtk_main_quit" />
+    <signal name="delete_event" handler="gtk_main_quit" />
+    <child>
+      <widget class="GtkHBox" id="hboxMain">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <child>
+          <widget class="GtkVBox" id="vboxLeft">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <widget class="GtkLabel" id="label">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">Print to stdout</property>
+                <property name="single_line_mode">True</property>
+              </widget>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">False</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <widget class="GtkButton" id="button">
+                <property name="label" translatable="yes">Hello</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <signal name="clicked" handler="handlers_Hello"/>
+              </widget>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">False</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </widget>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">False</property>
+            <property name="padding">8</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <widget class="GtkVSeparator" id="vsep">
+            <property name="width_request">2</property>
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+          </widget>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+        <child>
+          <widget class="GtkDrawingArea" id="drawing">
+            <property name="visible">True</property>
+            <property name="sensitive">False</property>
+            <property name="can_focus">False</property>
+            <signal name="expose_event" handler="handlers_Draw"/>
+          </widget>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="position">2</property>
+          </packing>
+        </child>
+      </widget>
+    </child>
+  </widget>
+</glade-interface>
diff --git a/src/test/Gtk/handlers.Mod b/src/test/Gtk/handlers.Mod
new file mode 100644
index 00000000..778759a4
--- /dev/null
+++ b/src/test/Gtk/handlers.Mod
@@ -0,0 +1,34 @@
+(***************************************************************************
+Project:     HelloWorld
+Purpose:     A libglade-Hello-World with oo2c
+Version:     1.0
+Predecessor: -
+Changes:     -
+Target:	     Linux
+Compiler:    oo2c
+Date:        Jan. 2009
+Author:      Frank Hrebabetzky
+***************************************************************************)
+
+MODULE handlers;
+
+IMPORT
+  SYSTEM, Out := Console, G, Gdk, Gtk;
+
+PROCEDURE (*["Hello"]*) Hello* (widget:Gtk.WidgetPtr; data:SYSTEM.PTR);
+BEGIN
+  Out.String("Hello, world!");   Out.Ln;
+END Hello;
+
+
+PROCEDURE (*["Draw"]*) Draw* (widget:Gtk.WidgetPtr;
+  event:Gdk.EventExposePtr; data:G.pointer): G.boolean;
+VAR a: G.int;
+BEGIN
+  a:= widget.allocation.width DIV 2;
+  Gdk.drawArc (widget.window, widget.style.fgGc[ORD(widget.state)], G.TRUE,
+  a DIV 2, a DIV 2, a, a, 0, 64*360);
+  RETURN G.TRUE;
+END Draw;
+
+END handlers.
diff --git a/src/test/Gtk/makefile b/src/test/Gtk/makefile
new file mode 100644
index 00000000..7ad52bc3
--- /dev/null
+++ b/src/test/Gtk/makefile
@@ -0,0 +1,21 @@
+CFLAGS=`pkg-config --cflags --libs libglade-2.0` -export-dynamic
+export CFLAGS
+
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -s G.Mod
+	$(VOC) -s Pango.Mod
+	$(VOC) -s Gdk.Mod
+	$(VOC) -s Gtk.Mod
+	$(VOC) -s Glade.Mod
+	$(VOC) -m HelloWorld.Mod
+
+test0:
+	$(VOC) -s G.Mod Pango.Mod Gdk.Mod Gtk.Mod Glade.Mod handlers.Mod HelloWorld.Mod -m
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.sym
+	rm *.o