1// included by gtk2.pas 2 3{ 4 NOTE this widget is considered too specialized/little-used for 5 GTK+, and will in the future be moved to some other package. If 6 your application needs this widget, feel free to use it, as the 7 widget does work and is useful in some applications; it's just not 8 of general interest. However, we are not accepting new features for 9 the widget, and it will eventually move out of the GTK+ 10 distribution. 11 } 12 13{$IFDEF read_forward_definitions} 14{$ENDIF read_forward_definitions} 15 16//------------------------------------------------------------------------------ 17 18{$IFDEF read_interface_types} 19 PGtkInputDialog = ^TGtkInputDialog; 20 TGtkInputDialog = record 21 dialog : TGtkDialog; 22 axis_list : PGtkWidget; 23 axis_listbox : PGtkWidget; 24 mode_optionmenu : PGtkWidget; 25 close_button : PGtkWidget; 26 save_button : PGtkWidget; 27 axis_items : array[0..(GDK_AXIS_LAST)-1] of PGtkWidget; 28 current_device : PGdkDevice; 29 keys_list : PGtkWidget; 30 keys_listbox : PGtkWidget; 31 end; 32 33{ Padding for future expansion } 34 PGtkInputDialogClass = ^TGtkInputDialogClass; 35 TGtkInputDialogClass = record 36 parent_class : TGtkDialogClass; 37 enable_device : procedure (inputd:PGtkInputDialog; device:PGdkDevice); cdecl; 38 disable_device : procedure (inputd:PGtkInputDialog; device:PGdkDevice); cdecl; 39 _gtk_reserved1 : procedure ; cdecl; 40 _gtk_reserved2 : procedure ; cdecl; 41 _gtk_reserved3 : procedure ; cdecl; 42 _gtk_reserved4 : procedure ; cdecl; 43 end; 44 45{$ENDIF read_interface_types} 46 47//------------------------------------------------------------------------------ 48 49{$IFDEF read_interface_rest} 50function GTK_TYPE_INPUT_DIALOG : GType; 51function GTK_INPUT_DIALOG(obj: pointer) : PGtkInputDialog; 52function GTK_INPUT_DIALOG_CLASS(klass: pointer) : PGtkInputDialogClass; 53function GTK_IS_INPUT_DIALOG(obj: pointer) : boolean; 54function GTK_IS_INPUT_DIALOG_CLASS(klass: pointer) : boolean; 55function GTK_INPUT_DIALOG_GET_CLASS(obj: pointer) : PGtkInputDialogClass; 56 57 58function gtk_input_dialog_get_type:TGtkType; cdecl; external gtklib; 59function gtk_input_dialog_new:PGtkWidget; cdecl; external gtklib; 60{$ENDIF read_interface_rest} 61 62//------------------------------------------------------------------------------ 63 64{$IFDEF read_implementation} 65function GTK_TYPE_INPUT_DIALOG : GType; 66begin 67 GTK_TYPE_INPUT_DIALOG:=gtk_input_dialog_get_type; 68end; 69 70function GTK_INPUT_DIALOG(obj: pointer) : PGtkInputDialog; 71begin 72 GTK_INPUT_DIALOG:=PGtkInputDialog(GTK_CHECK_CAST(obj,GTK_TYPE_INPUT_DIALOG)); 73end; 74 75function GTK_INPUT_DIALOG_CLASS(klass: pointer) : PGtkInputDialogClass; 76begin 77 GTK_INPUT_DIALOG_CLASS:=PGtkInputDialogClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_INPUT_DIALOG)); 78end; 79 80function GTK_IS_INPUT_DIALOG(obj: pointer) : boolean; 81begin 82 GTK_IS_INPUT_DIALOG:=GTK_CHECK_TYPE(obj,GTK_TYPE_INPUT_DIALOG); 83end; 84 85function GTK_IS_INPUT_DIALOG_CLASS(klass: pointer) : boolean; 86begin 87 GTK_IS_INPUT_DIALOG_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_INPUT_DIALOG); 88end; 89 90function GTK_INPUT_DIALOG_GET_CLASS(obj: pointer) : PGtkInputDialogClass; 91begin 92 GTK_INPUT_DIALOG_GET_CLASS:=PGtkInputDialogClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_INPUT_DIALOG)); 93end; 94{$ENDIF read_implementation} 95 96// included by gtk2.pas 97 98