PageRenderTime 24ms CodeModel.GetById 19ms app.highlight 3ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/gtk2/src/gtk2x11/include/xsettings-client.inc

https://github.com/slibre/freepascal
Pascal | 27 lines | 16 code | 7 blank | 4 comment | 0 complexity | 5eb62be3d0336d3ab28631001b33e652 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1{%MainUnit ../gdk2x.pas}
 2{$IFDEF read_interface_rest}
 3type
 4  PXSettingsAction = ^TXSettingsAction;
 5  TXSettingsAction =  Longint;
 6  
 7Const
 8  XSETTINGS_ACTION_NEW = 0;
 9  XSETTINGS_ACTION_CHANGED = 1;
10  XSETTINGS_ACTION_DELETED = 2;
11
12type
13  // this PXSettingsClient needs to be removed when there are xcl.h bindings for fpc
14  PXSettingsClient = pointer;
15
16type
17  TXSettingsNotifyFunc = procedure (name:Pchar; action:TXSettingsAction; setting:PXSettingsSetting; cb_data:pointer);cdecl;
18
19  TXSettingsWatchFunc = procedure (window:TWindow; is_start:TBool; mask:longint; cb_data:pointer);cdecl;
20
21function xsettings_client_new(display:PDisplay; screen:longint; notify:TXSettingsNotifyFunc; watch:TXSettingsWatchFunc; cb_data:pointer):PXSettingsClient;cdecl;external;
22procedure xsettings_client_destroy(client:PXSettingsClient);cdecl;external;
23function xsettings_client_process_event(client:PXSettingsClient; xev:PXEvent):TBool;cdecl;external;
24function xsettings_client_get_setting(client:PXSettingsClient; name:Pchar; setting:PPXSettingsSetting):TXSettingsResult;cdecl;external;
25
26{$ENDIF read_interface_rest}
27