Thank you !!


> On Monday, August 12, 2002, at 02:51 AM, Robert Purves wrote:

>
> On Monday, August 5, 2002, at 02:36  AM, Douglas Stemen wrote:
>
>> Can someone tell me how FB^3 can  get the machine name when compiled 
>> in carbon running in OS X?
>>
>> Staz's following Appletalk Chooser Name example on the disk only works 
>> in PPC.
>>
>
>
>
> #if CarbonLib
> // in OS X (and CarbonLib 1.5 and later)
> toolbox fn CSCopyMachineName = CFStringRef
> toolbox fn CSCopyUserName( boolean useShortName ) = CFStringRef
> #endif
>
>
> dim as CFStringRef   nameCFStr
> dim as Str255        theName
>
> window 1
>
> nameCFStr = fn CSCopyMachineName
> long if nameCFStr
> long if fn CFStringGetPascalString( nameCFStr, @theName, ¬
>                            256, _kCFStringEncodingASCII )
> print "Machine name: " theName
> CFRelease( nameCFStr )
> end if
> end if
>
> nameCFStr = fn CSCopyUserName( _false )
> long if nameCFStr
> long if fn CFStringGetPascalString( nameCFStr, @theName, ¬
>                           256, _kCFStringEncodingASCII )
> print "User name: " theName
> CFRelease( nameCFStr )
> end if
> end if
>
> nameCFStr = fn CSCopyUserName( _true )
> long if nameCFStr
> long if fn CFStringGetPascalString( nameCFStr, @theName, ¬
>                            256, _kCFStringEncodingASCII )
> print "User short name: " theName
> CFRelease( nameCFStr )
> end if
> end if
>
> do
> HandleEvents
> until fn Button
>
>
>
> Robert P.
>
>
> --
> To unsubscribe, send ANY message to <futurebasic-
> unsubscribe@...>
>