Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 90744753b9
Branches Tags
freepascal.comp...
/
packages
/
extra
/
gtk2
/
gtk+
/
gtk
/
gtkclipboard.inc

gtkclipboard.inc 2.8 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950 
  1. // included by gtk2.pas
    2. 

  2. 

  3. {$IFDEF read_forward_definitions}
    4. 

  4. {$ENDIF read_forward_definitions}
    5. 

  5. 

  6. //------------------------------------------------------------------------------
    7. 

  7. 

  8. {$IFDEF read_interface_types}
    9. 

  9.    // internal type
    10. 

  10.    PGtkClipboard = pointer;
    11. 

  11. 

  12.    TGtkClipboardReceivedFunc = procedure (clipboard:PGtkClipboard; selection_data:PGtkSelectionData; data:gpointer); cdecl;
    13. 

  13. 

  14.    TGtkClipboardTextReceivedFunc = procedure (clipboard:PGtkClipboard; text:Pgchar; data:gpointer); cdecl;
    15. 

  15. { Should these functions have GtkClipboard  clipboard as the first argument?
    16. 

  16.    right now for ClearFunc, you may have trouble determining _which_ clipboard
    17. 

  17.    was cleared, if you reuse your ClearFunc for multiple clipboards.
    18. 

  18.   }
    19. 

  19. 

  20.    TGtkClipboardGetFunc = procedure (clipboard:PGtkClipboard; selection_data:PGtkSelectionData; info:guint; user_data_or_owner:gpointer); cdecl;
    21. 

  21. 

  22.    TGtkClipboardClearFunc = procedure (clipboard:PGtkClipboard; user_data_or_owner:gpointer); cdecl;
    23. 

  23. 

  24. {$ENDIF read_interface_types}
    25. 

  25. 

  26. //------------------------------------------------------------------------------
    27. 

  27. 

  28. {$IFDEF read_interface_rest}
    29. 

  29. function gtk_clipboard_get_for_display(display:PGdkDisplay; selection:TGdkAtom):PGtkClipboard; cdecl; external gtklib;
    30. 

  30. 

  31. {$ifndef GDK_MULTIHEAD_SAFE}
    32. 

  32. function gtk_clipboard_get(selection:TGdkAtom):PGtkClipboard; cdecl; external gtklib;
    33. 

  33. {$endif}
    34. 

  34. 

  35. function gtk_clipboard_get_display(clipboard:PGtkClipboard):PGdkDisplay; cdecl; external gtklib;
    36. 

  36. function gtk_clipboard_set_with_data(clipboard:PGtkClipboard; targets:PGtkTargetEntry; n_targets:guint; get_func:TGtkClipboardGetFunc; clear_func:TGtkClipboardClearFunc;
    37. 

  37.            user_data:gpointer):gboolean; cdecl; external gtklib;
    38. 

  38. function gtk_clipboard_set_with_owner(clipboard:PGtkClipboard; targets:PGtkTargetEntry; n_targets:guint; get_func:TGtkClipboardGetFunc; clear_func:TGtkClipboardClearFunc;
    39. 

  39.            owner:PGObject):gboolean; cdecl; external gtklib;
    40. 

  40. function gtk_clipboard_get_owner(clipboard:PGtkClipboard):PGObject; cdecl; external gtklib;
    41. 

  41. procedure gtk_clipboard_clear(clipboard:PGtkClipboard); cdecl; external gtklib;
    42. 

  42. procedure gtk_clipboard_set_text(clipboard:PGtkClipboard; text:Pgchar; len:gint); cdecl; external gtklib;
    43. 

  43. procedure gtk_clipboard_request_contents(clipboard:PGtkClipboard; target:TGdkAtom; callback:TGtkClipboardReceivedFunc; user_data:gpointer); cdecl; external gtklib;
    44. 

  44. procedure gtk_clipboard_request_text(clipboard:PGtkClipboard; callback:TGtkClipboardTextReceivedFunc; user_data:gpointer); cdecl; external gtklib;
    45. 

  45. function gtk_clipboard_wait_for_contents(clipboard:PGtkClipboard; target:TGdkAtom):PGtkSelectionData; cdecl; external gtklib;
    46. 

  46. function gtk_clipboard_wait_for_text(clipboard:PGtkClipboard):Pgchar; cdecl; external gtklib;
    47. 

  47. function gtk_clipboard_wait_is_text_available(clipboard:PGtkClipboard):gboolean; cdecl; external gtklib;
    48. 

  48. {$ENDIF read_interface_rest}
    49. 

  49. // included by gtk2.pas
    50. 

  50.