1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
/*
* Copyright (c) 2006 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::RecentChooserDialog PACKAGE = Gtk2::RecentChooserDialog PREFIX = gtk_recent_chooser_dialog_
BOOT:
gperl_prepend_isa ("Gtk2::RecentChooserDialog", "Gtk2::RecentChooser");
=for apidoc Gtk2::RecentChooserDialog::new_for_manager
=for signature widget = Gtk2::RecentChooserDialog->new_for_manager ($title, $parent, $manager, ...)
=for arg manager (Gtk2::RecentManager)
=for arg ... (list) list of button-text => response-id pairs
=cut
=for apidoc Gtk2::RecentChooserDialog::new
=for arg ... list of button-text => response-id pairs
=cut
GtkWidget *
gtk_recent_chooser_dialog_new (class, gchar *title, GtkWindow_ornull *parent, ...)
ALIAS:
Gtk2::RecentChooserDialog::new_for_manager = 1
PREINIT:
gint i, first_index;
GtkRecentManager *manager;
CODE:
if (ix == 1) {
first_index = 4;
manager = SvGtkRecentManager (ST (3));
}
else {
first_index = 3;
manager = NULL;
}
if (0 != (items - first_index) % 2) {
if (ix == 1) {
croak ("Usage: Gtk2::RecentChooserDialog->new_for_manager (title, parent, manager, button-text => response-id, ...)\n"
" expecting list of button-text => response-id pairs");
}
else {
croak ("Usage: Gtk2::RecentChooserDialog->new (title, parent, button-text => response-id, ...)\n"
" expecting list of button-text => response-id pairs");
}
}
RETVAL = g_object_new (GTK_TYPE_RECENT_CHOOSER_DIALOG,
"title", title,
"recent-manager", manager,
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
|