MsgBox... What's wrong ??

[skipsy]

Hi forum,

I don't understand. What's wrong with this code ?

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

End Sub

Sub Globals
   Dim PNL_SCROLL As Panel
   Dim CVSLAYER As Canvas
End Sub

Sub Activity_Create(FirstTime As Boolean)
   PNL_SCROLL.Initialize( "SCROLL" )
   Activity.AddView( PNL_SCROLL, 0, 0, 100%x, 100%y )
   PNL_SCROLL.Color = Colors.transparent
   CVSLAYER.Initialize( Activity )
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub SCROLL_Touch (Action As Int, X As Float, Y As Float)
        Msgbox( "Down" ,"blabla")
End Sub

When I touch the screen the message box is displayed but the application is freezed. Nothing happens when I touch "OK". After a while, a message
appears : "Sorry! activity hmove does not respond" (Force close) (Wait)

Any idea ???

Thks,
WW

 

[klaus]

To test the touch event, try this code:

Sub SCROLL_Touch (Action As Int, X As Float, Y As Float)
    Select Action
    Case Activity.ACTION_DOWN
        Activity.Title = "Down"
    Case Activity.ACTION_MOVE
        Activity.Title = "Move"
    Case Activity.ACTION_UP
        Activity.Title = "Up"
    End Select
End Sub

Best regards.

 

[skipsy]

This is what I did previously (the action was always "ACTION_DOWN") so
I simplify.
Anyway the result was the same !!

W.W.

 

[stevel05]

It may be because you do not have the correct sub signature, it should be (from here)

Sub SCROLL_Touch (Action As Int, X As Float, Y As Float) As Boolean

Try that and see if it helps

 

[skipsy]

Sorry,
I have also tried to add "as Boolean" even if I don't need any value returned.

If you copy/paste this code, do you have the same problem ?

W.W.

 

[stevel05]

Having just tested it, it appears that using the msgbox is upsetting something. Maybe because it's blocking the thread that's awaiting a response?.

Replace that with:

Log( "Down blabla")

and it works as expected.

 

[klaus]

The code I posted works fine, I tested it before posting it.
If you still have the MsgBox in the routine it won't work correctly.
This code works !

Sub Globals
    Dim PNL_SCROLL As Panel
    Dim CVSLAYER As Canvas
End Sub

Sub Activity_Create(FirstTime As Boolean)
    PNL_SCROLL.Initialize( "SCROLL" )
    Activity.AddView( PNL_SCROLL, 0, 0, 100%x, 100%y )
    PNL_SCROLL.Color = Colors.transparent
    CVSLAYER.Initialize( Activity )
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub SCROLL_Touch (Action As Int, X As Float, Y As Float)
    Select Action
    Case Activity.ACTION_DOWN
        Activity.Title = "Down"
    Case Activity.ACTION_MOVE
        Activity.Title = "Move"
    Case Activity.ACTION_UP
        Activity.Title = "Up"
    End Select
End Sub

This code works too:

Sub Globals
    Dim PNL_SCROLL As Panel
    Dim CVSLAYER As Canvas
End Sub

Sub Activity_Create(FirstTime As Boolean)
    PNL_SCROLL.Initialize( "SCROLL" )
    Activity.AddView( PNL_SCROLL, 0, 0, 100%x, 100%y )
    PNL_SCROLL.Color = Colors.transparent
    CVSLAYER.Initialize( Activity )
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub SCROLL_Touch (Action As Int, X As Float, Y As Float) As Boolean
    Select Action
    Case Activity.ACTION_DOWN
        Activity.Title = "Down"
    Case Activity.ACTION_MOVE
        Activity.Title = "Move"
    Case Activity.ACTION_UP
        Activity.Title = "Up"
    End Select
    Return True
End Sub

Best regards.

 

[stevel05]

Sorry Klaus, I should have looked more closely at your first reply, would have saved some time!

I seem to remember having come across this in the past, and just tried log instead and when it worked, used that.

 

[skipsy]

Thks for your quick answers.
I have tried log("dddd") : Nothing is displayed.
Changing activity title works but... anyway, what I needed was a message
Box.

Can we say that using MsgBox in a _touch sub is not possible ?

W.W.

 

[stevel05]

The "dddd" will be displayed in the Log. Select the Log tab in the bottom right to see the whole log and it will display in there but not on the device or emulator screen.

 

[klaus]

Can we say that using MsgBox in a _touch sub is not possible ?

You should not use MsgBoxes in a touch event.
You could use a Label that you set to visible with the down event and hide with the up event. I have used this principle to show and hide Tooltips.
Do you really need the touch event ? Couldn't the Click event do what you want ?

Best regards.