ich habe den folgenden Code unter openSuSE 10.2 u. PB 4 Beta 2 erzeugt.
Mich interessiert, ob es mit der Suche der benötigten lib sowie des Firefox Ordners unter den anderen Distributionen, Probleme auftauchen.
WebGadgetPath(GetLibFile("/usr/lib -name libgtkembedmoz.so"), GetPathPart(GetLibFile("/usr/lib -name firefox.sh")))
Code: Alles auswählen
Declare.s GetLibFile(libFile.s)
Procedure.s GetLibFile(libFile.s)
Compiler = RunProgram("find", libFile, "", #PB_Program_Open|#PB_Program_Read)
output$ = ""
If Compiler
While ProgramRunning(Compiler)
tmp$ = ReadProgramString(Compiler)
If tmp$ <> ""
output$ = tmp$
EndIf
Wend
EndIf
ProcedureReturn Trim(output$)
EndProcedure
Procedure InitWebWindow()
result = WebGadgetPath(GetLibFile("/usr/lib -name libgtkembedmoz.so"), GetPathPart(GetLibFile("/usr/lib -name firefox.sh")))
If result = 1 And OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered) <> 0
CreateGadgetList(WindowID(0))
WebGadget(0, 10, 10, 580, 280, "http://www.web.de")
EndIf
EndProcedure
InitWebWindow()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
End
Gruß,
Daniel