1. the popup menu appears in english and not in system language.
2. Popup menu "Open Link in New Window" does not work
Here an example code:
Code: Select all
; Popup menu "Open Link in New Window" does not work...
EnableExplicit
Enumeration FormGadget
#web_gadget
EndEnumeration
Define event
Define HtmlCode$= "<html><body><div contenteditable>" +
"My Link: <a href= 'https://www.purebasic.com'>www.purebasic.com</a>"+
"</div></body></html>"
OpenWindow(0, 0, 0, 600, 400, "WebGadget", #PB_Window_SystemMenu)
WebGadget(#web_gadget, 0, 5, 600, 400, "")
SetGadgetItemText(#web_gadget, #PB_Web_HtmlCode, HtmlCode$)
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow