home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for WindowSupportExternal
- ;written by DefMod (Jun 12 1995) on Thu Jun 29 15:36:53 1995
- ;Simon Middleton, Uniqueway Ltd; Jonathan Coxhead, Acorn Computers Ltd
-
- [ :LNOT: :DEF: Get_Types
- GBLS Get_Types
- ]
- [ :LNOT: :DEF: Types_Hdr
- Get_Types SETS "GET OS:Hdr.Types"
- |
- Get_Types SETS ""
- ]
- $Get_Types
-
- [ :LNOT: :DEF: Get_OS
- GBLS Get_OS
- ]
- [ :LNOT: :DEF: OS_Hdr
- Get_OS SETS "GET OS:Hdr.OS"
- |
- Get_OS SETS ""
- ]
- $Get_OS
-
- [ :LNOT: :DEF: Get_Toolbox
- GBLS Get_Toolbox
- ]
- [ :LNOT: :DEF: Toolbox_Hdr
- Get_Toolbox SETS "GET OS:Hdr.Toolbox"
- |
- Get_Toolbox SETS ""
- ]
- $Get_Toolbox
-
- [ :LNOT: :DEF: Get_Window
- GBLS Get_Window
- ]
- [ :LNOT: :DEF: Window_Hdr
- Get_Window SETS "GET OS:Hdr.Window"
- |
- Get_Window SETS ""
- ]
- $Get_Window
-
- [ :LNOT: :DEF: Get_Gadget
- GBLS Get_Gadget
- ]
- [ :LNOT: :DEF: Gadget_Hdr
- Get_Gadget SETS "GET OS:Hdr.Gadget"
- |
- Get_Gadget SETS ""
- ]
- $Get_Gadget
-
- [ :LNOT: :DEF: WindowSupportExternal_Hdr
- GBLS WindowSupportExternal_Hdr
-
- ;Symbols for constants
- WindowSupportExternal_HandlerAdd * 1
- WindowSupportExternal_HandlerRemove * 2
- WindowSupportExternal_HandlerFade * 3
- WindowSupportExternal_HandlerMethod * 4
- WindowSupportExternal_HandlerClick * 6
- WindowSupportExternal_HandlerPlot * 9
- WindowSupportExternal_HandlerSetFocus * 10
- WindowSupportExternal_HandlerMove * 11
- WindowSupportExternal_HandlerPostAdd * 12
-
- ;Symbols for SWI's and SWI reason codes
- XWindow_SupportExternal * &A2887
- Window_SupportExternal * &82887
-
- WindowSupportExternal_CreateIcon * &0
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = &0
- ; R2 -> icon (Wimp_IconCreate)
- ;Exit
- ; R0 = i (Wimp_I)
-
- WindowSupportExternal_CreateObject * &2
- ;Entry
- ; R0 = flags (Toolbox_CreateFlags)
- ; R1 = &2
- ; R2 = id (Toolbox_Id)
- ;Exit
- ; R0 = obj (Toolbox_O)
-
- WindowSupportExternal_CreateGadget * &3
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = &3
- ; R2 = obj (Toolbox_O)
- ; R3 -> gadget (Gadget_Object)
- ; R4 = tag (Int)
- ;Exit
- ; R0 = cmp (Toolbox_C)
-
- WindowSupportExternal_Alloc * &4
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = &4
- ; R2 = size (Int)
- ;Exit
- ; R0 = data (pointer to Void)
-
- WindowSupportExternal_Free * &5
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = &5
- ; R2 = data (pointer to Void)
-
- WindowSupportExternal_Realloc * &6
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = &6
- ; R2 = data (pointer to Void)
- ; R3 = size_increase (Int)
- ;Exit
- ; R0 = data (pointer to Void)
-
- ]
- END
-