macOS HTMLViewer Developer Extras

[Greg_O]

@Greg_O

Public Sub EnableDeveloperExtras(Extends ctl as MobileHTMLViewer, assigns value as Boolean)
  #if TargetIOS and DebugBuild
    Declare Function getConfiguration Lib "WebKit" selector "configuration" (obj as ptr) As Ptr
    Declare Function getPreferences Lib "WebKit" selector "preferences" (obj as ptr) As Ptr
    Declare sub _setDeveloperExtrasEnabled lib "WebKit" selector "_setDeveloperExtrasEnabled:" (obj as ptr, value as Boolean)
    
    dim config as ptr = getConfiguration(ctl.Handle)
    dim prefs as ptr = getPreferences(config)
    _setDeveloperExtrasEnabled(prefs, value)
  #endif
End Sub

Apparently this code works for iOS as well… In this case you can go to your Mac and access the HTML debugger under the Develop menu in Safari.