Re^4: want way to drag tk window

in reply to Re^3: want way to drag tk window
in thread want way to drag tk window

Try, instead of:

  my $newposition = $oldposition =~
    s/\+\K([-\d]+)\+([-\d]+)$/ ($1 + $deltax) . '+' . ($2 + $deltay) /
+er;
[download]

doing this:

  $oldposition =~ /^(\d+)x(\d+)\+?([-\d]+)\+?([-\d]+)/;
  my ($newx, $newy) = ($3 + $deltax, $4 + $deltay);
  my $newposition = "${1}x${2}+${newx}+${newy}"
[download]

say substr+lc crypt(qw $i3 SI$),4,5

Comment on Re^4: want way to drag tk window Select or Download Code

In Section Seekers of Perl Wisdom