1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
|
{ $Id$ }
{
----------------------------------------
gtk1private.pp - Gtk1 internal classes
----------------------------------------
@created(Thu Feb 1st WET 2007)
@lastmod($Date$)
@author(Marc Weustink <marc@@lazarus.dommelstein.net>)
This unit contains the private classhierarchy for the gtk implemetations
This hierarchy reflects (more or less) the gtk widget hierarchy
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit Gtk1WSPrivate;
{$mode objfpc}{$H+}
interface
uses
// libs
Gtk, Glib, Gdk,
// LCL
LCLType, LMessages, LCLProc, Controls, Classes, SysUtils, Forms,
// widgetset
WSControls, WSLCLClasses, WSProc,
// interface
GtkDef, GtkProc, GtkWSPrivate, GtkWsControls, GtkInt;
type
{ TGtk1PrivateWidget }
{ Private class for gtkwidgets }
TGtk1PrivateWidget = class(TGtkPrivateWidget)
private
protected
public
end;
{ TGtk1PrivateContainer }
{ Private class for gtkcontainers }
TGtk1PrivateContainer = class(TGtkPrivateContainer)
private
protected
public
end;
{ TGtk1PrivateBin }
{ Private class for gtkbins }
TGtk1PrivateBin = class(TGtkPrivateBin)
private
protected
public
end;
{ TGtk1PrivateWindow }
{ Private class for gtkwindows }
TGtk1PrivateWindow = class(TGtkPrivateWindow)
private
protected
public
end;
{ TGtk1PrivateDialog }
{ Private class for gtkdialogs }
TGtk1PrivateDialog = class(TGtkPrivateDialog)
private
protected
public
end;
{ TGtk1PrivateButton }
{ Private class for gtkbuttons }
TGtk1PrivateButton = class(TGtkPrivateButton)
private
protected
public
end;
{ TGtk1PrivateList }
{ Private class for gtklists }
TGtk1PrivateList = class(TGtkPrivateList)
private
protected
public
class procedure SetCallbacks(const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); override;
end;
{ TGtk1PrivateNotebook }
{ Private class for gtknotebooks }
TGtk1PrivateNotebook = class(TGtkPrivateNotebook)
private
protected
public
end;
implementation
// {$I Gtk1PrivateWidget.inc}
{$I Gtk1PrivateList.inc}
end.
|