;====================================================
;
;	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"
	xdef	_ti89
OX	equ	-40
OY	equ	-20
;------------ 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