1 /************************************
3 interface segment of Wimp routines
5 Controls low-level access to
8 Version 1.00 (29 June 1993)
11 ************************************/
13 /*----- Licensing note ----------------------------------------------------*
15 * This file is part of Straylight's Steel library.
17 * Steel is free software; you can redistribute it and/or modify
18 * it under the terms of the GNU General Public License as published by
19 * the Free Software Foundation; either version 2, or (at your option)
22 * Steel is distributed in the hope that it will be useful,
23 * but WITHOUT ANY WARRANTY; without even the implied warranty of
24 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 * GNU General Public License for more details.
27 * You should have received a copy of the GNU General Public License
28 * along with Steel. If not, write to the Free Software Foundation,
29 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
39 #include "interface.h"
42 static sprite_area *interface__area;
44 void interface_spritearea(sprite_area *a)
49 os_error *interface_slabButton(wimp_mousestr *mouse)
54 e=_swix(XInterface_SlabButton,_in(1),mouse);
59 os_error *interface_render3dWindow(wimp_redrawstr *rdr)
62 e=_swix(XInterface_Render3dWindow,_in(1),rdr);
66 os_error *interface_initialise(wimp_t task)
69 e=_swix(XInterface_Initialise,_in(0),task);
73 os_error *interface_closeDown(wimp_t task)
76 e=_swix(XInterface_CloseDown,_in(0),task);
80 os_error *interface_poll(wimp_eventstr *evnt,wimp_t task)
85 event|=1<<((unsigned int)31); /* New Interface flag for sprite area */
86 e=_swix(XInterface_Poll,_inr(0,2),event,interface__area,task);
90 os_error *interface_setWorkareaPointer(interface_pointerstr *s)
93 e=_swix(XInterface_SetWorkareaPointer,_in(1),s);
97 os_error *interface_removeWorkareaPointer(interface_pointerstr *s)
100 e=_swix(XInterface_RemoveWorkareaPointer,_in(1),s);