Segmentation fault using ActivateGadget()

BlitzMax Forums/MaxGUI Module/Segmentation fault using ActivateGadget()

Scaremonger

(Posted 2014) [#1]

Firstly; Merry Christmas to all.

I have been seeing some weird Segmentation faults in one of my apps and tracked it down to ActivateGadget(). The below example has been created with the same issue.

When you run it, edit one of the fields and then click on the other one...

If you comment out the ActivateGadget() call in MakeReadWrite() the application runs fine (but without receiving focus).

I am developing this on XUbuntu 12.04; I have not tested it on Windows.

Any suggestions?

SuperStrict

Import MaxGui.drivers

AppTitle = "Focus Test"

'# Create the window, button and the table objects
Local style% = WINDOW_TITLEBAR | WINDOW_CENTER
Global window:TGadget=CreateWindow( AppTitle ,50,50,320,200, Null, style)
Global source:TGadget
Global selected:TGadget

Global btn:TGadget=CreateButton( "OK", 60,80,80,18,window )

Const EMPTYFIELD$ = "(click to edit)"

CreateLabel( "Name: ", 10,10,50,20, window )
CreateLabel( "Surname: ", 10,40,50,20, window )
Global gad1:TGadget = CreateLabel( EMPTYFIELD, 60,10,100,20, window, LABEL_FRAME )
Global gad2:TGadget = CreateLabel( EMPTYFIELD, 60,40,100,20, window, LABEL_FRAME )
SetGadgetSensitivity( gad1, SENSITIZE_MOUSE )
SetGadgetSensitivity( gad2, SENSITIZE_MOUSE )

While WaitEvent()
'If CurrentEvent.id <> EVENT_MOUSEMOVE Then DebugLog EventID() + ">>" + CurrentEvent.ToString()
	source = TGadget( EventSource() )
	If source Then
		Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_MOUSEUP
			If selected Then MakeReadOnly( selected )
			makeReadWrite( source )
			selected = source
		End Select
	End If
Wend

'#
'============================================================
Function MakeReadOnly( gad:TGadget Var )
'# Get the existing cell value
Local value$ = GadgetText( gad ) 
Local gadget:TGadget =  CreateLabel( value, gad.xpos, gad.ypos, gad.width, gad.height, window ) 
	SetGadgetSensitivity(gadget, SENSITIZE_MOUSE )
	'# Clear the existing gadget
	FreeGadget( gad )
	gad = Null			
	'# Replace Textfield field with a Label
	gad = gadget
	If value = "" Then SetGadgetText( gad, EMPTYFIELD )
End Function

'============================================================
Function MakeReadWrite( gad:TGadget Var )
'# Get the existing cell value
Local value$ = GadgetText( gad ) 
'# Create an edit field and populate it's value
Local gadget:TGadget =  CreateTextField( gad.xpos, gad.ypos, gad.width, gad.height,window )
	'# Clear the existing gadget
	FreeGadget( gad )
	gad = Null			
	'# Replace Label with Edit Field
	gad = gadget
	If value = EMPTYFIELD Then value = ""
	SetGadgetText( gadget, value )
	'# Set new cell focus
	ActivateGadget( gadget )
End Function

Scaremonger

(Posted 2014) [#2]

Well I re-wrote the event loop a little during debugging and found something else that is weird - After clicking a label and then Clicking on the window background, focus is removed from the TextField but MaxGUI does not generate a LOSTFOCUS event!

While WaitEvent()
If CurrentEvent.id <> EVENT_MOUSEMOVE Then DebugLog EventID() + ">>" + CurrentEvent.ToString()
	source = TGadget( EventSource() )
	Select EventID()
	Case EVENT_WINDOWCLOSE
		End
	Case EVENT_MOUSEUP
		Local txt$ = GadgetText( source )
		Local y% = source.ypos	
		Local gad:TGadget
		FreeGadget(source)

		gad = CreateTextField( 200, y, 100, 20, window ) 
		SetGadgetText( gad, txt )
		ActivateGadget( gad )

		If source = gad1 Then gad1 = gad
		If source = gad2 Then gad2 = gad
	Case EVENT_GADGETLOSTFOCUS
		Local txt$ = GadgetText( source )
		Local y% = source.ypos	
		Local gad:TGadget
		FreeGadget(source)

		gad = CreateLabel( txt, 60,y, 100, 20, window ) 
		SetGadgetSensitivity( gad, SENSITIZE_MOUSE ) 

		If source = gad1 Then gad1 = gad
		If source = gad2 Then gad2 = gad
	Case EVENT_GADGETACTION
		If source = btn Then Notify( "GADGET1 = "+GadgetText( gad1 ) + "~n" + "GADGET2 = "+GadgetText( gad2 ), True )

	End Select
Wend

Henri

(Posted 2014) [#3]

Hello,

seems to work ok on Windows. For Linux Bruceys GTKMaxgui driver might work as MaxGUI's fltk implementation is a bit rusty.

-Henri