Remove unused ShowPrefsPage and SetShowPrefsPageAction from notifier

Also removed fShowPrefsPageAction and reference to unused UShowPrefsPageAction unit

Author: delphidabbler

Src/IntfNotifier.pas

@@ -80,11 +80,6 @@ interface
     ///  <summary>Displays the program's About Box.</summary>
     procedure ShowAboutBox;
 
-    ///  <summary>Displays the Preferences dialogue box containing the specified
-    ///  page.</summary>
-    ///  <param name="ClsName">string [in] Class name of the frame that
-    ///  implements the required preferences page.</param>
-    procedure ShowPrefsPage(const ClsName: string);
   end;
 
 type
@@ -149,10 +144,6 @@ interface
     ///  <param name="Action">TBasicAction [in] Required action.</param>
     procedure SetAboutBoxAction(const Action: TBasicAction);
 
-    ///  <summary>Sets action used to display a given page of the Preferences
-    ///  dialogue box.</summary>
-    ///  <param name="Action">TBasicAction [in] Required action.</param>
-    procedure SetShowPrefsPageAction(const Action: TBasicAction);
   end;
 
 type

Src/UNotifier.pas

@@ -64,9 +64,6 @@   TNotifier = class(TInterfacedObject, INotifier, ISetActions)
       fNewsAction: TBasicAction;
       ///  <summary>Action that causes About box to be displayed.</summary>
       fAboutBoxAction: TBasicAction;
-      ///  <summary>Action that displays a specified page in the preferences
-      ///  dialogue box.</summary>
-      fShowPrefsPageAction: TBasicAction;
 
   public
 
@@ -136,13 +133,6 @@   TNotifier = class(TInterfacedObject, INotifier, ISetActions)
     ///  <remarks>Methods of INotifier.</remarks>
     procedure ShowAboutBox;
 
-    ///  <summary>Displays the Preferences dialogue box containing the specified
-    ///  page.</summary>
-    ///  <param name="ClsName">string [in] Class name of the frame that
-    ///  implements the required preferences page.</param>
-    ///  <remarks>Method of INotifier.</remarks>
-    procedure ShowPrefsPage(const ClsName: string);
-
     ///  <summary>Sets action used to request a database update.</summary>
     ///  <param name="Action">TBasicAction [in] Required action.</param>
     ///  <remarks>Methods of ISetActions.</remarks>
@@ -210,11 +200,6 @@   TNotifier = class(TInterfacedObject, INotifier, ISetActions)
     ///  <remarks>Methods of ISetActions.</remarks>
     procedure SetAboutBoxAction(const Action: TBasicAction);
 
-    ///  <summary>Sets action used to display a given page of the Preferences
-    ///  dialogue box.</summary>
-    ///  <param name="Action">TBasicAction [in] Required action.</param>
-    ///  <remarks>Method of ISetActions.</remarks>
-    procedure SetShowPrefsPageAction(const Action: TBasicAction);
   end;
 
 
@@ -225,8 +210,12 @@ implementation
   // Delphi
   SysUtils, StdActns,
   // Project
-  Compilers.UGlobals, UCategoryAction, UDetailTabAction, UEditSnippetAction,
-  UShowPrefsPageAction, USnippetAction, UViewItemAction;
+  Compilers.UGlobals,
+  UCategoryAction,
+  UDetailTabAction,
+  UEditSnippetAction,
+  USnippetAction,
+  UViewItemAction;
 
 
 { TNotifier }
@@ -356,13 +345,6 @@ procedure TNotifier.SetOverviewStyleChangeActions(
     fOverviewStyleChangeActions[Idx] := Actions[Idx];
 end;
 
-procedure TNotifier.SetShowPrefsPageAction(const Action: TBasicAction);
-begin
-  Assert(Action is TShowPrefsPageAction, ClassName
-    + '.SetShowPreferencesAction: Action is not TShowPrefsPageAction');
-  fShowPrefsPageAction := Action;
-end;
-
 procedure TNotifier.SetShowViewItemAction(const Action: TBasicAction);
 begin
   fShowViewItemAction := Action;
@@ -386,15 +368,6 @@ procedure TNotifier.ShowNews;
     fNewsAction.Execute;
 end;
 
-procedure TNotifier.ShowPrefsPage(const ClsName: string);
-begin
-  if Assigned(fShowPrefsPageAction) then
-  begin
-    (fShowPrefsPageAction as TShowPrefsPageAction).FrameClassName := ClsName;
-    fShowPrefsPageAction.Execute;
-  end;
-end;
-
 procedure TNotifier.ShowViewItem(ViewItem: IView; const NewTab: Boolean);
 begin
   if Assigned(fShowViewItemAction) then