#!/usr/bin/perl -w
use Tk;
use strict;
my @Custom_Border = ();
my @frames = ();
my ($x, $y) = 0;
my $flag = 0;
my $mw = MainWindow->new(-background=>'#000000',
-title=>"You Should Never See This.");
$mw->overrideredirect(1);
$frames[0] = $mw->Frame()->pack(-fill=>'both');
$frames[1] = $mw->Frame()->pack(-fill=>'both');
$frames[2] = $mw->Frame()->pack(-fill=>'both');
$Custom_Border[0] = $frames[0]->Label(-background=>'#FFFFFF',
-borderwidth=>0,
-text=>"Top")->pack(-side=>'top',
-fill=>'both');
$Custom_Border[1] = $frames[1]->Label(-background=>'#FFFFFF',
-borderwidth=>0,
-text=>"Left")->pack(-side=>'left',
-anchor=>'w',
-fill=>'both');
$frames[3] = $frames[1]->Frame()->pack(-side=>'left',-fill=>'both');
$Custom_Border[2] = $frames[1]->Label(-background=>'#FFFFFF',
-borderwidth=>0,
-text=>"Right")->pack(-side=>'right',
-anchor=>'e',
-fill=>'both');
$Custom_Border[3] = $frames[2]->Label(-background=>'#FFFFFF',
-borderwidth=>0,
-text=>"Bottom")->pack(-side=>'bottom',
-fill=>'both');
my $Q_Button = $frames[3]->Button(-text=>"Quit",-command=>sub {$mw->de
+stroy();})->pack();
$Custom_Border[0]->bind('<Button-1>',sub {$flag = 1;});
$Custom_Border[0]->bind('<ButtonRelease-1>',sub {$flag = 0;});
$Custom_Border[0]->bind('<Motion>',sub {
if ($flag) {
($x,$y) = $Custom_Border[0]->pointerxy;
$mw->geometry("+".($x-5)."+".($y-5));
printf "Moving to %d,%d\n",$Custom_Border[0]->pointerxy;
$mw->update;
}
});
MainLoop();
|