Code: Select all
Procedure buttonc()
Debug 1
Debug GetGadgetItemText(0,#PB_Web_HtmlCode)
EndProcedure
If OpenWindow(0,0,0,1000,400,"")
WebGadget(0,0,0,1,1,"http://www.spiderbasic.com")
ButtonGadget(1,0,50,100,25,"View Source")
BindEvent(#PB_Event_Gadget,@buttonc())
HideGadget(0,1)
EndIf