Help for this page
Select Code to Download
Select
or
download this
#!/usr/bin/perl ... $mw->geometry( $newposition ); print "$newposition\n"; }