1#!/usr/bin/perl 2use strict; 3use warnings; 4use diagnostics; 5 6use UI::Dialog::Backend::Nautilus; 7my $n = new UI::Dialog::Backend::Nautilus; 8 9my @paths = $n->paths(); 10my @uris = $n->uris(); 11my $path = $n->path(); 12my $uri = $n->uri(); 13my @geo = $n->geometry(); 14 15use UI::Dialog::GNOME; 16my $d = new UI::Dialog::GNOME; 17$d->msgbox 18 ( text=> 19 [ 'paths: '.join(" ",@paths), 20 'uris: '.join(" ",@uris), 21 'path: '.$path, 22 'uri: '.$uri, 23 'geo: '.join(" ",@geo) 24 ] 25 ); 26