#!/usr/local/bin/perl -w
use Data::Dumper;
use strict;
use Tk;

my $mw = MainWindow->new;

my @info = $mw->property('get','_MOTIF_DRAG_WINDOW','root');
if (@info == 2 && $info[0] eq 'WINDOW')
 {
  my $dw = $info[1];
  my @list = $mw->property('list',$dw);
  my $name;
  foreach $name (@list)
   {
    my $val = $mw->property('get',$name,$dw);
    print "$name length is ",length($val),"\n";
    my @val = map(sprintf("%02X",$_),unpack('C*',$val));
    print join(' ',@val),"\n";
    print "\n";
   }
 }