/perl-install/pixmaps/

• ../
• X.png
• about.png
• arrow_down.png
• arrow_up.png
• colors.png
• colors16.png
• colors8.png
• cups_config.png
• default.png
• eth_card_mini.png
• help.png
• ic82-systemeplus-40.png
• ic82-tape-40.png
• langs
• monitor-1024.png
• monitor-1152.png
• monitor-1280.png
• monitor-1400.png
• monitor-1600.png
• monitor-1920.png
• monitor-2048.png
• monitor-640.png
• monitor-800.png
• monitor.png
• mouse_2b.png
• mouse_2b_left.png
• mouse_2b_right.png
• mouse_3b+.png
• mouse_3b+_middle.png
• mouse_3b.png
• mouse_3b_left.png
• mouse_3b_middle.png
• mouse_3b_right.png
• nosplash_thumb.png
• printer-mdk.png
• printer_add.png
• printer_conf.png
• printer_default.png
• printer_del.png
• printerdrake.png
• quit.png
• redhat-config-users.png
• refresh.png
• selected.png
• slpash-drakeprint-2.png
• steps_off.png
• steps_on.png
• stock_cancel.xpm
• stock_exit.xpm
• stock_left.xpm
• stock_ok.xpm
• stock_right.xpm
• unselected.png
• warning.png

package interactive;

use diagnostics;
use strict;

#-######################################################################################
#- misc imports
#-######################################################################################
use common qw(:common :functional);

#- heritate from this class and you'll get all made interactivity for same steps.
#- for this you need to provide
#- - ask_from_listW(o, title, messages, arrayref, default) returns one string of arrayref
#- - ask_many_from_listW(o, title, messages, arrayref, arrayref2) returns many strings of arrayref
#-
#- where
#- - o is the object
#- - title is a string
#- - messages is an refarray of strings
#- - default is an optional string (default is in arrayref)
#- - arrayref is an arrayref of strings
#- - arrayref2 contains booleans telling the default state,
#-
#- ask_from_list and ask_from_list_ are wrappers around ask_from_biglist and ask_from_smalllist
#-
#- ask_from_list_ just translate arrayref before calling ask_from_list and untranslate the result
#-
#- ask_from_listW should handle differently small lists and big ones.



#-######################################################################################
#- OO Stuff
#-######################################################################################
sub new($) {
    my ($type) = @_;

    bless {}, ref $type || $type;
}

sub vnew {
    if (c::Xtest($ENV{DISPLAY} ||= ":0")) {
	require 'interactive_gtk.pm';
	interactive_gtk->new;
    } else {
	undef *log::l;
	*log::l = sub {}; # otherwise, it will bother us :(
	require 'interactive_newt.pm';
	interactive_newt->new;
    }
}

#-######################################################################################
#- Interactive functions
#-######################################################################################
sub ask_warn($$$) {
    my ($o, $title, $message) = @_;
    ask_from_list2($o, $title, $message, [ _("Ok") ]);
}

sub ask_yesorno($$$;$) {
    my ($o, $title, $message, $def) = @_;
    ask_from_list2_($o, $title, $message, [ __("Yes"), __("No") ], $def ? "Yes" : "No") eq "Yes";
}

sub ask_okcancel($$$;$) {
    my ($o, $title, $message, $def) = @_;
    ask_from_list2_($o, $title, $message, [ __("Ok"), __("Cancel") ], $def ? "Ok" : "Cancel") eq "Ok";
}

sub ask_from_list_ {
    my ($o, $title, $message, $l, $def) = @_;
    @$l == 0 and die '';
    @$l == 1 and return $l->[0];
    goto &ask_from_list2_;
}

sub ask_from_list {
    my ($o, $title, $message, $l, $def) = @_;
    @$l == 0 and die '';
    @$l == 1 and return $l->[0];
    goto &ask_from_list2;
}

sub ask_from_list2_($$$$;$) {
    my ($o, $title, $message, $l, $def) = @_;
    untranslate(
       ask_from_list($o, $title, $message, [ map { translate($_) } @$l ], translate($def)),
       @$l);
}

sub ask_from_list2($$$$;$) {
    my ($o, $title, $message, $l, $def) = @_;

    @$l > 10 and $l = [ sort @$l ];

    $o->ask_from_listW($title, [ deref($message) ], $l, $def || $l->[0]);
}