;====================================================
;
;	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>	lv_1.asm
;	> the most simple example that show how
;	you can use the ListView Component
;====================================================


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

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


;#ifdef TIPLUS
;#ifdef TI89
	xdef	_ti89
;#else
	xdef	_ti92plus
;#endif
;#endif


;#ifdef TI89
OX	equ	-40
OY	equ	-20
;#else
OX	equ	0
OY	equ	0
;#endif


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

	xdef	_main
	xdef	_comment

_main
	moveq.w	#0,d0
	jsr	api92::SetFont

	lea	ListViewHeader(PC),a0
	lea	ListViewData(PC),a1
	jsr	api92::ListViewComponent

	rts



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

ListViewHeader:
	dc.w	12		;Number of items
	dc.w	5		;Number of items per page
	dc.w	50+OX,35+OY	;X,Y
	dc.l	0		;reserved
	dc.w	120		;Width of the component
	dc.w	0		;Constant item size
	dc.w	0		;Constant item height
	dc.b	%01000000,0	;Flag
	dc.l	0		;api92CB_lvKeyDown
	dc.l	0		;api92CB_lvKey
	dc.l	0		;api92CB_lvOnSelect
	dc.l	0		;api92CB_lvDrawItem
	dc.l	0		;api92CB_lvItemsProperties

ListViewData:
	dc.b	"Here is an example",0
	dc.b	"that shows how",0
	dc.b	"you can very",0
	dc.b	"easly program",0
	dc.b	"a list with a",0
	dc.b	"scrolling (quite nice, isn't it?)",0
	dc.b	"",0
	dc.b	"Here it use variable",0
	dc.b	"item size",0
	dc.b	"what it quite",0
	dc.b	"good to avoid",0
	dc.b	"wasting memory",0





_comment dc.b	"ListView Demo 1",0

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

	end