home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Interfaces / PInterfaces / OSAGeneric.p < prev    next >
Encoding:
Text File  |  1994-11-11  |  3.9 KB  |  132 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        OSAGeneric.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT OSAGeneric;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __OSAGENERIC__}
  27. {$SETC __OSAGENERIC__ := 1}
  28.  
  29. {$I+}
  30. {$SETC OSAGenericIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __ERRORS__}
  35. {$I Errors.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38.  
  39. {$IFC UNDEFINED __APPLEEVENTS__}
  40. {$I AppleEvents.p}
  41. {$ENDC}
  42. {    Types.p                                                        }
  43. {    Memory.p                                                    }
  44. {        MixedMode.p                                                }
  45. {    OSUtils.p                                                    }
  46. {    Events.p                                                    }
  47. {        Quickdraw.p                                                }
  48. {            QuickdrawText.p                                        }
  49. {    EPPC.p                                                        }
  50. {        PPCToolbox.p                                            }
  51. {            AppleTalk.p                                            }
  52. {        Processes.p                                                }
  53. {            Files.p                                                }
  54. {    Notification.p                                                }
  55.  
  56. {$IFC UNDEFINED __OSA__}
  57. {$I OSA.p}
  58. {$ENDC}
  59. {    AEObjects.p                                                    }
  60. {    Components.p                                                }
  61.  
  62. {$PUSH}
  63. {$ALIGN MAC68K}
  64. {$LibExport+}
  65. {     NOTE:    This interface defines a "generic scripting component."
  66.             The Generic Scripting Component allows automatic dispatch to a
  67.             specific scripting component that conforms to the OSA interface.
  68.             This component supports OSA, by calling AppleScript or some other 
  69.             scripting component.  Additionally it provides access to the default
  70.             and the user-prefered scripting component.
  71. }
  72.  
  73. CONST
  74. { Component version this header file describes }
  75.     kGenericComponentVersion    = $0100;
  76.  
  77.     kGSSSelectGetDefaultScriptingComponent = $1001;
  78.     kGSSSelectSetDefaultScriptingComponent = $1002;
  79.     kGSSSelectGetScriptingComponent = $1003;
  80.     kGSSSelectGetScriptingComponentFromStored = $1004;
  81.     kGSSSelectGenericToRealID    = $1005;
  82.     kGSSSelectRealToGenericID    = $1006;
  83.     kGSSSelectOutOfRange        = $1007;
  84.  
  85.     
  86. TYPE
  87.     ScriptingComponentSelector = OSType;
  88.  
  89.     GenericID = OSAID;
  90.  
  91. { get and set the default scripting component }
  92.  
  93. FUNCTION OSAGetDefaultScriptingComponent(genericScriptingComponent: ComponentInstance; VAR scriptingSubType: ScriptingComponentSelector): OSAError;
  94.     {$IFC NOT GENERATINGCFM}
  95.     INLINE $2F3C, 4, $1001, $7000, $A82A;
  96.     {$ENDC}
  97. FUNCTION OSASetDefaultScriptingComponent(genericScriptingComponent: ComponentInstance; scriptingSubType: ScriptingComponentSelector): OSAError;
  98.     {$IFC NOT GENERATINGCFM}
  99.     INLINE $2F3C, 4, $1002, $7000, $A82A;
  100.     {$ENDC}
  101. { get a scripting component instance from its subtype code }
  102. FUNCTION OSAGetScriptingComponent(genericScriptingComponent: ComponentInstance; scriptingSubType: ScriptingComponentSelector; VAR scriptingInstance: ComponentInstance): OSAError;
  103.     {$IFC NOT GENERATINGCFM}
  104.     INLINE $2F3C, 8, $1003, $7000, $A82A;
  105.     {$ENDC}
  106. { get a scripting component selector (subType) from a stored script }
  107. FUNCTION OSAGetScriptingComponentFromStored(genericScriptingComponent: ComponentInstance; {CONST}VAR scriptData: AEDesc; VAR scriptingSubType: ScriptingComponentSelector): OSAError;
  108.     {$IFC NOT GENERATINGCFM}
  109.     INLINE $2F3C, 8, $1004, $7000, $A82A;
  110.     {$ENDC}
  111. { get a real component instance and script id from a generic id }
  112. FUNCTION OSAGenericToRealID(genericScriptingComponent: ComponentInstance; VAR theScriptID: OSAID; VAR theExactComponent: ComponentInstance): OSAError;
  113.     {$IFC NOT GENERATINGCFM}
  114.     INLINE $2F3C, 8, $1005, $7000, $A82A;
  115.     {$ENDC}
  116. { get a generic id from a real component instance and script id }
  117. FUNCTION OSARealToGenericID(genericScriptingComponent: ComponentInstance; VAR theScriptID: OSAID; theExactComponent: ComponentInstance): OSAError;
  118.     {$IFC NOT GENERATINGCFM}
  119.     INLINE $2F3C, 8, $1006, $7000, $A82A;
  120.     {$ENDC}
  121.  
  122. {$ALIGN RESET}
  123. {$POP}
  124.  
  125. {$SETC UsingIncludes := OSAGenericIncludes}
  126.  
  127. {$ENDC} {__OSAGENERIC__}
  128.  
  129. {$IFC NOT UsingIncludes}
  130.  END.
  131. {$ENDC}
  132.