// note: the constants used in the _cursOverBtn case are from my  
application. Your own constants corresponding to edit fields (or  
control-based EFs) should be substituted.
// this is the target for an  ON DIALOG  fn DoDialog
//Brian S.

clear local
local fn DoDialog
dim as long action,reference


'---> Get Event Info
action    = DIALOG(0)
reference = DIALOG(action)
select action'first figure out what event it was
case _wndActivate'window activated or deactivated
case _wndClick'window clicked
case _wndClose'window closed
case _wndRefresh'window needs refreshing
case _wndResized
case _wndZoomIn'zoom in event (zoom box clicked)
case _wndZoomOut'zoom out event
case _btnClick'button clicked (id = button id)
case _cntxtMenuClick
case _efClick'edit field click
case _evKey'not with edit fields (see TEKEY$)
case _userDialog'id = user defined id (see EVENT&)
'------------- Cursor events -------------------------------------
//.....edit field insertion bar for edit fields....
case _cursOverEF
cursor _kThemeIBeamCursor,_themeCursorStatic

// ... Pointing hand over buttons ...
case _cursOverBtn
select reference'reference is button id
case _SunSummary,_MonSummary,_TueSummary,¬
_WedSummary,_ThuSummary,_FriSummary,¬
_SatSummary,_EditDayNoteOnList,¬
_DayNotesText,_targetStrForSearch,_scrollView'list of  non-static  
edit text fields
cursor _kThemeIBeamCursor,_themeCursorStatic
case else
cursor _kThemePointingHandCursor,_themeCursorStatic
end select
// ... Arrow over everything else
case _cursOverNothing
cursor _kThemeArrowCursor,_themeCursorStatic
case _cursEvent
cursor _kThemeArrowCursor,_themeCursorStatic'when the cursor is moved  
off the window
end select
end fn

On Oct 8, 2007, at 6:46 PM, Brian Heibert wrote:

> Standard FB event handling
>
> On Oct 8, 2007, at 9:46 PM, Brian Stevens wrote:
>
>>
>> On Oct 8, 2007, at 6:40 PM, Brian Heibert wrote:
>>
>>> How would I go about doing this?
>>
>> Carbon events or standard FB event handling?
>>
>>
>> Brian S.
>>
>> --
>> To unsubscribe, send ANY message to: futurebasic- 
>> unsubscribe@...
>>
>
> --
> To unsubscribe, send ANY message to: futurebasic- 
> unsubscribe@...
>

Brian S.