{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{       Please Add it to Script Library and Set a       }
{       Shortcut to run it when need to do smart        }
{       paste(Replace current Identifier) in Editor     }
{                                                       }
{*******************************************************}

program SmartPaste;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

begin
  if ClipBoard.AsText <> '' then
  begin
    CnOtaDeleteCurrToken([], []);
    CnOtaInsertTextIntoEditor(ClipBoard.AsText);
  end;
end.
 
