Android Question Unknown type CharSequence

[Alessandro71]

while writing a wrapper for MsgboxAsync, i'm getting the unknown type error

Public Sub ShowMsgboxAsync(message As CharSequence, title As CharSequence) As Object
    Log(message)
    Return xui.MsgboxAsync(message, title)
End Sub

what's the correct way to write such a wrapper?

the intended behavior should be logging message boxes as they are presented to the user (and hopefully logging the answer for MsgboxAsync2 also, but that seems to be a whole different matter)

 

[Star-Dust]

Public Sub ShowMsgboxAsync(message As Object, title As Object) As Object
    Dim msg as string = message
    Log(msg)
    Return xui.MsgboxAsync(message, title)
End Sub

 

[Alessandro71]

looks like cheating... ?

 

[Alessandro71]

still puzzles me the unavailability of a built-in object

 

[LucaMs]

Type of message and title should be String.

Note that it won't work well that way, as MsgboxAsync is... asynchronous.

 

[Alessandro71]

Note that it won't work well that way, as MsgboxAsync is... asynchronous.

i'm going to replace all
Wait For (xui.MsgboxAsync...
with
Wait For (mytools.ShowMsgboxAsync...
and it looks to be working

 

[Star-Dust]

In fact, if you want the answer, the code would be like this

Public MainSub
    Wait For (ShowMsgboxAsync(message, title)) Complete (Result As Int)
End Sub

Public Sub ShowMsgboxAsync(message As Object, title As Object) As ResumableSub
    Dim msg as string = message
    Log(msg)

    Wait For (xui.MsgboxAsync("Hello", "World")) Msgbox_Result (Result As Int)
    Return Result
End Sub

In any case, not interested in the answer even with the previous method it works but does not return anything

But if you use CharSequence / CSBuilder you have to set them as Object not as String

 

[LucaMs]

But if you use CharSequence

I should have guessed you actually wanted to use CharSequence; instead I just wanted to say that the error is due to the fact that MsgboxAsync requires strings.
I'm not as intuitive as @Star-Dust ? ( whose answer is obviously correct).

 

[LucaMs]

... it works but does not return anything

... and does not wait.

 

[Alessandro71]

actually i'm working on something less convoluted, that can be used as direct replacement for the xui version

Public Sub ShowMsgboxAsync(message As Object, title As Object) As Object
    Dim msg As String = message
    WriteLog(msg.Replace(CRLF, "|"))
    Return xui.MsgboxAsync(message, title)
End Sub

'before:
    Dim sf As Object = xui.MsgboxAsync("No device found.", "Error")
    Wait For (sf) Msgbox_Result (Result As Int)

'after:
    Dim sf As Object = ShowMsgboxAsync("No device found.", "Error")
    Wait For (sf) Msgbox_Result (Result As Int)

this is easy for MsgboxAsync, but willing to log the answer to Msgbox2Async also, a similar direct replacement seems not possible, as the logging of the answer should be after the Wait, and thus in the main code