' Test of the new IWMask library

autodefine "off"

$include "windowssdk.inc"
$include "iwmask.inc"

DIALOG win
ISTRING myDate[32]

CREATEDIALOG win,0,0,300,300,0x80CB0080,0,"IWMask Test",&main
	CONTROL win,@EDIT,"",20,72,70,22,0x50000000|@TABSTOP,80
	CONTROL win,@BUTTON,"OK",20,170,70,20,0x50000000,200

DOMODAL win

WAITUNTIL IsWindowClosed(win)
	END

SUB main(),INT
	SELECT @MESSAGE
CASE @IDINITDIALOG
	CENTERWINDOW win

IWM_Create(win,120,20,102,70,22,0,"00/00/0000","_")
	SETFONT win,"MS Sans Serif",8,400,0,120
	IWM_SetTabCallback(win,120,&MySub1)
IWM_Create(win,130,20,132,70,22,0,"00/00/0000","_")
	SETFONT win,"MS Sans Serif",8,400,0,130
	IWM_SetTabCallback(win,130,&MySub1)

	SETFOCUS win,80

CASE @IDCLOSEWINDOW
	CLOSEDIALOG win,@IDOK
CASE @IDCONTROL
	SELECT @CONTROLID
CASE 80
IF GetFocus()=GETCONTROLHANDLE(win,80) THEN SETFOCUS win,120
CASE 200 'Ok button
	myDate=IWM_GetMinText(win,120)
	SETCAPTION win,myDate
ENDSELECT
ENDSELECT
RETURN 0
ENDSUB

GLOBAL SUB MySub1(INT hWnd,INT id) 'can be any name you prefer
'use a series of if/else
IF GetFocus()=GETCONTROLHANDLE(win,120) THEN SETFOCUS win,130
IF GetFocus()=GETCONTROLHANDLE(win,130) THEN SETFOCUS win,120
ENDSUB

'GLOBAL SUB MySub2(INT hWnd,INT id) 'can be any name you prefer
'use a series of if/else
'IF GetFocus()=GETCONTROLHANDLE(win,130) THEN SETFOCUS win,120
'ENDSUB