this wouldn't compile till i added Import wx.wxListCtrl
. it was giving wxmouseevent errors.
I am not sure why adding wxlistctrl helped but thought it might be a bug.
' BlitzMax code generated with wxCodeGen v0.96 : 25 Feb 2008 20:01:20
'
'
' PLEASE DO "NOT" EDIT THIS FILE!
'
SuperStrict
Import wx.wxFrame
Import wx.wxListBox
Import wx.wxPanel
Import wx.wxWindow
Import wx.wxListCtrl
Type MyFrame2Base Extends wxFrame
Field m_panel5:wxPanel
Field m_listBoxPopup1:wxListBox
Field m_listBoxPopup2:wxListBox
Field m_listBoxNoPopup:wxListBox
Method Create:MyFrame2Base(parent:wxWindow = Null,id:Int = wxID_ANY, title:String = "", x:Int = -1, y:Int = -1, w:Int = 500, h:Int = 300, style:Int = wxDEFAULT_FRAME_STYLE|wxTAB_TRAVERSAL)
Return MyFrame2Base(Super.Create(parent, id, title, x, y, w, h, style))
End Method
Method OnInit()
Local bSizer11:wxBoxSizer
bSizer11 = New wxBoxSizer.Create(wxVERTICAL)
m_panel5 = New wxPanel.Create(Self, wxID_ANY,,,,, wxTAB_TRAVERSAL)
Local bSizer12:wxBoxSizer
bSizer12 = New wxBoxSizer.Create(wxVERTICAL)
m_listBoxPopup1 = New wxListBox.Create(m_panel5, wxID_ANY, Null)
bSizer12.Add(m_listBoxPopup1, 0, wxALL, 5)
m_listBoxPopup2 = New wxListBox.Create(m_panel5, wxID_ANY, Null)
bSizer12.Add(m_listBoxPopup2, 0, wxALL, 5)
m_listBoxNoPopup = New wxListBox.Create(m_panel5, wxID_ANY, Null)
bSizer12.Add(m_listBoxNoPopup, 0, wxALL, 5)
m_panel5.SetSizer(bSizer12)
m_panel5.Layout()
bSizer11.Add(m_panel5, 1, wxEXPAND | wxALL, 5)
SetSizer(bSizer11)
Layout()
m_listBoxPopup1.ConnectAny(wxEVT_RIGHT_UP, _RightClickForPopup, Null, Self)
m_listBoxPopup2.ConnectAny(wxEVT_RIGHT_UP, _RightClickForPopup, Null, Self)
End Method
Function _RightClickForPopup(event:wxEvent)
MyFrame2Base(event.sink).RightClickForPopup(wxMouseEvent(event))
End Function
Method RightClickForPopup(event:wxMouseEvent)
DebugLog "Please override MyFrame2.RightClickForPopup()"
event.Skip()
End Method
End Type