/packages/gtk2/src/gtk+/gtk/gtktipsquery.inc
Pascal | 123 lines | 83 code | 24 blank | 16 comment | 0 complexity | 2a4fa7888b1bd0cca435f6c244de4dc4 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
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