Mostly for Linux (WebKit-GTK) but also Windows.
Stuff like this for example (WebKit-GTK):
Code: Select all
void
webkit_settings_set_enable_private_browsing (
WebKitSettings* settings,
gboolean enabled
)
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
)
See your folder "/home/[UserName]/.local/share/[YourWebApp]Mijikai wrote: Mon Jun 23, 2025 6:26 pm I assume its the same for the WebGadget() ?
How about the history, is there a way to delete it ?