use Tk::CursorControl; $cursor = $main->CursorControl; #hide the cursor when it is over $widget $cursor->hide($widget);