source: MondoRescue/devel/mrmini/ui-dialog.pl @ 2720

Last change on this file since 2720 was 2720, checked in by Bruno Cornec, 10 years ago

r4159@gnoisette1: bruno | 2011-02-06 01:29:12 +0100

  • Adds a script example of possible UI for mrmindi
  • Property svn:executable set to *
File size: 809 bytes
Line 
1#!/usr/bin/perl -w
2use strict;
3use diagnostics;
4use UI::Dialog;
5
6my $mrui = "UI::Dialog";
7my @mrui_opt = (
8        backtitle => 'Mindi', 
9        title => 'Mindi',
10        height => 24, 
11        width => 80, 
12        listheight => 5,
13        debug => 0,
14        order => [ 'gdialog', 'xdialog', 'whiptail', 'cdialog', 'ascii' ]
15);
16
17my $d = new $mrui ( @mrui_opt );
18
19$d->infobox( text => [ "This message box is provided by one of the following: zenity, Xdialog or gdialog. ",
20                      "(Or if from a console: dialog, whiptail, ascii)" ] );
21
22sleep(3);
23
24my $d2 = new $mrui ( title => "Mindi",
25                         debug => 0, height => 20, width => 75 );
26
27$d2->yesno( text => [ "Are you OK. " ] );
28
29$d->infobox( text => [ "This message box is provided by one of the following: zenity, Xdialog or gdialog. ",
30                      "(Or if from a console: dialog, whiptail, ascii)" ] );
Note: See TracBrowser for help on using the repository browser.