yap - Gtk2::FileSelector

[Chas Owens <alas wilma widomaker com>]

Again, a little thievery and cleaning up.

BTW: should it be considered a bug that $fs->complete doesn't actually
cause the file list to be filtered (you have to hit tab)?  The same thing
happens in Gtk#, so I know it isn't a Gtk-Perl-XS problem.


<patch>
--- Gtk2/xs/GtkFileSelection.xs.orig    2003-04-17 18:10:53.000000000 -0400
+++ Gtk2/xs/GtkFileSelection.xs 2003-04-17 18:18:40.000000000 -0400
@@ -53,3 +53,28 @@
 #gtk_file_selection_get_selections
 #      GtkFileSelction * filesel

+GtkWidget*
+ok_button(fs)
+       GtkFileSelection* fs
+    ALIAS:
+       Gtk2::FileSelection::ok_button       = 0
+       Gtk2::FileSelection::cancel_button   = 1
+       Gtk2::FileSelection::dir_list        = 2
+       Gtk2::FileSelection::file_list       = 3
+       Gtk2::FileSelection::selection_entry = 4
+       Gtk2::FileSelection::selection_text  = 5
+       Gtk2::FileSelection::main_vbox       = 6
+       Gtk2::FileSelection::help_button     = 7
+    CODE:
+       switch (ix) {
+               case 0: RETVAL = fs->ok_button;       break;
+               case 1: RETVAL = fs->cancel_button;   break;
+               case 2: RETVAL = fs->dir_list;        break;
+               case 3: RETVAL = fs->file_list;       break;
+               case 4: RETVAL = fs->selection_entry; break;
+               case 5: RETVAL = fs->selection_text;  break;
+               case 6: RETVAL = fs->main_vbox;       break;
+               case 7: RETVAL = fs->help_button;     break;
+       }
+    OUTPUT:
+       RETVAL
</patch>