Android Question Wait in class - How to make it work ?

[Mauricio Pereira]

I couldn't get wait to work like wait in a small class.
I'm definitely making a mistake.
I am attaching a class (Savearq) where a wait not wait.
Thanks in advance to anyone who can help.

Sub Class_Globals
    Private DialogLayout As CustomLayoutDialog
    Private NomeModelo As FloatLabeledEditText
    Dim SFF As StringFunctions
    Dim IME As IME
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
    IME.Initialize("IME")
    
End Sub
Sub Savefile
    Dim SF As Object = DialogLayout.ShowAsync("File name to be saved", "Ok", "", "", Null, True)
    DialogLayout.SetSize(100%x, 250dip)
    Wait For (SF) Dialog_Ready(pnl As Panel)  ' <=======  WAIT NOT WAIT HERE !
    pnl.LoadLayout("DialogLayout")
    
    NomeModelo.EditText.RequestFocus
    CallSubDelayed(Me,"SetKeyboard1")

    
    DialogLayout.GetButton(DialogResponse.POSITIVE).Enabled = True
    Wait For (SF) Dialog_Result(res As Int)
    'force the keyboard to hide
    NomeModelo.EditText.Enabled = False
        
    If res = DialogResponse.POSITIVE  Then
        If  SFF.Len(NomeModelo.EditText.Text) > 0 Then
            Main.XXX = NomeModelo.EditText.Text
        End If
    End If
End Sub
Sub SetKeyboard1
    Sleep(100)
    IME.ShowKeyboard(NomeModelo.EditText)
End Sub

 

[jahswant]

Show your code.

 

[Mauricio Pereira]

Show your code.

The code is very simple (in the activity that calls the class):
----------------------------
Dim s as Savearq
--------------------------
s.Initialize
CallSub(s,"Savefile")
--------------------------------
The program enters the class but does not wait for the wait response.

 

[teddybear]

The code is very simple (in the activity that calls the class):
----------------------------
Dim s as Savearq
--------------------------
s.Initialize
CallSub(s,"Savefile")
--------------------------------
The program enters the class but does not wait for the wait response.

Try to use s.Savefile instead

 

[Mauricio Pereira]

Try to use s.Savefile instead

Using s.Savefile gives compilation error.

 

[toby]

Using s.Savefile gives compilation error

You should provide a test project showing the problem.

 

[agraham]

Remember that WaitFor causes an immediate return from the Sub containing the WaitFor and continues running code after the call to the Sub. So you have to, in this case, invoke
Wait For(s.Initialize) Complete (Result As Int)
to wait for the Resumable Sub Initialize to complete.

 

[Mauricio Pereira]

Remember that WaitFor causes an immediate return from the Sub containing the WaitFor and continues running code after the call to the Sub. So you have to, in this case, invoke
Wait For(s.Initialize) Complete (Result As Int)
to wait for the Resumable Sub Initialize to complete.

Agraham,
Sorry but I didn't understand exactly what to do.
The project (attached) is simple and was made exactly to test the functionality.
For me it's a strange Wait for that doesn't work like wait for...
More than 50 years ago (I'm 76 years old) when programming in Autocoder it was much simpler...

 

[Brian Dean]

. . . when programming in Autocoder it was much simpler

Do you mean Autocoder with word marks as in IBM 1401? If so I am afraid that you cannot use that as an excuse; there are several members of that vintage on this forum and some of them are "Experts".

 

[agraham]

You need to declare Savefile As ResumableSub and return something from it even if you don't want to use the return value.
You need to invoke it With
Wait For (s.Savefile) Complete(Result As Object)

[B4X] How Resumable Subs work

This document is intended to add a little understanding as to how Resumable Subs actually work under the bonnet and is intended as a complement to how they are used as Erel explains in his tutorials. Note that the following applies equally to B4A, B4I and B4J. At the heart of the main thread of...

www.b4x.com

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

 

[agraham]

More than 50 years ago (I'm 76 years old)

So am I. But I've managed to keep up with it.

 

[Mauricio Pereira]

So am I. But I've managed to keep up with it.

agraham,​

I understood. It worked as I wanted..
Thank you very much.

Brian Dean​

Apologies... I was just joking, obviously using irony.
But whoever programmed in Autocoder doesn't forget the feeling of using a chained mlc...