Skip to content

Commit 6358ba5

Browse files
author
delphidabbler
committed
Remove ShowPrefsPage method from external object
1 parent d4fb419 commit 6358ba5

File tree

2 files changed

+1
-24
lines changed

2 files changed

+1
-24
lines changed

Src/ExternalObj.ridl

Lines changed: 1 addition & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -90,14 +90,7 @@ library ExternalObj
9090
* Display the program's About box.
9191
*/
9292
HRESULT _stdcall ShowAboutBox(void);
93-
[id(0x00000073)]
94-
95-
/*
96-
* Displays a tab in the Preferences dialogue box.
97-
* @param TagCls [in] Class name of frame hosting required dialogue box
98-
* page.
99-
*/
100-
HRESULT _stdcall ShowPrefsPage([in] BSTR ClsName);
93+
10194
};
10295

10396
};

Src/UWBExternal.pas

Lines changed: 0 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -102,12 +102,6 @@ TWBExternal = class(TAutoIntfObject, IWBExternal14, ISetNotifier)
102102
/// <remarks>Method of IWBExternal14.</remarks>
103103
procedure ShowAboutBox; safecall;
104104

105-
/// <summary>Displays specified page of the Preferences dialogue.</summary>
106-
/// <param name="ClsName">WideString [in] Class name of the frame that
107-
/// implements the required preferences page.</param>
108-
/// <remarks>Method of IWBExternal14.</remarks>
109-
procedure ShowPrefsPage(const ClsName: WideString); safecall;
110-
111105
/// <summary>Records the notifier object that is used to call application
112106
/// code in response to JavaScript calls running in browser documents.
113107
/// </summary>
@@ -223,16 +217,6 @@ procedure TWBExternal.ShowNews;
223217
end;
224218
end;
225219

226-
procedure TWBExternal.ShowPrefsPage(const ClsName: WideString); safecall;
227-
begin
228-
try
229-
if Assigned(fNotifier) then
230-
fNotifier.ShowPrefsPage(ClsName);
231-
except
232-
HandleException;
233-
end;
234-
end;
235-
236220
procedure TWBExternal.UpdateDbase;
237221
begin
238222
try

0 commit comments

Comments
 (0)