#!/usr/bin/perl
# Philip Shuman  philip at shuman dot org  c2000 v1.1

$x = 0;
$y = 0;

@possible_wins = grep /Mozilla/, `eesh -ewait window_list extended`;
foreach(@possible_wins) {
   chomp;
   @stuff = split /\:/;
   $stuff[0] =~ s/\s+//g;
   `eesh -e \"win_op $stuff[0] move $x $y\"`;
   $x+=15;
   $y+=16;
}

@possible_wins = grep /Netscape/, `eesh -ewait window_list extended`;

foreach(@possible_wins) {
   chomp;
   @stuff = split /\:/;
   $stuff[0] =~ s/\s+//g;
   `eesh -e \"win_op $stuff[0] move $x $y\"`;
   $x+=15;
   $y+=16;
}
