; ; gallery.sh ; ; Background-drawing viewers ; ; © 1995-1998 Straylight ; ;----- Licensing note ------------------------------------------------------- ; ; This file is part of Straylight's Sapphire library. ; ; Sapphire is free software; you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation; either version 2, or (at your option) ; any later version. ; ; Sapphire is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with Sapphire. If not, write to the Free Software Foundation, ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;----- Overview ------------------------------------------------------------- ; ; Functions provided: ; ; gallery_eventHandler ; gallery_drawBox ; gallery_removeBox ; gallery_reset [ :LNOT::DEF:gallery__dfn GBLL gallery__dfn ; --- gallery_eventHandler --- ; ; On entry: R0 == viewer handle ; R1 == pointer to handler routine ; R2 == R10 value to pass to handler ; R3 == R12 value to pass to handler ; ; On exit: -- ; ; Use: Sets up an event handler for the viewer, and adds in ; gallery's own special processing for background drawing. IMPORT gallery_eventHandler ; --- gallery_drawBox --- ; ; On entry: R0-R3 == window relative coords of box to plot ; ; On exit: -- ; ; Use: Draws a box to indicate tht this item hasn't been ; displayed yet. Use this routine to give a consistant ; look to applications which use the gallery. IMPORT gallery_drawBox ; --- gallery_removeBox --- ; ; On entry: R0-R3 == window relative coords of box to remove ; ; On exit: -- ; ; Use: Removes a previously draw temporary box. It is assumed that ; the background colour of the viewere is 1. IMPORT gallery_removeBox ; --- gallery_reset --- ; ; On entry: R0 == viewer handle ; ; On exit: -- ; ; Use: Resets all the icons in the gallery to their `undrawn' state. ; Use this before opening the window etc. IMPORT gallery_reset ] ;----- That's all, folks ---------------------------------------------------- END