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 PGtkToggleButton = ^TGtkToggleButton; 10 TGtkToggleButton = record 11 button : TGtkButton; 12 flag0 : word; 13 end; 14 15{ Padding for future expansion } 16 PGtkToggleButtonClass = ^TGtkToggleButtonClass; 17 TGtkToggleButtonClass = record 18 parent_class : TGtkButtonClass; 19 toggled : procedure (toggle_button:PGtkToggleButton); cdecl; 20 _gtk_reserved1 : procedure ; cdecl; 21 _gtk_reserved2 : procedure ; cdecl; 22 _gtk_reserved3 : procedure ; cdecl; 23 _gtk_reserved4 : procedure ; cdecl; 24 end; 25{$ENDIF read_interface_types} 26 27//------------------------------------------------------------------------------ 28 29{$IFDEF read_interface_rest} 30const 31 bm_TGtkToggleButton_active = $1; 32 bp_TGtkToggleButton_active = 0; 33 bm_TGtkToggleButton_draw_indicator = $2; 34 bp_TGtkToggleButton_draw_indicator = 1; 35 bm_TGtkToggleButton_inconsistent = $4; 36 bp_TGtkToggleButton_inconsistent = 2; 37 38function GTK_TYPE_TOGGLE_BUTTON : GType; 39function GTK_TOGGLE_BUTTON(obj: pointer) : PGtkToggleButton; 40function GTK_TOGGLE_BUTTON_CLASS(klass: pointer) : PGtkToggleButtonClass; 41function GTK_IS_TOGGLE_BUTTON(obj: pointer) : boolean; 42function GTK_IS_TOGGLE_BUTTON_CLASS(klass: pointer) : boolean; 43function GTK_TOGGLE_BUTTON_GET_CLASS(obj: pointer) : PGtkToggleButtonClass; 44 45function active(var a : TGtkToggleButton) : guint; overload; 46procedure set_active(var a : TGtkToggleButton; __active : guint); overload; 47function draw_indicator(var a : TGtkToggleButton) : guint; 48procedure set_draw_indicator(var a : TGtkToggleButton; __draw_indicator : guint); 49function inconsistent(var a : TGtkToggleButton) : guint; overload; 50procedure set_inconsistent(var a : TGtkToggleButton; __inconsistent : guint); overload; 51 52 53function gtk_toggle_button_get_type:TGtkType; cdecl; external gtklib; 54function gtk_toggle_button_new:PGtkWidget; cdecl; external gtklib; 55function gtk_toggle_button_new_with_label(_label:Pgchar):PGtkWidget; cdecl; external gtklib; 56function gtk_toggle_button_new_with_mnemonic(_label:Pgchar):PGtkWidget; cdecl; external gtklib; 57procedure gtk_toggle_button_set_mode(toggle_button:PGtkToggleButton; draw_indicator:gboolean); cdecl; external gtklib; 58function gtk_toggle_button_get_mode(toggle_button:PGtkToggleButton):gboolean; cdecl; external gtklib; 59procedure gtk_toggle_button_set_active(toggle_button:PGtkToggleButton; is_active:gboolean); cdecl; external gtklib; 60function gtk_toggle_button_get_active(toggle_button:PGtkToggleButton):gboolean; cdecl; external gtklib; 61procedure gtk_toggle_button_toggled(toggle_button:PGtkToggleButton); cdecl; external gtklib; 62procedure gtk_toggle_button_set_inconsistent(toggle_button:PGtkToggleButton; setting:gboolean); cdecl; external gtklib; 63function gtk_toggle_button_get_inconsistent(toggle_button:PGtkToggleButton):gboolean; cdecl; external gtklib; 64 65{$ifndef GTK_DISABLE_DEPRECATED} 66procedure gtk_toggle_button_set_state(toggle_button:PGtkToggleButton; is_active:gboolean); 67{$endif} 68{ GTK_DISABLE_DEPRECATED } 69{$ENDIF read_interface_rest} 70 71//------------------------------------------------------------------------------ 72 73{$IFDEF read_implementation} 74function GTK_TYPE_TOGGLE_BUTTON : GType; 75begin 76 GTK_TYPE_TOGGLE_BUTTON:=gtk_toggle_button_get_type; 77end; 78 79function GTK_TOGGLE_BUTTON(obj: pointer) : PGtkToggleButton; 80begin 81 GTK_TOGGLE_BUTTON:=PGtkToggleButton(GTK_CHECK_CAST(obj,GTK_TYPE_TOGGLE_BUTTON)); 82end; 83 84function GTK_TOGGLE_BUTTON_CLASS(klass: pointer) : PGtkToggleButtonClass; 85begin 86 GTK_TOGGLE_BUTTON_CLASS:=PGtkToggleButtonClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_TOGGLE_BUTTON)); 87end; 88 89function GTK_IS_TOGGLE_BUTTON(obj: pointer) : boolean; 90begin 91 GTK_IS_TOGGLE_BUTTON:=GTK_CHECK_TYPE(obj,GTK_TYPE_TOGGLE_BUTTON); 92end; 93 94function GTK_IS_TOGGLE_BUTTON_CLASS(klass: pointer) : boolean; 95begin 96 GTK_IS_TOGGLE_BUTTON_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOGGLE_BUTTON); 97end; 98 99function GTK_TOGGLE_BUTTON_GET_CLASS(obj: pointer) : PGtkToggleButtonClass; 100begin 101 GTK_TOGGLE_BUTTON_GET_CLASS:=PGtkToggleButtonClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_TOGGLE_BUTTON)); 102end; 103 104function active(var a : TGtkToggleButton) : guint; 105begin 106 active:=(a.flag0 and bm_TGtkToggleButton_active) shr bp_TGtkToggleButton_active; 107end; 108 109procedure set_active(var a : TGtkToggleButton; __active : guint); 110begin 111 a.flag0:=a.flag0 or ((__active shl bp_TGtkToggleButton_active) and bm_TGtkToggleButton_active); 112end; 113 114function draw_indicator(var a : TGtkToggleButton) : guint; 115begin 116 draw_indicator:=(a.flag0 and bm_TGtkToggleButton_draw_indicator) shr bp_TGtkToggleButton_draw_indicator; 117end; 118 119procedure set_draw_indicator(var a : TGtkToggleButton; __draw_indicator : guint); 120begin 121 a.flag0:=a.flag0 or ((__draw_indicator shl bp_TGtkToggleButton_draw_indicator) and bm_TGtkToggleButton_draw_indicator); 122end; 123 124function inconsistent(var a : TGtkToggleButton) : guint; 125begin 126 inconsistent:=(a.flag0 and bm_TGtkToggleButton_inconsistent) shr bp_TGtkToggleButton_inconsistent; 127end; 128 129procedure set_inconsistent(var a : TGtkToggleButton; __inconsistent : guint); 130begin 131 a.flag0:=a.flag0 or ((__inconsistent shl bp_TGtkToggleButton_inconsistent) and bm_TGtkToggleButton_inconsistent); 132end; 133 134{$ifndef GTK_DISABLE_DEPRECATED} 135procedure gtk_toggle_button_set_state(toggle_button:PGtkToggleButton; is_active:gboolean); 136begin 137 gtk_toggle_button_set_active(toggle_button,is_active); 138end; 139{$endif} 140{ GTK_DISABLE_DEPRECATED } 141 142{$ENDIF read_implementation} 143// included by gtk2.pas 144 145