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 PGtkFileSelection = ^TGtkFileSelection; 10 TGtkFileSelection = record 11 parent_instance : TGtkDialog; 12 dir_list : PGtkWidget; 13 file_list : PGtkWidget; 14 selection_entry : PGtkWidget; 15 selection_text : PGtkWidget; 16 main_vbox : PGtkWidget; 17 ok_button : PGtkWidget; 18 cancel_button : PGtkWidget; 19 help_button : PGtkWidget; 20 history_pulldown : PGtkWidget; 21 history_menu : PGtkWidget; 22 history_list : PGList; 23 fileop_dialog : PGtkWidget; 24 fileop_entry : PGtkWidget; 25 fileop_file : Pgchar; 26 cmpl_state : gpointer; 27 fileop_c_dir : PGtkWidget; 28 fileop_del_file : PGtkWidget; 29 fileop_ren_file : PGtkWidget; 30 button_area : PGtkWidget; 31 action_area : PGtkWidget; 32 selected_names : PGPtrArray; 33 last_selected : Pgchar; 34 end; 35 36{ Padding for future expansion } 37 PGtkFileSelectionClass = ^TGtkFileSelectionClass; 38 TGtkFileSelectionClass = record 39 parent_class : TGtkDialogClass; 40 _gtk_reserved1 : procedure ; cdecl; 41 _gtk_reserved2 : procedure ; cdecl; 42 _gtk_reserved3 : procedure ; cdecl; 43 _gtk_reserved4 : procedure ; cdecl; 44 end; 45 46{$ENDIF read_interface_types} 47 48//------------------------------------------------------------------------------ 49 50{$IFDEF read_interface_rest} 51function GTK_TYPE_FILE_SELECTION : GType; 52function GTK_FILE_SELECTION(obj: pointer) : PGtkFileSelection; 53function GTK_FILE_SELECTION_CLASS(klass: pointer) : PGtkFileSelectionClass; 54function GTK_IS_FILE_SELECTION(obj: pointer) : boolean; 55function GTK_IS_FILE_SELECTION_CLASS(klass: pointer) : boolean; 56function GTK_FILE_SELECTION_GET_CLASS(obj: pointer) : PGtkFileSelectionClass; 57 58 59function gtk_file_selection_get_type:TGtkType; cdecl; external gtklib; 60function gtk_file_selection_new(title:Pgchar):PGtkWidget; cdecl; external gtklib; 61procedure gtk_file_selection_set_filename(filesel:PGtkFileSelection; filename:Pgchar); cdecl; external gtklib; 62{ This function returns the selected filename in the C runtime's 63 multibyte string encoding, which may or may not be the same as that 64 used by GDK (UTF-8). To convert to UTF-8, call g_filename_to_utf8(). 65 The returned string points to a statically allocated buffer and 66 should be copied away. 67 } 68function gtk_file_selection_get_filename(filesel:PGtkFileSelection):Pgchar; cdecl; external gtklib; 69procedure gtk_file_selection_complete(filesel:PGtkFileSelection; pattern:Pgchar); cdecl; external gtklib; 70procedure gtk_file_selection_show_fileop_buttons(filesel:PGtkFileSelection); cdecl; external gtklib; 71procedure gtk_file_selection_hide_fileop_buttons(filesel:PGtkFileSelection); cdecl; external gtklib; 72function gtk_file_selection_get_selections(filesel:PGtkFileSelection):PPgchar; cdecl; external gtklib; 73procedure gtk_file_selection_set_select_multiple(filesel:PGtkFileSelection; select_multiple:gboolean); cdecl; external gtklib; 74function gtk_file_selection_get_select_multiple(filesel:PGtkFileSelection):gboolean; cdecl; external gtklib; 75{$ENDIF read_interface_rest} 76 77//------------------------------------------------------------------------------ 78 79{$IFDEF read_implementation} 80function GTK_TYPE_FILE_SELECTION : GType; 81begin 82 GTK_TYPE_FILE_SELECTION:=gtk_file_selection_get_type; 83end; 84 85function GTK_FILE_SELECTION(obj: pointer) : PGtkFileSelection; 86begin 87 GTK_FILE_SELECTION:=PGtkFileSelection(GTK_CHECK_CAST(obj,GTK_TYPE_FILE_SELECTION)); 88end; 89 90function GTK_FILE_SELECTION_CLASS(klass: pointer) : PGtkFileSelectionClass; 91begin 92 GTK_FILE_SELECTION_CLASS:=PGtkFileSelectionClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_FILE_SELECTION)); 93end; 94 95function GTK_IS_FILE_SELECTION(obj: pointer) : boolean; 96begin 97 GTK_IS_FILE_SELECTION:=GTK_CHECK_TYPE(obj,GTK_TYPE_FILE_SELECTION); 98end; 99 100function GTK_IS_FILE_SELECTION_CLASS(klass: pointer) : boolean; 101begin 102 GTK_IS_FILE_SELECTION_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_FILE_SELECTION); 103end; 104 105function GTK_FILE_SELECTION_GET_CLASS(obj: pointer) : PGtkFileSelectionClass; 106begin 107 GTK_FILE_SELECTION_GET_CLASS:=PGtkFileSelectionClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_FILE_SELECTION)); 108end; 109 110{$ENDIF read_implementation} 111// included by gtk2.pas 112 113