/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 

    

  1. {%MainUnit ../gdk2x.pas}
    2. 

  2. {$IFDEF read_interface_rest}
    3. 

  3. type
    4. 

  4.   PXSettingsAction = ^TXSettingsAction;
    5. 

  5.   TXSettingsAction =  Longint;
    6. 

  6.   
    7. 

  7. Const
    8. 

  8.   XSETTINGS_ACTION_NEW = 0;
    9. 

  9.   XSETTINGS_ACTION_CHANGED = 1;
    10. 

  10.   XSETTINGS_ACTION_DELETED = 2;
    11. 

  11. 

  12. type
    13. 

  13.   // this PXSettingsClient needs to be removed when there are xcl.h bindings for fpc
    14. 

  14.   PXSettingsClient = pointer;
    15. 

  15. 

  16. type
    17. 

  17.   TXSettingsNotifyFunc = procedure (name:Pchar; action:TXSettingsAction; setting:PXSettingsSetting; cb_data:pointer);cdecl;
    18. 

  18. 

  19.   TXSettingsWatchFunc = procedure (window:TWindow; is_start:TBool; mask:longint; cb_data:pointer);cdecl;
    20. 

  20. 

  21. function xsettings_client_new(display:PDisplay; screen:longint; notify:TXSettingsNotifyFunc; watch:TXSettingsWatchFunc; cb_data:pointer):PXSettingsClient;cdecl;external;
    22. 

  22. procedure xsettings_client_destroy(client:PXSettingsClient);cdecl;external;
    23. 

  23. function xsettings_client_process_event(client:PXSettingsClient; xev:PXEvent):TBool;cdecl;external;
    24. 

  24. function xsettings_client_get_setting(client:PXSettingsClient; name:Pchar; setting:PPXSettingsSetting):TXSettingsResult;cdecl;external;
    25. 

  25. 

  26. {$ENDIF read_interface_rest}
    27.