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
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
// find PGtkRcContext
PGtkRcContext = pointer;
{ --- structures --- }
{ of type GtkSettingsValue }
PGtkSettings = ^TGtkSettings;
TGtkSettings = record
parent_instance : TGObject;
queued_settings : PGData;
property_values : PGValue;
rc_context : PGtkRcContext;
screen : PGdkScreen;
end;
PGtkSettingsClass = ^TGtkSettingsClass;
TGtkSettingsClass = record
parent_class : TGObjectClass;
end;
{ origin should be something like "filename:linenumber" for rc files,
or e.g. "XProperty" for other sources
}
{ valid types are LONG, DOUBLE and STRING corresponding to the token parsed,
or a GSTRING holding an unparsed statement
}
PGtkSettingsValue = ^TGtkSettingsValue;
TGtkSettingsValue = record
origin : Pgchar;
value : TGValue;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function GTK_TYPE_SETTINGS : GType;
function GTK_SETTINGS(obj: pointer) : PGtkSettings;
function GTK_SETTINGS_CLASS(klass: pointer) : PGtkSettingsClass;
function GTK_IS_SETTINGS(obj: pointer) : boolean;
function GTK_IS_SETTINGS_CLASS(klass: pointer) : boolean;
function GTK_SETTINGS_GET_CLASS(obj: pointer) : PGtkSettingsClass;
{ --- functions --- }
function gtk_settings_get_type:GType; cdecl; external gtklib;
{$ifndef GDK_MULTIHEAD_SAFE}
function gtk_settings_get_default:PGtkSettings; cdecl; external gtklib;
{$endif}
function gtk_settings_get_for_screen(screen:PGdkScreen):PGtkSettings; cdecl; external gtklib;
procedure gtk_settings_install_property(pspec:PGParamSpec); cdecl; external gtklib;
procedure gtk_settings_install_property_parser(pspec:PGParamSpec; parser:TGtkRcPropertyParser); cdecl; external gtklib;
{ --- precoded parsing functions --- }
function gtk_rc_property_parse_color(pspec:PGParamSpec; gstring:PGString; property_value:PGValue):gboolean; cdecl; external gtklib;
function gtk_rc_property_parse_enum(pspec:PGParamSpec; gstring:PGString; property_value:PGValue):gboolean; cdecl; external gtklib;
function gtk_rc_property_parse_flags(pspec:PGParamSpec; gstring:PGString; property_value:PGValue):gboolean; cdecl; external gtklib;
function gtk_rc_property_parse_requisition(pspec:PGParamSpec; gstring:PGString; property_value:PGValue):gboolean; cdecl; external gtklib;
function gtk_rc_property_parse_border(pspec:PGParamSpec; gstring:PGString; property_value:PGValue):gboolean; cdecl; external gtklib;
{< private > }
procedure gtk_settings_set_property_value(settings:PGtkSettings; name:Pgchar; svalue:PGtkSettingsValue); cdecl; external gtklib;
procedure gtk_settings_set_string_property(settings:PGtkSettings; name:Pgchar; v_string:Pgchar; origin:Pgchar); cdecl; external gtklib;
procedure gtk_settings_set_long_property(settings:PGtkSettings; name:Pgchar; v_long:glong; origin:Pgchar); cdecl; external gtklib;
procedure gtk_settings_set_double_property(settings:PGtkSettings; name:Pgchar; v_double:gdouble; origin:Pgchar); cdecl; external gtklib;
{ implementation details }
procedure _gtk_settings_handle_event(event:PGdkEventSetting); cdecl; external gtklib;
function _gtk_rc_property_parser_from_type(_type:GType):TGtkRcPropertyParser; cdecl; external gtklib;
function _gtk_settings_parse_convert(parser:TGtkRcPropertyParser; src_value:PGValue; pspec:PGParamSpec; dest_value:PGValue):gboolean; cdecl; external gtklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_SETTINGS : GType;
begin
GTK_TYPE_SETTINGS:=gtk_settings_get_type;
end;
function GTK_SETTINGS(obj: pointer) : PGtkSettings;
begin
GTK_SETTINGS:=PGtkSettings(GTK_CHECK_CAST(obj,GTK_TYPE_SETTINGS));
end;
function GTK_SETTINGS_CLASS(klass: pointer) : PGtkSettingsClass;
begin
GTK_SETTINGS_CLASS:=PGtkSettingsClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_SETTINGS));
end;
function GTK_IS_SETTINGS(obj: pointer) : boolean;
begin
GTK_IS_SETTINGS:=GTK_CHECK_TYPE(obj,GTK_TYPE_SETTINGS);
end;
function GTK_IS_SETTINGS_CLASS(klass: pointer) : boolean;
begin
GTK_IS_SETTINGS_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_SETTINGS);
end;
function GTK_SETTINGS_GET_CLASS(obj: pointer) : PGtkSettingsClass;
begin
GTK_SETTINGS_GET_CLASS:=PGtkSettingsClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_SETTINGS));
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
