From bcf1cb1f9c9daa29cfd7df2eb0640f3f66e41f48 Mon Sep 17 00:00:00 2001
From: zuu <zuu@openttd.org>
Date: Mon, 10 Sep 2012 18:47:13 +0000
Subject: (svn r24521) -Feature [FS#5203]: Ctrl + Backspace/Delete to remove
 characters up to next word beginning in text edit boxes

---
 src/textbuf.cpp | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

(limited to 'src/textbuf.cpp')

diff --git a/src/textbuf.cpp b/src/textbuf.cpp
index d9069755a..dc1d7a7cb 100644
--- a/src/textbuf.cpp
+++ b/src/textbuf.cpp
@@ -38,6 +38,29 @@ bool Textbuf::CanDelChar(bool backspace)
 	return backspace ? this->caretpos != 0 : this->caretpos < this->bytes - 1;
 }
 
+/**
+ * Get the next character that will be removed by DelChar.
+ * @param backspace if set, delete the character before the caret,
+ * otherwise, delete the character after it.
+ * @return the next character that will be removed by DelChar.
+ * @warning You should ensure Textbuf::CanDelChar returns true before calling this function.
+ */
+WChar Textbuf::GetNextDelChar(bool backspace)
+{
+	assert(this->CanDelChar(backspace));
+
+	const char *s;
+	if (backspace) {
+		s = Utf8PrevChar(this->buf + this->caretpos);
+	} else {
+		s = this->buf + this->caretpos;
+	}
+
+	WChar c;
+	Utf8Decode(&c, s);
+	return c;
+}
+
 /**
  * Delete a character at the caret position in a text buf.
  * @param backspace if set, delete the character before the caret,
@@ -85,6 +108,35 @@ bool Textbuf::DeleteChar(int delmode)
 		return false;
 	}
 
+	if (delmode == (WKC_CTRL | WKC_BACKSPACE) || delmode == (WKC_CTRL | WKC_DELETE)) {
+		bool backspace = delmode == (WKC_CTRL | WKC_BACKSPACE);
+
+		if (!CanDelChar(backspace)) return false;
+
+		/* Unconditionally delete one char to the left. */
+		this->DelChar(backspace);
+		if (!CanDelChar(backspace)) return false;
+		WChar c = this->GetNextDelChar(backspace);
+
+		/* Backspace: Delete left whitespaces.
+		 * Delete:    Delete right word.
+		 */
+		while (backspace ? IsWhitespace(c) : !IsWhitespace(c)) {
+			this->DelChar(backspace);
+			if (!this->CanDelChar(backspace)) return true;
+			c = this->GetNextDelChar(backspace);
+		}
+		/* Backspace: Delete left word.
+		 * Delete:    Delete right whitespaces.
+		 */
+		while (backspace ? !IsWhitespace(c) : IsWhitespace(c)) {
+			this->DelChar(backspace);
+			if (!this->CanDelChar(backspace)) return true;
+			c = this->GetNextDelChar(backspace);
+		}
+		return true;
+	}
+
 	return false;
 }
 
-- 
cgit v1.2.3-54-g00ecf