/*
* Copyright (c) 2003 by the gtk2-perl team (see the file AUTHORS)
*
* Licensed under the LGPL, see LICENSE file for more information.
*
* $Id$
*/
#include "gtk2perl.h"
MODULE = Gtk2::FileChooserDialog PACKAGE = Gtk2::FileChooserDialog PREFIX = gtk_file_chooser_dialog_
BOOT:
/* GtkFileChooserDialog implements the GtkFileChooserIface */
gperl_prepend_isa ("Gtk2::FileChooserDialog", "Gtk2::FileChooser");
=for apidoc Gtk2::FileChooserDialog::new_with_backend
=for signature widget = Gtk2::FileChooserDialog->new_with_backend ($title, $parent, $action, $backend, ...)
=for arg backend (gchar*)
=for arg ... (list) list of button-text => response-id pairs
=cut
=for apidoc Gtk2::FileChooserDialog::new
=for arg ... list of button-text => response-id pairs
=cut
GtkWidget *
gtk_file_chooser_dialog_new (class, gchar *title, GtkWindow_ornull *parent, GtkFileChooserAction action, ...)
ALIAS:
Gtk2::FileChooserDialog::new_with_backend = 1
PREINIT:
gint i, first_index;
gchar *backend;
CODE:
if (ix == 1) {
first_index = 5;
backend = SvGChar (ST (4));
} else {
first_index = 4;
backend = NULL;
}
if (0 != (items - first_index) % 2) {
if (ix == 1)
croak ("Usage: Gtk2::FileChooserDialog->new_with_backend (title, parent, action, backend, button-text => response-id, ...)\n"
" expecting list of button-text => response-id pairs");
else
croak ("Usage: Gtk2::FileChooserDialog->new (title, parent, action, button-text => response-id, ...)\n"
" expecting list of button-text => response-id pairs");
}
RETVAL = g_object_new (GTK_TYPE_FILE_CHOOSER_DIALOG,
"title", title,
"action", action,
"file-system-backend", backend,
NULL);
if (parent)
gtk_window_set_transient_for (GTK_WINDOW (RETVAL), parent);
for (i = first_index ; i < items ; i+=2) {
gchar * button_text = SvGChar (ST (i));
gint response_id = SvGtkResponseType (ST (i+1));
gtk_dialog_add_button (GTK_DIALOG (RETVAL), button_text, response_id);
}
OUTPUT:
RETVAL