File: motif_hack

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; yacc: 762
file content (24 lines) | stat: -rw-r--r-- 505 bytes parent folder | download | duplicates (12)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/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";
   }
 }