[futurebasic] Re: [FB] Toolboxes and OSX (Jaguar)

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 2002 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Tue, 31 Dec 2002 14:19:42 -0400
>These two:
>
>HideMenuBar
>ShowMenuBar
>
>I could only find in the FB Headers in a file called "RnTm Game Engine.Glbl"
>but for Jaguar they are in the CarbonLib fragment.

Thanks for the guidance.

Please check the below and tell me if the way I have it is correct?

>I also forgot to mention that the last four:
>
>AddFilePreview
>ConvertMovieToFile
>GetGraphicsImporterForFileWithFlags
>GraphicsExportRequestSettings
>
>Aren't in CarbonLib technically speaking.  They are in CarbonLib but in the
>Apple;Carbon;Multimedia fragment.  That's just like:
>
>toolbox FN GetGraphicsImporterForFile in "Tlbx QuickTime.Incl"
>
>If you added these, they need to have this around them:
>
>#if carbonlib
>LIBRARY "Apple;Carbon;Multimedia"
>#else
>LIBRARY "QuickTimeLib"
>#endif
>
>// functions
>
>LIBRARY

Ok, here's the mess...Anything look Horrid and non-optimal?  (compiles ok
here in OS 8.6, CarbonLib)


#if carbonlib
LIBRARY "carbonlib"
#else
LIBRARY "MenusLib"
#endif
toolbox fn IsMenuBarVisible = Boolean
toolbox ShowMenuBar
toolbox HideMenuBar
LIBRARY

//_codecSaveQuality = 0x3CD 95 Percent
_codecSaveQuality = 0x3D7 // 96 Percent
_kGraphicsExportRequestSettingsSelect       = 0x000B

// miscellaneous needs
#define GraphicsExportComponent as ComponentInstance
#define GWorldPtr as pointer
#define depth as long
#define ImageDescriptionHandle AS Handle


#if carbonlib
LIBRARY "Apple;Carbon;Multimedia"
#else
LIBRARY "QuickTimeLib"
#endif
toolbox FN GetGraphicsImporterForFileWithFlags(const FSSpec *theFile,¬
ComponentInstance *gi, long flags)         = OSErr
Toolbox FN ConvertMovieToFile(Long,Long,const FSSpec *theFile,¬
OSType,OSType,ScriptCode scriptTag,short,long,Long ) = OSErr
Toolbox FN GraphicsExportRequestSettings (GraphicsExportComponent ci,¬
ModalFilterYDUPP filterProc,ptr)= ComponentResult
`0x2F3C,0x0008,0x000B,0x7000,0xA82A
Toolbox FN AddFilePreview  (short resRefNum,OSType previewType,Handle
dataRef) = OSErr
LIBRARY


LIBRARY "QuickTimeLib"
Toolbox FN MakeFilePreview (short resRefNum,ptr) = OSErr
toolbox fn GraphicsExportSetDepth(GraphicsExportComponent ci,depth depth )¬
 = ComponentResult `0x2F3C,0x0004,0x001D,0x7000,0xA82A
Toolbox FN GetGraphicsImporterForDataRef( Handle dataRef, OSType fileType,¬
 GraphicsImportComponent *ci) = ComponentResult
toolbox FN GraphicsImportGetImageDescription(GraphicsImportComponent ci,¬
ImageDescriptionHandle *desc)            = ComponentResult  //
Toolbox FN CallComponentCanDo (ComponentInstance ci,short ftnNumber) ¬
= ComponentResult
'~'5
Toolbox FN MovieExportDoUserDialog(long,long,long,long,¬
long,Boolean *canceled ) = ComponentResult
Toolbox SetMovieProgressProc (long theMovie,ptr, long refcon)
'~'5
LIBRARY