my($wrapper) = $w->toplevel->wrapper;
    $w->property('set', '_NET_WM_STATE', "ATOM", 32,
		 ["_NET_WM_STATE_STAYS_ON_TOP"], $wrapper);