freepascal.compiler/packages/gtk/gtk/gtkframe.pp

{
   $Id$
}

{****************************************************************************
                                 Interface
****************************************************************************}

{$ifdef read_interface}

    type
       PGtkFrame = ^TGtkFrame;
       TGtkFrame = record
            bin : TGtkBin;
            thelabel : Pgchar;
            shadow_type : gint16;
            label_width : gint16;
            label_height : gint16;
            label_xalign : gfloat;
            label_yalign : gfloat;
         end;

       PGtkFrameClass = ^TGtkFrameClass;
       TGtkFrameClass = record
            parent_class : TGtkBinClass;
         end;

Type
  GTK_FRAME=PGtkFrame;
  GTK_FRAME_CLASS=PGtkFrameClass;

function  GTK_FRAME_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_frame_get_type';
function  GTK_IS_FRAME(obj:pointer):boolean;
function  GTK_IS_FRAME_CLASS(klass:pointer):boolean;

function  gtk_frame_get_type:TGtkType;cdecl;external gtkdll name 'gtk_frame_get_type';
function  gtk_frame_new (thelabel:Pgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_frame_new';
procedure gtk_frame_set_label(frame:PGtkFrame; thelabel:Pgchar);cdecl;external gtkdll name 'gtk_frame_set_label';
procedure gtk_frame_set_label_align(frame:PGtkFrame; xalign:gfloat; yalign:gfloat);cdecl;external gtkdll name 'gtk_frame_set_label_align';
procedure gtk_frame_set_shadow_type(frame:PGtkFrame; thetype:TGtkShadowType);cdecl;external gtkdll name 'gtk_frame_set_shadow_type';

{$endif read_interface}


{****************************************************************************
                              Implementation
****************************************************************************}

{$ifdef read_implementation}

function  GTK_IS_FRAME(obj:pointer):boolean;
begin
  GTK_IS_FRAME:=(obj<>nil) and GTK_IS_FRAME_CLASS(PGtkTypeObject(obj)^.klass);
end;

function  GTK_IS_FRAME_CLASS(klass:pointer):boolean;
begin
  GTK_IS_FRAME_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_FRAME_TYPE);
end;

{$endif read_implementation}


{
  $Log$
  Revision 1.1  1999-11-24 23:36:35  peter
    * moved to packages dir

  Revision 1.10  1999/10/21 08:42:01  florian
    * some changes to get it work with gtk 1.3 under Windows 98:
      - removed some trailing space after the import name
      - In gtkbindings.h is
        #define  gtk_binding_entry_add          gtk_binding_entry_clear
        so in the pascal headers the import name of gtk_bindings_entry_add should be
        gtk_binding_entry_clear!
      - removed the declaration of
        gtk_drag_source_unset in gtkdnd.pp it isn't in gtk-1.3.dll!
      - in gdk.pp glibdll must be set to gdk-1.3:
        const
           gdkdll='gdk-1.3';
           glibdll='gdk-1.3';
        else the whole gdk_* calls are imported from glib-1.3.dll which is wrong!

  Revision 1.9  1999/10/06 17:42:48  peter
    * external is now only in the interface
    * removed gtk 1.0 support

  Revision 1.8  1999/07/23 16:12:21  peter
    * use packrecords C

  Revision 1.7  1999/05/11 00:38:35  peter
    * win32 fixes

  Revision 1.6  1999/05/10 15:19:25  peter
    * cdecl fixes

  Revision 1.5  1999/05/07 17:40:23  peter
    * more updates

  Revision 1.4  1998/11/09 10:09:53  peter
    + C type casts are now correctly handled

  Revision 1.3  1998/10/21 20:22:30  peter
    * cdecl, packrecord fixes (from the gtk.tar.gz)
    * win32 support
    * gtk.pp,gdk.pp for an all in one unit

}