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