From e86b65c80ae8f2dd653319ad0fc49ade467f0f04 Mon Sep 17 00:00:00 2001
From: Greg Ercolano <erco@seriss.com>
Date: Wed, 22 Dec 2010 20:20:28 +0000
Subject: [PATCH] Fixes to ensure readonly() widget is not modified by
 destructive keyboard functions.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@8106 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/Fl_Input.cxx | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Fl_Input.cxx b/src/Fl_Input.cxx
index d0e897a21..e29721c3c 100644
--- a/src/Fl_Input.cxx
+++ b/src/Fl_Input.cxx
@@ -138,6 +138,7 @@ int Fl_Input::kf_page_down() {
 
 // Toggle insert mode
 int Fl_Input::kf_insert_toggle() {
+  if (readonly()) { fl_beep(); return 1; }
   return 1;				// \todo: needs insert mode
 }
 
@@ -159,6 +160,7 @@ int Fl_Input::kf_delete_word_left() {
 
 // Delete to start of line
 int Fl_Input::kf_delete_sol() {
+  if (readonly()) { fl_beep(); return 1; }
   if (mark() != position()) return cut();
   cut(line_start(position()), position());
   return 1;
@@ -275,6 +277,7 @@ int Fl_Input::kf_undo() {
 
 // Redo. (currently unimplemented.. toggles undo() instead)
 int Fl_Input::kf_redo() {
+  if (readonly()) { fl_beep(); return 1; }
   return kf_undo();			// currently we don't support multilevel undo
 }