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
/
gtkdnd.inc

gtkdnd.inc 4.2 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 
  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. { respond to "drag_motion"  }
    10. 

  10. { auto-highlight  }
    11. 

  11. { respond to "drag_drop"  }
    12. 

  12.    PGtkDestDefaults = ^TGtkDestDefaults;
    13. 

  13.    TGtkDestDefaults = longint;
    14. 

  14. { Flags for the GtkTargetEntry on the destination side
    15. 

  15.   }
    16. 

  16. {< nick=same-app > }
    17. 

  17. {< nick=same-widget > }
    18. 

  18. 

  19.    PGtkTargetFlags = ^TGtkTargetFlags;
    20. 

  20.    TGtkTargetFlags = longint;
    21. 

  21. {$ENDIF read_interface_types}
    22. 

  22. 

  23. //------------------------------------------------------------------------------
    24. 

  24. 

  25. {$IFDEF read_interface_rest}
    26. 

  26. const
    27. 

  27.    GTK_DEST_DEFAULT_MOTION = 1 shl 0;
    28. 

  28.    GTK_DEST_DEFAULT_HIGHLIGHT = 1 shl 1;
    29. 

  29.    GTK_DEST_DEFAULT_DROP = 1 shl 2;
    30. 

  30.    GTK_DEST_DEFAULT_ALL = $07;
    31. 

  31. 

  32.    GTK_TARGET_SAME_APP = 1 shl 0;
    33. 

  33.    GTK_TARGET_SAME_WIDGET = 1 shl 1;
    34. 

  34. 

  35. { Destination side  }
    36. 

  36. 

  37. procedure gtk_drag_get_data(widget:PGtkWidget; context:PGdkDragContext; target:TGdkAtom; time:guint32); cdecl; external gtklib;
    38. 

  38. procedure gtk_drag_finish(context:PGdkDragContext; success:gboolean; del:gboolean; time:guint32); cdecl; external gtklib;
    39. 

  39. function gtk_drag_get_source_widget(context:PGdkDragContext):PGtkWidget; cdecl; external gtklib;
    40. 

  40. procedure gtk_drag_highlight(widget:PGtkWidget); cdecl; external gtklib;
    41. 

  41. procedure gtk_drag_unhighlight(widget:PGtkWidget); cdecl; external gtklib;
    42. 

  42. procedure gtk_drag_dest_set(widget:PGtkWidget; flags:TGtkDestDefaults; targets:PGtkTargetEntry; n_targets:gint; actions:TGdkDragAction); cdecl; external gtklib;
    43. 

  43. procedure gtk_drag_dest_set_proxy(widget:PGtkWidget; proxy_window:PGdkWindow; protocol:TGdkDragProtocol; use_coordinates:gboolean); cdecl; external gtklib;
    44. 

  44. procedure gtk_drag_dest_unset(widget:PGtkWidget); cdecl; external gtklib;
    45. 

  45. function gtk_drag_dest_find_target(widget:PGtkWidget; context:PGdkDragContext; target_list:PGtkTargetList):TGdkAtom; cdecl; external gtklib;
    46. 

  46. function gtk_drag_dest_get_target_list(widget:PGtkWidget):PGtkTargetList; cdecl; external gtklib;
    47. 

  47. procedure gtk_drag_dest_set_target_list(widget:PGtkWidget; target_list:PGtkTargetList); cdecl; external gtklib;
    48. 

  48. { Source side  }
    49. 

  49. procedure gtk_drag_source_set(widget:PGtkWidget; start_button_mask:TGdkModifierType; targets:PGtkTargetEntry; n_targets:gint; actions:TGdkDragAction); cdecl; external gtklib;
    50. 

  50. procedure gtk_drag_source_unset(widget:PGtkWidget); cdecl; external gtklib;
    51. 

  51. procedure gtk_drag_source_set_icon(widget:PGtkWidget; colormap:PGdkColormap; pixmap:PGdkPixmap; mask:PGdkBitmap); cdecl; external gtklib;
    52. 

  52. procedure gtk_drag_source_set_icon_pixbuf(widget:PGtkWidget; pixbuf:PGdkPixbuf); cdecl; external gtklib;
    53. 

  53. procedure gtk_drag_source_set_icon_stock(widget:PGtkWidget; stock_id:Pgchar); cdecl; external gtklib;
    54. 

  54. { There probably should be functions for setting the targets
    55. 

  55.    as a GtkTargetList
    56. 

  56.   }
    57. 

  57. function gtk_drag_begin(widget:PGtkWidget; targets:PGtkTargetList; actions:TGdkDragAction; button:gint; event:PGdkEvent):PGdkDragContext; cdecl; external gtklib;
    58. 

  58. { Set the image being dragged around
    59. 

  59.   }
    60. 

  60. procedure gtk_drag_set_icon_widget(context:PGdkDragContext; widget:PGtkWidget; hot_x:gint; hot_y:gint); cdecl; external gtklib;
    61. 

  61. procedure gtk_drag_set_icon_pixmap(context:PGdkDragContext; colormap:PGdkColormap; pixmap:PGdkPixmap; mask:PGdkBitmap; hot_x:gint;
    62. 

  62.             hot_y:gint); cdecl; external gtklib;
    63. 

  63. procedure gtk_drag_set_icon_pixbuf(context:PGdkDragContext; pixbuf:PGdkPixbuf; hot_x:gint; hot_y:gint); cdecl; external gtklib;
    64. 

  64. procedure gtk_drag_set_icon_stock(context:PGdkDragContext; stock_id:Pgchar; hot_x:gint; hot_y:gint); cdecl; external gtklib;
    65. 

  65. procedure gtk_drag_set_icon_default(context:PGdkDragContext); cdecl; external gtklib;
    66. 

  66. function gtk_drag_check_threshold(widget:PGtkWidget; start_x:gint; start_y:gint; current_x:gint; current_y:gint):gboolean; cdecl; external gtklib;
    67. 

  67. { Internal functions  }
    68. 

  68. procedure _gtk_drag_source_handle_event(widget:PGtkWidget; event:PGdkEvent); cdecl; external gtklib;
    69. 

  69. procedure _gtk_drag_dest_handle_event(toplevel:PGtkWidget; event:PGdkEvent); cdecl; external gtklib;
    70. 

  70. 

  71. {$ifndef GTK_DISABLE_DEPRECATED}
    72. 

  72. procedure gtk_drag_set_default_icon(colormap:PGdkColormap; pixmap:PGdkPixmap; mask:PGdkBitmap; hot_x:gint; hot_y:gint); cdecl; external gtklib;
    73. 

  73. {$endif}
    74. 

  74. { !GTK_DISABLE_DEPRECATED  }
    75. 

  75. 

  76. {$ENDIF read_interface_rest}
    77. 

  77. // included by gtk2.pas
    78. 

  78.