($view) = grep{$_->name eq 'frame'} $$top->children;
	
if ($view){
		$view->packForget;
	}