B4J Question [SOLVED] B4XDialog - default button

[LucaMs]

(Most likely this should be a "wish").

How to set a default button (one of the three) so that its click event fires when Enter is pressed?

Note that I tried:

xDialog.GetButton(xui.DialogResponse_Cancel).As(Button).RequestFocus

but it doesn't seem to work.


EDIT - I found a way, to improve (make it general routines):

    Dim r As Reflector
    r.Target = xDialog.GetButton(xui.DialogResponse_Cancel).As(Button)
    r.AddEventFilter("DlgBtn", "javafx.scene.input.KeyEvent.KEY_PRESSED")
    r.AddEventFilter("DlgBtn", "javafx.scene.input.KeyEvent.KEY_RELEASED")

Sub DlgBtn_Filter (EventData As Event)
    Dim jo As JavaObject = EventData
    Dim Code As String = jo.RunMethod("getCode", Null)
    Dim EventType As String = jo.RunMethod("getEventType", Null)
    Log(Code)
    Log(EventType)
End Sub

 

[LucaMs]

Which version of java are you using?

Usually 8, but I tried 11 and 14 too.

With java 11:
error: module not found: javafx.swing

 

[stevel05]

error: module not found: javafx.swing

Can you post your test app that throws this error?

 

[stevel05]

For me using jdk1.8.0_271 this works as expected.

    Dialog.Title = "Test"
    Dim RS As ResumableSub = Dialog.Show("Test","OK","No","Cancel")
    Dialog.GetButton(xui.DialogResponse_Cancel).As(JavaObject).RunMethod("setCancelButton",Array(True))
    Dialog.GetButton(xui.DialogResponse_Positive).As(JavaObject).RunMethod("setDefaultButton",Array(True))
    Wait For(RS) Complete(Resp As Int)
    Log(Resp)

But java jdk-11.0.1 requires:

    Dialog.Title = "Test"
    Dim RS As ResumableSub = Dialog.Show("Test","OK","No","Cancel")
    Dialog.GetButton(xui.DialogResponse_Cancel).As(JavaObject).RunMethod("setCancelButton",Array(True))
    Dialog.GetButton(xui.DialogResponse_Positive).RequestFocus
    Wait For(RS) Complete(Resp As Int)
    Log(Resp)

I have no idea why the two are different.

 

[LucaMs]

Can you post your test app that throws this error?

It was an example for an italian member (B4XPages & forms). I reused it for the B4XDialog test.

 

[LucaMs]

With java 11:
error: module not found: javafx.swing

I just downloaded (again, probably) java 11 from the link Erel posted on the B4J install page; in the folder I searched for "swing" and it was not found. Is there a file containing that name, in your folder?

 

[LucaMs]

For me using jdk1.8.0_271 this works as expected.

If have jdk1.8.0_231 but I don't think this is the problem.

 

[stevel05]

I just downloaded (again, probably) java 11 from the link Erel posted on the B4J install page; in the folder I searched for "swing" and it was not found. Is there a file containing that name, in your folder?

I don't get that error running your program under java 11.0.1 and

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    
    Page1.Initialize
    B4XPages.AddPage("Page1", Page1)
    
    xDialog.Initialize(Root)
    Dim RS As ResumableSub = xDialog.Show("Message", "Yes", "No", "Cancel")
    xDialog.GetButton(xui.DialogResponse_Cancel).As(JavaObject).RunMethod("setCancelButton",Array(True))
    xDialog.GetButton(xui.DialogResponse_Positive).RequestFocus
    Wait For (RS) Complete (Result As Int)
    Log("Result: " & Result)
End Sub

Works as expected.

It might be worth trying to reinstall Java 11.

 

[stevel05]

Are you testing on a Windows PC or Mac or Linux?

 

[LucaMs]

Are you testing on a Windows PC or Mac or Linux?

Window SEVEN

 

[LucaMs]

Window SEVEN

BTW, Google will no longer support Chrome updates for Windows 7.
Thanks, Google.

 

[stevel05]

Window SEVEN

Ahh, I have Windows 10. That could well be the issue

 

[LucaMs]

BTW, Google will no longer support Chrome updates for Windows 7.
Thanks, Google.

It's another good reason to use Firefox. Bye, Chrome.

 

[LucaMs]

For me using jdk1.8.0_271 this works as expected.

That code of yours works on my PC too! (jdk1.8.0_231)
(I just changed the default button, which in my case must be Cancel)

    xDialog.Title = "Test"
    Dim RS As ResumableSub = xDialog.Show("Test","OK","No","Cancel")
    xDialog.GetButton(xui.DialogResponse_Cancel).As(JavaObject).RunMethod("setDefaultButton",Array(True))
    Wait For(RS) Complete(Resp As Int)
    Log(Resp = xui.DialogResponse_Cancel)