on 06.1.28 5:08 PM, Robert Purves wrote:
> 
> On 28/01/2006, at 8:44 PM, Y.Hasegawa wrote:
> 
>> Robert Purves wrote:
>>> 
>>> Y.Hasegawa wrote:
>>> 
>>>> In OSX, does not the focus of the edit field highlight originally
>>>> on the
>>>> floating window, and is there a counter measure?
>>> 
>>>> '------------------
>>>> local fn BuildFloatingWnd
>>>> dim as Rect    r
>>>> 
>>>> SetRect(r, 0, 0, 200, 200)
>>>> appearance window -1, "Floating Window", @r,
>>>> _kFloatingWindowClass//_kDocumentWindowClass
>>>> 
>>>> SetRect(r, 63, 50, 133, 66)
>>>> appearance button 1, _activeBtn,,,,, @r, _kControlEditTextProc
>>>> def SetButtonTextString(1, "EditText")
>>>> 
>>>> SetRect(r, 63, 114, 133, 130)
>>>> appearance button 2, _activeBtn,,,,, @r, _kControlEditTextProc
>>>> def SetButtonTextString(2, "EditText")
>>>> 
>>>> def SetButtonFocus (1)
>>>> 
>>>> appearance window 1
>>>> end fn
>>>> 
>>>> fn BuildFloatingWnd
>>>> 
>>>> do
>>>> HandleEvents
>>>> until gFBQuit
>>> 
>>> When I run your example in OS X 10.4, text in the upper edit field is
>>> highlighted and has keyboard focus. That, I believe, is what the code
>>> should do. Do you see something different?
>> 
>> OS ahead is 10.4.4.
>> When I run with 10.3.4 machines, it highlighted normally.
>> Is it a problem of 10.4.4?
>> How many is your version 10.4.x?
> 
> Oh, now I understand. The focus Rect is not drawn around
> _kControlEditTextProc control when it is in a floating window.
> I see that on 10.4.4. It looks like a minor bug in Apple's Carbon
> framework.
> 
I consented. 

Thanks
Yoshiyuki