freepascal.compiler/packages/extra/gnome1/gnome/libgnomeui/gtkclock.inc

{$IfDef read_interface}

type
   TGtkClockType = (GTK_CLOCK_INCREASING,GTK_CLOCK_DECREASING,
     GTK_CLOCK_REALTIME);

   PGtkClock = ^TGtkClock;
   TGtkClock = record
        widget : TGtkLabel;
        thetype : TGtkClockType;
        timer_id : gint;
        update_interval : gint;
        seconds : time_t;
        stopped : time_t;
        fmt : Pgchar;
        thetm : Ptm;
     end;
   GTK_CLOCK = PGTKClock;

   PGtkClockClass = ^TGtkClockClass;
   TGtkClockClass = record
        parent_class : TGtkLabelClass;
     end;
   GTK_CLOCK_CLASS = PGTKClockClass;

function GTK_TYPE_CLOCK : TGTKType;
function GTK_IS_CLOCK(obj : Pointer) : gboolean;
function GTK_IS_CLOCK_CLASS(klass : Pointer) : gboolean;

function gtk_clock_get_type:TGTKType;cdecl;external libgnomeuidll name 'gtk_clock_get_type';
function gtk_clock_new(thetype:TGtkClockType):PGtkWidget;cdecl;external libgnomeuidll name 'gtk_clock_new';
procedure gtk_clock_set_format(gclock:PGtkClock; fmt:Pgchar);cdecl;external libgnomeuidll name 'gtk_clock_set_format';
procedure gtk_clock_set_seconds(gclock:PGtkClock; seconds:time_t);cdecl;external libgnomeuidll name 'gtk_clock_set_seconds';
procedure gtk_clock_set_update_interval(gclock:PGtkClock; seconds:gint);cdecl;external libgnomeuidll name 'gtk_clock_set_update_interval';
procedure gtk_clock_start(gclock:PGtkClock);cdecl;external libgnomeuidll name 'gtk_clock_start';
procedure gtk_clock_stop(gclock:PGtkClock);cdecl;external libgnomeuidll name 'gtk_clock_stop';

{$EndIf read_interface}

{$Ifdef read_implementation}

function GTK_TYPE_CLOCK : TGTKType;
begin
  GTK_TYPE_CLOCK:=gtk_clock_get_type;
end;

function GTK_IS_CLOCK(obj : Pointer) : gboolean;
begin
   GTK_IS_CLOCK:=(obj<>nil) and GTK_IS_CLOCK_CLASS(PGtkTypeObject(obj)^.klass);
end;

function GTK_IS_CLOCK_CLASS(klass : Pointer) : gboolean;
begin
   GTK_IS_CLOCK_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_TYPE_CLOCK);
end;

{$Endif read_implementation}