Code: Select all
Procedure SaveCallback(Status, Filename$, id_file, Size)
	Select Status
		Case #PB_Status_Saved
			Debug 1
		Case #PB_Status_Error
			Debug 0
	EndSelect
EndProcedure
#Window = 0
#WebG = 0
ww = 1000
hh = 600
If OpenWindow(#Window, 0, 0, ww, hh, "", #PB_Window_Background)
	WebGadget(#WebG, 0, 35, ww, hh - 35, "")
EndIf
	
	
g_id_file = CreateFile(#PB_Any, "find.htm", @SaveCallback(), #PB_LocalStorage | #PB_UTF8)
If g_id_file
	For i = 1 To 5
		WriteStringN(g_id_file, Str(i), #PB_UTF8)
	Next
	CloseFile(g_id_file)
	SetGadgetText(#WebG, "find.htm")
; 	SetGadgetText(#WebG, "http://127.0.0.1:9080/find.htm") ; ?
EndIf
