1 files changed, 3 insertions, 3 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas
index caf51736..b8c59719 100644
--- a/examples/apps/ide/src/fpg_textedit.pas
+++ b/examples/apps/ide/src/fpg_textedit.pas
@@ -149,7 +149,6 @@ type
     function    mousewheelacceleration(const avalue: double): double;
     function    mousewheelacceleration(const avalue: integer): integer;
     function    FindReplaceProc(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward, ReplaceMode: Boolean; var ReplaceText: Boolean): Boolean;
-    procedure   DoCopy;
   protected
     { -- internal events -- }
     procedure   HandleShow; override;
@@ -188,6 +187,7 @@ type
     procedure   Clear;
     procedure   ScrollTo(X, Y: Integer);
     procedure   GotoLine(ALine: integer);
+    procedure   CopyToClipboard;
     procedure   DeleteSelection;
     function    GetSelectedText: TfpgString;
     procedure   SaveToFile(const AFileName: TfpgString);
@@ -1488,7 +1488,7 @@ begin
   end;
 end;
 
-procedure TfpgBaseTextEdit.DoCopy;
+procedure TfpgBaseTextEdit.CopyToClipboard;
 begin
   if not FSelected then
     Exit;
@@ -1535,7 +1535,7 @@ begin
   case CheckClipboardKey(keycode, shiftstate) of
     ckCopy:
       begin
-        DoCopy;
+        CopyToClipboard;
       end;
 
     ckPaste: