/packages/gtk2/src/gtk+/gtk/gtktipsquery.inc

https://github.com/slibre/freepascal · Pascal · 123 lines · 83 code · 24 blank · 16 comment · 0 complexity · 2a4fa7888b1bd0cca435f6c244de4dc4 MD5 · raw file

  1. // included by gtk2.pas
  2. {$IFDEF read_forward_definitions}
  3. {$ENDIF read_forward_definitions}
  4. //------------------------------------------------------------------------------
  5. {$IFDEF read_interface_types}
  6. { --- structures --- }
  7. PGtkTipsQuery = ^TGtkTipsQuery;
  8. TGtkTipsQuery = record
  9. _label : TGtkLabel;
  10. flag0 : word;
  11. label_inactive : Pgchar;
  12. label_no_tip : Pgchar;
  13. caller : PGtkWidget;
  14. last_crossed : PGtkWidget;
  15. query_cursor : PGdkCursor;
  16. end;
  17. { Padding for future expansion }
  18. PGtkTipsQueryClass = ^TGtkTipsQueryClass;
  19. TGtkTipsQueryClass = record
  20. parent_class : TGtkLabelClass;
  21. start_query : procedure (tips_query:PGtkTipsQuery); cdecl;
  22. stop_query : procedure (tips_query:PGtkTipsQuery); cdecl;
  23. widget_entered : procedure (tips_query:PGtkTipsQuery; widget:PGtkWidget; tip_text:Pgchar; tip_private:Pgchar); cdecl;
  24. widget_selected : function (tips_query:PGtkTipsQuery; widget:PGtkWidget; tip_text:Pgchar; tip_private:Pgchar; event:PGdkEventButton):gint; cdecl;
  25. _gtk_reserved1 : procedure ; cdecl;
  26. _gtk_reserved2 : procedure ; cdecl;
  27. _gtk_reserved3 : procedure ; cdecl;
  28. _gtk_reserved4 : procedure ; cdecl;
  29. end;
  30. {$ENDIF read_interface_types}
  31. //------------------------------------------------------------------------------
  32. {$IFDEF read_interface_rest}
  33. const
  34. bm_TGtkTipsQuery_emit_always = $1;
  35. bp_TGtkTipsQuery_emit_always = 0;
  36. bm_TGtkTipsQuery_in_query = $2;
  37. bp_TGtkTipsQuery_in_query = 1;
  38. function GTK_TYPE_TIPS_QUERY : GType;
  39. function GTK_TIPS_QUERY(obj: pointer) : PGtkTipsQuery;
  40. function GTK_TIPS_QUERY_CLASS(klass: pointer) : PGtkTipsQueryClass;
  41. function GTK_IS_TIPS_QUERY(obj: pointer) : boolean;
  42. function GTK_IS_TIPS_QUERY_CLASS(klass: pointer) : boolean;
  43. function GTK_TIPS_QUERY_GET_CLASS(obj: pointer) : PGtkTipsQueryClass;
  44. function emit_always(var a : TGtkTipsQuery) : guint;
  45. procedure set_emit_always(var a : TGtkTipsQuery; __emit_always : guint);
  46. function in_query(var a : TGtkTipsQuery) : guint;
  47. procedure set_in_query(var a : TGtkTipsQuery; __in_query : guint);
  48. { --- prototypes --- }
  49. function gtk_tips_query_get_type:TGtkType; cdecl; external gtklib;
  50. function gtk_tips_query_new:PGtkWidget; cdecl; external gtklib;
  51. procedure gtk_tips_query_start_query(tips_query:PGtkTipsQuery); cdecl; external gtklib;
  52. procedure gtk_tips_query_stop_query(tips_query:PGtkTipsQuery); cdecl; external gtklib;
  53. procedure gtk_tips_query_set_caller(tips_query:PGtkTipsQuery; caller:PGtkWidget); cdecl; external gtklib;
  54. procedure gtk_tips_query_set_labels(tips_query:PGtkTipsQuery; label_inactive:Pgchar; label_no_tip:Pgchar); cdecl; external gtklib;
  55. {$ENDIF read_interface_rest}
  56. //------------------------------------------------------------------------------
  57. {$IFDEF read_implementation}
  58. function GTK_TYPE_TIPS_QUERY : GType;
  59. begin
  60. GTK_TYPE_TIPS_QUERY:=gtk_tips_query_get_type;
  61. end;
  62. function GTK_TIPS_QUERY(obj: pointer) : PGtkTipsQuery;
  63. begin
  64. GTK_TIPS_QUERY:=PGtkTipsQuery(GTK_CHECK_CAST(obj,GTK_TYPE_TIPS_QUERY));
  65. end;
  66. function GTK_TIPS_QUERY_CLASS(klass: pointer) : PGtkTipsQueryClass;
  67. begin
  68. GTK_TIPS_QUERY_CLASS:=PGtkTipsQueryClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_TIPS_QUERY));
  69. end;
  70. function GTK_IS_TIPS_QUERY(obj: pointer) : boolean;
  71. begin
  72. GTK_IS_TIPS_QUERY:=GTK_CHECK_TYPE(obj,GTK_TYPE_TIPS_QUERY);
  73. end;
  74. function GTK_IS_TIPS_QUERY_CLASS(klass: pointer) : boolean;
  75. begin
  76. GTK_IS_TIPS_QUERY_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_TIPS_QUERY);
  77. end;
  78. function GTK_TIPS_QUERY_GET_CLASS(obj: pointer) : PGtkTipsQueryClass;
  79. begin
  80. GTK_TIPS_QUERY_GET_CLASS:=PGtkTipsQueryClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_TIPS_QUERY));
  81. end;
  82. function emit_always(var a : TGtkTipsQuery) : guint;
  83. begin
  84. emit_always:=(a.flag0 and bm_TGtkTipsQuery_emit_always) shr bp_TGtkTipsQuery_emit_always;
  85. end;
  86. procedure set_emit_always(var a : TGtkTipsQuery; __emit_always : guint);
  87. begin
  88. a.flag0:=a.flag0 or ((__emit_always shl bp_TGtkTipsQuery_emit_always) and bm_TGtkTipsQuery_emit_always);
  89. end;
  90. function in_query(var a : TGtkTipsQuery) : guint;
  91. begin
  92. in_query:=(a.flag0 and bm_TGtkTipsQuery_in_query) shr bp_TGtkTipsQuery_in_query;
  93. end;
  94. procedure set_in_query(var a : TGtkTipsQuery; __in_query : guint);
  95. begin
  96. a.flag0:=a.flag0 or ((__in_query shl bp_TGtkTipsQuery_in_query) and bm_TGtkTipsQuery_in_query);
  97. end;
  98. {$ENDIF read_implementation}
  99. // included by gtk2.pas