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