freepascal.compiler/packages/extra/fpgtk/fpgtk.def

definition
  GtkPrefix=gtk
  UsesList=classes, sysutils, gtk, gdk, glib, FPglib
  UnitName=FPgtk
  Count=96
  Object=Object
    GtkFuncName=object
    WithPointer
    Count=52
    Prop=Signal
      PropType=SignalType
      Count=2
      Param=Sender
        PascalType=TFPgtkObject
      Param=Data
        PascalType=pointer
    Prop=BooleanSignal
      PropType=SignalType
      Code=begin,end
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=Bool
        PascalType=boolean
      Param=data
        PascalType=pointer
    Prop=Types to help
      PropType=TypeDeclaration
      Code="  FPgtkException = class (Exception) end;","  PPascalClassData = ^TPascalClassData;","  TPascalClassData = record","    TheInstance : TFPgtkObject;","  end;","  PSignalData = ^TSignalData;","  TSignalData = record","    TheData : pointer;","    TheWidget : TFPgtkObject;","    TheSignalProc : TFPgtkSignalFunction;","  end;","  TDestroyState = (dsAlive, dsWaiting, dsDestroying);","  TFPgtkObjectClass = Class of TFPgtkObject;"
      Count=0
    Prop=private decl
      PropType=Declarations
      Section=Private
      Code=const,"  dtPascalInstance = 'Pascal_Instance';",,type,"  TIntegerPointer = record","    case word of ","      0 : (i : integer);","      1 : (p : pointer);","  end;",,var,"  ObjectsToFree : TList;","  ip : TIntegerPointer;"
      Count=0
    Prop=
      PropType=Initialization
      Code="ObjectsToFree := TList.Create;"
      Count=0
    Prop=
      PropType=Finilization
      Code=ObjectsToFree.Free;
      Count=0
    Prop=GetPascalInstance
      PropType=HelperFunc
      PascalType=TFPgtkObject
      Code=begin,"  result := GetPascalInstance(GtkObject);","  if not assigned(result) and assigned(GtkObject) then","    result := ObjClass.CreateFromObject (GtkObject);",end;
      Overload
      Count=2
      Param=gtkObject
        PascalType=PGtkObject
      Param=ObjClass
        PascalType=TFPgtkObjectClass
    Prop=GetPascalInstance
      PropType=HelperFunc
      PascalType=TFPgtkObject
      Code="var p : pointer;",begin,"  result := nil;","  if assigned (gtkobject) then","    begin","    p := gtk_object_get_data (gtkObject, dtPascalInstance);","    if assigned(p) then","      result := PPascalClassData(p)^.TheInstance;","    end;",end;
      Overload
      Count=1
      Param=gtkObject
        PascalType=PGtkObject
    Prop=ConvertToGtkObject
      PropType=HelperFunc
      PascalType=PGtkObject
      Code=begin,"  if assigned(AnObject) then","    result := AnObject.TheGtkObject","  else","    result := nil;",end;
      Count=1
      Param=AnObject
        PascalType=TFPgtkObject
    Prop=ConvertToPgChar
      PropType=HelperFunc
      PascalType=PgChar
      Code=begin,"  result := pointer(aString);",end;
      Count=1
      Param=AString
        PascalType=string
    Prop=ConvertSignalData
      PropType=Function
      Section=Private
      PascalType=PSignalData
      Code=begin,"  new (result);","  with result^ do","    begin","    TheSignalProc := proc;","    TheWidget := self;","    TheData := data;","    end;","  if FreeIt then","    SignalDatas.Add (result);",end;
      Count=3
      Param=proc
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
      Param=FreeIt
        PascalType=boolean
    Prop=FGtkObject
      PropType=Field
      Section=Protected
      PascalType=PGtkObject
      Count=0
    Prop=NotifyList
      PropType=Field
      Section=Private
      PascalType=TList
      Count=0
    Prop=SignalDatas
      PropType=Field
      Section=Private
      PascalType=TList
      Count=0
    Prop=ConvertDatas
      PropType=Field
      Section=Private
      PascalType=TStringList
      Count=0
    Prop=PascalInstance
      PropType=Field
      Section=Private
      PascalType=TPascalClassData
      Count=0
    Prop=FreeFPgtkObjects
      PropType=HelperFunc
      PascalType=longbool
      Code="var r : integer;","    obj : TFPgtkObject;",begin,"  for r := ObjectsToFree.Count-1 downto 0 do","    begin","    obj := TFPgtkObject(ObjectsToFree[r]);","    if assigned (Obj) then","      Obj.Free;","    end;","  ObjectsToFree.Clear;","  result := False;",end;
      Cdecl
      Count=1
      Param=Data
        PascalType=pointer
    Prop=FreeClass
      PropType=Procedure
      Section=Private
      Code=begin,"  if FDestroying = dsAlive then","    begin","    if ObjectsToFree.Count = 0 then","      g_idle_Add (@FreeFPgtkObjects, null);","    ObjectsToFree.Add (self);","    FGtkObject := null;","    FDestroying := dsWaiting;","    end;",end;
      Count=2
      Param=Sender
        PascalType=TFPgtkObject
      Param=Data
        PascalType=pointer
    Prop=CheckConvertDatas
      PropType=Procedure
      Section=Private
      Code=begin,"  if not assigned (ConvertDatas) then","    begin","    ConvertDatas := TStringList.Create;","    ConvertDatas.Sorted := True;","    end;",end;
      Count=0
    Prop=CheckNotifyList
      PropType=Procedure
      Section=Private
      Code=begin,"  if not assigned (Notifylist) then","    NotifyList := TList.Create;",end;
      Count=0
    Prop=InitCreate
      PropType=Procedure
      Section=Private
      Code=begin,"  inherited create;","  SignalDatas := TList.Create;",end;
      Count=0
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Virtual
      Abstract
      Count=0
    Prop=FinalCreate
      PropType=Procedure
      Section=Private
      Code=begin,"  PascalInstance.TheInstance := Self;","  SetData (dtPascalInstance, @PascalInstance);","  ConnectDestroy (@FreeClass, nil);",end;
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  InitCreate;","  CreateGtkObject;","  FinalCreate;",end;
      Count=0
    Prop=CreateFromObject
      PropType=Constructor
      Code=begin,"  InitCreate;","  FGtkObject := GtkObject;","  FinalCreate;",end;
      Count=1
      Param=GtkObject
        PascalType=PGtkObject
    Prop=Destroying
      PropType=Property
      PascalType=TDestroyState
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
    Prop=AskNotification
      PropType=Procedure
      Code=begin,"  CheckNotifyList;","  with NotifyList do","    if indexof(AnObject) < 0 then","      begin","      Add (AnObject);","      AnObject.AskNotification (Self);","      end;",end;
      Count=1
      Param=AnObject
        PascalType=TFPgtkObject
    Prop=Destroy
      PropType=Destructor
      Code="var r : integer;","    datapointer : PSignalData;",begin,"  FDestroying := dsDestroying;","  if assigned(NotifyList) then","    begin","    for r := 0 to NotifyList.count-1 do","      TFPgtkObject(NotifyList[r]).NotifyDestroy (Self);","    NotifyList.Free;","    NotifyList := nil;","    end;","  if assigned(FGtkObject) and not Gtk_Object_destroyed(FGtkObject) then","    begin","    gtk_object_destroy (FGtkObject);","    FGtkObject := nil;","    end;","  for r := 0 to SignalDatas.count-1 do","    begin","    datapointer := signaldatas[r];","    dispose (datapointer);","    end;","  signaldatas.Free;","  if assigned (convertDatas) then","    ConvertDatas.Free;","  r := ObjectsToFree.indexof (self);","  if r >= 0 then","    ObjectsToFree[r] := nil;","  inherited destroy;",end;
      Override
      Count=0
    Prop=NotifyDestroy
      PropType=Procedure
      Section=Protected
      Code="var r : integer;",begin,"  if assigned(NotifyList) then","    begin","    r := NotifyList.indexOf (AnObject);","    if r >= 0 then","      NotifyList.Delete (r);","    end;",end;
      Virtual
      Count=1
      Param=AnObject
        PascalType=TFPgtkObject
    Prop=Destroy
      PropType=Signal
      PascalType=Signal
      GtkName=destroy
      Count=0
    Prop=SignalDisconnect
      PropType=Procedure
      Code=begin,"  gtk_signal_disconnect (TheGtkObject, SignalHandler);",end;
      Count=1
      Param=SignalHandler
        PascalType=guint
    Prop=SignalBlockHandler
      PropType=Procedure
      Code=begin,"  gtk_signal_handler_block (TheGtkObject, SignalHandler);",end;
      Count=1
      Param=SignalHandler
        PascalType=guint
    Prop=SignalUnblockHandler
      PropType=Procedure
      Code=begin,"  gtk_signal_handler_unblock (TheGtkObject, SignalHandler);",end;
      Count=1
      Param=SignalHandler
        PascalType=guint
    Prop=SignalEmit
      PropType=Procedure
      Code=begin,"  gtk_signal_emit_by_name (TheGtkObject, pgchar(aName), Args);",end;
      Count=2
      Param=aName
        Convert
        PascalType=string
      Param=Args
        PascalType=array of const
    Prop=SignalNEmissions
      PropType=Function
      PascalType=guint
      Code=begin,"  result := gtk_signal_n_emissions_by_name (FGtkObject, pgchar(aName));",end;
      Count=1
      Param=aName
        Convert
        PascalType=string
    Prop=SignalEmitStop
      PropType=Procedure
      Code=begin,"  gtk_signal_emit_stop_by_name (FGtkObject, pgchar(aName));",end;
      Count=1
      Param=aName
        Convert
        PascalType=string
    Prop=SetData
      PropType=Procedure
      GtkName=set_data
      Count=2
      Param=Key
        Convert
        PascalType=string
      Param=Data
        PascalType=pointer
    Prop=UserData
      PropType=Property
      PascalType=pointer
      GtkName=user_data
      WriteGtkName=user_data
      Count=0
    Prop=SetDataFull
      PropType=Procedure
      Code=begin,"  gtk_object_set_data_full (TheGtkObject, pgChar(Key), ConvertSignalData (Destroyer, data, false), TGtkDestroyNotify(@DestroyData));","  CheckConvertDatas;","  ConvertDatas.Add (Key);",end;
      Count=3
      Param=Key
        PascalType=string
      Param=Data
        PascalType=pointer
      Param=Destroyer
        PascalType=TFPgtkSignalFunction
    Prop=RemoveData
      PropType=Procedure
      Code="var r : integer;",begin,"  gtk_object_remove_data (TheGtkObject, pgChar(Key));","  if assigned (ConvertDatas) then","    begin","    r := ConvertDatas.indexof (Key);","    if r >= 0 then","    ConvertDatas.Delete (r);","    end;",end;
      Count=1
      Param=Key
        PascalType=string
    Prop=GetData
      PropType=Function
      PascalType=pointer
      Code="var p  : pointer;",begin,"  p := gtk_object_get_data (TheGtkObject, pgChar(Key));","  if assigned(ConvertDatas) and (ConvertDatas.IndexOf (Key) >= 0) then","    result := PPascalClassData (PSignalData(p)^.TheData)^.TheInstance","  else","    result := p;",end;
      Count=1
      Param=Key
        PascalType=string
    Prop=DestroyData
      PropType=HelperProc
      Code=begin,"  with PSignaldata(data)^ do","    TheSignalProc (TheWidget, TheData);",end;
      Cdecl
      Count=1
      Param=data
        PascalType=pointer
    Prop=IntToPointer
      PropType=HelperFunc
      PascalType=pointer
      Code=begin,"  ip.i := Value;","  result := ip.p;",end;
      Count=1
      Param=Value
        PascalType=integer
    Prop=PointerToInt
      PropType=HelperFunc
      PascalType=integer
      Code=begin,"  ip.p := Value;","  result := ip.i;",end;
      Count=1
      Param=Value
        PascalType=pointer
    Prop=GtkDestroyed
      PropType=Function
      PascalType=boolean
      GtkName=destroyed
      Count=0
    Prop=Constructed
      PropType=Procedure
      GtkName=constructed
      Count=0
    Prop=ConstructedDefault
      PropType=Procedure
      GtkName=default_construct
      Count=0
    Prop=Sink
      PropType=Procedure
      GtkName=sink
      Count=0
    Prop=Ref
      PropType=Procedure
      GtkName=ref
      Count=0
    Prop=Unref
      PropType=Procedure
      GtkName=unref
      Count=0
    Prop=WeakRef
      PropType=Procedure
      Code=begin,"  gtk_object_weakref (TheGtkObject, TGtkDestroyNotify(@DestroyData), ConvertSignalData (Notify, data, true));",end;
      Count=2
      Param=Notify
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=WeakUnref
      PropType=Procedure
      Code=begin,"  gtk_object_weakunref (TheGtkObject, TGtkDestroyNotify(@DestroyData), ConvertSignalData (Notify, data, true));",end;
      Count=2
      Param=notify
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
  Object=Data
    Inherit=Object
    GtkFuncName=data
    Count=1
    Prop=Disconnect
      PropType=Signal
      PascalType=Signal
      GtkName=disconnect
      Count=0
  Object=Adjustment
    Inherit=Data
    GtkFuncName=Adjustment
    CreateParams=0,0,10,1,2,2
    CreateObject
    Count=12
    Prop=Configure
      PropType=Procedure
      Code=begin,"  Lower := aLower;","  Upper := anUpper;","  Value := aValue;","  StepIncrement := aStepInc;","  PageIncrement := aPageInc;","  PageSize := aPageSize;",end;
      Count=6
      Param=aLower
        PascalType=gfloat
      Param=anUpper
        PascalType=gfloat
      Param=aValue
        PascalType=gfloat
      Param=aStepInc
        PascalType=gfloat
      Param=aPageInc
        PascalType=gfloat
      Param=aPageSize
        PascalType=gfloat
    Prop=ValueChanged
      PropType=Signal
      PascalType=Signal
      GtkName=Value_Changed
      Count=0
    Prop=Changed
      PropType=Signal
      PascalType=Signal
      GtkName=Changed
      Count=0
    Prop=ValueChanged
      PropType=Procedure
      GtkName=Value_Changed
      Count=0
    Prop=Changed
      PropType=Procedure
      GtkName=Changed
      Count=0
    Prop=ClampPage
      PropType=Procedure
      GtkName=Clamp_Page
      Count=2
      Param=aLower
        PascalType=gfloat
      Param=aUpper
        PascalType=gfloat
    Prop=Value
      PropType=Property
      PascalType=gfloat
      GtkName=Value
      ReadFuncType=ObjField
      WriteGtkName=Value
      Count=0
    Prop=Lower
      PropType=Property
      PascalType=gfloat
      GtkName=Lower
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=Lower
      Count=0
    Prop=Upper
      PropType=Property
      PascalType=gfloat
      GtkName=Upper
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=Upper
      Count=0
    Prop=StepIncrement
      PropType=Property
      PascalType=gfloat
      GtkName=Step_Increment
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=Step_Increment
      Count=0
    Prop=PageIncrement
      PropType=Property
      PascalType=gfloat
      GtkName=Page_Increment
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=Page_increment
      Count=0
    Prop=PageSize
      PropType=Property
      PascalType=gfloat
      GtkName=Page_Size
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=Page_Size
      Count=0
  Object=ToolTips
    Inherit=Data
    GtkFuncName=tooltips
    CreateObject
    Count=13
    Prop=SetColors
      PropType=Procedure
      GtkName=set_colors
      Count=2
      Param=Fore
        PascalType=PGdkColor
      Param=Back
        PascalType=PGdkColor
    Prop=SetTip
      PropType=Procedure
      GtkName=set_tip
      Count=3
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=TipText
        Convert
        PascalType=string
      Param=TipPrivate
        Convert
        PascalType=string
    Prop=Enabled
      PropType=Property
      PascalType=boolean
      GtkName=enabled
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    gtk_tooltips_enable (TheGtkObject)","  else","    gtk_tooltips_disable (TheGtkObject);",end;
      Count=0
    Prop=Delay
      PropType=Property
      PascalType=integer
      GtkName=delay
      ReadFuncType=ObjFunc
      WriteGtkName=delay
      Count=0
    Prop=ColorForeground
      PropType=Property
      PascalType=PGdkColor
      GtkName=foreground
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteGtkName=SetColorForeground
      WriteCode=begin,"  SetColors (TheValue, ColorBackGround);",end;
      Count=0
    Prop=ColorBackground
      PropType=Property
      PascalType=PGdkColor
      GtkName=background
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteGtkName=SetColorBackground
      WriteCode=begin,"  SetColors (ColorForeground, TheValue);",end;
      Count=0
    Prop=GetTooltipsData
      PropType=HelperFunc
      PascalType=PGtkTooltipsData
      Code=begin,"  result := gtk_tooltips_data_get (ConvertToGtkWidget(Widget));",end;
      Count=1
      Param=Widget
        PascalType=TFPgtkWidget
    Prop=ComposeTooltip
      PropType=HelperFunc
      PascalType=string
      Code=begin,"  result := TooltipText;","  if PrivText <> '' then","    result := result + '|' + PrivText;",end;
      Count=2
      Param=TooltipText
        PascalType=string
      Param=PrivText
        PascalType=string
    Prop=DecomposeTooltip
      PropType=HelperProc
      Code="var r : integer;",begin,"  r := pos ('|', tooltip);","  if r > 0 then","    begin","    TooltipText := copy(Tooltip, 1, r-1);","    PrivText := copy (Tooltip, r+1, maxint);","    end","  else","    begin","    TooltipText := Tooltip;","    PrivText := '';","    end;",end;
      Count=3
      Param=Tooltip
        PascalType=string
      Param=TooltipText
        PascalType=string
        ParamType=Var
      Param=PrivText
        PascalType=string
        ParamType=Var
    Prop=TheTooltips
      PropType=Declarations
      Code="var ","  TheTooltips : TFPgtkTooltips;"
      Count=0
    Prop=CheckTooltips
      PropType=HelperProc
      Section=Private
      Code=begin,"if not assigned (TheTooltips) then","  TheTooltips := TFPgtkTooltips.Create;",end;
      Count=0
    Prop=
      PropType=Finilization
      Code="if assigned (TheTooltips) then","  TheTooltips.Free;"
      Count=0
    Prop=ForceWindow
      PropType=Procedure
      GtkName=force_window
      Count=0
  Object=Widget
    Inherit=Object
    GtkFuncName=widget
    Count=107
    Prop=TheGtkWidget
      PropType=Property
      PascalType=PGtkWidget
      Code=begin,"  result := PGtkWidget (TheGtkObject);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  FGtkObject := PgtkObject (TheValue);",end;
      Count=0
    Prop=GetPascalInstance
      PropType=HelperFunc
      PascalType=TFPgtkWidget
      Code=begin,"  result := TFPgtkWidget (GetPascalInstance (PGtkObject(widget)));",end;
      Overload
      Count=1
      Param=Widget
        PascalType=PGtkWidget
    Prop=GetPascalInstance
      PropType=HelperFunc
      PascalType=TFPgtkWidget
      Code=begin,"  result := TFPgtkWidget (GetPascalInstance (PGtkObject(Widget), ObjClass));",end;
      Overload
      Count=2
      Param=Widget
        PascalType=PGtkWidget
      Param=ObjClass
        PascalType=TFPgtkObjectClass
    Prop=ConvertToGtkWidget
      PropType=HelperFunc
      PascalType=PGtkWidget
      Code=begin,"  if assigned(AnObject) then","    result := AnObject.TheGtkWidget","  else","    result := nil;",end;
      Count=1
      Param=AnObject
        PascalType=TFPgtkWidget
    Prop=WidgetSignal
      PropType=SignalType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=Data
        PascalType=pointer
    Prop=SetFlags
      PropType=Procedure
      Section=Protected
      GtkName=set_flags
      Count=1
      Param=NewFlags
        PascalType=longint
    Prop=UnsetFlags
      PropType=Procedure
      Section=Protected
      GtkName=unset_flags
      Count=1
      Param=NewUnsetFlags
        PascalType=longint
    Prop=Map
      PropType=Procedure
      Section=Protected
      GtkName=map
      Count=0
    Prop=Unmap
      PropType=Procedure
      Section=Protected
      GtkName=unmap
      Count=0
    Prop=QueueDraw
      PropType=Procedure
      Section=Protected
      GtkName=queue_draw
      Count=0
    Prop=QueueResize
      PropType=Procedure
      Section=Protected
      GtkName=queue_resize
      Count=0
    Prop=Draw
      PropType=Procedure
      GtkName=draw
      Overload
      Count=1
      Param=Rectangle
        PascalType=PGdkRectangle
    Prop=DrawFocus
      PropType=Procedure
      Section=Protected
      GtkName=draw_focus
      Count=0
    Prop=DrawDefault
      PropType=Procedure
      Section=Protected
      GtkName=draw_default
      Count=0
    Prop=Show
      PropType=Procedure
      GtkName=show
      Count=0
    Prop=Hide
      PropType=Procedure
      GtkName=hide
      Count=0
    Prop=Realize
      PropType=Procedure
      GtkName=realize
      Count=0
    Prop=Unrealize
      PropType=Procedure
      GtkName=unrealize
      Count=0
    Prop=ShowNow
      PropType=Procedure
      GtkName=show_now
      Count=0
    Prop=ShowAll
      PropType=Procedure
      GtkName=show_all
      Count=0
    Prop=HideAll
      PropType=Procedure
      GtkName=hide_all
      Count=0
    Prop=SetAllocation
      PropType=Procedure
      Code=begin,"  with AnAllocation do","    SetAllocation (x, y, width, height);",end;
      Overload
      Count=1
      Param=AnAllocation
        PascalType=TGtkAllocation
    Prop=SetAllocation
      PropType=Procedure
      Code=begin,"  SetUPosition (x, y);","  SetUSize (width, height);",end;
      Overload
      Count=4
      Param=x
        PascalType=integer
      Param=y
        PascalType=integer
      Param=width
        PascalType=integer
      Param=height
        PascalType=integer
    Prop=Allocation
      PropType=Property
      PascalType=TGtkAllocation
      GtkName=allocation
      ReadFuncType=ObjField
      WriteProcType=ExistingProc
      WriteGtkName=SetAllocation
      Count=0
    Prop=SetUPosition
      PropType=Procedure
      GtkName=set_uposition
      Count=2
      Param=x
        PascalType=integer
      Param=y
        PascalType=integer
    Prop=SetUsize
      PropType=Procedure
      GtkName=set_usize
      Count=2
      Param=width
        PascalType=integer
      Param=height
        PascalType=integer
    Prop=Name
      PropType=Property
      PascalType=string
      GtkName=name
      WriteGtkName=name
      WriteConvert
      Count=0
    Prop=Flags
      PropType=Property
      PascalType=longint
      GtkName=GetPropFlags
      Code=begin,"  result := gtk_widget_Flags (TheGtkObject);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetPropFlags
      WriteCode="var f : integer;",begin,"  f := GetPropFlags;","  UnsetFlags (f and not TheValue);","  SetFlags (not f and TheValue);",end;
      Count=0
    Prop=State
      PropType=Property
      PascalType=longint
      GtkName=State
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=SavedState
      PropType=Property
      PascalType=longint
      GtkName=Saved_State
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=Parent
      PropType=Property
      PascalType=TFPgtkWidget
      Code="var gtkparent : PgtkWidget;","    o : TFPgtkObject;",begin,"  gtkParent := TheGtkObject^.parent;","  o := GetPascalInstance (PgtkObject(GtkParent));","  if o is TFPgtkWidget then","    result := TFPgtkWidget(o)","  else","    result := nil;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode="var gtkparent : PgtkWidget;",begin,"  gtkParent := TheGtkObject^.parent;","  if assigned(TheValue) then","    if assigned(gtkParent) then","      reparent (TheValue)","    else","      gtk_widget_set_parent (TheGtkWidget, ConvertToGtkWidget(TheValue))","  else","    if assigned(gtkParent) then","      gtk_widget_unparent (TheGtkWidget);","end;    ","      "
      Count=0
    Prop=ParentWindow
      PropType=Property
      PascalType=PGdkWindow
      GtkName=parent_window
      WriteGtkName=parent_window
      Count=0
    Prop=Unparent
      PropType=Procedure
      GtkName=unparent
      Count=0
    Prop=Reparent
      PropType=Procedure
      Section=Private
      Code=begin,"  if (NewParent is TFpgtkContainer) then","    begin","    ref;","    TFPgtkContainer(Parent).remove (self);","    TFPgtkContainer(NewParent).Add (Self);","    unref;","    end;",end;
      Count=1
      Param=NewParent
        PascalType=TFPgtkWidget
    Prop=Visible
      PropType=Property
      PascalType=boolean
      GtkName=Visible
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    Show","  else","    Hide;",end;
      Count=0
    Prop=NoWindow
      PropType=Property
      PascalType=boolean
      GtkName=No_Window
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    SetFlags (GTK_NO_WINDOW)","  else","    UnSetFlags (GTK_NO_WINDOW);",end;
      Count=0
    Prop=Realized
      PropType=Property
      PascalType=boolean
      GtkName=realized
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then ","    Realize","  else","    Unrealize;",end;
      Count=0
    Prop=Mapped
      PropType=Property
      PascalType=boolean
      GtkName=Mapped
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    Map","  else","    Unmap;",end;
      Count=0
    Prop=Drawable
      PropType=Property
      PascalType=boolean
      GtkName=Drawable
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=IsSensitive
      PropType=Property
      PascalType=boolean
      GtkName=Is_Sensitive
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=Sensitive
      PropType=Property
      PascalType=boolean
      GtkName=Sensitive
      ReadFuncType=GtkMacro
      WriteGtkName=sensitive
      Count=0
    Prop=ParentSensitive
      PropType=Property
      PascalType=boolean
      GtkName=Parent_Sensitive
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    SetFlags (GTK_PARENT_SENSITIVE)","  else","    UnSetFlags (GTK_PARENT_SENSITIVE);",end;
      Count=0
    Prop=AppPaintable
      PropType=Property
      PascalType=boolean
      GtkName=App_Paintable
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      WriteGtkName=app_paintable
      WriteCode="// conditional compile ; niet bij gtkwin"
      Count=0
    Prop=CanFocus
      PropType=Property
      PascalType=boolean
      GtkName=Can_Focus
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    SetFlags (GTK_CAN_FOCUS)","  else","    UnSetFlags (GTK_CAN_FOCUS);",end;
      Count=0
    Prop=GrabFocus
      PropType=Procedure
      GtkName=grab_focus
      Count=0
    Prop=HasFocus
      PropType=Property
      PascalType=boolean
      GtkName=Has_Focus
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=CanDefault
      PropType=Property
      PascalType=boolean
      GtkName=Can_Default
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    SetFlags (GTK_CAN_DEFAULT)","  else","    UnSetFlags (GTK_CAN_DEFAULT);",end;
      Count=0
    Prop=GrabDefault
      PropType=Procedure
      GtkName=grab_default
      Count=0
    Prop=HasDefault
      PropType=Property
      PascalType=boolean
      GtkName=Has_Default
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=ReceivesDefault
      PropType=Property
      PascalType=boolean
      GtkName=Receives_Default
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=CompositeChild
      PropType=Property
      PascalType=boolean
      GtkName=Composite_Child
      ReadFuncType=GtkMacro
      WriteProcType=NotImplemented
      Count=0
    Prop=Tooltip
      PropType=Property
      PascalType=string
      Code="var data : PGtkTooltipsData;",begin,"  data := Gtk_Tooltips_Data_Get (TheGtkObject);","  if assigned(data) then","    with data^ do","      result := ComposeTooltip (Tip_Text, tip_private)","  else","    result := '';",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode="var t, p : string;","    ttdata : PGtkTooltipsData;",begin,"  if TheValue = '' then","    begin","    ttdata := GetTooltipsData (Self);","    if assigned (ttdata) then","      ; // find a way to remove the hint. Setting '' does not remove","    end","  else","    begin","    CheckTooltips;","    DecomposeTooltip (TheValue, t, p);","    TheToolTips.SetTip (self, t, p);","    end;",end;
      Count=0
    Prop=HideOnDelete
      PropType=Procedure
      GtkName=hide_on_delete
      Count=0
    Prop=Colormap
      PropType=Property
      PascalType=PGdkColormap
      GtkName=colormap
      WriteGtkName=colormap
      Count=0
    Prop=Show
      PropType=Signal
      PascalType=Signal
      GtkName=show
      Count=0
    Prop=hide
      PropType=Signal
      PascalType=Signal
      GtkName=hide
      Count=0
    Prop=map
      PropType=Signal
      PascalType=Signal
      GtkName=map
      Count=0
    Prop=unmap
      PropType=Signal
      PascalType=Signal
      GtkName=unmap
      Count=0
    Prop=realize
      PropType=Signal
      PascalType=Signal
      GtkName=realize
      Count=0
    Prop=unrealize
      PropType=Signal
      PascalType=Signal
      GtkName=unrealize
      Count=0
    Prop=DrawFocus
      PropType=Signal
      PascalType=Signal
      GtkName=draw-focus
      Count=0
    Prop=DrawDefault
      PropType=Signal
      PascalType=Signal
      GtkName=draw-defaut
      Count=0
    Prop=ParentSet
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=parent-set
      Count=0
    Prop=GrabFocus
      PropType=Signal
      PascalType=Signal
      GtkName=grab-focus
      Count=0
    Prop=Event
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEvent
      Param=data
        PascalType=pointer
    Prop=Event
      PropType=Signal
      PascalType=Event
      GtkName=event
      Count=0
    Prop=EventButton
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventButton
      Param=data
        PascalType=pointer
    Prop=ButtonPressEvent
      PropType=Signal
      PascalType=EventButton
      GtkName=button-press-event
      Count=0
    Prop=ButtonReleaseEvent
      PropType=Signal
      PascalType=EventButton
      GtkName=button-release-event
      Count=0
    Prop=EventMotion
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventMotion
      Param=data
        PascalType=pointer
    Prop=MotionNotifyEvent
      PropType=Signal
      PascalType=EventMotion
      GtkName=motion-notify-event
      Count=0
    Prop=DeleteEvent
      PropType=Signal
      PascalType=Event
      GtkName=delete-event
      Count=0
    Prop=DestroyEvent
      PropType=Signal
      PascalType=Event
      GtkName=destroy-event
      Count=0
    Prop=EventExpose
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventExpose
      Param=data
        PascalType=pointer
    Prop=ExposeEvent
      PropType=Signal
      PascalType=EventExpose
      GtkName=expose-event
      Count=0
    Prop=EventKey
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventKey
      Param=data
        PascalType=pointer
    Prop=KeyPressEvent
      PropType=Signal
      PascalType=EventKey
      GtkName=key-press-event
      Count=0
    Prop=KeyReleaseEvent
      PropType=Signal
      PascalType=EventKey
      GtkName=key-release-event
      Count=0
    Prop=EventCrossing
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventCrossing
      Param=data
        PascalType=pointer
    Prop=EnterNotifyEvent
      PropType=Signal
      PascalType=EventCrossing
      GtkName=enter-notify-event
      Count=0
    Prop=LeaveNotifyEvent
      PropType=Signal
      PascalType=EventCrossing
      GtkName=leave-notify-event
      Count=0
    Prop=EventConfigure
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventConfigure
      Param=data
        PascalType=pointer
    Prop=ConfigureEvent
      PropType=Signal
      PascalType=EventConfigure
      GtkName=configure-event
      Count=0
    Prop=EventFocus
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventFocus
      Param=data
        PascalType=pointer
    Prop=FocusInEvent
      PropType=Signal
      PascalType=EventFocus
      GtkName=focus-in-event
      Count=0
    Prop=FocusOutEvent
      PropType=Signal
      PascalType=EventFocus
      GtkName=focus-out-event
      Count=0
    Prop=MapEvent
      PropType=Signal
      PascalType=Event
      GtkName=map-event
      Count=0
    Prop=UnmapEvent
      PropType=Signal
      PascalType=Event
      GtkName=unmap-event
      Count=0
    Prop=EventProperty
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventProperty
      Param=data
        PascalType=pointer
    Prop=PropertyNotifyEvent
      PropType=Signal
      PascalType=EventProperty
      GtkName=property-notify-event
      Count=0
    Prop=EventSelection
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventSelection
      Param=data
        PascalType=pointer
    Prop=SelectionClearEvent
      PropType=Signal
      PascalType=EventSelection
      GtkName=selection-clear-event
      Count=0
    Prop=SelectionRequestEvent
      PropType=Signal
      PascalType=EventSelection
      GtkName=selection-request-event
      Count=0
    Prop=SelectionNotifyEvent
      PropType=Signal
      PascalType=EventSelection
      GtkName=selection-notify-event
      Count=0
    Prop=EventProximity
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventProximity
      Param=data
        PascalType=pointer
    Prop=ProximityInEvent
      PropType=Signal
      PascalType=EventProximity
      GtkName=proximity-in-event
      Count=0
    Prop=ProximityOutEvent
      PropType=Signal
      PascalType=EventProximity
      GtkName=proximity-out-event
      Count=0
    Prop=EventClient
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventClient
      Param=data
        PascalType=pointer
    Prop=ClientEvent
      PropType=Signal
      PascalType=EventClient
      GtkName=client-event
      Count=0
    Prop=EventNoExpose
      PropType=SignalType
      PascalType=boolean
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkWidget
      Param=Event
        PascalType=PGdkEventNoExpose
      Param=data
        PascalType=pointer
    Prop=NoExposeEvent
      PropType=Signal
      PascalType=EventNoExpose
      GtkName=no-expose-event
      Count=0
    Prop=VisibilityNotifyEvent
      PropType=Signal
      PascalType=Event
      GtkName=visibility-notify-event
      Count=0
    Prop=LockAccelerators
      PropType=Procedure
      GtkName=lock_accelerators
      Count=0
    Prop=UnlockAccelerators
      PropType=Procedure
      GtkName=unlock_accelerators
      Count=0
    Prop=RemoveAccelerators
      PropType=Procedure
      GtkName=remove_accelerators
      Count=2
      Param=aSignal
        Convert
        PascalType=string
      Param=OnlyVisible
        Convert
        PascalType=boolean
    Prop=ActivateAccelGroups
      PropType=Procedure
      Code=begin,"  gtk_accel_groups_activate (FGtkObject, Key, Mods);",end;
      Count=2
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
    Prop=AcceleratorAdd
      PropType=Procedure
      Code=begin,"  gtk_widget_add_accelerator (TheGtkWidget, pgchar(aSignal),","        AG, Key, Mods, acFlags);",end;
      Overload
      Count=5
      Param=AG
        PascalType=PGtkAccelGroup
      Param=aSignal
        PascalType=string
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
      Param=acFlags
        PascalType=TGtkAccelFlags
  Object=Group
    Inherit=*List
    Count=26
    Prop=FGSList
      PropType=Field
      Section=Private
      PascalType=PGSList
      Count=0
    Prop=FGList
      PropType=Field
      Section=Private
      PascalType=PGList
      Count=0
    Prop=FNotUpdating
      PropType=Field
      Section=Private
      PascalType=boolean
      Count=0
    Prop=FClassesChanged
      PropType=Field
      Section=Private
      PascalType=boolean
      Count=0
    Prop=FSListChanged
      PropType=Field
      Section=Private
      PascalType=boolean
      Count=0
    Prop=FListChanged
      PropType=Field
      Section=Private
      PascalType=boolean
      Count=0
    Prop=ManageLists
      PropType=Property
      PascalType=boolean
      ReadFuncType=Field
      WriteProcType=Field
      Count=0
    Prop=FreeList
      PropType=Procedure
      Section=Private
      Code=begin,"  if FGList <> null then","    begin","    if FManageLists then","      g_list_free (FGList);","    FGList := null;","    end;",end;
      Count=0
    Prop=FreeSList
      PropType=Procedure
      Section=Private
      Code=begin,"  if FGSList <> null then","    begin","    if FManageLists then","      g_slist_free (FGSList);","    FGSlist := null;","    end;",end;
      Count=0
    Prop=CreateGList
      PropType=Function
      Section=Private
      PascalType=PGList
      Code="var r : integer;",begin,"  FreeList;","  result := null;","  for r := pred(count) downto 0 do","    result := g_list_prepend (result, GetData(r));","  FGList := result;",end;
      Count=0
    Prop=CreateGSList
      PropType=Function
      Section=Private
      PascalType=PGSList
      Code="var r : integer;",begin,"  FreeSList;","  result := null;","  for r := pred(count) downto 0 do","    result := g_slist_prepend (result, GetData(r));","  FGSList := result;",end;
      Count=0
    Prop=BuildFromGtkList
      PropType=Procedure
      Section=Protected
      Code="var p : PGList;",begin,"  clear;","  p := FGList;","  while p <> null do","    begin","    add (UngetData(p^.data));","    p := p^.Next;","    end;","  FListChanged := False;","  FSListChanged := False;","  FClassesChanged := False;","  FreeSList;",end;
      Count=0
    Prop=BuildFromGtkSList
      PropType=Procedure
      Section=Protected
      Code="var p :PGSList;",begin,"  clear;","  p := FGSList;","  while p <> null do","    begin","    add (UngetData(p^.data));","    p := p^.Next;","    end;","  FListChanged := False;","  FSListChanged := False;","  FClassesChanged := False;","  FreeList;",end;
      Count=0
    Prop=Notify
      PropType=Procedure
      Section=Protected
      Code=begin,"  inherited;","  FClassesChanged := True;",end;
      Override
      Count=2
      Param=ptr
        PascalType=pointer
      Param=Action
        PascalType=TListNotification
    Prop=GetData
      PropType=Function
      Section=Protected
      PascalType=pointer
      Code="// GetData needs to give the pointer to the data in the List or SList of GTK",begin,"  result := items[index];",end;
      Dynamic
      Count=1
      Param=index
        PascalType=integer
    Prop=UngetData
      PropType=Function
      Section=Protected
      PascalType=pointer
      Code="// UngetData needs to give the item in this list from the datapointer of GTK",begin,"  result := data",end;
      Dynamic
      Count=1
      Param=data
        PascalType=pointer
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  FClassesChanged := False;","  FListChanged := false;","  FSListChanged := False;","  FGList := null;","  FGSList := null;","  FNotUpdating := True;","  FManageLists := True;",end;
      Count=0
    Prop=Destroy
      PropType=Destructor
      Code=begin,"  if ManageLists then","    begin","    FreeList;","    FreeSList;","    end;","  inherited Destroy;",end;
      Override
      Count=0
    Prop=GetGtkList
      PropType=Function
      PascalType=PGList
      Code=begin,"  if buffered then","    if FClasseschanged then","      result := CreateGList","    else if FSListChanged then","      begin","      BuildFromGtkSList;","      result := CreateGList;","      end","    else","      result := FGlist","  else","    result := CreateGList;",end;
      Count=1
      Param=buffered
        PascalType=boolean
    Prop=GetGtkSList
      PropType=Function
      PascalType=PGSList
      Code=begin,"  if buffered then","    if FClassesChanged then","      result := CreateGSList","    else if FListChanged then","      begin","      BuildFromGtkList;","      result := CreateGSList;","      end","    else","      result := FGSlist","  else","    result := CreateGSList;",end;
      Count=1
      Param=buffered
        PascalType=boolean
    Prop=BeginUpdate
      PropType=Procedure
      Code=begin,"  FNotUpdating := False;",end;
      Count=0
    Prop=EndUpdate
      PropType=Procedure
      Code=begin,"  FNotUpdating := True;","  if FlistChanged then","    BuildFromGtkSList","  else if FSListChanged then","    BuildFromGtkSList","  else if FClassesChanged then","    begin","    FreeSList;","    FreeList;","    end;",end;
      Count=0
    Prop=ForEachFunction
      PropType=TypeDeclaration
      Code="  TFPgtkForEachProcedure = procedure (item : pointer; data : pointer) of object;"
      Count=0
    Prop=ForEach
      PropType=Procedure
      Code="var r: integer;",begin,"  for r := 0 to pred(count) do","    Proc (items[r], data);",end;
      Count=2
      Param=Proc
        PascalType=TFPgtkForEachProcedure
      Param=data
        PascalType=pointer
    Prop=GtkList
      PropType=Property
      PascalType=PGList
      GtkName=GetGtkListProp
      Code=begin,"  result := GetGtkList (True);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetGtkListProp
      WriteCode=begin,"  FGList := TheValue;","  if FNotUpdating then","    BuildFromGtkList","  else","    FListChanged := True;",end;
      Count=0
    Prop=GtkSList
      PropType=Property
      PascalType=PGSList
      GtkName=GetGtkSListProp
      Code=begin,"  result := GetGtkSList (True);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetGtkSListProp
      WriteCode=begin,"  FGSlist := TheValue;","  if FNotUpdating then","    BuildFromGtkSList","  else","    FSListChanged := True;",end;
      Count=0
  Object=WidgetGroup
    Inherit=Group
    Count=6
    Prop=GetData
      PropType=Function
      PascalType=pointer
      Code=begin,"  result := items[index].FgtkObject;",end;
      Override
      Count=1
      Param=index
        PascalType=integer
    Prop=UnGetData
      PropType=Function
      PascalType=pointer
      Code=begin,"  result := GetPascalInstance (PGtkObject(Data));",end;
      Override
      Count=1
      Param=data
        PascalType=pointer
    Prop=AddToContainer
      PropType=Procedure
      Code="var r : integer;",begin,"  for r := 0 to pred(count) do","    Container.Add (items[r]);",end;
      Count=1
      Param=Container
        PascalType=TFPgtkContainer
    Prop=PackInBox
      PropType=Procedure
      Code="var r : integer;",begin,"  if AtStart then","    for r := 0 to pred(Count) do","      box.PackStart (items[r], expanding, fill, padding)","  else","    for r := pred(Count) downto 0 do","      box.PackEnd (items[r], expanding, fill, padding);",end;
      Count=5
      Param=box
        PascalType=TFPgtkBox
      Param=AtStart
        PascalType=boolean
      Param=Expanding
        PascalType=boolean
      Param=Fill
        PascalType=boolean
      Param=Padding
        PascalType=integer
    Prop=Items
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=GetItem
      Code=begin,"  result := TFPgtkWidget (Inherited items[index]);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetItem
      WriteCode=begin,"  inherited items[index] := TheValue;",end;
      Count=1
      Param=Index
        PascalType=integer
    Prop=Tooltips
      PropType=Property
      PascalType=string
      Code=begin,"  result := items[index].Tooltip;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  Items[index].Tooltip := TheValue;",end;
      Count=1
      Param=index
        PascalType=integer
  Object=Misc
    Inherit=Widget
    GtkFuncName=misc
    Count=6
    Prop=SetAlignment
      PropType=Procedure
      GtkName=set_alignment
      Count=2
      Param=x
        PascalType=gfloat
      Param=y
        PascalType=gfloat
    Prop=SetPadding
      PropType=Procedure
      GtkName=set_padding
      Count=2
      Param=x
        PascalType=word
      Param=y
        PascalType=word
    Prop=XAlign
      PropType=Property
      PascalType=gfloat
      GtkName=XAlign
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  SetAlignment (TheValue, YAlign);",end;
      Count=0
    Prop=YAlign
      PropType=Property
      PascalType=gfloat
      GtkName=YAlign
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  SetAlignment (XAlign, TheValue);",end;
      Count=0
    Prop=XPad
      PropType=Property
      PascalType=word
      GtkName=XPad
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  SetPadding (TheValue, YPad);",end;
      Count=0
    Prop=YPad
      PropType=Property
      PascalType=word
      GtkName=YPad
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  SetPadding (XPad, TheValue);",end;
      Count=0
  Object=Label
    Inherit=Misc
    GtkFuncName=label
    CreateParams=null
    CreateObject
    Count=7
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  Text := aText;","  SetAlignment (0.0, 0.5);",end;
      Count=1
      Param=aText
        PascalType=string
    Prop=Text
      PropType=Property
      PascalType=string
      GtkName=TheLabel
      ReadFuncType=ObjField
      WriteGtkName=text
      WriteConvert
      Count=0
    Prop=Pattern
      PropType=Property
      PascalType=string
      GtkName=pattern
      ReadConvert
      ReadFuncType=ObjField
      WriteGtkName=pattern
      WriteConvert
      Count=0
    Prop=Justify
      PropType=Property
      PascalType=TGtkJustification
      GtkName=jtype
      ReadFuncType=ObjFunc
      WriteGtkName=justify
      Count=0
    Prop=LineWrap
      PropType=Property
      PascalType=boolean
      GtkName=wrap
      ReadFuncType=ObjField
      WriteGtkName=line_wrap
      Count=0
    Prop=ParseUline
      PropType=Function
      PascalType=guint
      GtkName=parse_uline
      Count=1
      Param=aText
        Convert
        PascalType=string
    Prop=LabelClass
      PropType=TypeDeclaration
      Code="  TFPgtkLabelClass = class of TFPgtkLabel;"
      Count=0
  Object=AccelLabel
    Inherit=Label
    GtkFuncName=accel_label
    CreateParams=''
    CreateObject
    Count=3
    Prop=AccelWidget
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=accel_widget
      ReadConvert
      ReadFuncType=ObjField
      WriteGtkName=accel_widget
      WriteConvert
      Count=0
    Prop=AccelText
      PropType=Function
      PascalType=string
      Code=begin,"  result := TheGtkObject^.accel_string;",end;
      Count=0
    Prop=Refetch
      PropType=Procedure
      GtkName=refetch
      Count=0
  Object=TipsQuery
    Inherit=Label
    GtkFuncName=tips_query
    CreateObject
    Count=0
  Object=Arrow
    Inherit=Misc
    GtkFuncName=arrow
    CreateParams=GTK_ARROW_LEFT,GTK_SHADOW_NONE
    CreateObject
    Count=4
    Prop=ArrowType
      PropType=Property
      PascalType=TGtkArrowType
      Code=begin,"  result := TGtkArrowType (TheGtkObject^.arrow_type);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_arrow_set (TheGtkObject, TheValue, ShadowType);",end;
      Count=0
    Prop=ShadowType
      PropType=Property
      PascalType=TGtkShadowType
      Code=begin,"  result := TGtkShadowtype (TheGtkObject^.shadow_type);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_arrow_set (TheGtkObject, ArrowType, TheValue);",end;
      Count=0
    Prop=SetTypes
      PropType=Procedure
      GtkName=set
      Count=2
      Param=AnArrowType
        PascalType=TGtkArrowType
      Param=AShadowtype
        PascalType=TGtkShadowType
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  SetTypes (AnArrowType, AShadowType);",end;
      Count=2
      Param=AnArrowType
        PascalType=TGtkArrowType
      Param=AShadowType
        PascalType=TGtkShadowType
  Object=Image
    Inherit=Misc
    GtkFuncName=image
    CreateParams=FImage, FMask
    CreateObject
    Count=7
    Prop=FImage
      PropType=Field
      PascalType=PGdkImage
      Count=0
    Prop=FMask
      PropType=Field
      PascalType=PGdkBitMap
      Count=0
    Prop=Image
      PropType=Property
      PascalType=PGdkImage
      GtkName=GetImageProp
      Code="var m : PGdkBitmap;",begin,"  gtk_image_get (TheGtkObject, @result, @m);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetImageProp
      WriteCode=begin,"  gtk_Image_set (TheGtkObject, TheValue, nil);",end;
      Count=0
    Prop=Mask
      PropType=Property
      PascalType=PGdkBitMap
      Code="var p : PGdkPixmap;",begin,"  gtk_image_get (TheGtkObject, @p, @result);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_image_set (TheGtkObject, Image, TheValue);",end;
      Count=0
    Prop=SetImage
      PropType=Procedure
      GtkName=set
      Count=2
      Param=anImage
        PascalType=PGdkImage
      Param=aMask
        PascalType=PGdkBitmap
    Prop=Create
      PropType=Constructor
      Code=begin,"  FImage := anImage;","  FMask := aMask;","  inherited create;",end;
      Count=2
      Param=anImage
        PascalType=PGdkImage
      Param=aMask
        PascalType=PGdkBitmap
    Prop=NewImage
      PropType=HelperFunc
      PascalType=PGdkImage
      Code=begin,"  result := gdk_image_new (gdk_image_fastest, gdk_visual_get_system, aWidth, aHeight);",end;
      Count=2
      Param=aWidth
        PascalType=integer
      Param=aHeight
        PascalType=integer
  Object=Pixmap
    Inherit=Misc
    GtkFuncName=pixmap
    CreateParams=FPixMap, FMask
    CreateObject
    Count=20
    Prop=EmptyBitMap
      PropType=Declarations
      Section=Private
      Code=var,"  EmptyBitmap : PGdkPixmap;"
      Count=0
    Prop=PStringArray
      PropType=TypeDeclaration
      Code="  TStringArray = array[0..32000] of pgchar;","  PStringArray = ^TStringArray;"
      Count=0
    Prop=StringsToPPgchar
      PropType=HelperFunc
      PascalType=PPgchar
      Code="var r : integer;","    a : PStringArray;",begin,"  getmem (a, sizeof (pgchar) * Data.count);","  for r := 0 to Data.Count-1 do","    a^[r] := pchar (Data[r]);","  result := ppgchar (a);",end;
      Count=1
      Param=Data
        PascalType=TStrings
    Prop=ArrayToPPgchar
      PropType=HelperFunc
      PascalType=PPgchar
      Code="var r,t : integer;","    a : PStringArray;",begin,"  getmem (a, sizeof (pgchar) * (high(data)-low(data)+1));","  t := 0;","  for r := low(data) to high(data) do","    begin","    a^[r] := pchar (data[t]);","    inc (t);","    end;","  result := ppgchar (a);",end;
      Count=1
      Param=Data
        PascalType=array of string
    Prop=BuildInsensitive
      PropType=Property
      PascalType=longbool
      GtkName=build_insensitive
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=build_insensitive
      WriteConvert
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  if not assigned (EmptyBitmap) then","    EmptyBitmap := gdk_pixmap_new (null, 1, 1, 1);","  FPixMap := EmptyBitmap;","  FMask := PGdkBitmap (EmptyBitmap);","  inherited create;",end;
      Count=0
    Prop=CreateFromFile
      PropType=Constructor
      Code=begin,"  FPixMap := gdk_pixmap_create_from_xpm (ConvertToGtkWidget(Window)^.window, @FMask, nil, pgchar(Filename));","  inherited create;",end;
      Count=2
      Param=Filename
        PascalType=string
      Param=Window
        PascalType=TFPgtkWidget
    Prop=CreateFromStrings
      PropType=Constructor
      Code="var ppdata : ppgchar;",begin,"  ppdata := StringsToPPgchar(Data);","  FPixMap := gdk_pixmap_create_from_xpm_d (ConvertToGtkWidget(Window)^.window, @FMask, nil, ppdata);","  inherited create;","  freemem (ppdata, sizeof (pgchar) * Data.count);",end;
      Count=2
      Param=Data
        PascalType=TStrings
      Param=Window
        PascalType=TFPgtkWidget
    Prop=CreateFromText
      PropType=Constructor
      Code="var l : TStrings;",begin,"  l := TStringList.Create;","  try","    l.Text := data;","    CreateFromStrings (l, Window);","  finally","    l.Free;","  end;",end;
      Count=2
      Param=Data
        PascalType=string
      Param=Window
        PascalType=TFPgtkWidget
    Prop=FPixMap
      PropType=Field
      PascalType=PGdkPixmap
      Count=0
    Prop=FMask
      PropType=Field
      PascalType=PGdkBitMap
      Count=0
    Prop=PixMap
      PropType=Property
      PascalType=PGdkPixMap
      GtkName=GetPixmapProp
      Code="var m : PGdkBitmap;",begin,"  gtk_pixmap_get (TheGtkObject, @result, @m);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetPixmapProp
      WriteCode=begin,"  gtk_pixmap_set (TheGtkObject, TheValue, nil);",end;
      Count=0
    Prop=Mask
      PropType=Property
      PascalType=PGdkBitMap
      Code="var p : PGdkPixmap;",begin,"  gtk_pixmap_get (TheGtkObject, @p, @result);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_pixmap_set (TheGtkObject, Pixmap, TheValue);",end;
      Count=0
    Prop=SetPixmap
      PropType=Procedure
      GtkName=set
      Count=2
      Param=aPixmap
        PascalType=PGdkPixMap
      Param=aMask
        PascalType=PGdkBitmap
    Prop=GetPixmap
      PropType=Procedure
      Code="var P:PGdkPixmap; ","   M:PGdkBitmap;",begin,"  gtk_pixmap_get (TheGtkObject, @p, @m);","  apixmap := p;","  amask := m;",end;
      Count=2
      Param=aPixmap
        PascalType=PGdkPixmap
        ParamType=Var
      Param=aMask
        PascalType=PGdkBitmap
        ParamType=Var
    Prop=LoadFromFile
      PropType=Procedure
      Code="var bm : PGdkBitmap;","    pm : PGdkPixmap;",begin,"  pm := gdk_pixmap_colormap_create_from_xpm (nil, Colormap, @bm, nil, pgchar(Filename));","  SetPixmap (pm, bm);",end;
      Count=1
      Param=Filename
        PascalType=string
    Prop=LoadFromStrings
      PropType=Procedure
      Code="var bm : PGdkBitmap;","    pm : PGdkPixmap;","    ppdata : ppgchar;",begin,"  ppdata := StringsToPPgchar(Data);","  pm := gdk_pixmap_colormap_create_from_xpm_d (nil, Colormap, @bm, nil, ppdata);","  SetPixmap (pm, bm);","  freemem (ppdata, sizeof (pgchar) * Data.count);",end;
      Count=1
      Param=data
        PascalType=TStrings
    Prop=LoadFromText
      PropType=Procedure
      Code="var l : TStrings;",begin,"  l := TStringList.Create;","  try","    l.Text := data;","    LoadFromStrings (l);","  finally","    l.Free;","  end;",end;
      Count=1
      Param=data
        PascalType=string
    Prop=LoadFromArray
      PropType=Procedure
      Code="var bm : PGdkBitmap;","    pm : PGdkPixmap;","    ppdata : ppgchar;",begin,"  ppdata := ArrayToPPgchar(Data);","  pm := gdk_pixmap_colormap_create_from_xpm_d (nil, Colormap, @bm, nil, ppdata);","  SetPixmap (pm, bm);","  freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
      Count=1
      Param=data
        PascalType=array of string
    Prop=CreateGdkPixmap
      PropType=HelperProc
      Code="var ppdata : ppgchar;",begin,"  ppdata := ArrayToPPgchar(Data);","  ThePixmap := gdk_pixmap_create_from_xpm_d (aWindow, @TheMask, nil, ppdata);","  freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
      Count=4
      Param=ThePixmap
        PascalType=PGdkPixmap
        ParamType=Var
      Param=TheMask
        PascalType=PGdkBitmap
        ParamType=Var
      Param=aWindow
        PascalType=PGdkWindow
      Param=data
        PascalType=array of string
  Object=Container
    Inherit=Widget
    GtkFuncName=container
    Count=19
    Prop=Border
      PropType=Property
      PascalType=integer
      GtkName=border_width
      ReadFuncType=ObjFunc
      WriteGtkName=border_width
      Count=0
    Prop=Add
      PropType=Procedure
      Code=begin,"  gtk_container_add (TheGtkObject, ConvertToGtkWidget(AWidget));","  if IsVisible then","    AWidget.Show;",end;
      Overload
      Count=2
      Param=AWidget
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
    Prop=Add
      PropType=Procedure
      Code=begin,"  gtk_container_add (TheGtkObject, ConvertToGtkWidget(AWidget));","  AWidget.Show;",end;
      Overload
      Count=1
      Param=AWidget
        PascalType=TFPgtkWidget
    Prop=Remove
      PropType=Procedure
      GtkName=remove
      Count=1
      Param=AWidget
        Convert
        PascalType=TFPgtkWidget
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  FChildren := TFPgtkWidgetGroup.Create;",end;
      Count=0
    Prop=Destroy
      PropType=Destructor
      Code=begin,"  if assigned(FChildren) then","    FChildren.Free;","  inherited destroy;",end;
      Override
      Count=0
    Prop=Children
      PropType=Property
      PascalType=TFPgtkWidgetGroup
      Code=begin,"  FChildren.GtkList := gtk_container_children (TheGtkObject);","  result := FChildren;",end;
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=FChildren
      PropType=Field
      PascalType=TFPgtkWidgetGroup
      Count=0
    Prop=Focus
      PropType=Procedure
      GtkName=focus
      Count=1
      Param=Direction
        PascalType=TGtkDirectionType
    Prop=FocusChild
      PropType=Procedure
      GtkName=set_focus_child
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=RegisterToplevel
      PropType=Procedure
      GtkName=register_toplevel
      Count=0
    Prop=UnregisterToplevel
      PropType=Procedure
      GtkName=unregister_toplevel
      Count=0
    Prop=ResizeChildren
      PropType=Procedure
      GtkName=resize_children
      Count=0
    Prop=DirectionFunctionSignal
      PropType=SignalType
      PascalType=TGtkDirectionType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=Direction
        PascalType=TGtkDirectionType
      Param=data
        PascalType=pointer
    Prop=Add
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=add
      Count=0
    Prop=Remove
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=remove
      Count=0
    Prop=CheckResize
      PropType=Signal
      PascalType=Signal
      GtkName=check-resize
      Count=0
    Prop=Focus
      PropType=Signal
      PascalType=DirectionFunctionSignal
      GtkName=focus
      Count=0
    Prop=SetFocusChild
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=set-focus
      Count=0
  Object=Bin
    Inherit=Container
    GtkFuncName=bin
    Count=1
    Prop=Child
      PropType=Property
      Section=Protected
      PascalType=TFPgtkWidget
      GtkName=Child
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  Add (TheValue);",end;
      Count=0
  Object=Alignment
    Inherit=Bin
    GtkFuncName=alignment
    CreateParams=0,0,1,1
    Count=1
    Prop=Configure
      PropType=Procedure
      GtkName=set
      Count=4
      Param=anXAlign
        PascalType=gfloat
      Param=anYAlign
        PascalType=gfloat
      Param=anXScale
        PascalType=gfloat
      Param=anYScale
        PascalType=gfloat
  Object=Frame
    Inherit=Bin
    GtkFuncName=frame
    CreateParams=nil
    CreateObject
    Count=3
    Prop=Text
      PropType=Property
      PascalType=string
      GtkName=thelabel
      ReadConvert
      ReadFuncType=ObjField
      WriteGtkName=label
      WriteConvert
      Count=0
    Prop=Alignment
      PropType=Property
      PascalType=gfloat
      GtkName=label_xalign
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_frame_set_label_align (ThegtkObject, TheValue, 0.0);",end;
      Count=0
    Prop=ShadowType
      PropType=Property
      PascalType=TgtkShadowType
      GtkName=shadow_type
      ReadFuncType=ObjField
      WriteGtkName=shadow_type
      Count=0
  Object=AspectFrame
    Inherit=Frame
    GtkFuncName=aspect_frame
    CreateParams=nil,0,0,1,1
    CreateObject
    Count=1
    Prop=Configure
      PropType=Procedure
      GtkName=set
      Count=4
      Param=anXAlign
        PascalType=gfloat
      Param=anYAlign
        PascalType=gfloat
      Param=Ratio
        PascalType=gfloat
      Param=ObeyChild
        Convert
        PascalType=longbool
  Object=Button
    Inherit=Bin
    GtkFuncName=button
    CreateObject
    Count=23
    Prop=LabelClass
      PropType=Function
      Section=Protected
      PascalType=TFPgtkLabelClass
      Code=begin,"  result := TFPgtkLabel;",end;
      Virtual
      Count=0
    Prop=CreateLabel
      PropType=Procedure
      Section=Private
      Code=begin,"if not assigned (FLabel) then","  begin","  FLabel := LabelClass.Create ('');","  with FLabel do","    begin","    AskNotification (Self);","    FAccelKey := ParseULine (aText);","    end;","  if assigned(AddContainer) then","    AddContainer.Add (FLabel)","  else","    Add (FLabel);","  LabelCreated;  ","  end;",end;
      Count=1
      Param=aText
        PascalType=string
    Prop=NotifyDestroy
      PropType=Procedure
      Section=Protected
      Code=begin,"  inherited;","  if AnObject = FLabel then","    FLabel := nil;",end;
      Override
      Count=1
      Param=AnObject
        PascalType=TFPgtkObject
    Prop=Clicked
      PropType=Signal
      PascalType=Signal
      GtkName=Clicked
      Count=0
    Prop=Pressed
      PropType=Signal
      PascalType=Signal
      GtkName=Pressed
      Count=0
    Prop=Released
      PropType=Signal
      PascalType=Signal
      GtkName=Released
      Count=0
    Prop=Enter
      PropType=Signal
      PascalType=Signal
      GtkName=Enter
      Count=0
    Prop=Leave
      PropType=Signal
      PascalType=Signal
      GtkName=Leave
      Count=0
    Prop=Clicked
      PropType=Procedure
      GtkName=Clicked
      Count=0
    Prop=Pressed
      PropType=Procedure
      GtkName=Pressed
      Count=0
    Prop=Released
      PropType=Procedure
      GtkName=Released
      Count=0
    Prop=Enter
      PropType=Procedure
      GtkName=Enter
      Count=0
    Prop=Leave
      PropType=Procedure
      GtkName=Leave
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  FAddContainer := nil;",end;
      Count=0
    Prop=CreateWithLabel
      PropType=Constructor
      Code=begin,"  create;","  Text := aText;",end;
      Overload
      Count=1
      Param=aText
        PascalType=string
    Prop=CreateWithLabel
      PropType=Constructor
      Code=begin,"  create;","  Text := aText;","  if (FAccelKey <> 0) and assigned(AccelGroup) then","    AcceleratorAdd (AccelGroup, sgClicked, FAccelKey, DefaultButtonModifiers, GTK_ACCEL_Visible);",end;
      Overload
      Count=2
      Param=aText
        PascalType=string
      Param=AccelGroup
        PascalType=PGtkAccelGroup
    Prop=TheLabel
      PropType=Property
      PascalType=TFPgtkLabel
      GtkName=FLabel
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
    Prop=Text
      PropType=Property
      PascalType=string
      Code=begin,"  if assigned (FLabel) then","    result := FLabel.Text","  else","    result := '';",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  if assigned (FLabel) then","    FLabel.Text := TheValue","  else","    if TheValue <> '' then","      CreateLabel (TheValue);",end;
      Count=0
    Prop=ReliefStyle
      PropType=Property
      PascalType=TGtkReliefStyle
      GtkName=relief
      WriteGtkName=relief
      Count=0
    Prop=AddContainer
      PropType=Property
      PascalType=TFPgtkContainer
      GtkName=FAddContainer
      ReadFuncType=Field
      WriteProcType=Field
      WriteGtkName=FAddContainer
      Count=0
    Prop=LabelCreated
      PropType=Procedure
      Section=Protected
      Code=begin,"  FLabel.setalignment (0.5,0.5);",end;
      Virtual
      Count=0
    Prop=AccelKey
      PropType=Property
      PascalType=guint
      GtkName=FAccelKey
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
    Prop=New
      PropType=Declarations
      Code=const,"  DefaultButtonModifiers : TGdkModifierType = GDK_MOD1_MASK;"
      Count=0
  Object=ToggleButton
    Inherit=Button
    GtkFuncName=toggle_button
    CreateObject
    Count=4
    Prop=Toggled
      PropType=Signal
      PascalType=Signal
      GtkName=toggled
      Count=0
    Prop=Toggled
      PropType=Procedure
      GtkName=toggled
      Count=0
    Prop=Active
      PropType=Property
      PascalType=boolean
      GtkName=active
      WriteGtkName=active
      Count=0
    Prop=DrawIndicator
      PropType=Property
      PascalType=boolean
      GtkName=draw_indicator
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=ObjFunc
      WriteGtkName=draw_indicator
      WriteConvert
      Count=0
  Object=CheckButton
    Inherit=ToggleButton
    GtkFuncName=check_button
    CreateObject
    Count=0
  Object=RadioButton
    Inherit=CheckButton
    GtkFuncName=radio_button
    Count=4
    Prop=FGroup
      PropType=Field
      PascalType=TFPgtkRadioButtonGroup
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  FGroup := AGroup;","  inherited create;",end;
      Count=1
      Param=AGroup
        PascalType=TFPgtkRadioButtonGroup
    Prop=CreateWithLabel
      PropType=Constructor
      Code=begin,"  FGroup := AGroup;","  inherited CreateWithLabel (aText);",end;
      Count=2
      Param=AGroup
        PascalType=TFPgtkRadioButtonGroup
      Param=aText
        PascalType=string
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code=begin,"  if not assigned (FGroup) then","    FGroup := TFPgtkRadioButtonGroup.Create;","  TheGtkWidget := gtk_radio_button_new (FGroup.GtkSList);","  FGroup.GtkSList := gtk_radio_button_group (TheGtkObject);",end;
      Override
      Count=0
  Object=RadioButtonGroup
    Inherit=WidgetGroup
    Count=5
    Prop=Items
      PropType=Property
      PascalType=TFPgtkRadioButton
      GtkName=GetItem
      Code=begin,"  result := TFPgtkRadioButton(Inherited items[index]);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetItem
      WriteCode=begin,"  inherited items[index] := TheValue;",end;
      Count=1
      Param=index
        PascalType=integer
    Prop=ActiveButtonText
      PropType=Function
      PascalType=string
      Code=begin,"  result := ActiveButton.Text;",end;
      Count=0
    Prop=ActiveButtonIndex
      PropType=Function
      PascalType=integer
      Code=begin,"  Result := pred(count);","  while (Result >= 0) and (not items[Result].Active) do","    dec (Result);",end;
      Count=0
    Prop=ActiveButton
      PropType=Function
      PascalType=TFPgtkRadioButton
      Code="var r : integer;",begin,"  r := ActiveButtonIndex;","  if r >= 0 then","    result := items[r]","  else","    result := nil;",end;
      Count=0
    Prop=RadioButtonGroupCreateFromStrings
      PropType=HelperFunc
      PascalType=TFPgtkRadioButtonGroup
      Code="var r : integer;","    b : TFPgtkRadioButton;",begin,"  result := TFPgtkRadioButtonGroup.Create;","  result.BeginUpdate;","  for r := TheItems.count-1 downto 0 do","    begin","    b := TFPgtkRadioButton.CreateWithLabel (result, TheItems[r]);","    if assigned(toggledfunction) then","      b.connecttoggled (ToggledFunction, IntToPointer(r));","    end;","  b.active := true;","  result.EndUpdate;",end;
      Count=2
      Param=TheItems
        PascalType=TStrings
      Param=ToggledFunction
        PascalType=TFPgtkSignalFunction
  Object=OptionMenu
    Inherit=Button
    GtkFuncName=option_menu
    CreateObject
    Count=4
    Prop=Menu
      PropType=Property
      PascalType=TFPgtkMenu
      GtkName=menu
      ReadConvert
      WriteProcType=Proc
      WriteGtkName=setmenu
      WriteCode=begin,"  gtk_option_menu_set_menu(TheGtkObject, ConvertToGtkWidget(TheValue));",end;
      Count=0
    Prop=RemoveMenu
      PropType=Procedure
      GtkName=remove_menu
      Count=0
    Prop=SetHistory
      PropType=Procedure
      GtkName=set_history
      Count=1
      Param=index
        PascalType=integer
    Prop=Clear
      PropType=Procedure
      Code="var w : TFPgtkWidget;",begin,"  w := Menu;","  if assigned(w) then","    begin","    w := TFPgtkMenu(w).Active;","    if assigned (w) then","      TFPgtkItem(w).Deselect;","    end;",end;
      Count=0
  Object=Item
    Inherit=Bin
    GtkFuncName=item
    Count=17
    Prop=LabelClass
      PropType=Function
      Section=Protected
      PascalType=TFPgtkLabelClass
      Code=begin,"  result := TFPgtkLabel;",end;
      Virtual
      Count=0
    Prop=CreateLabel
      PropType=Procedure
      Section=Private
      Code=begin,"  if not assigned (FLabel) then","    begin","    FLabel := LabelClass.Create ('');","    with FLabel do","      begin","      AskNotification (Self);","      FAccelKey := ParseULine (aText);","      end;","    if assigned(AddContainer) then","      AddContainer.Add (FLabel)","    else","      Add (FLabel);","    LabelCreated;","    end;",end;
      Count=1
      Param=aText
        PascalType=string
    Prop=NotifyDestroy
      PropType=Procedure
      Section=Protected
      Code=begin,"  inherited;","  if AnObject = FLabel then","    FLabel := nil;",end;
      Override
      Count=1
      Param=AnObject
        PascalType=TFPgtkObject
    Prop=Select
      PropType=Signal
      PascalType=Signal
      GtkName=Select
      Count=0
    Prop=Deselect
      PropType=Signal
      PascalType=Signal
      GtkName=Deselect
      Count=0
    Prop=Toggle
      PropType=Signal
      PascalType=Signal
      GtkName=Toggle
      Count=0
    Prop=Select
      PropType=Procedure
      GtkName=Select
      Count=0
    Prop=Deselect
      PropType=Procedure
      GtkName=Deselect
      Count=0
    Prop=Toggle
      PropType=Procedure
      GtkName=Toggle
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited;","  FAddContainer := nil;",end;
      Count=0
    Prop=CreateWithLabel
      PropType=Constructor
      Code=begin,"  inherited create;","  Text := aText;",end;
      Count=1
      Param=aText
        PascalType=string
    Prop=TheLabel
      PropType=Property
      PascalType=TFPgtkLabel
      GtkName=FLabel
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
    Prop=Text
      PropType=Property
      PascalType=string
      Code=begin,"  if assigned (FLabel) then","    result := FLabel.Text","  else","    result := '';",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  if assigned (FLabel) then","    FLabel.Text := TheValue","  else","    if TheValue <> '' then","      CreateLabel (TheValue);",end;
      Count=0
    Prop=ItemClass
      PropType=TypeDeclaration
      Code="  TFPgtkItemClass = class of TFPgtkItem;"
      Count=0
    Prop=AddContainer
      PropType=Property
      PascalType=TFPgtkContainer
      GtkName=FAddContainer
      ReadFuncType=Field
      WriteProcType=Field
      WriteGtkName=FAddContainer
      Count=0
    Prop=LabelCreated
      PropType=Procedure
      Section=Protected
      Code=begin,end;
      Virtual
      Count=0
    Prop=AccelKey
      PropType=Property
      PascalType=guint
      GtkName=FAccelKey
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
  Object=ItemGroup
    Inherit=WidgetGroup
    Count=8
    Prop=Items
      PropType=Property
      PascalType=TFPgtkItem
      GtkName=GetItem
      Code=begin,"  result := TFPgtkItem (inherited items[index]);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetItem
      WriteCode=begin,"  inherited items[index] := TheValue;",end;
      Count=1
      Param=index
        PascalType=integer
    Prop=FillFromList
      PropType=Procedure
      Code="var r : integer;","    i : TFPgtkItem;",begin,"  BeginUpdate;","  for r := 0 to aList.count-1 do","    begin","    i := FItemClass.CreateWithLabel (aList[r]);","    add (i);","    i.Show;","    end;","  EndUpdate;",end;
      Count=1
      Param=aList
        PascalType=TStrings
    Prop=FillFromCommaText
      PropType=Procedure
      Code="var l : TStrings;",begin,"  l := TStringList.Create;","  try","    l.commatext := aList;","    FillFromList (l);","  finally","    l.Free;","  end;",end;
      Count=1
      Param=aList
        PascalType=string
    Prop=FillFromArray
      PropType=Procedure
      Code="var r : integer;","    l : TStrings;",begin,"  l := TStringlist.Create;","  try","    for r := low (aList) to high(aList) do","      l.Add (aList[r]);","    FillFromList (l);","  finally","    l.Free;","  end;",end;
      Count=1
      Param=aList
        PascalType=array of string
    Prop=ItemClass
      PropType=Property
      PascalType=TFPgtkItemClass
      ReadFuncType=Field
      WriteProcType=Field
      Count=0
    Prop=SignalConnect
      PropType=Procedure
      Code="var r : integer;",begin,"  if assigned (Proc) then","    for r := 0 to count-1 do","      Items[r].SignalConnect (Signal, proc, data);",end;
      Count=3
      Param=Signal
        PascalType=string
      Param=proc
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=create
      PropType=Constructor
      Code=begin,"  inherited create;","  FItemClass := AnItemClass;",end;
      Count=1
      Param=AnItemClass
        PascalType=TFPgtkItemClass
    Prop=AddTextItem
      PropType=Function
      PascalType=TFPgtkItem
      Code=begin,"  result := FItemClass.CreateWithLabel (aText);","  Add (result);","  result.Show;",end;
      Count=1
      Param=aText
        PascalType=string
  Object=MenuItem
    Inherit=Item
    GtkFuncName=menu_item
    CreateObject
    Count=14
    Prop=Activate
      PropType=Signal
      PascalType=signal
      GtkName=activate
      Count=0
    Prop=ActivateItem
      PropType=Signal
      PascalType=signal
      GtkName=activate-item
      Count=0
    Prop=Activate
      PropType=Procedure
      GtkName=activate
      Count=0
    Prop=SetSubMenu
      PropType=Procedure
      GtkName=Set_submenu
      Count=1
      Param=aSubMenu
        Convert
        PascalType=TFPgtkWidget
    Prop=RemoveSubMenu
      PropType=Procedure
      GtkName=remove_submenu
      Count=0
    Prop=Configure
      PropType=Procedure
      Code=begin,"  gtk_menu_item_configure (TheGtkObject, ord(ShowToggleIndicator), ord(ShowSubmenuIndicator));",end;
      Count=2
      Param=ShowToggleIndicator
        Convert
        PascalType=boolean
      Param=ShowSubmenuIndicator
        Convert
        PascalType=boolean
    Prop=RightJustify
      PropType=Procedure
      GtkName=right_justify
      Count=0
    Prop=Placement
      PropType=Property
      PascalType=TGtkSubmenuPlacement
      Code=begin,"  result := TGtkSubmenuPlacement(submenu_placement(TheGtkObject^));",end;
      ReadConvert
      ReadFuncType=Proc
      WriteGtkName=placement
      Count=0
    Prop=ToggleIndicator
      PropType=Property
      PascalType=boolean
      GtkName=show_toggle_indicator
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  Configure (TheValue, SubMenuIndicator);",end;
      Count=0
    Prop=SubMenuIndicator
      PropType=Property
      PascalType=boolean
      GtkName=show_submenu_indicator
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  configure (ToggleIndicator, TheValue);",end;
      Count=0
    Prop=JustifyRight
      PropType=Property
      PascalType=boolean
      GtkName=right_justify
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=ObjFunc
      WriteGtkName=right_justify
      WriteConvert
      Count=0
    Prop=SubMenu
      PropType=Property
      PascalType=TFPgtkMenuShell
      GtkName=submenu
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteGtkName=SetPropSubMenu
      WriteCode=begin,"  SetSubMenu (TheValue);",end;
      Count=0
    Prop=LabelClass
      PropType=Function
      Section=Protected
      PascalType=TFPgtkLabelClass
      Code=begin,"  result := TFPgtkAccelLabel;",end;
      Override
      Count=0
    Prop=LabelCreated
      PropType=Procedure
      Section=Protected
      Code=begin,"  with (TheLabel as TFPgtkAccelLabel) do","    AccelWidget := Self;",end;
      Override
      Count=0
  Object=CheckMenuItem
    Inherit=MenuItem
    GtkFuncName=check_menu_item
    CreateObject
    Count=4
    Prop=Toggled
      PropType=Signal
      PascalType=signal
      GtkName=toggled
      Count=0
    Prop=Toggled
      PropType=Procedure
      GtkName=toggled
      Count=0
    Prop=Active
      PropType=Property
      PascalType=boolean
      GtkName=active
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=active
      Count=0
    Prop=ShowToggle
      PropType=Property
      PascalType=boolean
      GtkName=always_show_toggle
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=show_toggle
      Count=0
  Object=RadioMenuItem
    Inherit=CheckMenuItem
    GtkFuncName=radio_menu_item
    Count=4
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code=begin,"  if not assigned(FGroup) then","    FGroup := TFPgtkRadioMenuGroup.Create;","  TheGtkWidget := gtk_radio_menu_item_new (FGroup.GtkSList);","  FGroup.GtkSList := gtk_radio_menu_item_group (TheGtkObject);",end;
      Override
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  FGroup := AGroup;","  inherited create;",end;
      Count=1
      Param=AGroup
        PascalType=TFPgtkRadioMenuGroup
    Prop=CreateWithLabel
      PropType=Constructor
      Code=begin,"  FGroup := Agroup;","  inherited CreateWithLabel (aText);",end;
      Count=2
      Param=Agroup
        PascalType=TFPgtkRadioMenuGroup
      Param=aText
        PascalType=string
    Prop=Group
      PropType=Property
      PascalType=TFPgtkRadioMenuGroup
      GtkName=FGroup
      ReadFuncType=Field
      WriteProcType=NotImplemented
      WriteConvert
      Count=0
  Object=RadioMenuGroup
    Inherit=ItemGroup
    Count=5
    Prop=Items
      PropType=Property
      PascalType=TFPgtkRadioMenuItem
      GtkName=GetItem
      Code=begin,"  result := TFPgtkRadioMenuItem(Inherited items[index]);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetItem
      WriteCode=begin,"  inherited items[index] := TheValue;",end;
      Count=1
      Param=index
        PascalType=integer
    Prop=ActiveMenuText
      PropType=Function
      PascalType=string
      Code=begin,"  result := ActiveMenu.Text;",end;
      Count=0
    Prop=ActiveMenuIndex
      PropType=Function
      PascalType=integer
      Code=begin,"  Result := pred(count);","  while (Result >= 0) and (not items[Result].Active) do","    dec (Result);",end;
      Count=0
    Prop=ActiveMenu
      PropType=Function
      PascalType=TFPgtkRadioMenuItem
      Code="var r : integer;",begin,"  r := ActiveMenuIndex;","  if r >= 0 then","    result := items[r]","  else","    result := nil;",end;
      Count=0
    Prop=create
      PropType=Constructor
      Code=begin,"  inherited create (TFPgtkRadioMenuItem);",end;
      Count=0
  Object=TearOffMenuItem
    Inherit=MenuItem
    GtkFuncName=tearoff_menu_item
    CreateObject
    Count=0
  Object=ListItem
    Inherit=Item
    GtkFuncName=list_item
    CreateObject
    Count=14
    Prop=ScrollSignal
      PropType=SignalType
      Count=4
      Param=Sender
        Convert
        PascalType=TFPgtkObject
      Param=ScrollType
        PascalType=TgtkScrollType
      Param=position
        PascalType=gfloat
      Param=data
        PascalType=pointer
    Prop=ScrollBooleanSignal
      PropType=SignalType
      Count=5
      Param=Sender
        Convert
        PascalType=TFPgtkObject
      Param=ScrolType
        PascalType=TgtkScrollType
      Param=Position
        PascalType=gfloat
      Param=AutoStartSelection
        PascalType=boolean
      Param=data
        PascalType=pointer
    Prop=ToggleFocusRow
      PropType=Signal
      PascalType=Signal
      GtkName=toggle-focus-row
      Count=0
    Prop=SelectAll
      PropType=Signal
      PascalType=Signal
      GtkName=select-all
      Count=0
    Prop=UnselectAll
      PropType=Signal
      PascalType=Signal
      GtkName=unselect-all
      Count=0
    Prop=UndoSelection
      PropType=Signal
      PascalType=Signal
      GtkName=undo-selection
      Count=0
    Prop=StartSelection
      PropType=Signal
      PascalType=Signal
      GtkName=start-selection
      Count=0
    Prop=EndSelection
      PropType=Signal
      PascalType=Signal
      GtkName=end-selection
      Count=0
    Prop=ToggleAddMode
      PropType=Signal
      PascalType=Signal
      GtkName=toggle-add-mode
      Count=0
    Prop=ExtendSelection
      PropType=Signal
      PascalType=ScrollBooleanSignal
      GtkName=extend-selection
      Count=0
    Prop=ScrollVertical
      PropType=Signal
      PascalType=ScrollSignal
      GtkName=scroll-vertical
      Count=0
    Prop=ScrollHorizontal
      PropType=Signal
      PascalType=ScrollSignal
      GtkName=scroll-horizontal
      Count=0
    Prop=Select
      PropType=Procedure
      GtkName=select
      Count=0
    Prop=Deselect
      PropType=Procedure
      GtkName=deselect
      Count=0
  Object=ListItemGroup
    Inherit=ItemGroup
    Count=1
    Prop=create
      PropType=Constructor
      Code=begin,"  inherited create (TFPgtkListItem);","  ManageLists := false;",end;
      Count=0
  Object=TreeItem
    Inherit=Item
    GtkFuncName=tree_item
    CreateObject
    Count=10
    Prop=SubTree
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=subtree
      ReadConvert
      ReadFuncType=GtkMacro
      WriteProcType=Proc
      WriteCode=begin,"  if assigned(TheValue) then","    gtk_tree_item_set_subtree (TheGtkObject, ConvertToGtkWidget(TheValue))","  else","    gtk_tree_item_remove_subtree (TheGtkObject);",end;
      WriteConvert
      Count=0
    Prop=PixPlus
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=plus_pix_widget
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=PixMinus
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=minus_pix_widget
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=Expanded
      PropType=Property
      PascalType=boolean
      GtkName=expanded
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    Expand","  else","    collapse;",end;
      Count=0
    Prop=Select
      PropType=Procedure
      GtkName=select
      Count=0
    Prop=Deselect
      PropType=Procedure
      GtkName=deselect
      Count=0
    Prop=Expand
      PropType=Procedure
      GtkName=expand
      Count=0
    Prop=Collapse
      PropType=Procedure
      GtkName=collapse
      Count=0
    Prop=Collapse
      PropType=Signal
      PascalType=Signal
      GtkName=collapse
      Count=0
    Prop=Expand
      PropType=Signal
      PascalType=Signal
      GtkName=expand
      Count=0
  Object=Window
    Inherit=Bin
    GtkFuncName=window
    CreateParams=TheWindowType
    CreateObject
    Count=46
    Prop=TheWindowType
      PropType=Field
      Section=Private
      PascalType=TGtkWindowType
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  TheWindowType := AType;","  inherited Create;","  FAccelGroups := TList.Create;","  FMainLevel := NoMainLevel;",end;
      Count=1
      Param=AType
        PascalType=TGtkWindowType
    Prop=Destroy
      PropType=Destructor
      Code=begin,"  FAccelGroups.Free;","  inherited;",end;
      Override
      Count=0
    Prop=WindowType
      PropType=Property
      PascalType=TGtkWindowType
      GtkName=thetype
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=thetype
      Count=0
    Prop=Title
      PropType=Property
      PascalType=string
      GtkName=title
      ReadConvert
      ReadFuncType=ObjField
      WriteGtkName=title
      WriteConvert
      Count=0
    Prop=Modal
      PropType=Property
      PascalType=boolean
      GtkName=modal
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=modal
      Count=0
    Prop=DialogResult constants
      PropType=Declarations
      Code=const,"  drNone = 0;","  drOk = 1;","  drCancel = 2;","  drYes = 3;","  drNo = 4;","  drRetry = 5;","  NoMainLevel = high (guint);"
      Count=0
    Prop=DialogCallback
      PropType=TypeDeclaration
      Section=Published
      Code="  DialogResultCallback = procedure (Sender:TFPgtkWindow; DialogResult:pointer; ","                                    Action:integer; initiator:TFPgtkObject) of object;","  DialogInitCallback = procedure (Sender : TFPgtkWindow; InitData : pointer) of object;","  TFPgtkWindowClass = class of TFPgtkWindow;"
      Count=0
    Prop=DialogResult
      PropType=Property
      Section=Protected
      PascalType=pointer
      GtkName=FDialogResult
      ReadFuncType=Field
      WriteProcType=Field
      WriteGtkName=FDialogResult
      Count=0
    Prop=DoDialogResult
      PropType=Procedure
      Section=Protected
      Code=begin,"  if assigned (OnDialogResult) then","    OnDialogResult (self, FDialogResult, Action, Sender);",end;
      Virtual
      Count=2
      Param=Action
        PascalType=integer
      Param=Sender
        PascalType=TFPgtkObject
    Prop=OnDialogResult
      PropType=Property
      PascalType=DialogResultCallback
      ReadFuncType=Field
      WriteProcType=Field
      Count=0
    Prop=DoDialogInit
      PropType=Procedure
      Section=Protected
      Code=begin,"  if assigned (OnDialogInit) then","    OnDialogInit (self, InitData);","  FDialogResult := InitData;",end;
      Virtual
      Count=1
      Param=InitData
        PascalType=pointer
    Prop=OnDialogInit
      PropType=Property
      PascalType=DialogInitCallback
      ReadFuncType=Field
      WriteProcType=Field
      Count=0
    Prop=Close
      PropType=Procedure
      Code=begin,"  if (FDestroying = dsAlive) then","    gtk_widget_destroy (TheGtkWidget);",end;
      Count=0
    Prop=CloseWindow
      PropType=Procedure
      Code=begin,"  Close;",end;
      Count=2
      Param=Sender
        PascalType=TFPgtkObject
      Param=data
        PascalType=pointer
    Prop=CloseWithResult
      PropType=Procedure
      Code=begin,"  ModalAction := pointertoint(data);",end;
      Count=2
      Param=Sender
        PascalType=TFPgtkObject
      Param=data
        PascalType=pointer
    Prop=ModalAction
      PropType=Property
      PascalType=integer
      GtkName=FModalAction
      ReadFuncType=Field
      WriteProcType=Proc
      WriteCode=begin,"  FModalAction := TheValue;","  if TheValue <> 0 then","    begin","    DoDialogResult (FModalAction, self);","    close;","    end;",end;
      Count=0
    Prop=MainLevel
      PropType=Property
      PascalType=guint
      GtkName=FMainLevel
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
    Prop=ExecuteEnds
      PropType=Procedure
      Section=Private
      Code=begin,"  if gtk_main_level = FMainLevel then","    gtk_main_quit;",end;
      Count=2
      Param=Sender
        PascalType=TFPgtkObject
      Param=data
        PascalType=pointer
    Prop=Execute
      PropType=Function
      PascalType=integer
      Code=begin,"  FModalAction := drNone;","  if assigned (anOnDialogInit) then","    OnDialogInit := anOnDialogInit;","  DoDialogInit (anInitData);","  if assigned (anOnDialogResult) then","    OnDialogResult := anOnDialogResult;","  ConnectDestroy (@ExecuteEnds, nil);","  Modal := True;","  Show;","  FMainLevel := gtk_main_level + 1;","  try","    gtk_main;","    result := FModalAction;","  finally","    FMainLevel := NoMainLevel;","  end;",end;
      Count=3
      Param=anOnDialogInit
        PascalType=DialogInitCallBack
      Param=anInitData
        PascalType=pointer
      Param=anOnDialogResult
        PascalType=DialogResultCallBack
    Prop=SetFocus
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=set-focus
      Count=0
    Prop=SetTransientFor
      PropType=Procedure
      GtkName=set_transient_for
      Count=1
      Param=aParent
        Convert
        PascalType=TFPgtkWindow
    Prop=DefaultWidget
      PropType=Procedure
      PascalType=TFPgtkWidget
      GtkName=set_default
      Count=1
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
    Prop=FocusedWidget
      PropType=Procedure
      GtkName=set_focus
      Count=1
      Param=NewFocus
        Convert
        PascalType=TFPgtkWidget
    Prop=UserSizable
      PropType=Property
      PascalType=boolean
      Code=begin,"  result := (allow_grow(TheGtkObject^)=1) and (auto_shrink(TheGtkObject^)=0);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  if TheValue then","    gtk_window_set_policy (TheGtkObject, gint(FALSE), gint(TRUE), gint(FALSE))","  else","    gtk_window_set_policy (TheGtkObject, gint(FALSE), gint(FALSE), gint(TRUE));",end;
      Count=0
    Prop=ActivateFocus
      PropType=Procedure
      GtkName=activate_focus
      Count=0
    Prop=ActivateDefault
      PropType=Procedure
      GtkName=activate_default
      Count=0
    Prop=SetDefaultSize
      PropType=Procedure
      GtkName=set_default_size
      Count=2
      Param=Width
        PascalType=gint
      Param=Height
        PascalType=gint
    Prop=Position
      PropType=Property
      PascalType=TGtkWindowPosition
      Code=begin,"  result := TGtkWindowPosition (gtk.position (TheGtkObject^));",end;
      ReadFuncType=Proc
      WriteGtkName=position
      Count=0
    Prop=AccelGroups
      PropType=Finilization
      PascalType=PGtk_accel_group
      Count=1
      Param=index
        PascalType=integer
    Prop=FAccelGroups
      PropType=Field
      Section=Private
      PascalType=TList
      Count=0
    Prop=AccelGroups
      PropType=Property
      PascalType=PGtkAccelGroup
      Code=begin,"  result := FAccelGroups[ID];","  if result = nil then","    result := FAccelGroups[-1];",end;
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=1
      Param=ID
        PascalType=integer
    Prop=AccelGroupNew
      PropType=Function
      PascalType=integer
      Code="var ag : Pgtkaccelgroup;",begin,"  result := FAccelGroups.Count;","  ag := gtk_accel_group_new;","  FAccelGroups.Add (ag);","  gtk_window_add_accel_group (TheGtkObject, ag);",end;
      Count=0
    Prop=AccelGroupDelete
      PropType=Procedure
      Code=begin,"  gtk_accel_group_detach (FAccelGroups[ID], FGtkObject);","  FAccelGroups[ID] := nil;",end;
      Count=1
      Param=ID
        PascalType=integer
    Prop=AcceleratorAdd
      PropType=Procedure
      Code=begin,"  gtk_widget_add_accelerator (ConvertToGtkWidget(aWidget), pgchar(aSignal),","        AccelGroups[AG], Key, Mods, acFlags);",end;
      Overload
      Count=6
      Param=AG
        PascalType=integer
      Param=aWidget
        PascalType=TFPgtkWidget
      Param=aSignal
        PascalType=string
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
      Param=acFlags
        PascalType=TGtkAccelFlags
    Prop=AcceleratorAdd
      PropType=HelperProc
      Code=begin,"  gtk_widget_add_accelerator (ConvertToGtkWidget(aWidget), pgchar(aSignal),","        AG, Key, Mods, Flags);",end;
      Count=6
      Param=AG
        PascalType=PGtkAccelGroup
      Param=aWidget
        PascalType=TFPgtkWidget
      Param=aSignal
        PascalType=string
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
      Param=Flags
        PascalType=TGtkAccelFlags
    Prop=AcceleratorRemove
      PropType=Procedure
      Code=begin,"  gtk_widget_remove_accelerator (ConvertToGtkWidget(aWidget), AccelGroups[AG], Key, Mods);",end;
      Overload
      Count=4
      Param=AG
        PascalType=integer
      Param=aWidget
        PascalType=TFPgtkWidget
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
    Prop=AcceleratorRemove
      PropType=HelperProc
      Code=begin,"  gtk_widget_remove_accelerator (ConvertToGtkWidget(aWidget), AG, Key, Mods);",end;
      Overload
      Count=4
      Param=AG
        PascalType=PGtkAccelGroup
      Param=aWidget
        PascalType=TFPgtkWidget
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
    Prop=AccelGroupLock
      PropType=Procedure
      Code=begin,"  gtk_accel_group_lock (AccelGroups[AG]);",end;
      Count=1
      Param=AG
        PascalType=integer
    Prop=AccelGroupLock
      PropType=HelperProc
      Code=begin,"  gtk_accel_group_lock (AG);",end;
      Count=1
      Param=AG
        PascalType=PGtkAccelGroup
    Prop=AccelGroupUnlock
      PropType=Procedure
      Code=begin,"  gtk_accel_group_unlock (AccelGroups[AG]);",end;
      Count=1
      Param=AG
        PascalType=integer
    Prop=AccelGroupUnlock
      PropType=HelperProc
      Code=begin,"  gtk_accel_group_unlock (AG);",end;
      Count=1
      Param=AG
        PascalType=PGtkAccelGroup
    Prop=AccelKeyName
      PropType=HelperFunc
      PascalType=string
      Code=begin,"  result := string (gtk_accelerator_name(Key, Mods));",end;
      Count=2
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
    Prop=AccelKeyParse
      PropType=HelperProc
      Code="var k : guint;","    m : TGdkModifierType;",begin,"  gtk_accelerator_parse (pgchar(AccelName), @k, @m);","  Key := k;","  Mods := m;",end;
      Count=3
      Param=AccelName
        PascalType=string
      Param=Key
        PascalType=guint
        ParamType=Var
      Param=Mods
        PascalType=TGdkModifierType
        ParamType=Var
    Prop=AccelGroupActivate
      PropType=Procedure
      Code=begin,"  gtk_accel_group_activate (AccelGroups[AG], Key, Mods);",end;
      Count=3
      Param=AG
        PascalType=integer
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
    Prop=AccelGroupActivate
      PropType=HelperProc
      Code=begin,"  gtk_accel_group_activate (AG, Key, Mods);",end;
      Count=3
      Param=AG
        PascalType=PGtkAccelGroup
      Param=Key
        PascalType=guint
      Param=Mods
        PascalType=TGdkModifierType
  Object=ColorSelectionDialog
    Inherit=Window
    GtkFuncName=color_selection_dialog
    CreateParams=''
    CreateObject
    Count=4
    Prop=ColorSel
      PropType=Property
      PascalType=TFPgtkColorSelection
      GtkName=Colorsel
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonOK
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=ok_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonCancel
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=cancel_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonHelp
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=help_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
  Object=Dialog
    Inherit=Window
    GtkFuncName=dialog
    CreateObject
    Count=3
    Prop=ActionArea
      PropType=Property
      PascalType=TFPgtkHBox
      GtkName=action_area
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=VBox
      PropType=Property
      PascalType=TFPgtkVBox
      GtkName=vbox
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=create
      PropType=Constructor
      Code=begin,"  inherited create (gtk_window_dialog);",end;
      Count=0
  Object=InputDialog
    Inherit=Dialog
    GtkFuncName=input_dialog
    CreateObject
    Count=5
    Prop=ButtonClose
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=close_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonSave
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=save_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=DeviceSignal
      PropType=SignalType
      Count=3
      Param=Sender
        Convert
        PascalType=TFPgtkInputDialog
      Param=DeviceID
        PascalType=integer
      Param=Data
        PascalType=pointer
    Prop=EnableDevice
      PropType=Signal
      PascalType=DeviceSignal
      GtkName=enable-device
      Count=0
    Prop=DisableDevice
      PropType=Signal
      PascalType=DeviceSignal
      GtkName=disable-device
      Count=0
  Object=FileSelection
    Inherit=Window
    GtkFuncName=file_selection
    CreateParams='Select a file'
    CreateObject
    Count=13
    Prop=Filename
      PropType=Property
      PascalType=string
      GtkName=filename
      ReadConvert
      WriteProcType=Proc
      WriteCode=begin,"  gtk_file_selection_set_filename(TheGtkObject,Pgchar(TheValue));",end;
      WriteConvert
      Count=0
    Prop=Complete
      PropType=Procedure
      GtkName=complete
      Count=1
      Param=Pattern
        Convert
        PascalType=string
    Prop=ShowFileOpButtons
      PropType=Procedure
      GtkName=show_fileop_buttons
      Count=0
    Prop=HideFileOpButtons
      PropType=Procedure
      GtkName=hide_fileop_buttons
      Count=0
    Prop=DirList
      PropType=Property
      PascalType=TFPgtkCList
      GtkName=dir_list
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=FileList
      PropType=Property
      PascalType=TFPgtkCList
      GtkName=file_list
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=OkButton
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=ok_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=CancelButton
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=cancel_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=HistoryPulldown
      PropType=Property
      PascalType=TFPgtkOptionMenu
      GtkName=history_pulldown
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=FileOpDialog
      PropType=Property
      PascalType=TFPgtkDialog
      GtkName=fileop_dialog
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=FileOpCreateDir
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=fileop_c_dir
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=FileOpDelFile
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=fileop_del_file
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=FileOpRenFile
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=fileop_ren_file
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
  Object=FontSelectionDialog
    Inherit=Window
    GtkFuncName=font_selection_dialog
    CreateParams=''
    CreateObject
    Count=4
    Prop=FontSel
      PropType=Property
      PascalType=TFPgtkFontSelection
      GtkName=fontsel
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonOk
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=ok_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonApply
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=apply_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ButtonCancel
      PropType=Property
      PascalType=TFPgtkButton
      GtkName=cancel_button
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
  Object=EventBox
    Inherit=Bin
    GtkFuncName=event_box
    CreateObject
    Count=0
  Object=HandleBox
    Inherit=Bin
    GtkFuncName=handle_box
    CreateObject
    Count=6
    Prop=ShadowType
      PropType=Property
      PascalType=TGtkShadowtype
      GtkName=shadow_type
      ReadFuncType=ObjField
      WriteGtkName=shadow_type
      Count=0
    Prop=HandlePosition
      PropType=Property
      PascalType=TGtkPositionType
      Code=begin,"  result := TGtkPositionType (gtk.handle_position(TheGtkObject^));",end;
      ReadFuncType=Proc
      WriteGtkName=handle_position
      Count=0
    Prop=SnapEdge
      PropType=Property
      PascalType=TGtkPositionType
      Code=begin,"  result := TGtkPositionType (gtk.snap_edge(TheGtkObject^));",end;
      ReadFuncType=Proc
      WriteGtkName=snap_edge
      Count=0
    Prop=ChildDetached
      PropType=Property
      PascalType=boolean
      GtkName=child_detached
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=NotImplemented
      Count=0
    Prop=ChildAttached
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=child-attached
      Count=0
    Prop=ChildDetached
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=child-detached
      Count=0
  Object=ScrolledWindow
    Inherit=Bin
    GtkFuncName=scrolled_window
    Count=15
    Prop=FHScroll
      PropType=Field
      Section=Private
      PascalType=TFPgtkAdjustment
      Count=0
    Prop=FVScroll
      PropType=Field
      Section=Private
      PascalType=TFPgtkAdjustment
      Count=0
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code="var h, v : PgtkAdjustment;",begin,"  if assigned (FHScroll) then","    h := PGtkAdjustment(ConvertToGtkObject(FHScroll))","  else","    h := null;","  if assigned (FVScroll) then","    v := PGtkAdjustment(ConvertToGtkObject(FVScroll))","  else","    v := null;","  FGtkObject := PGtkObject (gtk_scrolled_window_new (h, v));",end;
      Override
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  FVScroll := vadj;","  FHScroll := hadj;","  inherited create;","  setusize (200,170);",end;
      Count=2
      Param=hadj
        PascalType=TFPgtkAdjustment
      Param=vadj
        PascalType=TFPgtkAdjustment
    Prop=HPolicy
      PropType=Property
      PascalType=TGtkPolicyType
      GtkName=hscrollbar_policy
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_scrolled_window_set_policy (TheGtkObject, TheValue, VPolicy);",end;
      Count=0
    Prop=VPolicy
      PropType=Property
      PascalType=TGtkPolicyType
      GtkName=vscrollbar_policy
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_scrolled_window_set_policy (TheGtkObject, HPolicy, TheValue);",end;
      Count=0
    Prop=SetPolicy
      PropType=Procedure
      GtkName=set_policy
      Overload
      Count=2
      Param=aHScrollBar
        PascalType=TGtkPolicyType
      Param=aVScrollbar
        PascalType=TGtkPolicyType
    Prop=SetPolicy
      PropType=Procedure
      Code=begin,"  SetPolicy (aPolicy, aPolicy);",end;
      Overload
      Count=1
      Param=aPolicy
        PascalType=TGtkPolicyType
    Prop=HAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=hadjustment
      ReadConvert
      WriteGtkName=hadjustment
      WriteConvert
      Count=0
    Prop=VAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=vadjustment
      ReadConvert
      WriteGtkName=vadjustment
      WriteConvert
      Count=0
    Prop=AddWithViewport
      PropType=Procedure
      Code=begin,"  gtk_scrolled_window_add_with_viewport (TheGtkObject, ConvertToGtkWidget(aChild));","  TFPgtkViewport.createFromObject (PGtkObject(PGtkBin(TheGtkObject)^.child));","  aChild.Show;",end;
      Count=1
      Param=aChild
        Convert
        PascalType=TFPgtkWidget
    Prop=Placement
      PropType=Property
      PascalType=TGtkCornerType
      GtkName=window_placement
      ReadFuncType=ObjFunc
      WriteGtkName=placement
      Count=0
    Prop=HScrollbar
      PropType=Property
      PascalType=TFPgtkScrollbar
      Code="var w : TFPgtkObject;","    gtkwidg : PGtkObject;",begin,"  gtkwidg := PGtkObject(TheGtkObject^.hscrollbar);","  w := GetPascalInstance (gtkwidg);","  if assigned (w) then","    result := (w as TFPgtkScrollbar)","  else","    result := TFPgtkHScrollbar.CreateFromObject (gtkwidg);",end;
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=VScrollbar
      PropType=Property
      PascalType=TFPgtkScrollbar
      Code="var w : TFPgtkObject;","    gtkwidg : PGtkObject;",begin,"  gtkwidg := PGtkObject(TheGtkObject^.vscrollbar);","  w := GetPascalInstance (gtkwidg);","  if assigned (w) then","    result := (w as TFPgtkScrollbar)","  else","    result := TFPgtkVScrollbar.CreateFromObject (gtkwidg);",end;
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=UpdatePolicy
      PropType=Procedure
      Code="var sb : TFpgtkScrollbar;",begin,"  sb := HScrollbar;","  if assigned(sb) then","    sb.UpdatePolicy := UpdPolicy;","  sb := VScrollbar;","  if assigned(sb) then","    sb.UpdatePolicy := UpdPolicy;",end;
      Count=1
      Param=UpdPolicy
        PascalType=TGtkUpdateType
  Object=Viewport
    Inherit=Bin
    GtkFuncName=viewport
    Count=7
    Prop=FHScroll
      PropType=Field
      Section=Private
      PascalType=TFPgtkAdjustment
      Count=0
    Prop=FVScroll
      PropType=Field
      Section=Private
      PascalType=TFPgtkAdjustment
      Count=0
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code="var h, v : PgtkAdjustment;",begin,"  if assigned (FHScroll) then","    h := PGtkAdjustment(ConvertToGtkObject(FHScroll))","  else","    h := null;","  if assigned (FVScroll) then","    v := PGtkAdjustment(ConvertToGtkObject(FVScroll))","  else","    v := null;","  FGtkObject := PGtkObject (gtk_scrolled_window_new (h, v));",end;
      Override
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  FVScroll := vadj;","  FHScroll := hadj;","  inherited create;",end;
      Count=2
      Param=hadj
        PascalType=TFPgtkAdjustment
      Param=vadj
        PascalType=TFPgtkAdjustment
    Prop=HAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=hadjustment
      ReadConvert
      WriteGtkName=hadjustment
      WriteConvert
      Count=0
    Prop=VAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=vadjustment
      ReadConvert
      WriteGtkName=vadjustment
      WriteConvert
      Count=0
    Prop=ShadowType
      PropType=Property
      PascalType=TgtkShadowType
      GtkName=shadow_type
      ReadFuncType=ObjField
      WriteGtkName=shadow_type
      Count=0
  Object=Box
    Inherit=Container
    GtkFuncName=Box
    Count=13
    Prop=Homogeneous
      PropType=Property
      PascalType=boolean
      GtkName=homogeneous
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=homogeneous
      Count=0
    Prop=Spacing
      PropType=Property
      PascalType=integer
      GtkName=spacing
      ReadFuncType=ObjField
      WriteGtkName=spacing
      Count=0
    Prop=ReorderChild
      PropType=Procedure
      GtkName=reorder_child
      Count=2
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=Position
        PascalType=integer
    Prop=GetChildPacking
      PropType=Procedure
      Code="var PT : PGtkPackType;",begin,"  pt := @PackType;","  gtk_box_query_child_packing (TheGtkObject, ConvertToGtkWidget(Widget), ","                               @expand, @fill, @padding, pt);",end;
      Count=5
      Param=Widget
        PascalType=TFPgtkWidget
      Param=Expand
        PascalType=boolean
        ParamType=Var
      Param=Fill
        PascalType=boolean
        ParamType=Var
      Param=Padding
        PascalType=integer
        ParamType=Var
      Param=PackType
        PascalType=TGtkPackType
        ParamType=Var
    Prop=SetChildPacking
      PropType=Procedure
      GtkName=set_child_packing
      Count=5
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=Expand
        PascalType=boolean
      Param=Fill
        PascalType=boolean
      Param=Padding
        PascalType=integer
      Param=PackType
        PascalType=TGtkPackType
    Prop=PackStart
      PropType=Procedure
      Code=begin,"  gtk_box_pack_start_defaults (TheGtkObject, ConvertToGtkWidget(Widget));","  widget.Show;",end;
      Overload
      Count=1
      Param=Widget
        PascalType=TFPgtkWidget
    Prop=PackStart
      PropType=Procedure
      Code=begin,"  gtk_box_pack_start_defaults (TheGtkObject, ConvertToGtkWidget(Widget));","  if isvisible then","    widget.Show;",end;
      Overload
      Count=2
      Param=Widget
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
    Prop=PackStart
      PropType=Procedure
      Code=begin,"  gtk_box_pack_start (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);","  widget.Show;",end;
      Overload
      Count=4
      Param=Widget
        PascalType=TFPgtkWidget
      Param=expand
        PascalType=boolean
      Param=fill
        PascalType=boolean
      Param=padding
        PascalType=integer
    Prop=PackStart
      PropType=Procedure
      Code=begin,"  gtk_box_pack_start (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);","  if isvisible then","    widget.Show;",end;
      Overload
      Count=5
      Param=Widget
        PascalType=TFPgtkWidget
      Param=expand
        PascalType=boolean
      Param=fill
        PascalType=boolean
      Param=padding
        PascalType=integer
      Param=IsVisible
        PascalType=boolean
    Prop=PackEnd
      PropType=Procedure
      Code=begin,"  gtk_box_pack_end_defaults (TheGtkObject, ConvertToGtkWidget(Widget));","  widget.Show;",end;
      Overload
      Count=1
      Param=Widget
        PascalType=TFPgtkWidget
    Prop=PackEnd
      PropType=Procedure
      Code=begin,"  gtk_box_pack_end_defaults (TheGtkObject, ConvertToGtkWidget(Widget));","  if isvisible then","    widget.Show;",end;
      Overload
      Count=2
      Param=Widget
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
    Prop=PackEnd
      PropType=Procedure
      Code=begin,"  gtk_box_pack_end (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);","  widget.Show;",end;
      Overload
      Count=4
      Param=Widget
        PascalType=TFPgtkWidget
      Param=expand
        PascalType=boolean
      Param=fill
        PascalType=boolean
      Param=padding
        PascalType=integer
    Prop=PackEnd
      PropType=Procedure
      Code=begin,"  gtk_box_pack_end (TheGtkObject, ConvertToGtkWidget(Widget), expand, fill, padding);","  if isvisible then","    widget.Show;",end;
      Overload
      Count=5
      Param=Widget
        PascalType=TFPgtkWidget
      Param=expand
        PascalType=boolean
      Param=fill
        PascalType=boolean
      Param=padding
        PascalType=integer
      Param=IsVisible
        PascalType=boolean
  Object=ButtonBox
    Inherit=Box
    GtkFuncName=button_box
    Count=10
    Prop=SetButtonBoxDefaultSize
      PropType=HelperProc
      PascalType=integer
      Code=begin,"  gtk_button_box_set_child_size_default (aMinWidth, aMinheight);",end;
      Count=2
      Param=aMinWidth
        PascalType=integer
      Param=aMinHeight
        PascalType=integer
    Prop=GetButtonBoxDefaultSize
      PropType=HelperProc
      PascalType=integer
      Code=begin,"  gtk_button_box_get_child_size_default (@aMinWidth, @aMinheight);",end;
      Count=2
      Param=aMinWidth
        PascalType=integer
        ParamType=Var
      Param=aMinHeight
        PascalType=integer
        ParamType=Var
    Prop=SetButtonBoxDefaultPadding
      PropType=HelperProc
      PascalType=integer
      Code=begin,"  gtk_button_box_set_child_size_default (aIPadX, aIPadY);",end;
      Count=2
      Param=aIPadX
        PascalType=integer
      Param=aIPadY
        PascalType=integer
    Prop=GetButtonBoxDefaultPadding
      PropType=HelperProc
      PascalType=integer
      Code=begin,"  gtk_button_box_get_child_size_default (@aIPadX, @aIPadY);",end;
      Count=2
      Param=aIPadX
        PascalType=integer
        ParamType=Var
      Param=aIPadY
        PascalType=integer
        ParamType=Var
    Prop=Spacing
      PropType=Property
      PascalType=integer
      GtkName=spacing
      WriteGtkName=spacing
      Count=0
    Prop=Layout
      PropType=Property
      PascalType=TGtkButtonBoxStyle
      GtkName=layout
      WriteGtkName=layout
      Count=0
    Prop=ChildMinWidth
      PropType=Property
      PascalType=integer
      GtkName=GetMinWidth
      Code="var x, y : integer;",begin,"  gtk_button_box_get_child_size (TheGtkObject, @x, @y);","  result := x;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetMinWidth
      WriteCode=begin,"  gtk_button_box_set_child_size (TheGtkObject, TheValue, ChildMinHeight);",end;
      Count=0
    Prop=ChildMinHeight
      PropType=Property
      PascalType=integer
      GtkName=GetMinHeight
      Code="var x, y : integer;",begin,"  gtk_button_box_get_child_size (TheGtkObject, @x, @y);","  result := y;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetMinHeight
      WriteCode=begin,"  gtk_button_box_set_child_size (TheGtkObject, ChildMinWidth, TheValue);",end;
      Count=0
    Prop=ChildPadX
      PropType=Property
      PascalType=integer
      GtkName=GetChildPadX
      Code="var x, y : integer;",begin,"  gtk_button_box_get_child_ipadding (TheGtkObject, @x, @y);","  result := x;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetChildPadX
      WriteCode=begin,"  gtk_button_box_set_child_ipadding (TheGtkObject, TheValue, ChildPadY);",end;
      Count=0
    Prop=ChildPadY
      PropType=Property
      PascalType=integer
      GtkName=GetChildPadY
      Code="var x, y : integer;",begin,"  gtk_button_box_get_child_ipadding (TheGtkObject, @x, @y);","  result := y;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteGtkName=SetChildPadY
      WriteCode=begin,"  gtk_button_box_set_child_ipadding (TheGtkObject, ChildPadX, TheValue);",end;
      Count=0
  Object=HButtonBox
    Inherit=ButtonBox
    GtkFuncName=hbutton_box
    CreateObject
    Count=0
  Object=VButtonBox
    Inherit=ButtonBox
    GtkFuncName=vbutton_box
    CreateObject
    Count=0
  Object=VBox
    Inherit=Box
    GtkFuncName=VBox
    CreateParams=False, 1
    CreateObject
    Count=0
  Object=ColorSelection
    Inherit=VBox
    GtkFuncName=color_selection
    CreateObject
    Count=3
    Prop=UpdatePolicy
      PropType=Property
      PascalType=TGtkUpdateType
      GtkName=policy
      ReadFuncType=ObjField
      WriteGtkName=update_policy
      Count=0
    Prop=Color
      PropType=Property
      PascalType=double
      Code="var c : double;",begin,"  gtk_color_selection_get_color (TheGtkObject, @c);","  result := c;",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_color_selection_set_color (TheGtkObject, @TheValue);",end;
      Count=0
    Prop=UseOpacity
      PropType=Property
      PascalType=longbool
      Code=begin,"  result := longbool(TheGtkObject^.use_opacity);",end;
      ReadConvert
      ReadFuncType=Proc
      WriteGtkName=opacity
      WriteConvert
      Count=0
  Object=GammaCurve
    Inherit=VBOX
    GtkFuncName=gamma_curve
    CreateObject
    Count=0
  Object=HBox
    Inherit=Box
    GtkFuncName=HBox
    CreateParams=False, 1
    CreateObject
    Count=0
  Object=Combo
    Inherit=HBox
    GtkFuncName=combo
    CreateObject
    Count=11
    Prop=Entry
      PropType=Property
      PascalType=TFPgtkEntry
      Code=begin,"  result := GetPascalInstance(PGtkObject(TheGtkObject^.entry), TFPgtkEntry) as tfpgtkentry;",end;
      ReadConvert
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=List
      PropType=Property
      PascalType=TFPgtkList
      Code=begin,"  result := GetPascalInstance(PGtkObject(TheGtkObject^.list), TFPgtkList) as TFPgtkList;",end;
      ReadConvert
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=Button
      PropType=Property
      PascalType=TFpGtkButton
      Code=begin,"  result := GetPascalInstance(PGtkObject(TheGtkObject^.button), TFPgtkButton) as TFPgtkButton;",end;
      ReadConvert
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=ValueInList
      PropType=Property
      PascalType=longbool
      GtkName=value_in_list
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteGtkName=SetValueInListProp
      WriteCode=begin,"  gtk_combo_set_value_in_list (TheGtkObject, gint(TheValue), gint(OkIfEmpty));",end;
      Count=0
    Prop=OkIfEmpty
      PropType=Property
      PascalType=longbool
      GtkName=ok_if_empty
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_combo_set_value_in_list (TheGtkObject, gint(ValueInList), gint(TheValue));",end;
      Count=0
    Prop=UseArrows
      PropType=Property
      PascalType=longbool
      GtkName=use_arrows
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=use_arrows
      WriteConvert
      Count=0
    Prop=UseArrowsAlways
      PropType=Property
      PascalType=longbool
      GtkName=use_arrows_always
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=use_arrows_always
      WriteConvert
      Count=0
    Prop=CaseSensitive
      PropType=Property
      PascalType=longbool
      GtkName=case_sensitive
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=case_sensitive
      WriteConvert
      Count=0
    Prop=SetItemString
      PropType=Procedure
      GtkName=set_item_string
      Count=2
      Param=Item
        Convert
        PascalType=TFPgtkItem
      Param=ItemValue
        Convert
        PascalType=string
    Prop=DisableActivate
      PropType=Procedure
      GtkName=disable_activate
      Count=0
    Prop=SetValueInList
      PropType=Procedure
      GtkName=set_value_in_list
      Count=2
      Param=Val
        Convert
        PascalType=longbool
      Param=IsOkIfEmpty
        Convert
        PascalType=longbool
  Object=Statusbar
    Inherit=HBox
    GtkFuncName=statusbar
    CreateObject
    Count=7
    Prop=GetContextID
      PropType=Function
      PascalType=integer
      GtkName=get_context_id
      Count=1
      Param=ContextDescr
        Convert
        PascalType=string
    Prop=Push
      PropType=Function
      PascalType=integer
      GtkName=push
      Count=2
      Param=contextID
        PascalType=integer
      Param=text
        Convert
        PascalType=string
    Prop=Pop
      PropType=Procedure
      GtkName=pop
      Count=1
      Param=contextID
        PascalType=integer
    Prop=Remove
      PropType=Procedure
      GtkName=remove
      Count=2
      Param=contextID
        PascalType=integer
      Param=MessageID
        PascalType=integer
    Prop=StatusbarSignal
      PropType=SignalType
      Count=4
      Param=Sender
        Convert
        PascalType=TFPgtkObject
      Param=contextID
        PascalType=integer
      Param=text
        Convert
        PascalType=string
      Param=data
        PascalType=pointer
    Prop=TextPopped
      PropType=Signal
      PascalType=StatusbarSignal
      GtkName=text-popped
      Count=0
    Prop=TextPushed
      PropType=Signal
      PascalType=StatusbarSignal
      GtkName=test-pushed
      Count=0
  Object=CList
    Inherit=Container
    GtkFuncName=clist
    CreateParams=FColumnCount
    CreateObject
    Count=89
    Prop=Create
      PropType=Constructor
      Code=begin,"  FColumnCount := aColumnCount;","  inherited create;",end;
      Count=1
      Param=aColumnCount
        PascalType=integer
    Prop=ColumnCount
      PropType=Property
      PascalType=integer
      GtkName=FColumnCount
      ReadFuncType=Field
      WriteProcType=NotImplemented
      Count=0
    Prop=ShadowType
      PropType=Property
      PascalType=TGtkShadowType
      GtkName=shadow_type
      ReadFuncType=ObjField
      WriteGtkName=shadow_type
      Count=0
    Prop=SelectionMode
      PropType=Property
      PascalType=TGtkSelectionMode
      GtkName=selection_mode
      ReadFuncType=ObjField
      WriteGtkName=selection_mode
      Count=0
    Prop=Freeze
      PropType=Procedure
      GtkName=freeze
      Count=0
    Prop=Thaw
      PropType=Procedure
      GtkName=thaw
      Count=0
    Prop=ShowTitles
      PropType=Procedure
      GtkName=Column_titles_show
      Count=0
    Prop=HideTitles
      PropType=Procedure
      GtkName=column_titles_hide
      Count=0
    Prop=ActiveTitles
      PropType=Procedure
      GtkName=column_titles_active
      Count=0
    Prop=PassiveTitles
      PropType=Procedure
      GtkName=column_titles_passive
      Count=0
    Prop=ActiveTitle
      PropType=Procedure
      GtkName=column_title_active
      Count=1
      Param=column
        PascalType=integer
    Prop=PassiveTitle
      PropType=Procedure
      GtkName=column_title_passive
      Count=1
      Param=column
        PascalType=integer
    Prop=ColumnTitle
      PropType=Property
      PascalType=string
      GtkName=column_title
      ReadConvert
      WriteGtkName=column_title
      WriteConvert
      Count=1
      Param=column
        PascalType=integer
    Prop=ColumnWidget
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=column_widget
      ReadConvert
      WriteGtkName=column_widget
      WriteConvert
      Count=1
      Param=column
        PascalType=integer
    Prop=SetColumnJustification
      PropType=Procedure
      GtkName=set_column_justification
      Count=2
      Param=column
        PascalType=integer
      Param=justification
        PascalType=TGtkJustification
    Prop=SetColumnVisibility
      PropType=Procedure
      GtkName=set_column_visibility
      Count=2
      Param=column
        PascalType=integer
      Param=aVisible
        PascalType=boolean
    Prop=SetColumnResizeable
      PropType=Procedure
      GtkName=set_column_resizeable
      Count=2
      Param=column
        PascalType=integer
      Param=Resizeable
        PascalType=boolean
    Prop=SetColumnAutoResize
      PropType=Procedure
      GtkName=set_column_auto_resize
      Count=2
      Param=column
        PascalType=integer
      Param=autoResize
        PascalType=boolean
    Prop=OptimalColumnWidth
      PropType=Function
      PascalType=integer
      GtkName=optimal_column_width
      Code=,
      Count=1
      Param=column
        PascalType=integer
    Prop=SetColumnWidth
      PropType=Procedure
      GtkName=set_column_width
      Count=2
      Param=column
        PascalType=integer
      Param=width
        PascalType=integer
    Prop=SetColumnMinWidth
      PropType=Procedure
      GtkName=set_column_min_width
      Count=2
      Param=column
        PascalType=integer
      Param=MinWidth
        PascalType=integer
    Prop=SetColumnMaxWidth
      PropType=Procedure
      GtkName=set_column_max_width
      Count=2
      Param=column
        PascalType=integer
      Param=MaxWidth
        PascalType=integer
    Prop=AutoSizeColumns
      PropType=Function
      PascalType=integer
      GtkName=columns_autosize
      Count=0
    Prop=ConfigureColumnWidth
      PropType=Procedure
      Code=begin,"  SetColumnWidth (column, Width);","  SetColumnMaxWidth (column, MaxWidth);","  SetColumnMinWidth (column, MinWidth);",end;
      Count=4
      Param=column
        PascalType=integer
      Param=Width
        PascalType=integer
      Param=MinWidth
        PascalType=integer
      Param=MaxWidth
        PascalType=integer
    Prop=ConfigureColumn
      PropType=Procedure
      Code=begin,"  SetColumnJustification (column, Justification);","  SetColumnVisibility (column, Visibility);","  SetColumnResizeable (column, Resizeable);","  SetColumnAutoResize (column, AutoSize);",end;
      Count=5
      Param=column
        PascalType=integer
      Param=Justification
        PascalType=TGtkJustification
      Param=Visibility
        PascalType=boolean
      Param=Resizeable
        PascalType=boolean
      Param=AutoSize
        PascalType=boolean
    Prop=SetRowHeight
      PropType=Procedure
      GtkName=set_row_height
      Count=1
      Param=height
        PascalType=integer
    Prop=MoveTo
      PropType=Procedure
      GtkName=moveto
      Count=4
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=RowAlign
        PascalType=gfloat
      Param=ColAlign
        PascalType=gfloat
    Prop=RowIsVisible
      PropType=Function
      PascalType=TGtkVisibility
      GtkName=row_is_visible
      Count=1
      Param=Row
        PascalType=integer
    Prop=GetCellType
      PropType=Function
      PascalType=TGtkCellType
      GtkName=get_cell_type
      Count=2
      Param=Row
        PascalType=integer
      Param=column
        PascalType=integer
    Prop=CellText
      PropType=Property
      PascalType=string
      Code="var s : pgchar;","    r : integer;",begin,"  r := gtk_clist_get_text (TheGtkObject, row, column, @s);","  if (r = 0) then","    result := ''","  else","    result := string(s^);",end;
      ReadFuncType=Proc
      WriteGtkName=text
      WriteConvert
      Count=2
      Param=Row
        PascalType=integer
      Param=Column
        PascalType=integer
    Prop=SetPixmap
      PropType=Procedure
      GtkName=set_pixmap
      Count=4
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=pixmap
        Convert
        PascalType=PGdkPixmap
      Param=mask
        PascalType=PGdkBitmap
    Prop=GetPixmap
      PropType=Procedure
      Code=begin,"  gtk_clist_get_pixmap (TheGtkObject, row, column, @pixmap, @mask);",end;
      Count=4
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=pixmap
        PascalType=PGdkPixmap
        ParamType=Var
      Param=mask
        PascalType=PGdkBitmap
        ParamType=Var
    Prop=SetPixText
      PropType=Procedure
      GtkName=set_pixtext
      Count=6
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=text
        Convert
        PascalType=string
      Param=spacing
        PascalType=guint8
      Param=pixmap
        PascalType=PGdkPixmap
      Param=mask
        PascalType=PGdkBitmap
    Prop=GetPixText
      PropType=Procedure
      Code="var r : integer;","    s : PPgchar;",begin,"  s := nil;","  r := gtk_clist_get_pixtext (TheGtkObject, row, column, s, @aspacing, @pixmap, @mask);","  if r = 0 then","    begin","    text := '';","    pixmap := nil;","    mask := nil;","    end","  else","    text := string (s^);",end;
      Count=6
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=text
        PascalType=string
        ParamType=Var
      Param=aspacing
        PascalType=guint8
        ParamType=Var
      Param=pixmap
        PascalType=PGdkPixmap
        ParamType=Var
      Param=mask
        PascalType=PGdkBitmap
        ParamType=Var
    Prop=SetForeground
      PropType=Procedure
      GtkName=set_foreground
      Count=2
      Param=row
        PascalType=integer
      Param=color
        PascalType=PGdkColor
    Prop=SetBackground
      PropType=Procedure
      GtkName=set_background
      Count=2
      Param=row
        PascalType=integer
      Param=color
        PascalType=PGdkColor
    Prop=CellStyle
      PropType=Property
      PascalType=PGtkStyle
      GtkName=cell_style
      WriteGtkName=cell_style
      Count=2
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
    Prop=RowStyle
      PropType=Property
      PascalType=PGtkStyle
      GtkName=row_style
      WriteGtkName=row_style
      Count=1
      Param=row
        PascalType=integer
    Prop=SetShift
      PropType=Procedure
      GtkName=set_shift
      Count=4
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=vertical
        PascalType=integer
      Param=horizontal
        PascalType=integer
    Prop=Remove
      PropType=Procedure
      GtkName=remove
      Count=1
      Param=row
        PascalType=integer
    Prop=Prepend
      PropType=Procedure
      Code="var ppdata : ppgchar;",begin,"  ppdata := StringsToPPgchar (Data);","  gtk_clist_prepend (TheGtkObject, ppdata);","  freemem (ppdata, sizeof (pgchar) * data.count);",end;
      Overload
      Count=1
      Param=Data
        PascalType=TStrings
    Prop=Prepend
      PropType=Procedure
      Code="var l : TStrings;","    s : string;",begin,"  l := TStringList.Create;","  try","    if pos('""',separator) = 0 then","      s := stringreplace (Text, '""', '""""', [rfReplaceAll]);","    if separator <> '' then","      s := stringreplace(Text, separator, '"",""', [rfReplaceAll]);","    l.CommaText := '""'+s+'""';","    Prepend (l);","  finally","    l.Free;","  end;",end;
      Overload
      Count=2
      Param=Text
        PascalType=string
      Param=separator
        PascalType=string
    Prop=Prepend
      PropType=Procedure
      Code="var ppdata : ppgchar;",begin,"  ppdata := ArrayToPPgchar (Data);","  gtk_clist_prepend (TheGtkObject, ppdata);","  freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
      Overload
      Count=1
      Param=data
        PascalType=array of string
    Prop=Append
      PropType=Procedure
      Code="var ppdata : ppgchar;",begin,"  ppdata := StringsToPPgchar (Data);","  gtk_clist_append (TheGtkObject, ppdata);","  freemem (ppdata, sizeof (pgchar) * data.count);",end;
      Overload
      Count=1
      Param=data
        PascalType=TStrings
    Prop=Append
      PropType=Procedure
      Code="var l : TStrings;","    s : string;",begin,"  l := TStringList.Create;","  try","    if pos('""',separator) = 0 then","      s := stringreplace (Text, '""', '""""', [rfReplaceAll]);","    if separator <> '' then","      s := stringreplace(Text, separator, '"",""', [rfReplaceAll]);","    l.CommaText := '""' + s + '""';","    Append (l);","  finally","    l.Free;","  end;",end;
      Overload
      Count=2
      Param=Text
        PascalType=string
      Param=Separator
        PascalType=string
    Prop=Append
      PropType=Procedure
      Code="var ppdata : ppgchar;",begin,"  ppdata := ArrayToPPgchar (Data);","  gtk_clist_append (TheGtkObject, ppdata);","  freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
      Overload
      Count=1
      Param=data
        PascalType=array of string
    Prop=Insert
      PropType=Procedure
      Code="var ppdata : ppgchar;",begin,"  ppdata := StringsToPPgchar (Data);","  gtk_clist_insert (TheGtkObject, row, ppdata);","  freemem (ppdata, sizeof (pgchar) * data.count);",end;
      Overload
      Count=2
      Param=row
        PascalType=integer
      Param=data
        PascalType=TStrings
    Prop=Insert
      PropType=Procedure
      Code="var l : TStrings;","    s : string;",begin,"  l := TStringList.Create;","  try","    if pos('""',separator) = 0 then","      s := stringreplace (Text, '""', '""""', [rfReplaceAll]);","    if separator <> '' then","      s := stringreplace(Text, separator, '"",""', [rfReplaceAll]);","    l.CommaText := '""' + s + '""';","    Insert (row, l);","  finally","    l.Free;","  end;",end;
      Overload
      Count=3
      Param=row
        PascalType=integer
      Param=Text
        PascalType=string
      Param=Separator
        PascalType=string
    Prop=Insert
      PropType=Procedure
      Code="var ppdata : ppgchar;",begin,"  ppdata := ArrayToPPgchar (Data);","  gtk_clist_insert (TheGtkObject, row, ppdata);","  freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));",end;
      Overload
      Count=2
      Param=row
        PascalType=integer
      Param=data
        PascalType=array of string
    Prop=RowData
      PropType=Property
      PascalType=pointer
      GtkName=row_data
      WriteGtkName=row_data
      Count=1
      Param=row
        PascalType=integer
    Prop=FindRowFromData
      PropType=Function
      PascalType=integer
      GtkName=find_row_from_data
      Count=1
      Param=data
        PascalType=pointer
    Prop=SelectRow
      PropType=Procedure
      GtkName=select_row
      Count=2
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
    Prop=UnselectRow
      PropType=Procedure
      GtkName=unselect_row
      Count=2
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
    Prop=Clear
      PropType=Procedure
      GtkName=clear
      Count=0
    Prop=SelectAll
      PropType=Procedure
      GtkName=select_all
      Count=0
    Prop=UnselectAll
      PropType=Procedure
      GtkName=unselect_all
      Count=0
    Prop=SwapRows
      PropType=Procedure
      GtkName=swap_rows
      Count=2
      Param=row1
        PascalType=integer
      Param=row2
        PascalType=integer
    Prop=RowMove
      PropType=Procedure
      Code=begin,"  if sourceRow = DestRow then","    Exit;","  gtk_clist_row_move (TheGtkObject, sourceRow, destRow);",end;
      Count=2
      Param=sourceRow
        PascalType=integer
      Param=destRow
        PascalType=integer
    Prop=Sort
      PropType=Procedure
      GtkName=sort
      Count=0
    Prop=CompareFunc
      PropType=Property
      PascalType=TGtkCListCompareFunc
      GtkName=compare
      ReadFuncType=Field
      WriteGtkName=Compare_func
      Count=0
    Prop=SortColumn
      PropType=Property
      PascalType=integer
      GtkName=sort_column
      ReadFuncType=ObjField
      WriteGtkName=sort_column
      Count=0
    Prop=SetSortType
      PropType=Property
      PascalType=TGtkSortType
      GtkName=sort_type
      ReadFuncType=ObjField
      WriteGtkName=sort_type
      Count=0
    Prop=SetAutoSort
      PropType=Procedure
      GtkName=set_auto_sort
      Count=1
      Param=autoSort
        PascalType=boolean
    Prop=HAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=hadjustment
      ReadConvert
      WriteGtkName=hadjustment
      WriteConvert
      Count=0
    Prop=VAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=vadjustment
      ReadConvert
      WriteGtkName=vadjustment
      WriteCode=,
      WriteConvert
      Count=0
    Prop=SetReorderable
      PropType=Procedure
      GtkName=set_reorderable
      Count=1
      Param=reorderable
        PascalType=boolean
    Prop=Count
      PropType=Function
      PascalType=integer
      Code=begin,"  result := TheGtkObject^.rows;",end;
      Count=0
    Prop=CListScrollSignal
      PropType=SignalType
      Count=4
      Param=Sender
        Convert
        PascalType=TFPgtkObject
      Param=ScrollType
        PascalType=TgtkScrollType
      Param=position
        PascalType=gfloat
      Param=data
        PascalType=pointer
    Prop=CListScrollBooleanSignal
      PropType=SignalType
      Count=5
      Param=Sender
        Convert
        PascalType=TFPgtkObject
      Param=ScrollType
        PascalType=TgtkScrollType
      Param=Position
        PascalType=gfloat
      Param=AutoStartSelection
        PascalType=boolean
      Param=data
        PascalType=pointer
    Prop=SelectRowSignal
      PropType=SignalType
      Count=5
      Param=Sender
        PascalType=TFPgtkObject
      Param=row
        PascalType=integer
      Param=column
        PascalType=integer
      Param=event
        PascalType=PGdkEventButton
      Param=data
        PascalType=pointer
    Prop=SelectRow
      PropType=Signal
      PascalType=SelectRowSignal
      GtkName=select-row
      Count=0
    Prop=UnselectRow
      PropType=Signal
      PascalType=SelectRowSignal
      GtkName=unselect-row
      Count=0
    Prop=MoveSignal
      PropType=SignalType
      Count=4
      Param=Sender
        PascalType=TFPgtkObject
      Param=arg1
        PascalType=integer
      Param=arg2
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=RowMove
      PropType=Signal
      PascalType=MoveSignal
      GtkName=row-move
      Count=0
    Prop=ScrollVertical
      PropType=Signal
      PascalType=CListScrollSignal
      GtkName=scroll-vertical
      Count=0
    Prop=ScrolHorizontal
      PropType=Signal
      PascalType=CListScrollSignal
      GtkName=scroll-horizontal
      Count=0
    Prop=ToggleFocusRow
      PropType=Signal
      PascalType=Signal
      GtkName=toggle-focus-row
      Count=0
    Prop=SelectAll
      PropType=Signal
      PascalType=Signal
      GtkName=select-all
      Count=0
    Prop=UnselectAll
      PropType=Signal
      PascalType=signal
      GtkName=unselect-all
      Count=0
    Prop=UndoSelection
      PropType=Signal
      PascalType=signal
      GtkName=undo-selection
      Count=0
    Prop=StartSelection
      PropType=Signal
      PascalType=signal
      GtkName=start-selection
      Count=0
    Prop=EndSelection
      PropType=Signal
      PascalType=signal
      GtkName=end-selection
      Count=0
    Prop=ToggleAddMode
      PropType=Signal
      PascalType=signal
      GtkName=toggle-add-mode
      Count=0
    Prop=AbortColumnResize
      PropType=Signal
      PascalType=signal
      GtkName=abort-column-resize
      Count=0
    Prop=ExtendSelection
      PropType=Signal
      PascalType=CListScrollBooleanSignal
      GtkName=extend-selection
      Count=0
    Prop=ColumnClickedSignal
      PropType=SignalType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=column
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=ClickColumn
      PropType=Signal
      PascalType=ColumnClickedSignal
      GtkName=click-column
      Count=0
    Prop=ResizeColumnSignal
      PropType=SignalType
      Count=4
      Param=Sender
        PascalType=TFPgtkObject
      Param=column
        PascalType=integer
      Param=width
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=ResizeColumn
      PropType=Signal
      PascalType=ResizeColumnSignal
      GtkName=resize-column
      Count=0
  Object=CTree
    Inherit=CList
    GtkFuncName=ctree
    CreateParams=FColumnCount, FTreeColumn
    Count=55
    Prop=LineStyle
      PropType=Property
      PascalType=TGtkCTreeLineStyle
      Code=begin,"  result := TGtkCTreeLineStyle(gtk.line_style(TheGtkObject^));",end;
      ReadConvert
      ReadFuncType=Proc
      WriteGtkName=line_style
      Count=0
    Prop=ShowStub
      PropType=Property
      PascalType=boolean
      Code=begin,"  result := boolean(gtk.show_stub(TheGtkObject^));",end;
      ReadConvert
      ReadFuncType=Proc
      WriteGtkName=show_stub
      WriteCode=,
      Count=0
    Prop=ExpanderStyle
      PropType=Property
      PascalType=TGtkCTreeExpanderStyle
      Code=begin,"  result := TGtkCTreeExpanderStyle(gtk.expander_style(TheGtkObject^));",end;
      ReadFuncType=Proc
      WriteGtkName=expander_style
      Count=0
    Prop=Spacing
      PropType=Property
      PascalType=guint
      GtkName=tree_spacing
      ReadFuncType=ObjField
      WriteGtkName=spacing
      Count=0
    Prop=Indent
      PropType=Property
      PascalType=guint
      GtkName=tree_indent
      ReadFuncType=ObjField
      WriteGtkName=indent
      Count=0
    Prop=FTreeColumn
      PropType=Field
      Section=Private
      PascalType=integer
      Count=0
    Prop=TreeColumn
      PropType=Property
      PascalType=integer
      GtkName=tree_column
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  FTreeColumn := aTreeColumn;","  inherited Create (aColumnCount);",end;
      Count=2
      Param=aColumnCount
        PascalType=integer
      Param=aTreeColumn
        PascalType=integer
    Prop=RemoveNode
      PropType=Procedure
      GtkName=remove_node
      Count=1
      Param=node
        PascalType=PGtkCTreeNode
    Prop=InsertNode
      PropType=Function
      PascalType=PGtkCTreeNode
      GtkName=insert_node
      Overload
      Count=10
      Param=aParent
        PascalType=PGtkCTreeNode
      Param=Sibling
        PascalType=PGtkCTreeNode
      Param=data
        Convert
        PascalType=string
      Param=aSpacing
        PascalType=guint8
      Param=PixmapClosed
        PascalType=PGdkPixmap
      Param=MaskClosed
        PascalType=PGdkBitmap
      Param=PixmapOpened
        PascalType=PGdkPixmap
      Param=MaskOpened
        PascalType=PGdkBitmap
      Param=IsLeaf
        PascalType=boolean
      Param=Expanded
        PascalType=boolean
    Prop=InsertNode
      PropType=Function
      PascalType=PGtkCTreeNode
      Code=begin,"  result := InsertNode (aParent, Sibling, data, aSpacing, nil, nil, nil, nil, IsLeaf, Expanded);",end;
      Overload
      Count=6
      Param=aParent
        PascalType=PGtkCTreeNode
      Param=Sibling
        PascalType=PGtkCTreeNode
      Param=data
        Convert
        PascalType=string
      Param=aSpacing
        PascalType=guint8
      Param=IsLeaf
        PascalType=boolean
      Param=Expanded
        PascalType=boolean
    Prop=FunctionTypes
      PropType=TypeDeclaration
      Code="  TFPgtkCTreeFunction = procedure (TheTree:TFPgtkCTree; TheNode:PGtkCTreeNode; data:pointer) of object;"
      Count=0
    Prop=FPgtkCTreeFunc
      PropType=HelperProc
      Section=Private
      Code="var p : TFPgtkCTreeFunction;",begin,"  with PSignalData(data)^ do","  begin","    p := TFPgtkCTreeFunction (TheSignalProc);","    p (TFPgtkCTree(GetPascalInstance(PgtkObject(Tree))), Node, data);","  end;",end;
      Cdecl
      Count=3
      Param=Tree
        PascalType=PGtkCTree
      Param=Node
        PascalType=PGtkCTreeNode
      Param=data
        PascalType=pointer
    Prop=PostRecursive
      PropType=Procedure
      Code=begin,"  gtk_CTree_post_recursive (TheGtkObject, aNode, @FPgtkCTreeFunc, ","        ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
      Count=3
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=func
        PascalType=TFPgtkCTreeFunction
      Param=data
        PascalType=pointer
    Prop=PostRecursiveToDepth
      PropType=Procedure
      Code=begin,"  gtk_CTree_post_recursive_to_depth (TheGtkObject, aNode, aDepth, @FPgtkCTreeFunc, ","        ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
      Count=4
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aDepth
        PascalType=integer
      Param=func
        PascalType=TFPgtkCTreeFunction
      Param=data
        PascalType=pointer
    Prop=PreRecursive
      PropType=Procedure
      Code=begin,"  gtk_CTree_pre_recursive (TheGtkObject, aNode, @FPgtkCTreeFunc, ","        ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
      Count=3
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=func
        PascalType=TFPgtkCTreeFunction
      Param=data
        PascalType=pointer
    Prop=PreRecursiveToDepth
      PropType=Procedure
      Code=begin,"  gtk_CTree_pre_recursive_to_depth (TheGtkObject, aNode, aDepth, @FPgtkCTreeFunc, ","        ConvertSignalData(TFPgtkSignalFunction(func), data, true));",end;
      Count=4
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aDepth
        PascalType=integer
      Param=func
        PascalType=TFPgtkCTreeFunction
      Param=data
        PascalType=pointer
    Prop=IsViewable
      PropType=Procedure
      GtkName=is_viewable
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=LastChild
      PropType=Procedure
      GtkName=last
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=IsChild
      PropType=Function
      PascalType=boolean
      GtkName=find
      Count=2
      Param=anAncestor
        PascalType=PGtkCTreeNode
      Param=aChild
        PascalType=PGtkCTreeNode
    Prop=IsAncestor
      PropType=Function
      PascalType=boolean
      GtkName=is_ancestor
      Count=2
      Param=anAncestor
        PascalType=PGtkCTreeNode
      Param=aChild
        PascalType=PGtkCTreeNode
    Prop=IsHotSpot
      PropType=Function
      PascalType=boolean
      GtkName=is_hot_spot
      Count=2
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
    Prop=MoveNode
      PropType=Procedure
      GtkName=move
      Count=3
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=NewParent
        PascalType=PGtkCTreeNode
      Param=NewSibling
        PascalType=PGtkCTreeNode
    Prop=Expand
      PropType=Procedure
      GtkName=expand
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=ExpandRecursive
      PropType=Procedure
      GtkName=expand_recursive
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=ExpandToDepth
      PropType=Procedure
      GtkName=expand_to_depth
      Count=2
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aDepth
        PascalType=integer
    Prop=Collapse
      PropType=Procedure
      GtkName=collapse
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=CollapseRecursive
      PropType=Procedure
      GtkName=collapse_recursive
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=CollapseToDepth
      PropType=Procedure
      GtkName=collapse_to_depth
      Count=2
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aDepth
        PascalType=integer
    Prop=SelectNode
      PropType=Procedure
      GtkName=select
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=SelectRecursive
      PropType=Procedure
      GtkName=select_recursive
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=UnselectNode
      PropType=Procedure
      GtkName=unselect
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=UnselectRecursive
      PropType=Procedure
      GtkName=unselect_recursive
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=RealSelectRecursive
      PropType=Procedure
      Code=begin,"  gtk_ctree_real_select_recursive (TheGtkObject, aNode, ord(aState));",end;
      Count=2
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aState
        PascalType=boolean
    Prop=NodeGetCellType
      PropType=Function
      PascalType=TGtkCellType
      GtkName=node_get_cell_type
      Count=2
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
    Prop=NodeCellText
      PropType=Property
      PascalType=string
      Code="var s : pgchar;","    r : integer;",begin,"  r := gtk_ctree_node_get_text (TheGtkObject, node, column, @s);","  if (r = 0) then","    result := ''","  else","    result := string(s^);",end;
      ReadFuncType=Proc
      WriteProcType=GtkMacro
      WriteGtkName=node_set_text
      WriteConvert
      Count=2
      Param=Node
        PascalType=PGtkCTreeNode
      Param=Column
        PascalType=integer
    Prop=NodeSetPixmap
      PropType=Procedure
      GtkName=node_set_pixmap
      Count=4
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
      Param=pixmap
        Convert
        PascalType=PGdkPixmap
      Param=mask
        PascalType=PGdkBitmap
    Prop=NodeGetPixmap
      PropType=Procedure
      Code=begin,"  gtk_ctree_node_get_pixmap (TheGtkObject, node, column, @pixmap, @mask);",end;
      Count=4
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
      Param=pixmap
        PascalType=PGdkPixmap
        ParamType=Var
      Param=mask
        PascalType=PGdkBitmap
        ParamType=Var
    Prop=NodeSetPixText
      PropType=Procedure
      GtkName=node_set_pixtext
      Count=6
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
      Param=text
        Convert
        PascalType=string
      Param=aspacing
        PascalType=guint8
      Param=pixmap
        PascalType=PGdkPixmap
      Param=mask
        PascalType=PGdkBitmap
    Prop=NodeGetPixText
      PropType=Procedure
      Code="var r : integer;","    s : PPgchar;",begin,"  s := nil;","  r := gtk_ctree_node_get_pixtext (TheGtkObject, node, column, s, @aspacing, @pixmap, @mask);","  if r = 0 then","    begin","    text := '';","    pixmap := nil;","    mask := nil;","    end","  else","    text := string (s^);",end;
      Count=6
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
      Param=text
        PascalType=string
        ParamType=Var
      Param=aspacing
        PascalType=guint8
        ParamType=Var
      Param=pixmap
        PascalType=PGdkPixmap
        ParamType=Var
      Param=mask
        PascalType=PGdkBitmap
        ParamType=Var
    Prop=SetNodeInfo
      PropType=Procedure
      GtkName=set_node_info
      Overload
      Count=9
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aText
        Convert
        PascalType=string
      Param=aSpacing
        PascalType=guint8
      Param=PixmapClosed
        PascalType=PGdkPixmap
      Param=MaskClosed
        PascalType=PGdkBitmap
      Param=PixmapOpened
        PascalType=PGdkPixmap
      Param=MaskOpened
        PascalType=PGdkBitmap
      Param=IsLeaf
        PascalType=boolean
      Param=Expanded
        PascalType=boolean
    Prop=GetNodeInfo
      PropType=Procedure
      Code="var r : integer;","    s : PPgchar;",begin,"  s := nil;","  r := gtk_ctree_get_node_info (TheGtkObject, aNode, s, ","      @aspacing, @pixmapClosed, @maskClosed, @pixmapOpened, @maskOpened,","      @IsLeaf, @expanded);","  if r = 0 then","    begin","    atext := '';","    Spacing := 0;","    pixmapClosed := nil;","    maskClosed := nil;","    pixmapOpened := nil;","    maskOpened := nil;","    IsLeaf := false;","    Expanded := false;","    end","  else","    atext := string (s^);",end;
      Overload
      Count=9
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=aText
        Convert
        PascalType=string
        ParamType=Var
      Param=aSpacing
        Convert
        PascalType=guint8
        ParamType=Var
      Param=PixmapClosed
        Convert
        PascalType=PGdkPixmap
        ParamType=Var
      Param=MaskClosed
        Convert
        PascalType=PGdkBitmap
        ParamType=Var
      Param=PixmapOpened
        Convert
        PascalType=PGdkPixmap
        ParamType=Var
      Param=MaskOpened
        Convert
        PascalType=PGdkBitmap
        ParamType=Var
      Param=IsLeaf
        Convert
        PascalType=boolean
        ParamType=Var
      Param=Expanded
        Convert
        PascalType=boolean
        ParamType=Var
    Prop=NodeSetShift
      PropType=Procedure
      GtkName=node_set_shift
      Count=4
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
      Param=vertical
        Convert
        PascalType=integer
      Param=horizontal
        PascalType=integer
    Prop=NodeSelectable
      PropType=Property
      PascalType=boolean
      GtkName=node_get_selectable
      ReadFuncType=GtkMacro
      WriteProcType=GtkMacro
      WriteGtkName=node_set_selectable
      Count=1
      Param=Node
        PascalType=PGtkCTreeNode
    Prop=NodeSetForeground
      PropType=Procedure
      GtkName=node_set_foreground
      Count=2
      Param=Node
        PascalType=PGtkCTreeNode
      Param=color
        PascalType=PGdkColor
    Prop=NodeSetBackground
      PropType=Procedure
      GtkName=node_set_background
      Count=2
      Param=Node
        PascalType=PGtkCTreeNode
      Param=color
        PascalType=PGdkColor
    Prop=NodeCellStyle
      PropType=Property
      PascalType=PGtkStyle
      GtkName=node_get_cell_style
      ReadFuncType=GtkMacro
      WriteProcType=GtkMacro
      WriteGtkName=node_set_cell_style
      Count=2
      Param=Node
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
    Prop=NodeRowStyle
      PropType=Property
      PascalType=PGtkStyle
      GtkName=node_get_row_style
      ReadFuncType=GtkMacro
      WriteProcType=GtkMacro
      WriteGtkName=node_set_row_style
      Count=1
      Param=Node
        PascalType=PGtkCTreeNode
    Prop=NodeData
      PropType=Property
      PascalType=pointer
      GtkName=node_get_row_data
      ReadFuncType=GtkMacro
      WriteProcType=GtkMacro
      WriteGtkName=node_set_row_data
      Count=1
      Param=Node
        PascalType=PGtkCTreeNode
    Prop=NodeMoveTo
      PropType=Procedure
      GtkName=node_moveto
      Count=4
      Param=aNode
        PascalType=PGtkCTreeNode
      Param=column
        PascalType=integer
      Param=RowAlign
        PascalType=gfloat
      Param=ColAlign
        PascalType=gfloat
    Prop=IsVisible
      PropType=Function
      PascalType=TGtkVisibility
      GtkName=node_is_visible
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=CompareDragFunc
      PropType=Property
      PascalType=TGtkCTreeCompareDragFunc
      GtkName=drag_compare
      ReadFuncType=ObjField
      WriteGtkName=drag_compare_func
      Count=0
    Prop=SortNode
      PropType=Procedure
      GtkName=sort_node
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=SortRecursive
      PropType=Procedure
      GtkName=sort_recursive
      Count=1
      Param=aNode
        PascalType=PGtkCTreeNode
    Prop=NthNode
      PropType=Function
      PascalType=PGtkCTreeNode
      GtkName=node_Nth
      Count=1
      Param=Row
        PascalType=integer
  Object=Fixed
    Inherit=Container
    GtkFuncName=fixed
    CreateObject
    Count=3
    Prop=Put
      PropType=Procedure
      GtkName=put
      Count=3
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=x
        PascalType=integer
      Param=y
        PascalType=integer
    Prop=Move
      PropType=Procedure
      GtkName=move
      Count=3
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=x
        PascalType=integer
      Param=y
        PascalType=integer
    Prop=GetPos
      PropType=Procedure
      Code="var g : TFPgtkGroup;","    r : integer;",begin,"  g := TFPgtkGroup.Create;","  try","    g.ManageLists := false;","    g.gtkList := TheGtkObject^.children;","    r := g.indexof (Widget);","    if r < 0 then","      begin","      PosX := -1;","      PosY := -1;","      end","    else","      with PGtkFixedChild(g.Items[r])^ do","        begin","        PosX := x;","        PosY := Y;","        end;","  finally","    g.Free;","  end;",end;
      Count=3
      Param=Widget
        PascalType=TFPgtkWidget
      Param=PosX
        PascalType=integer
        ParamType=Var
      Param=PosY
        PascalType=integer
        ParamType=Var
  Object=Notebook
    Inherit=Container
    GtkFuncName=notebook
    CreateObject
    Count=32
    Prop=AppendPage
      PropType=Procedure
      Code=begin,"  gtk_notebook_append_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));","  Child.Show;",end;
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
    Prop=AppendPageFull
      PropType=Procedure
      Code=begin,"  if assigned (MenuLabel) then","    gtk_notebook_append_page_menu (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), ConvertTogtkWidget(MenuLabel))","  else","    gtk_notebook_append_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));","  if isvisible then","    Child.Show;",end;
      Count=4
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
      Param=MenuLabel
        Convert
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
    Prop=PrependPage
      PropType=Procedure
      GtkName=Prepend_page
      Code=begin,"  gtk_notebook_prepend_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));","  Child.Show;",end;
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
    Prop=PrependPageFull
      PropType=Procedure
      Code=begin,"  if assigned (MenuLabel) then","    gtk_notebook_prepend_page_menu (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), ConvertTogtkWidget(MenuLabel))","  else","    gtk_notebook_prepend_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel));","  if isvisible then","    Child.Show;",end;
      Count=4
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
      Param=MenuLabel
        Convert
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
    Prop=InsertPage
      PropType=Procedure
      GtkName=insert_page
      Code=begin,"  gtk_notebook_insert_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), position);","  Child.Show;",end;
      Count=3
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
      Param=Position
        PascalType=integer
    Prop=InsertPageFull
      PropType=Procedure
      Code=begin,"  if assigned (MenuLabel) then","    gtk_notebook_insert_page_menu (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), ConvertTogtkWidget(MenuLabel), position)","  else","    gtk_notebook_insert_page (TheGtkObject, ConvertTogtkWidget(Child), ConvertTogtkWidget(TabLabel), position);","  if isvisible then","    Child.Show;",end;
      Count=5
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
      Param=MenuLabel
        Convert
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
      Param=Position
        PascalType=integer
    Prop=RemovePage
      PropType=Procedure
      GtkName=remove_page
      Count=1
      Param=PageNumber
        PascalType=integer
    Prop=PageNumberOf
      PropType=Function
      PascalType=integer
      GtkName=page_num
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=NextPage
      PropType=Procedure
      GtkName=next_page
      Count=0
    Prop=PrevPage
      PropType=Procedure
      GtkName=prev_page
      Count=0
    Prop=ReorderPage
      PropType=Procedure
      GtkName=reorder_child
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=PageNum
        PascalType=integer
    Prop=PageIndex
      PropType=Property
      PascalType=integer
      GtkName=current_page
      WriteGtkName=page
      Count=0
    Prop=Page
      PropType=Property
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetChildOnPage (PageIndex);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode="var r : integer;",begin,"  r := PageNumberOf (TheValue);","  if r > -1 then","    PageIndex := r;",end;
      Count=0
    Prop=TabPos
      PropType=Property
      PascalType=TGtkPositionType
      GtkName=tab_pos
      ReadFuncType=ObjFunc
      WriteGtkName=tab_pos
      Count=0
    Prop=ShowTabs
      PropType=Property
      PascalType=boolean
      GtkName=show_tabs
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=show_tabs
      Count=0
    Prop=ShowBorder
      PropType=Property
      PascalType=boolean
      GtkName=show_border
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=show_border
      Count=0
    Prop=Scrollable
      PropType=Property
      PascalType=boolean
      GtkName=scrollable
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=scrollable
      Count=0
    Prop=Homogenous
      PropType=Property
      PascalType=boolean
      GtkName=homogeneous
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=homogeneous_tabs
      Count=0
    Prop=TabHBorder
      PropType=Property
      PascalType=word
      GtkName=tab_hborder
      ReadFuncType=ObjField
      WriteGtkName=tab_hborder
      Count=0
    Prop=TabVBorder
      PropType=Property
      PascalType=word
      GtkName=tab_vborder
      ReadFuncType=ObjField
      WriteGtkName=tab_vborder
      Count=0
    Prop=SetTabBorders
      PropType=Procedure
      GtkName=set_tab_border
      ReadFuncType=ObjField
      WriteGtkName=tab_border
      Count=1
      Param=BorderWidth
        PascalType=word
    Prop=GetMenuLabelOf
      PropType=Function
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetPascalInstance (PGtkObject(gtk_notebook_get_menu_label (TheGtkObject, ConvertTogtkWidget(Child)))) as TFPgtkWidget;",end;
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=SetMenuLabel
      PropType=Procedure
      GtkName=set_menu_label
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=MenuLabel
        Convert
        PascalType=TFPgtkWidget
    Prop=GetTabLabelOf
      PropType=Function
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetPascalInstance (PGtkObject(gtk_notebook_get_tab_label (TheGtkObject, ConvertTogtkWidget(Child)))) as TFPgtkWidget;",end;
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=SetTabLabel
      PropType=Procedure
      GtkName=set_tab_label
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=TabLabel
        Convert
        PascalType=TFPgtkWidget
    Prop=GetChildOnPage
      PropType=Function
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetPascalInstance (PGtkObject(gtk_notebook_get_nth_page (TheGtkObject, PageNum))) as TFPgtkWidget;",end;
      Count=1
      Param=PageNum
        PascalType=integer
    Prop=GetTabLabelPacking
      PropType=Procedure
      Code="var PT : PGtkPackType;",begin,"  pt := @PackType;","  gtk_notebook_query_tab_label_packing (TheGtkObject, ConvertTogtkWidget(widget), ","                               @expand, @fill, pt);",end;
      Count=4
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=Expand
        PascalType=boolean
        ParamType=Var
      Param=Fill
        PascalType=boolean
        ParamType=Var
      Param=PackType
        PascalType=TGtkPackType
        ParamType=Var
    Prop=SetTabLabelPacking
      PropType=Procedure
      GtkName=set_tab_label_packing
      Count=4
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=Expand
        PascalType=boolean
      Param=Fill
        PascalType=boolean
      Param=PackType
        PascalType=TGtkPackType
    Prop=EnablePopup
      PropType=Procedure
      GtkName=popup_enable
      Count=0
    Prop=DisablePopup
      PropType=Procedure
      GtkName=popup_disable
      Count=0
    Prop=PageSwitchSignal
      PropType=SignalType
      Count=4
      Param=Sender
        Convert
        PascalType=TFPgtkObject
      Param=PageRec
        PascalType=PGtkNotebookPage
      Param=aPageNum
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=SwitchPage
      PropType=Signal
      PascalType=PageSwitchSignal
      GtkName=switch-page
      Count=0
  Object=FontSelection
    Inherit=Notebook
    GtkFuncName=font_selection
    CreateObject
    Count=5
    Prop=resourcestrings
      PropType=Declarations
      Code=resourcestring,"  sFontNotFound = 'Can''t find font ""%s"" on this system';"
      Count=0
    Prop=FontName
      PropType=Property
      PascalType=string
      GtkName=font_name
      ReadConvert
      WriteProcType=Proc
      WriteCode=begin,"  if not gtk_font_selection_set_font_name (TheGtkObject, pgchar(TheValue)) then","    raise exception.CreateFmt (sFontNotFound, [TheValue]);",end;
      Count=0
    Prop=GetFont
      PropType=Function
      PascalType=PGdkFont
      GtkName=get_font
      Count=0
    Prop=PreviewText
      PropType=Property
      PascalType=string
      GtkName=preview_text
      ReadConvert
      WriteGtkName=preview_text
      WriteConvert
      Count=0
    Prop=SetFilter
      PropType=Procedure
      Code="var ppF, ppW, ppSl, ppSW, ppSp, ppC : ppgchar;",,"  function MakePP (data : array of string) : ppgchar;","  begin","    if high(data) > low(data) then","      result := ArrayToPPgchar(data)","    else","      result := nil;","  end;",,"  procedure FreePP (ppdata : ppgchar; data : array of string);","  begin","    if assigned (ppdata) then","      freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));","  end;",,begin,"  ppF := MakePP(Foundries);","  ppW := MakePP(Weights);","  ppSl := MakePP(Slants);","  ppSW := MakePP(SetWidths);","  ppSp := MakePP(Spacings);","  ppC := MakePP(CharSets);","  gtk_font_selection_set_filter (TheGtkObject, FilterType, FontType, ppF, ppW, ppSl, ppSW, ppSp, ppC);","  FreePP (ppF, Foundries);","  FreePP (ppW, Weights);","  FreePP (ppSl, Slants);","  FreePP (ppSW, SetWidths);","  FreePP (ppSp, Spacings);","  FreePP (ppC, CharSets);",end;
      Count=8
      Param=FilterType
        PascalType=TGtkFontFilterType
      Param=FontType
        PascalType=TGtkFontType
      Param=Foundries
        PascalType=array of string
      Param=Weights
        PascalType=array of string
      Param=Slants
        PascalType=array of string
      Param=SetWidths
        PascalType=array of string
      Param=Spacings
        PascalType=array of string
      Param=CharSets
        PascalType=array of string
  Object=Paned
    Inherit=Container
    GtkFuncName=paned
    Count=12
    Prop=GutterSize
      PropType=Property
      PascalType=word
      GtkName=gutter_size
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  {$ifdef gtkwin}","  TheGtkObject^.gutter_size := TheValue;","  {$else}","  gtk_paned_set_gutter_size(TheGtkObject,TheValue);","  {$endif}",end;
      Count=0
    Prop=HandleSize
      PropType=Property
      PascalType=word
      GtkName=handle_size
      ReadFuncType=ObjField
      WriteGtkName=handle_size
      Count=0
    Prop=Position
      PropType=Property
      PascalType=integer
      GtkName=child1_size
      ReadFuncType=ObjField
      WriteGtkName=position
      Count=0
    Prop=ComputePosition
      PropType=Procedure
      GtkName=compute_position
      Count=3
      Param=AnAllocation
        PascalType=integer
      Param=Child1Req
        PascalType=integer
      Param=Child2Req
        PascalType=integer
    Prop=Add1
      PropType=Procedure
      Code=begin,"  gtk_paned_add1 (TheGtkObject, ConvertToGtkWidget(Child));","  Child.Show;",end;
      Overload
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=Pack1
      PropType=Procedure
      Code=begin,"  gtk_paned_pack1 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);","  Child.Show;",end;
      Overload
      Count=3
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=Resize
        Convert
        PascalType=boolean
      Param=Shrink
        Convert
        PascalType=boolean
    Prop=Add1
      PropType=Procedure
      Code=begin,"  gtk_paned_add1 (TheGtkObject, ConvertToGtkWidget(Child));","  if isvisible then","    Child.Show;",end;
      Overload
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=isVisible
        PascalType=boolean
    Prop=Pack1
      PropType=Procedure
      Code=begin,"  gtk_paned_pack1 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);","  if isvisible then","    Child.Show;",end;
      Overload
      Count=4
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=Resize
        Convert
        PascalType=boolean
      Param=Shrink
        Convert
        PascalType=boolean
      Param=IsVisible
        PascalType=boolean
    Prop=Add2
      PropType=Procedure
      Code=begin,"  gtk_paned_add2 (TheGtkObject, ConvertToGtkWidget(Child));","  Child.Show;",end;
      Overload
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=Pack2
      PropType=Procedure
      Code=begin,"  gtk_paned_pack2 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);","  Child.Show;",end;
      Overload
      Count=3
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=Resize
        Convert
        PascalType=boolean
      Param=Shrink
        Convert
        PascalType=boolean
    Prop=Add2
      PropType=Procedure
      Code=begin,"  gtk_paned_add2 (TheGtkObject, ConvertToGtkWidget(Child));","  if isvisible then","    Child.Show;",end;
      Overload
      Count=2
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=IsVisible
        PascalType=boolean
    Prop=Pack2
      PropType=Procedure
      Code=begin,"  gtk_paned_pack2 (TheGtkObject, ConvertToGtkWidget(Child), Resize, Shrink);","  if isvisible then","    Child.Show;",end;
      Overload
      Count=4
      Param=Child
        Convert
        PascalType=TFPgtkWidget
      Param=Resize
        Convert
        PascalType=boolean
      Param=Shrink
        Convert
        PascalType=boolean
      Param=IsVisible
        PascalType=boolean
  Object=HPaned
    Inherit=Paned
    GtkFuncName=hpaned
    CreateObject
    Count=0
  Object=VPaned
    Inherit=Paned
    GtkFuncName=vpaned
    CreateObject
    Count=0
  Object=Layout
    Inherit=Container
    GtkFuncName=layout
    CreateParams=nil,nil
    CreateObject
    Count=8
    Prop=HAdj
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=hadjustment
      ReadConvert
      WriteGtkName=hadjustment
      WriteConvert
      Count=0
    Prop=VAdj
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=vadjustment
      ReadConvert
      WriteGtkName=vadjustment
      WriteConvert
      Count=0
    Prop=Freeze
      PropType=Procedure
      GtkName=freeze
      Count=0
    Prop=Thaw
      PropType=Procedure
      GtkName=thaw
      Count=0
    Prop=Put
      PropType=Procedure
      Code=begin,"  gtk_layout_put (TheGtkObject, PGtkwidget(ConvertToGtkObject(aWidget)), X, Y);","  aWidget.Show;",end;
      Overload
      Count=3
      Param=aWidget
        Convert
        PascalType=TFPgtkWidget
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
    Prop=Put
      PropType=Procedure
      Code=begin,"  gtk_layout_put (TheGtkObject, PGtkwidget(ConvertToGtkObject(aWidget)), X, Y);","  if aVisible then","    aWidget.Show;",end;
      Overload
      Count=4
      Param=aWidget
        Convert
        PascalType=TFPgtkWidget
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
      Param=aVisible
        PascalType=boolean
    Prop=Move
      PropType=Procedure
      GtkName=move
      Count=3
      Param=aWidget
        Convert
        PascalType=TFPgtkWidget
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
    Prop=SetSize
      PropType=Procedure
      GtkName=set_size
      Count=2
      Param=aWidth
        PascalType=integer
      Param=aHeight
        PascalType=integer
  Object=List
    Inherit=Container
    GtkFuncName=list
    CreateObject
    Count=29
    Prop=SelectionChanged
      PropType=Signal
      PascalType=signal
      GtkName=selection-changed
      Count=0
    Prop=SelectChild
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=select-child
      Count=0
    Prop=UnselectChild
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=unselect-child
      Count=0
    Prop=SelectionMode
      PropType=Property
      PascalType=TGtkSelectionMode
      Code=begin,"  result := TGtkSelectionMode(Selection_mode(TheGtkObject^));",end;
      ReadFuncType=Proc
      WriteGtkName=selection_mode
      Count=0
    Prop=InsertItems
      PropType=Procedure
      Code=begin,"  gtk_list_insert_items (TheGtkObject, TheItems.GtkList, position);",end;
      Count=2
      Param=TheItems
        PascalType=TFPgtkListItemGroup
      Param=position
        PascalType=integer
    Prop=AppendItems
      PropType=Procedure
      Code=begin,"  gtk_list_append_items (TheGtkObject, TheItems.GtkList);",end;
      Count=1
      Param=TheItems
        PascalType=TFPgtkListItemGroup
    Prop=PrependItems
      PropType=Procedure
      Code=begin,"  gtk_list_prepend_items (TheGtkObject, TheItems.GtkList);",end;
      Count=1
      Param=TheItems
        PascalType=TFPgtkListItemGroup
    Prop=RemoveItems
      PropType=Procedure
      Code=begin,"  gtk_list_remove_items (TheGtkObject, TheItems.GtkList);",end;
      Count=1
      Param=TheItems
        PascalType=TFPgtkListItemGroup
    Prop=RemoveItemsNoUnref
      PropType=Procedure
      Code=begin,"  gtk_list_remove_items_no_unref (TheGtkObject, TheItems.GtkList);",end;
      Count=1
      Param=TheItems
        PascalType=TFPgtkListItemGroup
    Prop=ClearItems
      PropType=Procedure
      Code=begin,"  if ToItem >= 0 then","    inc (ToItem);","  gtk_list_clear_items (TheGtkObject, FromItem, ToItem);",end;
      Count=2
      Param=FromItem
        PascalType=integer
      Param=ToItem
        PascalType=integer
    Prop=ClearAll
      PropType=Procedure
      Code=begin,"  ClearItems (0,-1);",end;
      Count=0
    Prop=SelectItem
      PropType=Procedure
      GtkName=select_item
      Count=1
      Param=Item
        PascalType=integer
    Prop=UnselectItem
      PropType=Procedure
      GtkName=unselect_item
      Count=1
      Param=Item
        PascalType=integer
    Prop=SelectChild
      PropType=Procedure
      GtkName=select_child
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=UnselectChild
      PropType=Procedure
      GtkName=unselect_child
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=ChildPosition
      PropType=Function
      PascalType=integer
      GtkName=child_position
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=ExtendSelection
      PropType=Procedure
      GtkName=extend_selection
      Count=3
      Param=ScrollType
        PascalType=TGtkScrollType
      Param=Position
        PascalType=gfloat
      Param=AutoStartSelection
        PascalType=boolean
    Prop=StartSelection
      PropType=Procedure
      GtkName=start_selection
      Count=0
    Prop=EndSelection
      PropType=Procedure
      GtkName=end_selection
      Count=0
    Prop=SelectAll
      PropType=Procedure
      GtkName=select_all
      Count=0
    Prop=UnselectAll
      PropType=Procedure
      GtkName=unselect_all
      Count=0
    Prop=ScrollHorizontal
      PropType=Procedure
      GtkName=scroll_horizontal
      Count=2
      Param=ScrollType
        PascalType=TGtkScrollType
      Param=Position
        PascalType=gfloat
    Prop=ScrollVertical
      PropType=Procedure
      GtkName=scroll_vertical
      Count=2
      Param=ScrollType
        PascalType=TGtkScrollType
      Param=Position
        PascalType=gfloat
    Prop=ToggleAddMode
      PropType=Procedure
      GtkName=toggle_add_mode
      Count=0
    Prop=ToggleFocusRow
      PropType=Procedure
      GtkName=toggle_focus_row
      Count=0
    Prop=ToggleRow
      PropType=Procedure
      GtkName=toggle_row
      Count=1
      Param=Child
        Convert
        PascalType=TFPgtkWidget
    Prop=UndoSelection
      PropType=Procedure
      GtkName=undo_selection
      Count=0
    Prop=EndDragSelection
      PropType=Procedure
      GtkName=end_drag_selection
      Count=0
    Prop=GetSelection
      PropType=Procedure
      Code=begin,"  with aGroup do","    begin","    ManageLists := False;","    GtkList := TheGtkObject^.Selection;","    end;",end;
      Count=1
      Param=aGroup
        PascalType=TFPgtkGroup
  Object=MenuShell
    Inherit=Container
    GtkFuncName=menu_shell
    Count=18
    Prop=MoveCurrentSignal
      PropType=SignalType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=dir
        PascalType=TGtkMenuDirectionType
      Param=data
        PascalType=pointer
    Prop=GtkPrepend
      PropType=Procedure
      Section=Protected
      GtkName=prepend
      Virtual
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=GtkInsert
      PropType=Procedure
      Section=Protected
      GtkName=insert
      Virtual
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=GtkAppend
      PropType=Procedure
      Section=Protected
      GtkName=append
      Virtual
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=ActivateItem
      PropType=Procedure
      GtkName=activate_item
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=ForceDeactivate
        PascalType=boolean
    Prop=SelectItem
      PropType=Procedure
      GtkName=select_item
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=DeActivate
      PropType=Procedure
      GtkName=deactivate
      Count=0
    Prop=Prepend
      PropType=Procedure
      Code=begin,"  GtkPrepend (MenuItem);","  MenuItem.Show;",end;
      Overload
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=Prepend
      PropType=Procedure
      Code=begin,"  GtkPrepend (MenuItem);","  if createvisible then","    MenuItem.Show;",end;
      Overload
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=CreateVisible
        PascalType=boolean
    Prop=Insert
      PropType=Procedure
      Code=begin,"  GtkInsert (MenuItem, position);","  MenuItem.Show;",end;
      Overload
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=Insert
      PropType=Procedure
      Code=begin,"  GtkInsert (MenuItem, position);","  if createvisible then","    MenuItem.Show;",end;
      Overload
      Count=3
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
      Param=CreateVisible
        PascalType=boolean
    Prop=Append
      PropType=Procedure
      Code=begin,"  GtkAppend (MenuItem);","  MenuItem.Show;",end;
      Overload
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=Append
      PropType=Procedure
      Code=begin,"  GtkAppend (MenuItem);","  if createvisible then","    MenuItem.Show;",end;
      Overload
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=CreateVisible
        PascalType=boolean
    Prop=DeActivate
      PropType=Signal
      PascalType=Signal
      GtkName=deactivate
      Count=0
    Prop=SelectionDone
      PropType=Signal
      PascalType=Signal
      GtkName=selection-done
      Count=0
    Prop=Cancel
      PropType=Signal
      PascalType=Signal
      GtkName=cancel
      Count=0
    Prop=MoveCurrent
      PropType=Signal
      PascalType=MoveCurrentSignal
      GtkName=move-current
      Count=0
    Prop=ActivateCurrent
      PropType=Signal
      PascalType=BooleanSignal
      GtkName=activate-current
      Count=0
  Object=MenuBar
    Inherit=MenuShell
    GtkFuncName=menu_bar
    CreateObject
    Count=4
    Prop=GtkPrepend
      PropType=Procedure
      Section=Protected
      GtkName=prepend
      Override
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=GtkInsert
      PropType=Procedure
      Section=Protected
      GtkName=insert
      Override
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=GtkAppend
      PropType=Procedure
      Section=Protected
      GtkName=append
      Override
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=Shadow
      PropType=Property
      PascalType=TgtkShadowType
      GtkName=shadow_type
      ReadFuncType=ObjField
      WriteGtkName=shadow_type
      Count=0
  Object=Menu
    Inherit=MenuShell
    GtkFuncName=menu
    CreateObject
    Count=20
    Prop=GtkPrepend
      PropType=Procedure
      Section=Protected
      GtkName=prepend
      Override
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=GtkInsert
      PropType=Procedure
      Section=Protected
      GtkName=insert
      Override
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=GtkAppend
      PropType=Procedure
      Section=Protected
      GtkName=append
      Override
      Count=1
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
    Prop=Functiontypes
      PropType=TypeDeclaration
      Code="  TFPgtkMenuDetachFunction = procedure (Widget:TFPgtkWidget; menu:TFPgtkMenu) of object;","  TFPgtkMenuPosFunction = procedure (menu:TFPgtkMenu; var x,y:integer; data:pointer) of object;"
      Count=0
    Prop=FPgtkMenuPos
      PropType=HelperProc
      Section=Private
      Code="var p : TFPgtkMenuPosFunction;",begin,"  with PSignalData (data)^ do","    begin","    p := TFPgtkMenuPosFunction (TheSignalProc);","    p(TFPgtkMenu(GetPascalInstance(PgtkObject(Sender))), x^, y^, data);","    end;",end;
      Cdecl
      Count=4
      Param=Sender
        PascalType=PgtkMenu
      Param=x
        PascalType=pgint
      Param=y
        PascalType=pgint
      Param=data
        PascalType=pointer
    Prop=FPgtkMenuDetacher
      PropType=HelperProc
      Section=Private
      Code="var m : TFPgtkMenu;","    a : TFPgtkWidget;",begin,"  m := (GetPascalInstance(PgtkObject(TheMenu)) as TFPgtkMenu);","  if assigned(m) and assigned(m.FDetacher) then","    begin","    a := TFPgtkWidget (GetPascalInstance(PgtkObject(AttachedWidget)));","    m.FDetacher (a, m);","    end",end;
      Cdecl
      Count=2
      Param=AttachedWidget
        PascalType=PgtkWidget
      Param=TheMenu
        PascalType=PgtkMenu
    Prop=FDetacher
      PropType=Field
      PascalType=TFPgtkMenuDetachFunction
      Count=0
    Prop=ReorderChild
      PropType=Procedure
      GtkName=reorder_child
      Count=2
      Param=MenuItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=Popup
      PropType=Procedure
      Code=begin,"  gtk_menu_popup (TheGtkObject, null, null, null, null, button, 0);",end;
      Overload
      Count=1
      Param=button
        PascalType=guint
    Prop=Popup
      PropType=Procedure
      Code=begin,"  gtk_menu_popup (TheGtkObject, ConvertTogtkWidget(ParentShell), ConvertTogtkWidget(ParentItem),","      @FPgtkMenuPos, ConvertSignalData(TFPgtkSignalFunction(func), data, true), button, ActivateTime);",end;
      Overload
      Count=6
      Param=ParentShell
        PascalType=TFPgtkWidget
      Param=ParentItem
        PascalType=TFPgtkWidget
      Param=func
        PascalType=TFPgtkMenuPosFunction
      Param=data
        PascalType=pointer
      Param=button
        PascalType=guint
      Param=ActivateTime
        PascalType=guint32
    Prop=PopDown
      PropType=Procedure
      GtkName=popdown
      Count=0
    Prop=Reposition
      PropType=Procedure
      GtkName=reposition
      Count=0
    Prop=AttachToWidget
      PropType=Procedure
      Code=begin,"  FDetacher := detacher;","  gtk_menu_attach_to_widget (TheGtkObject, ConvertTogtkWidget(Widget), @FPgtkMenuDetacher);",end;
      Count=2
      Param=Widget
        PascalType=TFPgtkWidget
      Param=detacher
        PascalType=TFPgtkMenuDetachFunction
    Prop=Detach
      PropType=Procedure
      GtkName=detach
      Count=0
    Prop=Title
      PropType=Property
      PascalType=string
      ReadFuncType=NotImplemented
      WriteProcType=Proc
      WriteCode=begin,"  gtk_menu_set_title(TheGtkObject,Pgchar(TheValue));",end;
      WriteConvert
      Count=0
    Prop=Active
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=active
      ReadConvert
      WriteProcType=Proc
      WriteCode="var r : integer;",begin,"  r := Children.indexof (TheValue);","  if r >= 0 then","    SetActiveIndex (r);",end;
      Count=0
    Prop=ActiveIndex
      PropType=Property
      PascalType=integer
      Code=begin,"  result := Children.indexof (GetActive);",end;
      ReadFuncType=Proc
      WriteGtkName=active
      Count=0
    Prop=TearOffState
      PropType=Property
      PascalType=boolean
      GtkName=torn_off
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=tearoff_state
      Count=0
    Prop=AttachedTo
      PropType=Property
      PascalType=TFPgtkWidget
      GtkName=attach_widget
      ReadConvert
      WriteProcType=Proc
      WriteCode=begin,"  AttachToWidget (TheValue, nil);",end;
      Count=0
    Prop=AccelGroup
      PropType=Property
      PascalType=PGtkAccelGroup
      GtkName=ensure_uline_accel_group
      ReadFuncType=GtkMacro
      WriteGtkName=accel_group
      Count=0
  Object=Packer
    Inherit=Container
    GtkFuncName=packer
    CreateObject
    Count=10
    Prop=Add
      PropType=Procedure
      Code=begin,"  gtk_packer_add_defaults (TheGtkObject, Child.TheGtkWidget, Side, anchor, options);","  Child.Show;",end;
      Overload
      Count=4
      Param=Child
        PascalType=TFPgtkWidget
      Param=Side
        PascalType=TGtkSideType
      Param=Anchor
        PascalType=TGtkAnchorType
      Param=options
        PascalType=TGtkPackerOptions
    Prop=Add
      PropType=Procedure
      Code=begin,"  gtk_packer_add_defaults (TheGtkObject, Child.TheGtkWidget, Side, anchor, options);","  if aVisible then","    Child.Show;",end;
      Overload
      Count=5
      Param=Child
        PascalType=TFPgtkWidget
      Param=Side
        PascalType=TGtkSideType
      Param=Anchor
        PascalType=TGtkAnchorType
      Param=options
        PascalType=TGtkPackerOptions
      Param=aVisible
        PascalType=boolean
    Prop=Add
      PropType=Procedure
      Code=begin,"  gtk_packer_add (TheGtkObject, Child.TheGtkWidget, Side, anchor, options, aborder, padX, PadY, IPadX, IPadY);","  Child.Show;",end;
      Overload
      Count=9
      Param=Child
        PascalType=TFPgtkWidget
      Param=Side
        PascalType=TGtkSideType
      Param=Anchor
        PascalType=TGtkAnchorType
      Param=options
        PascalType=TGtkPackerOptions
      Param=aBorder
        PascalType=guint
      Param=PadX
        PascalType=Guint
      Param=PadY
        PascalType=guint
      Param=IPadX
        PascalType=guint
      Param=IPadY
        PascalType=guint
    Prop=Add
      PropType=Procedure
      Code=begin,"  gtk_packer_add (TheGtkObject, Child.TheGtkWidget, Side, anchor, options, aborder, padX, PadY, IPadX, IPadY);","  if aVisible then","    Child.Show;",end;
      Overload
      Count=10
      Param=Child
        PascalType=TFPgtkWidget
      Param=Side
        PascalType=TGtkSideType
      Param=Anchor
        PascalType=TGtkAnchorType
      Param=options
        PascalType=TGtkPackerOptions
      Param=aBorder
        PascalType=guint
      Param=PadX
        PascalType=Guint
      Param=PadY
        PascalType=guint
      Param=IPadX
        PascalType=guint
      Param=IPadY
        PascalType=guint
      Param=aVisible
        PascalType=boolean
    Prop=ReorderChild
      PropType=Procedure
      GtkName=reorder_child
      Count=2
      Param=aChild
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=Spacing
      PropType=Property
      PascalType=guint
      GtkName=spacing
      ReadFuncType=ObjField
      WriteGtkName=spacing
      Count=0
    Prop=DefaultBorder
      PropType=Procedure
      PascalType=guint
      GtkName=set_default_border_width
      WriteGtkName=border_width
      Count=1
      Param=aBorder
        PascalType=guint
    Prop=DefaultPad
      PropType=Procedure
      PascalType=guint
      GtkName=set_default_pad
      WriteGtkName=border_width
      Count=2
      Param=PadX
        PascalType=guint
      Param=PadY
        PascalType=guint
    Prop=DefaultIPad
      PropType=Procedure
      PascalType=guint
      GtkName=set_default_ipad
      WriteGtkName=border_width
      Count=2
      Param=IPadX
        PascalType=guint
      Param=IPadY
        PascalType=guint
    Prop=Configure
      PropType=Procedure
      GtkName=set_child_packing
      Overload
      Count=9
      Param=aChild
        Convert
        PascalType=TFPgtkWidget
      Param=Side
        PascalType=TGtkSideType
      Param=Anchor
        PascalType=TGtkAnchorType
      Param=options
        PascalType=TGtkPackerOptions
      Param=aBorder
        PascalType=guint
      Param=PadX
        PascalType=Guint
      Param=PadY
        PascalType=guint
      Param=IPadX
        PascalType=guint
      Param=IPadY
        PascalType=guint
  Object=Table
    Inherit=Container
    GtkFuncName=table
    CreateParams=1,1,False
    CreateObject
    Count=13
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  resize (AColumns, ARows);",end;
      Count=2
      Param=AColumns
        PascalType=integer
      Param=ARows
        PascalType=integer
    Prop=Resize
      PropType=Procedure
      Code=begin,"  gtk_table_resize (TheGtkObject, ARows, AColumns);",end;
      Count=2
      Param=AColumns
        PascalType=integer
      Param=ARows
        PascalType=integer
    Prop=Attach
      PropType=Procedure
      Code=begin,"  gtk_table_attach (TheGtkObject, ConvertToGtkWidget(Widget), left, right, top, bottom,","                    XOptions, YOptions, XPadding, YPadding);","  if isvisible then","    widget.Show;",end;
      Count=10
      Param=Widget
        PascalType=TFPgtkWidget
      Param=left
        PascalType=integer
      Param=right
        PascalType=integer
      Param=top
        PascalType=integer
      Param=bottom
        PascalType=integer
      Param=XOptions
        PascalType=integer
      Param=YOptions
        PascalType=integer
      Param=XPadding
        PascalType=integer
      Param=YPadding
        PascalType=integer
      Param=IsVisible
        PascalType=boolean
    Prop=Attach
      PropType=Procedure
      Code=begin,"  gtk_table_attach (TheGtkObject, ConvertTogtkWidget(Widget), left, right, top, bottom,","                    XOptions, YOptions, XPadding, YPadding);","  widget.Show;",end;
      Count=9
      Param=Widget
        PascalType=TFPgtkWidget
      Param=left
        PascalType=integer
      Param=right
        PascalType=integer
      Param=top
        PascalType=integer
      Param=bottom
        PascalType=integer
      Param=XOptions
        PascalType=integer
      Param=YOptions
        PascalType=integer
      Param=XPadding
        PascalType=integer
      Param=YPadding
        PascalType=integer
    Prop=Attach
      PropType=Procedure
      Code=begin,"  gtk_table_attach_defaults (TheGtkObject, ConvertTogtkWidget(Widget), left, right, top, bottom);","  if isvisible then","    widget.Show;",end;
      Count=6
      Param=Widget
        PascalType=TFPgtkWidget
      Param=left
        PascalType=integer
      Param=right
        PascalType=integer
      Param=top
        PascalType=integer
      Param=bottom
        PascalType=integer
      Param=IsVisible
        PascalType=boolean
    Prop=Attach
      PropType=Procedure
      Code=begin,"  gtk_table_attach_defaults (TheGtkObject, ConvertTogtkWidget(Widget), left, right, top, bottom);","  widget.Show;",end;
      Count=5
      Param=Widget
        PascalType=TFPgtkWidget
      Param=left
        PascalType=integer
      Param=right
        PascalType=integer
      Param=top
        PascalType=integer
      Param=bottom
        PascalType=integer
    Prop=RowCount
      PropType=Property
      PascalType=integer
      GtkName=nrows
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=ColCount
      PropType=Property
      PascalType=integer
      GtkName=ncols
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=Homogeneous
      PropType=Property
      PascalType=boolean
      GtkName=homogeneous
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=homogeneous
      Count=0
    Prop=RowSpacings
      PropType=Property
      PascalType=integer
      GtkName=column_spacing
      ReadFuncType=ObjField
      WriteGtkName=row_spacings
      Count=0
    Prop=ColSpacings
      PropType=Property
      PascalType=integer
      GtkName=row_spacing
      ReadFuncType=ObjField
      WriteGtkName=col_spacings
      Count=0
    Prop=SetOneRowSpacing
      PropType=Procedure
      GtkName=set_row_spacing
      Count=2
      Param=row
        PascalType=integer
      Param=TheValue
        PascalType=integer
    Prop=SetOneColSpacing
      PropType=Procedure
      GtkName=set_col_spacing
      Count=2
      Param=Column
        PascalType=integer
      Param=TheValue
        PascalType=integer
  Object=Toolbar
    Inherit=Container
    GtkFuncName=toolbar
    CreateParams=GTK_ORIENTATION_HORIZONTAL,GTK_TOOLBAR_BOTH
    CreateObject
    Count=22
    Prop=ButtonRelief
      PropType=Property
      PascalType=TGtkReliefStyle
      GtkName=button_relief
      WriteGtkName=button_relief
      Count=0
    Prop=Tooltips
      PropType=Property
      PascalType=TFPgtkTooltips
      GtkName=tooltips
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=NotImplemented
      Count=0
    Prop=EnableTooltips
      PropType=Property
      PascalType=longbool
      Code=begin,"  result := tooltips.enabled;",end;
      ReadFuncType=Proc
      WriteGtkName=tooltips
      WriteConvert
      Count=0
    Prop=SpaceStyle
      PropType=Property
      PascalType=TGtkToolbarSpaceStyle
      GtkName=space_style
      ReadFuncType=ObjField
      WriteGtkName=space_style
      Count=0
    Prop=SpaceSize
      PropType=Property
      PascalType=integer
      GtkName=space_size
      ReadFuncType=ObjField
      WriteGtkName=space_size
      Count=0
    Prop=Style
      PropType=Property
      PascalType=TGtkToolbarStyle
      GtkName=style
      ReadFuncType=ObjField
      WriteGtkName=style
      Count=0
    Prop=Orientation
      PropType=Property
      PascalType=tGtkOrientation
      GtkName=orientation
      ReadFuncType=ObjField
      WriteGtkName=orientation
      Count=0
    Prop=InsertWidget
      PropType=Procedure
      Code=begin,"  gtk_toolbar_insert_widget (TheGtkObject, ConvertToGtkWidget(Widget), ConvertToPgchar(TooltipText), ConvertTopgchar(TooltipPrivate), Position);","  Widget.Show;",end;
      Count=4
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Position
        PascalType=integer
    Prop=PrependWidget
      PropType=Procedure
      Code=begin,"  gtk_toolbar_prepend_widget (TheGtkObject, ConvertToGtkWidget(Widget), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate));","  Widget.Show;",end;
      Count=3
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
    Prop=AppendWidget
      PropType=Procedure
      Code=begin,"  gtk_toolbar_append_widget (TheGtkObject, ConvertToGtkWidget(Widget), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate));","  Widget.Show;",end;
      Count=3
      Param=Widget
        Convert
        PascalType=TFPgtkWidget
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
    Prop=InsertElement
      PropType=Function
      PascalType=TFPgtkWidget
      Code="var w : PGtkWidget;","    t : TFPgtkObjectClass;",begin,"  w := gtk_toolbar_insert_element (TheGtkObject, ButtonType, ","           ConvertToGtkwidget(PrevRadioBut), ConvertTopgchar(Text), ","           ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ","           ConvertToGtkwidget(Icon), ","           gtk_signal_func(@SignalProc), ","           ConvertSignalData(TFPgtkSignalFunction(callback), data, true), ","           position);","  if assigned (w) then","    begin","    case ButtonType of","      GTK_TOOLBAR_CHILD_WIDGET:","        t := TFPgtkWidget;","      GTK_TOOLBAR_CHILD_BUTTON:","        t := TFPgtkButton;","      GTK_TOOLBAR_CHILD_TOGGLEBUTTON:","        t := TFPgtkToggleButton;","      GTK_TOOLBAR_CHILD_RADIOBUTTON:","        t := TFPgtkRadioButton;","    end;","    if t = TFPgtkWidget then","      result := GetPascalInstance (w)","    else","      result := GetPascalInstance (w, t);","    end","  else","    result := nil;",end;
      Count=9
      Param=ButtonType
        PascalType=TGtkToolbarChildType
      Param=PrevRadioBut
        Convert
        PascalType=TFPgtkWidget
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=TFPgtkWidget
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
      Param=position
        PascalType=integer
    Prop=AppendElement
      PropType=Function
      PascalType=TFPgtkWidget
      Code="var w : PGtkWidget;","    t : TFPgtkObjectClass;",begin,"  w := gtk_toolbar_append_element (TheGtkObject, ButtonType, ConvertToGtkwidget(PrevRadioBut), ","          ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ","          ConvertToGtkwidget(Icon), gtk_signal_func(@SignalProc), ","          ConvertSignalData(TFPgtkSignalFunction(callback), data, true));","  if assigned (w) then","    begin","    case ButtonType of","      GTK_TOOLBAR_CHILD_WIDGET:","        t := TFPgtkWidget;","      GTK_TOOLBAR_CHILD_BUTTON:","        t := TFPgtkButton;","      GTK_TOOLBAR_CHILD_TOGGLEBUTTON:","        t := TFPgtkToggleButton;","      GTK_TOOLBAR_CHILD_RADIOBUTTON:","        t := TFPgtkRadioButton;","    end;","    if t = TFPgtkWidget then","      result := GetPascalInstance (w)","    else","      result := GetPascalInstance (w, t);","    end","  else","    result := nil;",end;
      Count=8
      Param=ButtonType
        PascalType=TGtkToolbarChildType
      Param=PrevRadioBut
        Convert
        PascalType=TFPgtkWidget
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=TFPgtkWidget
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=PrependElement
      PropType=Function
      PascalType=TFPgtkWidget
      Code="var w : PGtkWidget;","    t : TFPgtkObjectClass;",begin,"  w := gtk_toolbar_prepend_element (TheGtkObject, ButtonType, ConvertToGtkwidget(PrevRadioBut), ","          ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ","          ConvertToGtkwidget(Icon), gtk_signal_func(@SignalProc), ","          ConvertSignalData(TFPgtkSignalFunction(callback), data, true));","  if assigned (w) then","    begin","    case ButtonType of","      GTK_TOOLBAR_CHILD_WIDGET:","        t := TFPgtkWidget;","      GTK_TOOLBAR_CHILD_BUTTON:","        t := TFPgtkButton;","      GTK_TOOLBAR_CHILD_TOGGLEBUTTON:","        t := TFPgtkToggleButton;","      GTK_TOOLBAR_CHILD_RADIOBUTTON:","        t := TFPgtkRadioButton;","    end;","    if t = TFPgtkWidget then","      result := GetPascalInstance (w)","    else","      result := GetPascalInstance (w, t);","    end","  else","    result := nil;",end;
      Count=8
      Param=ButtonType
        PascalType=TGtkToolbarChildType
      Param=PrevRadioBut
        Convert
        PascalType=TFPgtkWidget
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=TFPgtkWidget
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=InsertItem
      PropType=Function
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetPascalInstance (","      gtk_toolbar_insert_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ConvertToGtkWidget(Icon), ","              gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true), position),","      TFPgtkButton);",end;
      Overload
      Count=7
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=TFPgtkWidget
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
      Param=position
        PascalType=integer
    Prop=AppendItem
      PropType=Function
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetPascalInstance (","      gtk_toolbar_append_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ","              ConvertToGtkWidget(Icon), gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true)),","      TFPgtkButton);",end;
      Overload
      Count=6
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=TFPgtkWidget
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=PrependItem
      PropType=Function
      PascalType=TFPgtkWidget
      Code=begin,"  result := GetPascalInstance (","      gtk_toolbar_prepend_item (TheGtkObject, Converttopgchar(Text), Converttopgchar(TooltipText), ","              Converttopgchar(TooltipPrivate), ConvertToGtkWidget(Icon), gtk_signal_func(@SignalProc), ","              ConvertSignalData(TFPgtkSignalFunction(callback), data, true)), ","      TFPgtkButton);",end;
      Overload
      Count=6
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=TFPgtkWidget
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=InsertItem
      PropType=Function
      PascalType=TFPgtkWidget
      Code="var pm : TFPgtkPixmap;",begin,"  if low(icon) < high(icon) then","    begin","    pm := TFPgtkPixmap.Create;","    pm.loadFromArray (icon);","    end","  else","    pm := nil;","  result := GetPascalInstance (","      gtk_toolbar_insert_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ConvertToGtkWidget(pm), ","              gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true), position),","      TFPgtkButton);",end;
      Overload
      Count=7
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=array of string
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
      Param=position
        PascalType=integer
    Prop=AppendItem
      PropType=Function
      PascalType=TFPgtkWidget
      Code="var pm : TFPgtkPixmap;",begin,"  if low(icon) < high(icon) then","    begin","    pm := TFPgtkPixmap.Create;","    pm.loadFromArray (icon);","    end","  else","    pm := nil;","  result := GetPascalInstance (","      gtk_toolbar_append_item (TheGtkObject, ConvertTopgchar(Text), ConvertTopgchar(TooltipText), ConvertTopgchar(TooltipPrivate), ","              ConvertToGtkWidget(pm), gtk_signal_func(@SignalProc), ConvertSignalData(TFPgtkSignalFunction(callback), data, true)),","      TFPgtkButton);",end;
      Overload
      Count=6
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=array of string
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=PrependItem
      PropType=Function
      PascalType=TFPgtkWidget
      Code="var pm : TFPgtkPixmap;",begin,"  if low(icon) < high(icon) then","    begin","    pm := TFPgtkPixmap.Create;","    pm.loadFromArray (icon);","    end","  else","    pm := nil;","  result := GetPascalInstance (","      gtk_toolbar_prepend_item (TheGtkObject, Converttopgchar(Text), Converttopgchar(TooltipText), ","              Converttopgchar(TooltipPrivate), ConvertToGtkWidget(pm), gtk_signal_func(@SignalProc), ","              ConvertSignalData(TFPgtkSignalFunction(callback), data, true)), ","      TFPgtkButton);",end;
      Overload
      Count=6
      Param=Text
        Convert
        PascalType=string
      Param=TooltipText
        Convert
        PascalType=string
      Param=TooltipPrivate
        Convert
        PascalType=string
      Param=Icon
        Convert
        PascalType=array of string
      Param=CallBack
        Convert
        PascalType=TFPgtkSignalFunction
      Param=data
        PascalType=pointer
    Prop=InsertSpace
      PropType=Procedure
      GtkName=insert_space
      Count=1
      Param=position
        PascalType=integer
    Prop=AppendSpace
      PropType=Procedure
      GtkName=append_space
      Count=0
    Prop=PrependSpace
      PropType=Procedure
      GtkName=prepend_space
      Count=0
  Object=Tree
    Inherit=Container
    GtkFuncName=tree
    CreateObject
    Count=20
    Prop=SelectionChanged
      PropType=Signal
      PascalType=Signal
      GtkName=selection-changed
      Count=0
    Prop=SelectChild
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=select-child
      Count=0
    Prop=UnselectChild
      PropType=Signal
      PascalType=WidgetSignal
      GtkName=unselect-child
      Count=0
    Prop=SelectionMode
      PropType=Property
      PascalType=TGtkSelectionMode
      GtkName=selection_mode
      ReadFuncType=ObjFunc
      WriteGtkName=selection_mode
      Count=0
    Prop=ViewLines
      PropType=Property
      PascalType=boolean
      GtkName=view_line
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_tree_set_view_lines(TheGtkObject,guint(TheValue));",end;
      WriteConvert
      Count=0
    Prop=ViewMode
      PropType=Property
      PascalType=TGtkTreeViewMode
      GtkName=view_mode
      ReadFuncType=ObjFunc
      WriteGtkName=view_mode
      Count=0
    Prop=Append
      PropType=Procedure
      Code=begin,"  gtk_tree_append (TheGtkObject, PGtkwidget(ConvertToGtkObject(TreeItem)));","  TreeItem.Show;",end;
      Count=1
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
    Prop=Prepend
      PropType=Procedure
      Code=begin,"  gtk_tree_prepend (TheGtkObject, PGtkwidget(ConvertToGtkObject(TreeItem)));","  TreeItem.Show;",end;
      Count=1
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
    Prop=Insert
      PropType=Procedure
      Code=begin,"  gtk_tree_insert (TheGtkObject, PGtkwidget(ConvertToGtkObject(TreeItem)),position);","  TreeItem.show;",end;
      Count=2
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
      Param=position
        PascalType=integer
    Prop=Remove
      PropType=Procedure
      Code="var l : PGList;",begin,"{$ifndef win32}","  gtk_tree_remove_item (TheGtkObject, ConvertToGtkWidget(TreeItem));",{$else},"  l := null;","  l := g_list_append (l, ConvertToGtkWidget(TreeItem));","  gtk_tree_remove_items (TheGtkObject, l);","  g_list_free (l);",{$endif},end;
      Count=1
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
    Prop=ClearItems
      PropType=Procedure
      GtkName=clear_items
      Count=2
      Param=StartPos
        PascalType=integer
      Param=EndPos
        PascalType=integer
    Prop=SelectItem
      PropType=Procedure
      GtkName=select_item
      Count=1
      Param=Item
        Convert
        PascalType=integer
    Prop=UnselectItem
      PropType=Procedure
      GtkName=unselect_item
      Count=1
      Param=Item
        PascalType=integer
    Prop=SelectChild
      PropType=Procedure
      GtkName=select_child
      Count=1
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
    Prop=UnselectChild
      PropType=Procedure
      GtkName=unselect_child
      Count=1
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
    Prop=ChildPosition
      PropType=Function
      PascalType=integer
      GtkName=child_position
      Count=1
      Param=TreeItem
        Convert
        PascalType=TFPgtkWidget
    Prop=RootTree
      PropType=Function
      PascalType=TFPgtkTree
      Code=begin,"  result := GetPascalInstance(PGtkObject(GTK_TREE_ROOT_TREE(TheGtkObject))) as TFPgtkTree;",end;
      Count=0
    Prop=IsRootTree
      PropType=Function
      PascalType=boolean
      Code=begin,"  result := GTK_IS_ROOT_TREE (TheGtkObject);",end;
      Count=0
    Prop=GetSelection
      PropType=Procedure
      PascalType=TFPgtkTreeItemGroup
      Code=begin,"  aGroup.ManageLists := false;","  aGroup.GtkList := Gtk_Tree_selection (TheGtkObject);",end;
      Count=1
      Param=aGroup
        PascalType=TFPgtkGroup
    Prop=Level
      PropType=Function
      PascalType=integer
      Code=begin,"  result := TheGtkObject^.level;",end;
      Count=0
  Object=Calendar
    Inherit=Widget
    GtkFuncName=calendar
    CreateObject
    Count=16
    Prop=SelectMonth
      PropType=Function
      PascalType=integer
      Code=begin,"  result := gtk_calendar_select_month (TheGtkObject, aMonth-1, aYear);",end;
      Count=2
      Param=aMonth
        PascalType=guint
      Param=aYear
        PascalType=guint
    Prop=SelectDay
      PropType=Procedure
      GtkName=select_day
      Count=1
      Param=aDay
        PascalType=guint
    Prop=MarkDay
      PropType=Function
      PascalType=integer
      GtkName=mark_day
      Count=1
      Param=aDay
        PascalType=guint
    Prop=UnmarkDay
      PropType=Function
      PascalType=integer
      GtkName=unmark_day
      Count=1
      Param=aDay
        PascalType=guint
    Prop=ClearMarks
      PropType=Procedure
      GtkName=clear_marks
      Count=0
    Prop=DisplayOptions
      PropType=Property
      PascalType=TGtkCalendarDisplayOptions
      GtkName=display_flags
      ReadFuncType=ObjField
      WriteProcType=GtkMacro
      WriteGtkName=display_options
      Count=0
    Prop=Date
      PropType=Property
      PascalType=TDatetime
      Code="var y, m, d : guint;",begin,"  gtk_calendar_get_date (TheGtkObject, @y, @m, @d);","  result := encodedate (y,m+1,d);",end;
      ReadFuncType=Proc
      WriteProcType=Proc
      WriteCode="var y,m,d : word;",begin,"  decodedate (TheValue, y,m,d);","  SelectMonth(m,y);","  SelectDay(d);",end;
      Count=0
    Prop=Freeze
      PropType=Procedure
      GtkName=freeze
      Count=0
    Prop=Thaw
      PropType=Procedure
      GtkName=thaw
      Count=0
    Prop=MonthChanged
      PropType=Signal
      PascalType=signal
      GtkName=month-changed
      Count=0
    Prop=DaySelected
      PropType=Signal
      PascalType=signal
      GtkName=day-selected
      Count=0
    Prop=DaySelectedDoubleClick
      PropType=Signal
      PascalType=signal
      GtkName=day-selected-double-click
      Count=0
    Prop=PrevMonth
      PropType=Signal
      PascalType=signal
      GtkName=prev-month
      Count=0
    Prop=NextMonth
      PropType=Signal
      PascalType=signal
      GtkName=next-month
      Count=0
    Prop=PrevYear
      PropType=Signal
      PascalType=signal
      GtkName=prev-year
      Count=0
    Prop=NextYear
      PropType=Signal
      PascalType=signal
      GtkName=next-year
      Count=0
  Object=DrawingArea
    Inherit=Widget
    GtkFuncName=drawing_area
    CreateObject
    Count=1
    Prop=SetSize
      PropType=Procedure
      GtkName=Size
      Count=2
      Param=Width
        PascalType=integer
      Param=Height
        PascalType=integer
  Object=Curve
    Inherit=DrawingArea
    GtkFuncName=curve
    CreateObject
    Count=4
    Prop=SetRange
      PropType=Procedure
      GtkName=set_range
      Count=4
      Param=MinX
        PascalType=float
      Param=MaxX
        PascalType=float
      Param=MinY
        PascalType=float
      Param=MaxY
        PascalType=float
    Prop=Reset
      PropType=Procedure
      GtkName=reset
      Count=0
    Prop=SetGamma
      PropType=Procedure
      GtkName=set_gamma
      Count=1
      Param=GammaValue
        PascalType=float
    Prop=CurveType
      PropType=Property
      PascalType=TGtkCurveType
      GtkName=curve_type
      ReadFuncType=ObjField
      WriteGtkName=curve_type
      Count=0
  Object=Editable
    Inherit=Widget
    GtkFuncName=Editable
    Count=45
    Prop=GetHasSelection
      PropType=Function
      Section=Protected
      PascalType=boolean
      Code=begin,"  result := SelectionStart <> SelectionEnd;",end;
      Dynamic
      Count=0
    Prop=HasSelection
      PropType=Property
      PascalType=boolean
      GtkName=GetHasSelection
      ReadConvert
      ReadFuncType=ExistingProc
      WriteProcType=NotImplemented
      WriteConvert
      Count=0
    Prop=Editable
      PropType=Property
      PascalType=boolean
      GtkName=editable
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=editable
      Count=0
    Prop=Visible
      PropType=Property
      PascalType=boolean
      GtkName=visible
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=ObjFunc
      WriteGtkName=visible
      WriteConvert
      Count=0
    Prop=Position
      PropType=Property
      PascalType=integer
      GtkName=position
      WriteGtkName=position
      Count=0
    Prop=SelectionStart
      PropType=Property
      PascalType=integer
      GtkName=selection_start_pos
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_editable_select_region (TheGtkObject, TheValue, SelectionEnd);",end;
      Count=0
    Prop=SelectionEnd
      PropType=Property
      PascalType=integer
      GtkName=Selection_end_pos
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_editable_select_region (TheGtkObject, SelectionStart, TheValue);",end;
      Count=0
    Prop=SetSelection
      PropType=Procedure
      Section=Protected
      Code="var b : integer;",begin,"  if HasSelection then","    begin","    b := SelectionStart;","    deleteText (SelectionStart, SelectionEnd);","    end","  else","    b := position;","  InsertText (TheValue, b);","  Position := b + length(TheValue);","  SelectRegion (b, position);","end;  "
      Dynamic
      Count=1
      Param=TheValue
        PascalType=string
    Prop=Selection
      PropType=Property
      PascalType=string
      Code="var c : pgchar;",begin,"  c := gtk_editable_get_chars (TheGtkObject, SelectionStart, SelectionEnd);","  result := string (c);","  g_free (c);",end;
      ReadFuncType=Proc
      WriteProcType=ExistingProc
      WriteGtkName=SetSelection
      Count=0
    Prop=GetText
      PropType=Function
      Section=Protected
      PascalType=string
      Code="var c : pgchar;",begin,"  c := gtk_editable_get_chars (TheGtkObject, 0, -1);","  result := string (c);","  g_free (c);",end;
      Dynamic
      Count=0
    Prop=SetText
      PropType=Procedure
      Section=Protected
      Dynamic
      Abstract
      Count=1
      Param=TheValue
        PascalType=string
    Prop=Text
      PropType=Property
      PascalType=string
      GtkName=GetText
      ReadFuncType=ExistingProc
      WriteProcType=ExistingProc
      WriteGtkName=SetText
      Count=0
    Prop=Changed
      PropType=Procedure
      GtkName=Changed
      Count=0
    Prop=InsertText
      PropType=Procedure
      Code="var p : integer;",begin,"  p := AtPosition;","  gtk_editable_insert_text (TheGtkObject, pgchar(NewText), length(NewText), @p);",end;
      Count=2
      Param=NewText
        PascalType=string
      Param=AtPosition
        PascalType=integer
    Prop=DeleteText
      PropType=Procedure
      GtkName=Delete_Text
      Count=2
      Param=StartPos
        PascalType=integer
      Param=EndPos
        PascalType=integer
    Prop=GetChars
      PropType=Procedure
      PascalType=string
      GtkName=get_chars
      Count=2
      Param=StartPos
        PascalType=integer
      Param=EndPos
        PascalType=integer
    Prop=CutClipboard
      PropType=Procedure
      GtkName=cut_clipboard
      Count=0
    Prop=CopyClipboard
      PropType=Procedure
      GtkName=copy_clipboard
      Count=0
    Prop=PasteClipboard
      PropType=Procedure
      GtkName=paste_clipboard
      Count=0
    Prop=SelectRegion
      PropType=Procedure
      GtkName=select_region
      Count=2
      Param=StartPos
        PascalType=integer
      Param=EndPos
        PascalType=integer
    Prop=ClaimSelection
      PropType=Procedure
      GtkName=claim_selection
      Count=2
      Param=claim
        PascalType=boolean
      Param=time
        PascalType=guint32
    Prop=DeleteSelection
      PropType=Procedure
      GtkName=delete_selection
      Count=0
    Prop=Clear
      PropType=Procedure
      Code=begin,"  DeleteText (0,-1);",end;
      Count=0
    Prop=InsertSignal
      PropType=SignalType
      Count=5
      Param=Sender
        PascalType=TFPgtkObject
      Param=NewText
        Convert
        PascalType=string
      Param=TextLength
        PascalType=integer
      Param=Position
        PascalType=integer
        ParamType=Var
      Param=data
        PascalType=pointer
    Prop=DeleteSignal
      PropType=SignalType
      Count=4
      Param=Sender
        PascalType=TFPgtkObject
      Param=StartPos
        PascalType=integer
      Param=EndPos
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=XYSignal
      PropType=SignalType
      Count=4
      Param=Sender
        PascalType=TFPgtkObject
      Param=x
        PascalType=integer
      Param=y
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=DirectionSignal
      PropType=SignalType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=Direction
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=MoveWordSignal
      PropType=SignalType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=NumWords
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=MovetoSignal
      PropType=SignalType
      Count=3
      Param=Sender
        PascalType=TFPgtkObject
      Param=MoveTo
        PascalType=integer
      Param=data
        PascalType=pointer
    Prop=Changed
      PropType=Signal
      PascalType=Signal
      GtkName=changed
      Count=0
    Prop=Activate
      PropType=Signal
      PascalType=Signal
      GtkName=activate
      Count=0
    Prop=InsertText
      PropType=Signal
      PascalType=InsertSignal
      GtkName=insert-text
      Count=0
    Prop=DeleteText
      PropType=Signal
      PascalType=DeleteSignal
      GtkName=delete-text
      Count=0
    Prop=SetEditable
      PropType=Signal
      PascalType=BooleanSignal
      GtkName=set-editable
      Count=0
    Prop=MoveCursor
      PropType=Signal
      PascalType=XYSignal
      GtkName=move-cursor
      Count=0
    Prop=MoveWord
      PropType=Signal
      PascalType=MoveWordSignal
      GtkName=move-word
      Count=0
    Prop=MovePage
      PropType=Signal
      PascalType=XYSignal
      GtkName=move-page
      Count=0
    Prop=MoveToRow
      PropType=Signal
      PascalType=MoveToSignal
      GtkName=move-to-row
      Count=0
    Prop=MoveToCol
      PropType=Signal
      PascalType=MoveToSignal
      GtkName=move-to-column
      Count=0
    Prop=KillChar
      PropType=Signal
      PascalType=DirectionSignal
      GtkName=kill-char
      Count=0
    Prop=KillWord
      PropType=Signal
      PascalType=DirectionSignal
      GtkName=kill-word
      Count=0
    Prop=KillLine
      PropType=Signal
      PascalType=DirectionSignal
      GtkName=kill-line
      Count=0
    Prop=CutClipboard
      PropType=Signal
      PascalType=Signal
      GtkName=cut-clipboard
      Count=0
    Prop=CopyClipboard
      PropType=Signal
      PascalType=Signal
      GtkName=copy-clipboard
      Count=0
    Prop=PasteClipboard
      PropType=Signal
      PascalType=Signal
      GtkName=paste-clipboard
      Count=0
  Object=Entry
    Inherit=Editable
    GtkFuncName=Entry
    CreateObject
    Count=5
    Prop=SetText
      PropType=Procedure
      Section=Protected
      Code=begin,"  gtk_Entry_set_text (TheGtkObject, Pgchar(TheValue));",end;
      Override
      Count=1
      Param=TheValue
        PascalType=string
    Prop=AppendText
      PropType=Procedure
      GtkName=append_text
      Count=1
      Param=aText
        Convert
        PascalType=string
    Prop=PrependText
      PropType=Procedure
      GtkName=prepend_text
      Count=1
      Param=aText
        Convert
        PascalType=string
    Prop=Visibility
      PropType=Property
      PascalType=boolean
      GtkName=visible
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=visibility
      Count=0
    Prop=MaxLength
      PropType=Property
      PascalType=word
      GtkName=text_max_length
      ReadFuncType=ObjField
      WriteGtkName=max_length
      Count=0
  Object=SpinButton
    Inherit=Entry
    GtkFuncName=spin_button
    CreateParams=TFPgtkAdjustment.Create.TheGtkObject,1,0
    CreateObject
    Count=13
    Prop=Configure
      PropType=Procedure
      Code=begin,"  if assigned (Adj) then","    gtk_spin_button_configure (TheGtkObject, PGtkadjustment(Adj.TheGtkObject), aClimbRate, aDigits)","  else","    gtk_spin_button_configure (TheGtkObject, nil, aClimbRate, aDigits);",end;
      Count=3
      Param=Adj
        Convert
        PascalType=TFPgtkAdjustment
      Param=aClimbRate
        PascalType=gfloat
      Param=aDigits
        PascalType=integer
    Prop=Adjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      Code=begin,"  result := GetPascalInstance(PGtkObject(gtk_spin_button_get_adjustment(TheGtkObject)),TFPGtkAdjustment) as TFPgtkAdjustment;",end;
      ReadConvert
      ReadFuncType=Proc
      WriteGtkName=adjustment
      WriteConvert
      Count=0
    Prop=ClimbRate
      PropType=Property
      PascalType=gfloat
      GtkName=climb_rate
      ReadFuncType=ObjField
      WriteProcType=ObjField
      WriteGtkName=climb_rate
      Count=0
    Prop=Digits
      PropType=Property
      PascalType=integer
      GtkName=digits
      ReadFuncType=ObjFunc
      WriteGtkName=digits
      Count=0
    Prop=AsInteger
      PropType=Property
      PascalType=integer
      GtkName=value_as_int
      WriteGtkName=Value
      Count=0
    Prop=AsFloat
      PropType=Property
      PascalType=gfloat
      GtkName=value_as_int
      WriteGtkName=Value
      Count=0
    Prop=UpdatePolicy
      PropType=Property
      PascalType=TGtkSpinButtonUpdatePolicy
      GtkName=update_policy
      ReadFuncType=ObjField
      WriteGtkName=update_policy
      Count=0
    Prop=Numeric
      PropType=Property
      PascalType=boolean
      GtkName=numeric
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=numeric
      Count=0
    Prop=Spin
      PropType=Procedure
      GtkName=spin
      Count=2
      Param=direction
        PascalType=TGtkSpinType
      Param=increment
        PascalType=gfloat
    Prop=Wrap
      PropType=Property
      PascalType=boolean
      GtkName=wrap
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=wrap
      Count=0
    Prop=ShadowType
      PropType=Property
      PascalType=TGtkShadowType
      GtkName=shadow_type
      ReadFuncType=ObjField
      WriteGtkName=shadow_type
      Count=0
    Prop=SnapToTicks
      PropType=Property
      PascalType=boolean
      GtkName=snap_to_ticks
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=snap_to_ticks
      Count=0
    Prop=Update
      PropType=Procedure
      GtkName=update
      Code=,
      Count=0
  Object=Text
    Inherit=Editable
    GtkFuncName=Text
    CreateParams=null,null
    CreateObject
    Count=20
    Prop=FIsChanged
      PropType=Field
      Section=Private
      PascalType=boolean
      Count=0
    Prop=FLines
      PropType=Field
      Section=Private
      PascalType=TStrings
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  inherited create;","  editable := true;","  wordwrap := true;","  linewrap := true;","  FLines := TStringlist.Create;","  ConnectChanged (@SigChanged, nil);",end;
      Count=0
    Prop=Destroy
      PropType=Destructor
      Code=begin,"  FLines.Free;","  inherited;",end;
      Override
      Count=0
    Prop=SigChanged
      PropType=Procedure
      Section=Private
      Code=begin,"  FIsChanged := True;",end;
      Count=2
      Param=Sender
        PascalType=TFPgtkObject
      Param=data
        PascalType=pointer
    Prop=RefreshLines
      PropType=Procedure
      Section=Protected
      Code=begin,"  if not assigned (FLines) then","    FLines := TStringlist.Create;","  FLines.Text := Text;",end;
      Count=0
    Prop=Lines
      PropType=Property
      PascalType=TStrings
      Code=begin,"  if FIsChanged then","    RefreshLines;","  result := FLines;",end;
      ReadFuncType=Proc
      WriteProcType=NotImplemented
      Count=0
    Prop=Freeze
      PropType=Procedure
      GtkName=Freeze
      Count=0
    Prop=Thaw
      PropType=Procedure
      GtkName=Thaw
      Count=0
    Prop=TextLength
      PropType=Function
      PascalType=guint
      GtkName=get_length
      Count=0
    Prop=Insert
      PropType=Procedure
      Code=begin,"  gtk_text_insert (TheGtkObject, font, fore, back, pgchar(TheText), length(TheText));",end;
      Count=4
      Param=font
        PascalType=PgdkFont
      Param=fore
        PascalType=PgdkColor
      Param=back
        PascalType=PgdkColor
      Param=TheText
        Convert
        PascalType=string
    Prop=DeleteBackward
      PropType=Procedure
      GtkName=Backward_Delete
      Count=1
      Param=number
        PascalType=longword
    Prop=DeleteForward
      PropType=Procedure
      GtkName=Forward_Delete
      Count=1
      Param=number
        PascalType=longword
    Prop=WordWrap
      PropType=Property
      PascalType=boolean
      GtkName=word_wrap
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"  gtk_text_set_word_wrap (TheGtkObject,gint(TheValue));",end;
      WriteConvert
      Count=0
    Prop=LineWrap
      PropType=Property
      PascalType=boolean
      GtkName=Line_Wrap
      ReadConvert
      ReadFuncType=ObjFunc
      WriteProcType=Proc
      WriteCode=begin,"{$IFDEF win32 or go32v2}","  Set_Line_Wrap (TheGtkObject^, gint(TheValue));",{$ELSE},"  gtk_Text_Set_Line_Wrap (TheGtkObject, gint(TheValue));",{$ENDIF},end;
      Count=0
    Prop=Point
      PropType=Property
      PascalType=integer
      GtkName=Point
      WriteGtkName=Point
      Count=0
    Prop=SetAdjustments
      PropType=Procedure
      Code=begin,"  gtk_text_set_adjustments (TheGtkObject, hadj.TheGtkObject, vadj.TheGtkObject);",end;
      Count=2
      Param=hadj
        PascalType=TFPgtkAdjustment
      Param=vadj
        PascalType=TFPgtkAdjustment
    Prop=HAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=hadj
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_Text_Set_Adjustments(TheGtkObject, TheValue.TheGtkObject, TheGtkObject^.vadj);",end;
      Count=0
    Prop=VAdjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=vadj
      ReadConvert
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_Text_Set_Adjustments(TheGtkObject, TheGtkObject^.hadj, TheValue.TheGtkObject);",end;
      Count=0
    Prop=SetText
      PropType=Procedure
      Section=Protected
      Code=begin,"  Freeze;","  {$ifdef gtkwin}","  TheValue := stringreplace (TheValue, #13#10, #10, [rfReplaceAll]);","  {$endif}","  clear;","  Insert (null, null, null, TheValue);","  Thaw;",end;
      Override
      Count=1
      Param=TheValue
        PascalType=string
  Object=Ruler
    Inherit=Widget
    GtkFuncName=ruler
    Count=2
    Prop=SetMetric
      PropType=Procedure
      PascalType=TGtkMetricType
      GtkName=set_metric
      Count=1
      Param=aMetric
        PascalType=TGtkMetricType
    Prop=SetRange
      PropType=Procedure
      GtkName=set_range
      Count=4
      Param=Lower
        PascalType=float
      Param=Upper
        PascalType=float
      Param=Position
        PascalType=float
      Param=MaxSize
        PascalType=float
  Object=HRuler
    Inherit=Ruler
    GtkFuncName=hruler
    CreateObject
    Count=0
  Object=VRuler
    Inherit=Ruler
    GtkFuncName=vruler
    CreateObject
    Count=0
  Object=Range
    Inherit=Widget
    GtkFuncName=Range
    Count=18
    Prop=Adjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      GtkName=Adjustment
      ReadConvert
      WriteGtkName=adjustment
      WriteConvert
      Count=0
    Prop=UpdatePolicy
      PropType=Property
      PascalType=TgtkUpdateType
      GtkName=policy
      ReadFuncType=ObjFunc
      WriteGtkName=update_policy
      Count=0
    Prop=FAdj
      PropType=Field
      Section=Protected
      PascalType=TFPgtkAdjustment
      Count=0
    Prop=Create
      PropType=Constructor
      Code=begin,"  FAdj := AnAdjustment;","  inherited create;",end;
      Count=1
      Param=AnAdjustment
        PascalType=TFPgtkAdjustment
    Prop=DrawBackground
      PropType=Procedure
      GtkName=draw_background
      Count=0
    Prop=DrawTrough
      PropType=Procedure
      GtkName=draw_trough
      Count=0
    Prop=DrawStepForw
      PropType=Procedure
      GtkName=draw_step_forw
      Count=0
    Prop=DrawStepBack
      PropType=Procedure
      GtkName=draw_step_back
      Count=0
    Prop=DrawSlider
      PropType=Procedure
      GtkName=draw_slider
      Count=0
    Prop=SliderUpdate
      PropType=Procedure
      GtkName=slider_update
      Count=0
    Prop=TroughClick
      PropType=Function
      PascalType=integer
      Code=begin,"  result := gtk_Range_trough_click (TheGtkObject, X, Y, @JumpPerc);",end;
      Count=3
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
      Param=JumpPerc
        PascalType=gfloat
        ParamType=Var
    Prop=DefaultHSliderUpdate
      PropType=Procedure
      GtkName=default_hslider_update
      Count=0
    Prop=DefaultVSliderUpdate
      PropType=Procedure
      GtkName=default_vslider_update
      Count=0
    Prop=DefaultHTroughClick
      PropType=Function
      PascalType=integer
      Code=begin,"  result := gtk_Range_default_htrough_click (TheGtkObject, X, Y, @JumpPerc);",end;
      Count=3
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
      Param=JumpPerc
        PascalType=gfloat
        ParamType=Var
    Prop=DefaultVTroughClick
      PropType=Function
      PascalType=integer
      Code=begin,"  result := gtk_Range_default_vtrough_click (TheGtkObject, X, Y, @JumpPerc);",end;
      Count=3
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
      Param=JumpPerc
        PascalType=gfloat
        ParamType=Var
    Prop=defaultHMotion
      PropType=Procedure
      GtkName=default_hmotion
      Count=2
      Param=XDelta
        PascalType=integer
      Param=YDelta
        PascalType=integer
    Prop=defaultVMotion
      PropType=Procedure
      GtkName=default_vmotion
      Count=2
      Param=XDelta
        PascalType=integer
      Param=YDelta
        PascalType=integer
    Prop=ClearBackground
      PropType=Procedure
      GtkName=clear_background
      Count=0
  Object=Scale
    Inherit=Range
    GtkFuncName=scale
    Count=3
    Prop=SetDigits
      PropType=Procedure
      GtkName=set_digits
      ReadFuncType=ObjField
      Count=1
      Param=TheValue
        PascalType=integer
    Prop=DrawValue
      PropType=Property
      PascalType=boolean
      GtkName=draw_value
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=draw_value
      WriteConvert
      Count=0
    Prop=ValuePos
      PropType=Property
      PascalType=TGtkPositionType
      GtkName=value_pos
      ReadFuncType=ObjFunc
      WriteGtkName=value_pos
      Count=0
  Object=HScale
    Inherit=Scale
    GtkFuncName=hscale
    CreateParams=nil
    CreateObject
    Count=0
  Object=VScale
    Inherit=Scale
    GtkFuncName=vscale
    CreateParams=nil
    CreateObject
    Count=0
  Object=Scrollbar
    Inherit=Range
    GtkFuncName=Scrollbar
    Count=0
  Object=HScrollbar
    Inherit=Scrollbar
    GtkFuncName=hscrollbar
    Count=1
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code="var a : PgtkAdjustment;",begin,"  if assigned (FAdj) then","    a := FAdj.TheGtkObject","  else","    a := null;","  FGtkObject := PgtkObject (gtk_hscrollbar_new (a));","  FAdj := nil;",end;
      Override
      Count=0
  Object=VScrollbar
    Inherit=Scrollbar
    Count=1
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code="var a : PgtkAdjustment;",begin,"  if assigned (FAdj) then","    a := FAdj.TheGtkObject","  else","    a := null;","  FGtkObject := PgtkObject (gtk_vscrollbar_new (a));","  FAdj := nil;",end;
      Override
      Count=0
  Object=Separator
    Inherit=Widget
    GtkFuncName=Separator
    Count=0
  Object=HSeparator
    Inherit=Separator
    GtkFuncName=HSeparator
    CreateObject
    Count=0
  Object=VSeparator
    Inherit=Separator
    GtkFuncName=VSeparator
    CreateObject
    Count=0
  Object=Preview
    Inherit=Widget
    GtkFuncName=preview
    CreateParams=GTK_PREVIEW_COLOR
    CreateObject
    Count=6
    Prop=Size
      PropType=Procedure
      GtkName=size
      Count=2
      Param=aWidth
        PascalType=integer
      Param=aHeight
        PascalType=integer
    Prop=Put
      PropType=Procedure
      GtkName=put
      Count=8
      Param=aWindow
        PascalType=PGdkWindow
      Param=gc
        PascalType=PGdkGC
      Param=SrcX
        PascalType=integer
      Param=SrcY
        PascalType=integer
      Param=destX
        PascalType=integer
      Param=DestY
        PascalType=integer
      Param=aWidth
        PascalType=integer
      Param=aHeight
        PascalType=integer
    Prop=DrawRow
      PropType=Procedure
      GtkName=draw_row
      Count=4
      Param=data
        PascalType=pguchar
      Param=X
        PascalType=integer
      Param=Y
        PascalType=integer
      Param=W
        PascalType=integer
    Prop=SetGamma
      PropType=HelperProc
      Code=begin,"  gtk_preview_set_gamma (aGamma);",end;
      Count=1
      Param=aGamma
        PascalType=double
    Prop=Expand
      PropType=Property
      PascalType=longbool
      GtkName=expand
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=expand
      WriteConvert
      Count=0
    Prop=Dither
      PropType=Property
      PascalType=TGdkRgbDither
      GtkName=dither
      ReadFuncType=ObjField
      WriteGtkName=dither
      Count=0
  Object=Progress
    Inherit=Widget
    GtkFuncName=progress
    Count=13
    Prop=Showtext
      PropType=Property
      PascalType=longbool
      GtkName=show_text
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=show_text
      WriteConvert
      Count=0
    Prop=TextXAlign
      PropType=Property
      PascalType=gfloat
      GtkName=x_align
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_progress_set_text_alignment (TheGtkObject, TheValue, TextYAlign);",end;
      Count=0
    Prop=TextYAlign
      PropType=Property
      PascalType=gfloat
      GtkName=y_align
      ReadFuncType=ObjField
      WriteProcType=Proc
      WriteCode=begin,"  gtk_progress_set_text_alignment (TheGtkObject, TextXAlign, TheValue);",end;
      Count=0
    Prop=SetTextAlignment
      PropType=Procedure
      GtkName=set_text_alignment
      Count=2
      Param=anXalign
        PascalType=gfloat
      Param=anYAlign
        PascalType=gfloat
    Prop=CurrentValue
      PropType=Property
      PascalType=float
      GtkName=Value
      WriteProcType=Proc
      WriteCode=begin,"  gtk_progress_Set_value (TheGtkObject, TheValue);","  Draw (nil);",end;
      Count=0
    Prop=Percentage
      PropType=Property
      PascalType=float
      GtkName=current_percentage
      WriteGtkName=percentage
      Count=0
    Prop=PercentageFromValue
      PropType=Function
      PascalType=gfloat
      GtkName=get_percentage_from_value
      Count=1
      Param=aValue
        PascalType=gfloat
    Prop=FormatString
      PropType=Property
      PascalType=string
      GtkName=format
      ReadConvert
      ReadFuncType=ObjField
      WriteGtkName=format_string
      WriteConvert
      Count=0
    Prop=Adjustment
      PropType=Property
      PascalType=TFPgtkAdjustment
      Code=begin,"  result := GetPascalInstance (PGtkObject(TheGtkObject^.adjustment), TFPgtkAdjustment) as TFPgtkAdjustment;",end;
      ReadFuncType=Proc
      WriteGtkName=adjustment
      WriteConvert
      Count=0
    Prop=ActivityMode
      PropType=Property
      PascalType=longbool
      GtkName=activity_mode
      ReadConvert
      ReadFuncType=ObjFunc
      WriteGtkName=activity_mode
      WriteConvert
      Count=0
    Prop=CurrentText
      PropType=Function
      PascalType=string
      GtkName=get_current_text
      Count=0
    Prop=TextFromValue
      PropType=Function
      PascalType=string
      GtkName=get_text_from_value
      Count=1
      Param=aValue
        PascalType=gfloat
    Prop=Configure
      PropType=Procedure
      GtkName=configure
      Count=3
      Param=aValue
        PascalType=gfloat
      Param=aMin
        PascalType=gfloat
      Param=aMax
        PascalType=gfloat
  Object=ProgressBar
    Inherit=Progress
    GtkFuncName=progress_bar
    Count=8
    Prop=Create
      PropType=Constructor
      Code=begin,"  FAdj := adj;","  inherited create;",end;
      Count=1
      Param=adj
        PascalType=TFPgtkAdjustment
    Prop=CreateGtkObject
      PropType=Procedure
      Section=Protected
      Code=begin,"  if assigned (FAdj) then","    TheGtkWidget := gtk_progress_bar_new_with_adjustment (FAdj.TheGtkObject)","  else","    TheGtkWidget := gtk_progress_bar_new;",end;
      Override
      Count=0
    Prop=FAdj
      PropType=Field
      Section=Private
      PascalType=TFPgtkAdjustment
      Count=0
    Prop=BarStyle
      PropType=Property
      PascalType=TGtkProgressBarStyle
      GtkName=bar_style
      ReadFuncType=ObjField
      WriteGtkName=bar_style
      Count=0
    Prop=DiscreteBlocks
      PropType=Property
      PascalType=longword
      GtkName=blocks
      ReadFuncType=ObjField
      WriteGtkName=discrete_blocks
      Count=0
    Prop=ActivityStep
      PropType=Property
      PascalType=longword
      GtkName=activity_step
      ReadFuncType=ObjField
      WriteGtkName=activity_step
      Count=0
    Prop=ActivityBlocks
      PropType=Property
      PascalType=longword
      GtkName=activity_blocks
      ReadFuncType=ObjField
      WriteGtkName=activity_blocks
      Count=0
    Prop=Orientation
      PropType=Property
      PascalType=TGtkProgressBarOrientation
      GtkName=orientation
      ReadFuncType=ObjField
      WriteGtkName=orientation
      Count=0
  Object=ItemFactory
    Inherit=Object
    Count=0