sub CheckIDE {
  my $vis = $ide->get_property('foreground') == $ide ? 1 : 0;
  my $coord = $ide->get_property('rect');
  exit unless defined $coord;
  if ($vis > $curvis) {
    $mw->deiconify;
    $mw->raise
  } elsif ($vis < $curvis) {
    $mw->withdraw
  }
  $curvis = $vis;
  my ($rgt, $top) = map {$coord->{$_}} qw/right top/;
  $rgt += $dx;
  $top += $dy;
  $mw->geometry("+$rgt+$top");
  $check = $mw->after(10, \&CheckIDE)
}

##</code><code>##

  my $coord = $ide->get_property('rect')