;====================================================
;
;	Api92/Api89 Example Source Code
;
;	(c) NeXO Software, Ibrahim - Benoit SCHERRER
;	e-mail : p.c.scherrer@wanadoo.fr
;	web : http://perso.wanadoo.fr/scherrer/ben/
;
;	File>	slctfil1.asm
;	> A amazing example that shows how simple it
;	it to show a Open File dialog box.
;====================================================


;--------------------- Includes ---------------------

	include "tios.h"
	include	"api92.h"
	include "api92cst.h"


;#ifdef TIPLUS
;#ifdef TI89
	xdef	_ti89
OX	equ	-40
OY	equ	-20
;#else
	xdef	_ti92plus
;#endif
;#endif

;#ifdef TI89
;#else
OX	equ	0
OY	equ	0
;#endif


;------------ Start of assembly program -------------

	xdef	_main
	xdef	_comment

_main
	lea	winOpenDialog(PC),a0
	jsr	api92::draw_sWindow2

	moveq.w	#1,d0
	jsr	api92::SetFont

	lea	SelectFileHeader(PC),a0
	jsr	api92::SelectFileComponent

	rts


;------------------- Program Data -------------------

SelectFileHeader:
	dc.w	70+OX,42+OY	;X,Y
	dc.w	5		;Nb Item per page
	dc.w	100		;Width of the component
	dc.w	0		;Current Folder
	dc.b	%00011001,0	;Flags
	dc.l	0		;api92CB_Filter
	dc.l	0		;api92CB_lvKeyDown
	dc.l	0		;api92CB_lvKey
	dc.l	0		;api92CB_lvOnSelect
	dc.l	0		;api92CB_lvDrawItem


winOpenDialog
	dc.b	40+OX,30+OY,199+OX,95+OY,"Open Dialog",0


_comment dc.b	"Select File - Ex1",0


;-------------------- End of program ------------------

	end