From fe60890366adf8ecc6ee90a587a62d354597a071 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 12 Mar 2013 17:38:23 +0000
Subject: textedit: enabled Cut and Paste built-in keyboard shortcuts.

Now it makes Maximus IDE and Nanoedit a bit more useful. ;-)
---
 examples/apps/ide/src/fpg_textedit.pas | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'examples')

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;
 
-- 
cgit v1.2.3-70-g09d2