Strange problems with wxFileDialog

BlitzMax Modules Forums/Brucey's Modules/Strange problems with wxFileDialog

Pete Rigz

(Posted 1+ years ago) #1

I got a feeling this is some strange issue with my PC (Windows Vista) but for some reason file dialogs are not appearing. The main code I'm working on doesn't work at all, but just making a small example it seems to work in release mode but not debug. I can put a debugstop just before the Showmodal() command but I can only follow the code through to "Return bmx_wxfiledialog_showmodal(wxObjectPtr)" in wxfiledialog.bmx where it just stops -can't step any further.

Here's some test code where I just added an opendialog event to the fileconfig sample.

'
' wxFileConfig Sample
'
' by Nigel Brown
'
'
SuperStrict

Framework	wx.wxApp
Import wx.wxFrame

Import wx.wxConfig
Import wx.wxFileConfig
Import wx.wxFileDialog

New MyApp.run()


'
'---------------------------------------------------------------------
Type MyApp Extends wxApp
'---------------------------------------------------------------------

	Field frame:MyFrame

	'
	'---------------------------------------------------------------------
	Method OnInit:Int()
	'---------------------------------------------------------------------

		frame = MyFrame(New MyFrame.Create(,,"wxFileConfig wxWidgets App"))

		SetTopWindow(frame)

		frame.Center()
		frame.Show()

		Return True

	End Method

End Type

'
'---------------------------------------------------------------------
Type MyFrame Extends wxFrame
'---------------------------------------------------------------------
	
	'
	'---------------------------------------------------------------------
	Method OnInit()
	'---------------------------------------------------------------------
		'
		wxConfigBase.Set(New wxFileConfig.Create("","","default.ini","",wxCONFIG_USE_RELATIVE_PATH))

 		'
		Local config:wxConfigBase = wxConfigBase.Get()
		config.SetPath("/FC_Confguration")
		DebugLog "FC_HOST = " + config.ReadInt("FC_HOST",-1)

		' create a menu bar
	
		Local fileMenu:wxMenu = wxMenu.CreateMenu()
		
		' the "About" item should be in the help menu
		Local helpMenu:wxMenu = wxMenu.CreateMenu()
		
		helpMenu.Append(wxID_ABOUT, "&About...~tF1", "Show about dialog")
		
		filemenu.Append(wxID_OPEN, "Open")
		fileMenu.Append(wxID_EXIT, "&Quit~tAlt-Q", "Quit this program")
		
		
		' now append the freshly created menu to the menu bar...
		Local menuBar:wxMenuBar = wxMenuBar.CreateMenuBar()
		menuBar.Append(fileMenu, "&File")
		menuBar.Append(helpMenu, "&Help")

		SetMenuBar(menuBar)
		
		' create a status bar just for fun
		CreateStatusBar(2)
		SetStatusText("Welcome to wxWidgets!")
		
		Connect(wxID_OPEN, wxEVT_COMMAND_MENU_SELECTED, OnOpen)
		Connect(wxID_EXIT, wxEVT_COMMAND_MENU_SELECTED, OnQuit)
		Connect(wxID_ABOUT, wxEVT_COMMAND_MENU_SELECTED, OnAbout)
		ConnectAny(wxEVT_CLOSE_WINDOW, OnCloseWindow )
		
	End Method

	'
	'---------------------------------------------------------------------
	Method	OnCloseDown()
	'---------------------------------------------------------------------
		'
		DebugLog "::OnCloseDown"

		Local config:wxConfigBase = wxConfigBase.Get()
		If config

			config.SetPath("/FC_Confguration")
			config.WriteInt("FC_HOST",20)
			
			' Flush the data to the file
			config.Flush()
			
			' We need to free the config object by first removing it as the
			' global config instance. We can do this by setting the global
			' instance to Null. Set() returns the "previous" instance, which
			' will be our own wxFileConfig object.
			wxConfigBase.Set(Null).Free()
		EndIf

	End Method

	'
	'---------------------------------------------------------------------
	Function OnCloseWindow(event:wxEvent)
	'---------------------------------------------------------------------
		'
		DebugLog "::OnCloseWindow"

		myFrame(event.parent).OnCloseDown()

		event.Skip()

	End Function

	'
	'---------------------------------------------------------------------
	Function OnQuit(event:wxEvent)
	'---------------------------------------------------------------------
		'
		DebugLog "::OnQuit"

		myFrame(event.parent).Close(True)

	End Function

	'
	'---------------------------------------------------------------------
	Function OnAbout(event:wxEvent)
	'---------------------------------------------------------------------
		Local opendialog:wxFileDialog = New wxFileDialog.Create(MyFrame(event.parent))
		If opendialog.ShowModal()
			
		End If
		wxMessageBox("Welcome to " + wxVERSION_STRING + "!~n" + ..
                    "~n" + ..
                    "This is the file config wxWidgets sample~n" + ..
                    "running under " + wxGetOsDescription() + ".", ..
                 "About wxFileConfig", ..
                 wxOK | wxICON_INFORMATION, wxWindow(event.parent))
		
	End Function
	Function OnOpen(event:wxEvent)
	'---------------------------------------------------------------------
		Local opendialog:wxFileDialog = New wxFileDialog.Create(MyFrame(event.parent))
	
		If opendialog.ShowModal()
			
		End If
		
	End Function
	
End Type

for me this code works ok in release mode but not in debug, the dialog just doesn't appear for some reason. Other dialogs work fine, eg im using colourpicker dialog and a few custom dialogs ok, seems to be just this one.

Any ideas? Cheers!

TaskMaster

(Posted 1+ years ago) #2

Are you trying to use it in Threaded build mode? The wx gadgets all have some osrt of issue when built in threaded mode.

Pete Rigz

(Posted 1+ years ago) #3

No it's just normal non threaded build. Just rebuilt all modules but still getting the same. Will just have to use blitz's built in requestfile for now.