Android Question Strange If Else... behavior

[Computersmith64]

I have the following piece of code in a sub in one of my apps:

'cDlg is a Custom Dialog
cDlg.ShowAsync(mName.Trim, "Close", "", alertText, LoadBitmap(File.DirAssets, "ic_info_outline_black_24dp.png"), True)
cDlg.SetSize(100%x, 405dip)
Wait For Dialog_Ready(pnl As Panel)
pnl.LoadLayout("popup")
Wait For Dialog_Result(res As Int)
If res = DialogResponse.NEGATIVE Then
    If alertText = "Set Alert" Then CallSub3(Starter, "setAlert", mIndex, mTimeLeft * 1000) Else CallSub2(Starter, "cancelAlert", mIndex)
End If

The If part (the call to "setAlert") works fine every time, however the Else part (the call to "cancelAlert") doesn't work in either release or debug mode - unless I step through the code line by line. If I change the code to:

'cDlg is a Custom Dialog
cDlg.ShowAsync(mName.Trim, "Close", "", alertText, LoadBitmap(File.DirAssets, "ic_info_outline_black_24dp.png"), True)
cDlg.SetSize(100%x, 405dip)
Wait For Dialog_Ready(pnl As Panel)
pnl.LoadLayout("popup")
Wait For Dialog_Result(res As Int)
If res = DialogResponse.NEGATIVE Then
    If alertText = "Set Alert" Then
        CallSub3(Starter, "setAlert", mIndex, mTimeLeft * 1000)
    Else
         CallSub2(Starter, "cancelAlert", mIndex)
    End If
End If

it works fine every time.

I am using B4A v8.10 BETA #0 - so not sure if it's related to that or whether it happens on older versions as well. Obviously the pause created by stepping through the code is helping, but I'm not sure why it fails when the If Else is inline.

- Colin.

 

[Erel]

I've tried to reproduce with code:

Sub Activity_Click
   Msgbox2Async("Question?", "Title", "Yes", "Cancel", "No", Null, False)
   Wait For Msgbox_Result (Result As Int)
   If Result = DialogResponse.NEGATIVE Then
       If False Then CallSub(Starter, "Test1") Else CallSub(Starter, "Test2")
   End If
End Sub

It works properly.

Can you reproduce it in a small project?

 

[Star-Dust]

I have the following piece of code in a sub in one of my apps:

'cDlg is a Custom Dialog
cDlg.ShowAsync(mName.Trim, "Close", "", alertText, LoadBitmap(File.DirAssets, "ic_info_outline_black_24dp.png"), True)
cDlg.SetSize(100%x, 405dip)
Wait For Dialog_Ready(pnl As Panel)
pnl.LoadLayout("popup")
Wait For Dialog_Result(res As Int)
If res = DialogResponse.NEGATIVE Then
    If alertText = "Set Alert" Then CallSub3(Starter, "setAlert", mIndex, mTimeLeft * 1000) Else CallSub2(Starter, "cancelAlert", mIndex)
End If

The If part (the call to "setAlert") works fine every time, however the Else part (the call to "cancelAlert") doesn't work in either release or debug mode - unless I step through the code line by line. If I change the code to:

'cDlg is a Custom Dialog
cDlg.ShowAsync(mName.Trim, "Close", "", alertText, LoadBitmap(File.DirAssets, "ic_info_outline_black_24dp.png"), True)
cDlg.SetSize(100%x, 405dip)
Wait For Dialog_Ready(pnl As Panel)
pnl.LoadLayout("popup")
Wait For Dialog_Result(res As Int)
If res = DialogResponse.NEGATIVE Then
    If alertText = "Set Alert" Then
        CallSub3(Starter, "setAlert", mIndex, mTimeLeft * 1000)
    Else
         CallSub2(Starter, "cancelAlert", mIndex)
    End If
End If

it works fine every time.

I am using B4A v8.10 BETA #0 - so not sure if it's related to that or whether it happens on older versions as well. Obviously the pause created by stepping through the code is helping, but I'm not sure why it fails when the If Else is inline.

- Colin.

B4A 8.10 beta? exists?

 

[Computersmith64]

B4A 8.10 beta? exist?

 

[Star-Dust]

Because from version 8 I moved to 8.70, I did not have intermediate versions

 

[DonManfred]

from version 8 I moved to 8.70

B4A 8.7 exists?

 

[Computersmith64]

It's a very early beta that Erel sent me because I was having an issue with the Starter service in Android 8.x...

- Colin.

 

[Erel]

The next version of B4A will be 8.30. Beta will probably be released before the end of this month.