'Windows Compile

$include "ctl.inc"

autodefine "off"

WINDOW w1
INT gn,t

openwindow w1,0,0,600,400,0,0,"Test...",&hnd
control w1,@BUTTON,"Test",10,10,70,25,@TABSTOP,10
conLBRightClick(w1,10,&handleright)

for t=1 to 30
	addstring w1,10,"Row"+str$(t)
next t

waituntil w1.hwnd=0
end

'------------------------------------------------------------

sub hnd(),INT
	select @class
		case @idcreate
			centerwindow w1
		case @idclosewindow
			closewindow w1
		case @idmenupick
			if @menunum=99
				'deletestring w1,10,gn
			endif
	endselect
	return 0
endsub

'------------------------------------------------------------

sub handleright(n:int,x:int,y:int)
	gn=n
	CONTEXTMENU w1,x,y
		MENUITEM "Do something",0,99
	ENDMENU
endsub