Getting Toolbar buttons to work..

Hi

I have recently purchased BlitzPlus and i have been trying out the GUI features and earlier today made a toolbar.

I have set up the toolbar in the following way.


toolbar=CreateToolBar( "toolbar.bmp",0,0,0,0,Main )

SetToolBarTips toolbar,"New,Open,Home,Back,Forward,Calculator,About"

panel=CreatePanel( 0,GadgetHeight(toolbar),ClientWidth(Main),ClientHeight(Main)-GadgetHeight(toolbar),Main )
SetGadgetLayout panel,1,1,1,1


and then to get my buttons to work i have done this...


EvData=EventData()

If EvData=1 Then HtmlViewGo html,"http://www.stevemountain.com"
If EvData=2 .... etc etc


Now this works however the first button on my toolbar does not as that would be EvData = 0 and when i do that, the action is happening all the time without any pressing needed.


Plus if i use my scroll wheel on my mouse it sometimes executes one of the actions which should only be a toolbar button action.


So i am guessing that this is the incorrect way to set up toolbar buttons for actions, so could someone please tell me what the correct way is?


Many thanks

Tails

Make sure EventSource() = toolbar.

Your event loop would look something like this:
Select Waitevent()
Case $401 ; Gadget action
Select EventSource()
Case toolbar
Select EventData
Case 0 ; Button 0
Case 1 ; Button 1
Case 2 ; Button 2
End Select
End Select
End Select