From 92d78b37533d96257d1298d81c26feb8bb9834c1 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 28 Sep 2010 11:11:11 +0200
Subject: memo bugfix: The 'delete' key did not work. Now it does.

---
 src/gui/fpg_memo.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index acdf2f13..0cf0f469 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -1221,7 +1221,7 @@ begin
       keyDelete:
           begin
             ls := GetLineText(FCursorLine);
-            if FSelEndLine > -1 then
+            if SelectionText <> '' then
               DeleteSelection
             else if FCursorPos < UTF8Length(ls) then
             begin
-- 
cgit v1.2.3-70-g09d2