PVGadgets_CanvasButtonPressed

XIncludeFile "Buttons_Constants.pb"

XIncludeFile "Buttons_Windows.pb"

;-Main Loop

If Window_Main()

PVGadgets_CanvasButtonAdd(#Window_Main,#Gadget_Main_Settings,#Image_Main_Settings,#Image_Icons_Settings)

PVGadgets_CanvasButtonAdd(#Window_Main,#Gadget_Main_Web,#Image_Main_Web,#Image_Icons_Web)

PVGadgets_CanvasButtonAdd(#Window_Main,#Gadget_Main_Info,#Image_Main_Info,#Image_Icons_Info)

quitMain=0

Repeat

PVGadgets_CanvasButtonHover(#Window_Main)

EventID=WindowEvent()

If EventID

Select EventID

Case #PB_Event_CloseWindow

If EventWindowID()=#Window_Main

quitMain=1

EndIf

Case #WM_LBUTTONDOWN

Select PVGadgets_CanvasButtonPressed()

Case #Gadget_Main_Settings

SetGadgetText(#Gadget_Main_Press,"S e t t i n g s . . .")

Case #Gadget_Main_Web

SetGadgetText(#Gadget_Main_Press,"W e b s i t e . . .")

Case #Gadget_Main_Info

SetGadgetText(#Gadget_Main_Press,"I n f o r m a t i o n . . .")

EndSelect

Else

Delay(1)

EndIf

Until quitMain

CloseWindow(#Window_Main)

EndIf