pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git


			
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
							// included by gtk2.pas

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

//------------------------------------------------------------------------------

{$IFDEF read_interface_types}
   PGtkFrame = ^TGtkFrame;
   TGtkFrame = record
        bin : TGtkBin;
        label_widget : PGtkWidget;
        shadow_type : gint16;
        label_xalign : gfloat;
        label_yalign : gfloat;
        child_allocation : TGtkAllocation;
     end;

   PGtkFrameClass = ^TGtkFrameClass;
   TGtkFrameClass = record
        parent_class : TGtkBinClass;
        compute_child_allocation : procedure (frame:PGtkFrame; allocation:PGtkAllocation); cdecl;
     end;
{$ENDIF read_interface_types}

//------------------------------------------------------------------------------

{$IFDEF read_interface_rest}
function GTK_TYPE_FRAME : GType;
function GTK_FRAME(obj: pointer) : PGtkFrame;
function GTK_FRAME_CLASS(klass: pointer) : PGtkFrameClass;
function GTK_IS_FRAME(obj: pointer) : boolean;
function GTK_IS_FRAME_CLASS(klass: pointer) : boolean;
function GTK_FRAME_GET_CLASS(obj: pointer) : PGtkFrameClass;


function gtk_frame_get_type:TGtkType; cdecl; external gtklib;
function gtk_frame_new(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
procedure gtk_frame_set_label(frame:PGtkFrame; _label:Pgchar); cdecl; external gtklib;
function gtk_frame_get_label(frame:PGtkFrame):Pgchar; cdecl; external gtklib;
procedure gtk_frame_set_label_widget(frame:PGtkFrame; label_widget:PGtkWidget); cdecl; external gtklib;
function gtk_frame_get_label_widget(frame:PGtkFrame):PGtkWidget; cdecl; external gtklib;
procedure gtk_frame_set_label_align(frame:PGtkFrame; xalign:gfloat; yalign:gfloat); cdecl; external gtklib;
procedure gtk_frame_get_label_align(frame:PGtkFrame; xalign:Pgfloat; yalign:Pgfloat); cdecl; external gtklib;
procedure gtk_frame_set_shadow_type(frame:PGtkFrame; _type:TGtkShadowType); cdecl; external gtklib;
function gtk_frame_get_shadow_type(frame:PGtkFrame):TGtkShadowType; cdecl; external gtklib;
{$ENDIF read_interface_rest}

//------------------------------------------------------------------------------

{$IFDEF read_implementation}
function GTK_TYPE_FRAME : GType;
begin
   GTK_TYPE_FRAME:=gtk_frame_get_type;
end;

function GTK_FRAME(obj: pointer) : PGtkFrame;
begin
   GTK_FRAME:=PGtkFrame(GTK_CHECK_CAST(obj,GTK_TYPE_FRAME));
end;

function GTK_FRAME_CLASS(klass: pointer) : PGtkFrameClass;
begin
   GTK_FRAME_CLASS:=PGtkFrameClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_FRAME));
end;

function GTK_IS_FRAME(obj: pointer) : boolean;
begin
   GTK_IS_FRAME:=GTK_CHECK_TYPE(obj,GTK_TYPE_FRAME);
end;

function GTK_IS_FRAME_CLASS(klass: pointer) : boolean;
begin
   GTK_IS_FRAME_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_FRAME);
end;

function GTK_FRAME_GET_CLASS(obj: pointer) : PGtkFrameClass;
begin
   GTK_FRAME_GET_CLASS:=PGtkFrameClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_FRAME));
end;

{$ENDIF read_implementation}
// included by gtk2.pas