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

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