#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use UI::Dialog::Backend::XOSD;
my @opts = ( debug => 3,
font => "lucidasans-bold-24",
# font => "-*-fixed-*-*-*-*-20-*-*-*-*-*-iso8859-*",
delay => 2,
colour => "green",
pos => "middle",
align => "center" );
my $d = new UI::Dialog::Backend::XOSD ( @opts );
$d->display_start();
$d->display_text("this is a test");
sleep(1);
$d->display_text("so is this");
sleep(1);
$d->display_gauge( 25, "even testing a gauge!" );
$d->display_stop();
$d->line( text => "this is a line test" );
$d->gauge( text => "gauging something", percent => "45" );
$d->gauge( text => "gauging something again", percent => "85" );
$d->file( file => $0, lines => 5, indent => 5, align => 'left' );