But PB's WebGadget obviously can't:
Code: Select all
Procedure.s GetLibFile(libFile.s)
Compiler = RunProgram("find", libFile, "", #PB_Program_Open|#PB_Program_Read)
If Compiler
While ProgramRunning(Compiler)
tmp$ = ReadProgramString(Compiler)
If tmp$ <> ""
output$ = tmp$
EndIf
Wend
EndIf
ProcedureReturn Trim(output$)
EndProcedure
If WebGadgetPath(GetLibFile("/usr/lib -name libgtkembedmoz.so"), GetPathPart(GetLibFile("/usr/lib -name firefox.sh")))
OpenWindow(1, 0, 0, 600, 550, "")
CreateGadgetList(WindowID(1))
WebGadget(1, 0, 0, 600, 500, "http://www.gogle.com")
ButtonGadget(2, 10, 510, 230, 30, "Check Flash")
ButtonGadget(3, 360, 510, 230, 30, "Check Java")
Repeat
WindowEvent = WaitWindowEvent()
If WindowEvent = #PB_Event_Gadget
If EventGadget() = 2
SetGadgetText(1, "http://www.adobe.com/shockwave/welcome/")
ElseIf EventGadget() = 3
SetGadgetText(1, "http://www.java.com/en/download/installed.jsp")
EndIf
EndIf
Until WindowEvent = #PB_Event_CloseWindow
Else
MessageRequester("ERROR", "Couldn't find XUL-Runner")
EndIf
I manually made a copy of my firefox directory and added the plugins - also manually - to the "plugins" folder and used this as "MozillaPath$". But I doubt that's a good solution.