Updated ExternalObj.ridl, JavaScript and UWBExternal to remove support for donate() function.

donate() function is no longer used now that Donate dialogue box has been removed.
Bumped external object to version 13.

Author: delphidabbler

Src/ExternalObj.ridl

@@ -12,7 +12,7 @@
 
 [
   uuid(DA95AEFB-3FB5-4A9E-9F9D-A53DD05CA7D4),
-  version(12.0),
+  version(13.0),
   helpstring("CodeSnip DOM External Object Extender Type Library"),
   custom(DE77BA64-517C-11D1-A2DA-0000F8773CE9, 117441012),
   custom(DE77BA63-517C-11D1-A2DA-0000F8773CE9, 1219706147)
@@ -24,19 +24,19 @@ library ExternalObj
   importlib("stdole2.tlb");
 
   /*
-   * V12 interface of extension to browser DOM's "external" object.
+   * V13 interface of extension to browser DOM's "external" object.
    */
-  interface IWBExternal12;
+  interface IWBExternal13;
 
 
   [
     uuid(BA971829-ED4D-4092-BCAE-4B5DB1A2D74A),
-    version(12.0),
+    version(13.0),
     helpstring("DOM external object extender"),
     dual,
     oleautomation
   ]
-  interface IWBExternal12: IDispatch
+  interface IWBExternal13: IDispatch
   {
     /*
      * Update database from internet.
@@ -66,12 +66,6 @@ library ExternalObj
     [id(0x0000006C)]
     HRESULT _stdcall EditSnippet([in] BSTR SnippetName);
 
-    /*
-     * Displays Donate dialog box.
-     */
-    [id(0x0000006D)]
-    HRESULT _stdcall Donate(void);
-
     /*
      * Display identified category.
      *    @param CatID [in] ID of category to display.

Src/Res/Scripts/external.js

@@ -65,15 +65,6 @@ function editSnippet(snippet) {
   return false;
 }
 
-/*
- * Calls external object to get host application to display Donate dialog box.
- *  @return False.
- */
-function donate() {
-  external.Donate();
-  return false;
-}
-
 /*
  * Calls external object to get host application to start Snippets Editor ready
  * for a new snippet to be entered.
@@ -86,7 +77,7 @@ function newSnippet() {
 
 /*
  * Calls external object to get host application to display the CodeSnip news
- * feed.
+ * blog.
  *  @return False.
  */
 function showNews() {

Src/UWBExternal.pas

@@ -34,7 +34,7 @@ interface
   ///  <para>The methods a declared in the type library that is defined in
   ///  External.idl.</para>
   ///  </remarks>
-  TWBExternal = class(TAutoIntfObject, IWBExternal12, ISetNotifier)
+  TWBExternal = class(TAutoIntfObject, IWBExternal13, ISetNotifier)
   strict private
     var
       ///  <summary>Object used to call application code in response to
@@ -77,43 +77,39 @@   TWBExternal = class(TAutoIntfObject, IWBExternal12, ISetNotifier)
     ///  </param>
     ///  <remarks>
     ///  <para>The named snippet must be user defined.</para>
-    ///  <para>Method of IWBExternal12.</para>
+    ///  <para>Method of IWBExternal13.</para>
     ///  </remarks>
     procedure EditSnippet(const SnippetName: WideString); safecall;
 
-    ///  <summary>Displays the Donate dialogue box.</summary>
-    ///  <remarks>Method of IWBExternal12.</remarks>
-    procedure Donate; safecall;
-
     ///  <summary>Displays a named category.</summary>
     ///  <param name="CatID">WideString [in] ID of category to be displayed.
     ///  </param>
     ///  <param name="NewTab">WordBool [in] Whether to display category in a new
     ///  tab.</param>
-    ///  <remarks>Method of IWBExternal12.</remarks>
+    ///  <remarks>Method of IWBExternal13.</remarks>
     procedure DisplayCategory(const CatID: WideString; NewTab: WordBool);
       safecall;
 
     ///  <summary>Opens Snippet Editor ready to create a new snippet.</summary>
-    ///  <remarks>Method of IWBExternal12.</remarks>
+    ///  <remarks>Method of IWBExternal13.</remarks>
     procedure NewSnippet; safecall;
 
     ///  <summary>Shows latest news items from CodeSnip news feed.</summary>
-    ///  <remarks>Method of IWBExternal12.</remarks>
+    ///  <remarks>Method of IWBExternal13.</remarks>
     procedure ShowNews; safecall;
 
     ///  <summary>Checks for program updates.</summary>
-    ///  <remarks>Method of IWBExternal12.</remarks>
+    ///  <remarks>Method of IWBExternal13.</remarks>
     procedure CheckForUpdates; safecall;
 
     ///  <summary>Displays the program's About Box.</summary>
-    ///  <remarks>Method of IWBExternal12.</remarks>
+    ///  <remarks>Method of IWBExternal13.</remarks>
     procedure ShowAboutBox; safecall;
 
     ///  <summary>Displays specified page of the Preferences dialogue.</summary>
     ///  <param name="ClsName">WideString [in] Class name of the frame that
     ///  implements the required preferences page.</param>
-    ///  <remarks>Method of IWBExternal12.</remarks>
+    ///  <remarks>Method of IWBExternal13.</remarks>
     procedure ShowPrefsPage(const ClsName: WideString); safecall;
 
     ///  <summary>Records the notifier object that is used to call application
@@ -166,7 +162,7 @@ constructor TWBExternal.Create;
   ExeName := TAppInfo.AppExeFilePath;
   OleCheck(LoadTypeLib(PWideChar(ExeName), TypeLib));
   // Create the object using type library
-  inherited Create(TypeLib, IWBExternal12);
+  inherited Create(TypeLib, IWBExternal13);
 end;
 
 procedure TWBExternal.DisplayCategory(const CatID: WideString;
@@ -191,16 +187,6 @@ procedure TWBExternal.DisplaySnippet(const SnippetName: WideString;
   end;
 end;
 
-procedure TWBExternal.Donate;
-begin
-  try
-    if Assigned(fNotifier) then
-      fNotifier.Donate;
-  except
-    HandleException;
-  end;
-end;
-
 procedure TWBExternal.EditSnippet(const SnippetName: WideString);
 begin
   try