if (defined(my $pixels = $w->cget('-pixelwidth'))) {
	        $w->GeometryRequest($pixels, 18); # 18 is New! Was $mw->reqheight before
	    }