> local fn GetControlClockDate ( c as ControlRef, outDate as ^LongDateRec )
> '~'1
> dim as SInt32           buf
> dim as LongDateRec      controlLongDate
> dim as OSStatus         err
> 
> long if fn GetControlDataSize( c, _kControlEditTextPart, _kControlClockLongDateTag, buf ) == _noErr
> err = fn GetControlData( c, _kControlEditTextPart, _kControlClockLongDateTag, sizeof(LongDateRec), @controlLongDate, buf )
> if ( err == _noErr ) then BlockMoveData( @controlLongDate, outDate, sizeof(LongDateRec) ) // send data back to caller
> end if
> end fn


local fn GetControlClockDate ( c as ControlRef, outDate as ^LongDateRec )
'~'1
end fn = fn GetControlData( c, _kControlClockPart, _kControlClockLongDateTag, sizeof( LongDateRec ), #outDate, 0 )


Robert P.