pascal OSErr SetDragImage ( DragReference theDragRef, PixMapHandle imagePixMap, RgnHandle imageRgn, Point imageOffsetPt, DragImageFlags theImageFlags ) { enum { uppSetDragImageInfo = kD0DispatchedPascalStackBased | RESULT_SIZE (SIZE_CODE (sizeof(OSErr))) | DISPATCHED_STACK_ROUTINE_SELECTOR_SIZE (SIZE_CODE (sizeof (unsigned long))) | DISPATCHED_STACK_ROUTINE_PARAMETER (1, SIZE_CODE (sizeof (theDragRef))) | DISPATCHED_STACK_ROUTINE_PARAMETER (2, SIZE_CODE (sizeof (imagePixMap))) | DISPATCHED_STACK_ROUTINE_PARAMETER (3, SIZE_CODE (sizeof (imageRgn))) | DISPATCHED_STACK_ROUTINE_PARAMETER (4, SIZE_CODE (sizeof (imageOffsetPt))) | DISPATCHED_STACK_ROUTINE_PARAMETER (5, SIZE_CODE (sizeof (theImageFlags))) }; return CallUniversalProc ( GetToolTrapAddress (_DragDispatch), uppSetDragImageInfo, 0x27L, theDragRef, imagePixMap, imageRgn, imageOffsetPt, theImageFlags); }
static pascal void SBShowHideControlStrip(Boolean showIt) { static short procData[] = THREEWORDSTUB(0x303C, 0x0101, 0xAAF2); ProcInfoType procInfo = kD0DispatchedPascalStackBased | DISPATCHED_STACK_ROUTINE_SELECTOR_SIZE(kFourByteCode) | DISPATCHED_STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(Boolean))); CallUniversalProc((UniversalProcPtr) procData, procInfo, 0x01, showIt); }
pascal OSErr GetDragHiliteColor (WindowPtr window, RGBColor *color) { enum { uppGetDragHiliteColorInfo = kD0DispatchedPascalStackBased | RESULT_SIZE (SIZE_CODE (sizeof(OSErr))) | DISPATCHED_STACK_ROUTINE_SELECTOR_SIZE (SIZE_CODE (sizeof (unsigned long))) | DISPATCHED_STACK_ROUTINE_PARAMETER (1, SIZE_CODE (sizeof (window))) | DISPATCHED_STACK_ROUTINE_PARAMETER (2, SIZE_CODE (sizeof (color))) }; return CallUniversalProc ( GetToolTrapAddress (_DragDispatch), uppGetDragHiliteColorInfo, 0x26L, window, color); }