Getting screen position

[Steve Fox <drfickle k-lug org>]

I'm a bit stumped at trying to get screen position. I need to save the
window position at the time of closing. This is what I'm doing:

my ($x, $y, $w, $h) = @{$win->allocation};

This fills in window size appropriately, but $x and $y are always zero.
Does anyone know a reliable way to get window position?

Thanks.

-- 

Steve Fox
http://k-lug.org