'-------------------------------------------------------------------------------------
' SkeletonWin.iwb
'-------------------------------------------------------------------------------------
'
AUTODEFINE "Off"
DEF win:WINDOW   
DEF run,wstyle:INT  
'wstyle = @minbox|@maxbox|@size	' thick borders - resizeable window
wstyle = @MINBOX						' thin borders  - window NOT resizeable

OPENWINDOW win,-480,0,480,300,wstyle,0," Skeleton Window",&messages  

MOVE win,130,100
PRINT win,"Right-Click for MESSAGEBOX"
run = 1  
WAITUNTIL run = 0  
CLOSEWINDOW win  
END  

'
SUB messages(),INT 
'-------------------------------------------------------------------------------------
' Main Loop
'-------------------------------------------------------------------------------------'-------------------------------------------------------------------------------------
'
SELECT @CLASS

	CASE @IDRBUTTONUP
			MESSAGEBOX win,"  Information          ","  Caption Text",@MB_ICONINFORMATION

	CASE @IDCREATE  
		CENTERWINDOW win  

	CASE @IDCLOSEWINDOW 
		run = 0  

ENDSELECT  

RETURN  0
ENDSUB