;
; colSelect.sh
;
; The Sapphire Colour Selector dialogue box
;
; © 1994-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:
;
;   colSelect

		[	:LNOT::DEF:colSelect__dfn
		GBLL	colSelect__dfn

; --- colSelect ---
;
; On entry:	R0 == address of a colour block
;		R1 == pointer to routine to call when done
;		R2 == R10 to call routine with
;		R3 == R12 to call routine with
;
; On exit:	R0 = colour selector handle
;		May return an error
;
; Use:		Displays a colour selector dialogue box.  It allows the user
;		to edit a colour (understatement....)

		IMPORT	colSelect

;----- The colour selector handler ------------------------------------------
;
; The routine you pass to colSelect is entered with R0 as a reason code,
; and other registers containing values which depend on that.  Reason codes
; defined are:

		^	0

csEvent_choice	#	1			;User has chosen a colour
						;R1 == pointer to colour blk

csEvent_close	#	1

;----- Data structures ------------------------------------------------------

		^	0
col_rgb		#	4			;RGB palette entry for colour
col_model	#	4			;Colour model for colour
col_data	#	4			;Colour data for model
col_size	#	0

		]

;----- That's all, folks ----------------------------------------------------

		END