%i "design.ocm";
%i "windows.ocm";
%i "kernel.ocm";
%i "pointer.ocm";
%i "control.ocm";

Function main(void* arguments) : int
{
	ObjectCall* SafeCall = ObjectCall::SafeDelegate(DELEGATE_HANDLER {

		print("STATIC_THREAD", Windows_Callback::ThreadCallback);
		print("MODULE_THREAD, Form_Thread", Windows_Callback::ThreadCallbackArguments);

		Windows::Module *m = Windows::Module::Create(
		Windows::GetCallback(Windows::Process::GetCurrentProcess()::ProcessInfo::ProcessID));


		Windows::Form *Form;
		Design::Draw(540, 340, Windows::Theme::DefaultColor, #Form);

		if (Form->KernelPointer = Form_Pointer::IntPtr)
		{
			if (Kernel::Callback::Stacks::Contains(Form->KernelPointer) & !Kernel::Callback::Interrupted)
			{
				CreateForm(#Form);
				while (Form::IsRunning(Kernel::CallBack::CallBackFromObject(#Form)))
					Kernel::KeepCallback(#Form);
			}
		}

		Windows::System::CloseAllCallbacks(#Form);
	});
	SafeCall->ReleaseUnsafeCodingToSafeCoding();
	SafeCall->Create();
	SafeCall->SupportBeforeExit(0);
}

Function CreateForm(Windows::Form* Form) : void
{
	// This is where you create all the objects within the form application

	ListCollection[WindowsControl] *Controls = {
		GUILabel label1 = { "Hello World!", Default, Default, Consolas, 10~, True, True, EVENTS(NULL) };
	};

	Form->WindowsControls = Controls;
}