PureBasic Forums - English

Code: Select all

void
webkit_settings_set_enable_private_browsing (
  WebKitSettings* settings,
  gboolean enabled
)

Code: Select all

EnableExplicit

ImportC ""
  webkit_web_view_get_settings.i(*webview);<- how to get / use this ?
  webkit_settings_set_feature_enabled.i(*settings,*feature,enabled.i);<- how to get / use this ?
  webkit_feature_get_name.i(*feature)
  webkit_feature_list_get.i(*feature,index.i)
  webkit_settings_get_all_features.i()
  webkit_settings_get_development_features.i()
  webkit_settings_get_experimental_features.i()
  webkit_feature_list_get_length.i(*list)
  webkit_feature_list_ref.i(*list)
  webkit_feature_list_unref.i(*list)
EndImport

Structure _WEBKIT_FEATURE_LIST
  *feature
  *reference
  count.i
  position.i
  *entry
EndStructure

Procedure.i WebViewFeatureListOpen()
  Protected._WEBKIT_FEATURE_LIST *list
  With *list
    *list = AllocateStructure(_WEBKIT_FEATURE_LIST)
    If *list
      \feature = webkit_settings_get_all_features()
      If \feature
        \reference = webkit_feature_list_ref(\feature)
        If \reference
          \count = webkit_feature_list_get_length(\reference)
          ProcedureReturn *list
        EndIf
      EndIf
      FreeStructure(*list)    
    EndIf
    ProcedureReturn #Null
  EndWith
EndProcedure

Procedure.i WebViewFeatureCount(*list._WEBKIT_FEATURE_LIST)
  With *list
    ProcedureReturn \count
  EndWith
EndProcedure

Procedure.i WebViewFeatureListReset(*list._WEBKIT_FEATURE_LIST)
  With *list
    \position = #Null
    ProcedureReturn #Null
  EndWith
EndProcedure

Procedure.i WebViewFeatureNext(*list._WEBKIT_FEATURE_LIST)
  With *list
    If \position < \count
      \entry = webkit_feature_list_get(\reference,\position)
      \position + 1
      ProcedureReturn #True
    EndIf
    \position = 0
    ProcedureReturn #False
  EndWith
EndProcedure

Procedure.s WebViewFeatureName(*list._WEBKIT_FEATURE_LIST)
  Protected *name
  With *list
    *name = webkit_feature_get_name(\entry)
    If *name
      ProcedureReturn PeekS(*name,-1,#PB_UTF8)
    EndIf
    ProcedureReturn #Null$
  EndWith
EndProcedure

Procedure.i WebViewFeatureListClose(*list._WEBKIT_FEATURE_LIST)
  With *list
    webkit_feature_list_unref(\reference)
    FreeStructure(*list)
    ProcedureReturn #Null
  EndWith 
EndProcedure

Procedure.i main()
  Protected *list
  Protected.s name
  If OpenWindow(0,#Null,#Null,800,600,#Null$,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
    WebViewGadget(0,0,0,WindowWidth(0),WindowHeight(0))
    
    *list = WebViewFeatureListOpen()
    If *list
      While WebViewFeatureNext(*list)
        name = WebViewFeatureName(*list)
        If name
          Debug name
        EndIf
      Wend
    EndIf
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
    CloseWindow(0)  
  EndIf
EndProcedure

End main()

Code: Select all

    Define result.GValue, value.GValue
    value\g_type = #G_TYPE_BOOLEAN
    g_value_set_boolean_(@value, #True)
    type = WebKit_SetProperty(#MainWebGadget, "enable-private-browsing", @value.GValue)
    
    type = WebKit_GetProperty(#MainWebGadget, "enable-private-browsing", @result.GValue)
    Debug "enable-private-browsing = " + g_value_get_boolean_(result)

Code: Select all

gboolean
webkit_website_data_manager_is_ephemeral (
  WebKitWebsiteDataManager* manager
)