$top->Button(-text=>'Put text into frame', -command=>sub{
	if(!$frame){return};
	$text->packForget;
	$text->pack(-in=>$frame);
	$text->raise; #<=== Add this line
})->pack;