wxPropGrid problem

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Retimer

Import wx.wxApp
Import wx.wxFrame
Import wx.wxPropGrid

Global App:MyApp = New MyApp
App.Run()
Type MyApp Extends wxApp
	Field Window:tlinkobjectwindow
	Method oninit:Int()
		Window = tlinkobjectwindow(New tlinkobjectwindow.Create())
		window.show()
		Return True
	End Method
End Type

Type TLinkObjectWindow Extends wxFrame
	Field Panel:wxPanel
	Field lstProperties:wxPropertyGrid
	Method OnInit() 

 		Self.lstProperties = MyPropertyGrid(New MyPropertyGrid.Create(Self , 1,0,0,300 ,300, wxPG_BOLD_MODIFIED | wxPG_SPLITTER_AUTO_CENTER | wxPG_DEFAULT_STYLE)) 

		Local TestChoices:wxPGChoices = New wxPGChoices.Create() 

		TestChoices.add("One",2147483647)
		TestChoices.add("Two",5)
		TestChoices.add("Three",1)
		TestChoices.add("Four",3)
		
		AddLOProperty_Choices("Testo",testchoices,0)
		Self.lstProperties.Refresh()
	End Method
	
	Method AddLOProperty_Choices(Name:String, Choices:wxPGChoices, Value:Int) 
		Local PEnum:wxEnumProperty = wxEnumProperty(New wxEnumProperty.CreateWithChoices(Name, 0, Choices, Value)) 
		Local Prop:wxPGProperty = wxPGProperty(PENum) 
		Self.lstProperties.Append(Prop) 
	End Method 
End Type



Type MyPropertyGrid Extends wxPropertyGrid

End Type

Click option 'Two' and 'Three' to see the issue (assuming it's not only occuring for me).

The values within those choices are the cause of the bug, but shouldn't it work with any int inputted, regardless of value?