#Include UI.TNT.System
	
	Set %Application=##class(UI.TNT.TApplication).Create()
	Do %Application.AttachDebugEvents()
 
	Set %Screen=##class(UI.TNT.TScreen).Create(.Type)
	Set %Input=##class(UI.TNT.TInput).Create()
	Do %Screen.Clear()
	//Set %Input.CursorShow=1
 
	New Form
	Set Form=%Application.CreateForm("UI.TNTTRTest.MainForm2","Test","Titeltje",1,1,24,80,,$$$ftMain)
	Set Form.OnCloseQuery=$LB(Form,"OnCloseQuery")
 
	Do %Application.Run()
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Control,%Application,%Screen,%Input,%Application