#!perl

require "./xbase.pl";

$xopen = &xlib::x_open_display($ENV{"DISPLAY"});
die $xlib::status if not defined $xopen;

@atoms = &xlib::x_listproperties($xopen, $xlib::root_window);
print "atoms: ",join(",",@atoms),"\n";
print &xlib::x_getatomname($xopen,$atoms[0]),"\n";
@x= &xlib::x_getproperty($xopen,$X::defines{"xFalse"}, $xlib::root_window,
			 $atoms[0],
			 $X::defines{"AnyPropertyType"}, 0,0);
print "format $x[0], value <$x[1]>\n";

close $xopen->{"XFD"};
