Repost of "kCreepingWindowClass"

If I thought this was a FB 'feature', I'd keep it off the list but 
would some kind soul mail me privately with the result of this test?

With OS X 10.2.8, FB^3.7, creating a window of type 
_kFloatingWindowClass shifts the window down by 4 pixels. i.e. 
specifying a rect of (l,t,r,b) 50, 50, 300, 300 creates this type of 
window at 50, 54, 300, 304.

I have no way of checking myself but apparently this doesn't happen 
with OS X 10.3, FB^3.8. Is it the same with OS X 10.3, FB^3.7?

Thanks
Bernie


Floating window creep test:

'~'A
'                       Runtime : Rntm Appearance.Incl
'                           CPU : Carbon
'~'B
local fn RefreshWnd
dim as rect        r
dim as WindowRef @ wRef

get window 1, wRef
fn GetWindowBounds(wRef, _kWindowContentRgn, r)
print r
end fn

local fn DoDialog
dim as long ev, id

ev = dialog(0)
id = dialog(ev)
select ev
case _wndRefresh
fn RefreshWnd
end select
end fn

dim as rect r
SetRect(r, 50,50,300,300)
appearance window 1, "My Window", @r, _kFloatingWindowClass

on dialog fn DoDialog

do
HandleEvents
until 0