blob: dc7f4efa4307110af5ea1b3dd59170c663535f40 (
plain)
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
|
{$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}
|
