Woops! I forgot to put "then" after one of the Ifs. I wrote that code
off the top of my head, since REALbasic wasn't open.
Function GetFragmentName(ClassicLib as String) As String
dim sysV as integer
if system.gestalt("sysv", sysV) and sysV >= &h1000 then
return "CarbonLib"
else
return ClassicLib
end if
End Function
Regards,
Ryan Govostes
---
A searchable archive of this list is available at:
<http://support.realsoftware.com/listarchives/search.php>
Unsubscribe:
<mailto:realbasic-nug-off at lists dot realsoftware dot com>
Subscribe to the digest:
<mailto:realbasic-nug-digest at lists dot realsoftware dot com>
.
|