1 files changed, 2 insertions, 5 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas
index 00808d7d..b71da9be 100644
--- a/examples/apps/ide/src/fpg_textedit.pas
+++ b/examples/apps/ide/src/fpg_textedit.pas
@@ -1543,7 +1543,6 @@ var
   Y: Integer;
   X: Integer;
   CaretScroll: Boolean;
-  HasChanged: boolean;
 begin
   {$IFDEF gDEBUG}
   SendMethodEnter('TfpgBaseTextEdit.HandleKeyPress')
@@ -1558,15 +1557,13 @@ begin
 
     ckPaste:
       begin
-//        DoPaste(fpgClipboard.Text);
 //        if not ReadOnly then
-//          HasChanged := True;
+          PasteFromClipboard;
       end;
 
     ckCut:
       begin
-//        DoCopy;
-//        DeleteSection;
+        CutToClipboard;
       end;
   end;