wxAui

SuperStrict

Framework wx.wx
Import wx.wxApp
Import wx.wxFrame
Import wx.wxAui
Import wx.wxTextCtrl

Global Application : MyApplication

Application = New MyApplication
Application.Run()
End


Type MyApplication Extends wxApp
	Field Frame : MyFrame
	
	Method OnInit:Int()
		Frame = New MyFrame
		Frame.Create(,, "wxAui Example")
		
		Frame.Show()
		SetTopWindow(Frame)
	
		Return True
	End Method
End Type

Type MyFrame Extends wxFrame
	Field Manager : wxAuiManager
	Field Text1   : wxTextCtrl
	Field Text2   : wxTextCtrl
	Field Text3   : wxTextCtrl
	
	Method OnInit()
		Manager = New wxAuiManager.Create(Self)
		
		Text1 = New wxTextCtrl.Create(Self, wxID_ANY, "Pane 1 - sample text",,, 200, 150, wxNO_BORDER | wxTE_MULTILINE)
		Text2 = New wxTextCtrl.Create(Self, wxID_ANY, "Pane 2 - sample text",,, 200, 150, wxNO_BORDER | wxTE_MULTILINE)
		Text3 = New wxTextCtrl.Create(Self, wxID_ANY, "Pane 3 - sample text",,, 200, 150, wxNO_BORDER | wxTE_MULTILINE)
		
		Manager.AddPane(Text1, wxLEFT, "Pane number one")
		Manager.AddPane(Text2, wxRIGHT, "Pane number two")
		Manager.AddPane(Text3, wxRIGHT, "Pane number three")
		
		Manager.Update()
	End Method
	
	Method Delete()
		Manager.UnInit()
	End Method
End Type