mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
35 lines
744 B
Plaintext
35 lines
744 B
Plaintext
;
|
|
; File: alDlogUtil.a
|
|
;
|
|
; Contains: alias manager dialog box utility routines in Assembly
|
|
;
|
|
; Written by: Prashant Patel
|
|
;
|
|
; Copyright: © 1989-1992 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <SM2> 10/28/92 SWC Changed the INCLUDEs to a LOAD of StandardEqu.d.
|
|
; <1.0> 9/18/89 prp Initial release.
|
|
;
|
|
|
|
BLANKS ON
|
|
STRING ASIS
|
|
CASE OFF
|
|
|
|
LOAD 'StandardEqu.d'
|
|
|
|
; SetArrowCursor();
|
|
; Does a SetCursor with the arrow cursor
|
|
PROC
|
|
EXPORT SetArrowCursor
|
|
SetArrowCursor:
|
|
MOVE.L GrafGlobals(a5), a0 ; Point at QuickDraw globals
|
|
PEA arrow(a0) ; Push address of arrow cursor
|
|
_SetCursor ; Set it as current
|
|
RTS ; Return to C
|
|
ENDPROC
|
|
|
|
END
|
|
|