PureBasic Forums - English

Code: Select all

WebGadget(1, 00, 00, 00, 00,"https://www.purebasic.fr")

Code: Select all

Html$ =  ~"<button id=\"increment\">Tap me</button>\n"+
         ~"<div>You tapped <span id=\"count\">0</span> time(s).</div>\n"+
         ~"<button id=\"compute\">Compute</button>\n"+
         ~"<div>Result of computation: <span id=\"compute-result\">0</span></div>\n"+
         ~"<script>\n"+
         ~"  const [incrementElement, countElement, computeElement, "+
         ~"computeResultElement] =\n"+
         ~"    document.querySelectorAll(\"#increment, #count, #compute, "+
         ~"#compute-result\");\n"+
         ~"  document.addEventListener(\"DOMContentLoaded\", () => {\n"+
         ~"    incrementElement.addEventListener(\"click\", () => {\n"+
         ~"      window.increment().then(result => {\n"+
         ~"        countElement.textContent = result.count;\n"+
         ~"      });\n"+
         ~"    });\n"+
         ~"    computeElement.addEventListener(\"click\", () => {\n"+
         ~"      computeElement.disabled = true;\n"+
         ~"      window.compute(6, 7).then(result => {\n"+
         ~"        computeResultElement.textContent = result;\n"+
         ~"        computeElement.disabled = false;\n"+
         ~"      });\n"+
         ~"    });\n"+
         ~"  });\n"+
         ~"</script>";

Procedure IncrementJS(Json$)
  Static i
  Debug "IncrementJS '"+Json$+"'"
  i+1
  ProcedureReturn UTF8(~"{ \"count\": "+Str(i)+ "}")
EndProcedure

Procedure ComputeJS(Json$)
  Debug "ComputeJS "+Json$
  ProcedureReturn UTF8(~"150")
EndProcedure

OpenWindow(0, 100, 100, 400, 400, "Hello", #PB_Window_SystemMenu)

WebGadget(0, 0, 0, 400, 400, "", #PB_Web_Edge) ;  <== it's necessary to put this line before  for using WebViewGadget() !
WebViewGadget(0, 0, 0,  400, 400)
SetGadgetText(0, Html$)

BindWebViewCallback(0, "increment", @IncrementJS())
BindWebViewCallback(0, "compute", @ComputeJS())

Repeat 
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

Code: Select all

Added: NbMaxChannels parameter for InitSound(). Range from 1 to 254.

Changed: WebViewGadget(): SetGadgetText() now open an URI like WebGadget() and added SetGadgetItemText() with #PB_Web_HtmlCode

Updated: Switched for MiniAudio for Windows as well, so all platform should behave exactly the same now. It use WASAPI on Windows by default for best sound quality.
Updated: Reworked the Music library to use MiniAudio as backend.
Updated: SQLite version to 3.45.0

Code: Select all

    ; Linux icon - 14/NOV/2014
    CompilerIf #PB_Compiler_OS=#PB_OS_Linux
      gtk_window_set_icon_(WindowID(#WINDOW_MAIN), ImageID(13))
    CompilerEndIf