Fresco/Berlin/modules/Tools TextInput.cc,1.16,1.17

Update of /cvs/fresco/Fresco/Berlin/modules/Tools
In directory purcel:/tmp/cvs-serv2994/Berlin/modules/Tools

Modified Files:
	TextInput.cc 
Log Message:
Patch from Bernhard Fischer (cow):
Handling the backspace-key in TextInput was missing. I added it along
handling the home- and end keys.


Index: TextInput.cc
===================================================================
RCS file: /cvs/fresco/Fresco/Berlin/modules/Tools/TextInput.cc,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- TextInput.cc	29 Dec 2003 08:43:04 -0000	1.16
+++ TextInput.cc	7 Feb 2004 23:37:27 -0000	1.17
@@ -36,11 +36,25 @@
     Trace trace("TextInput::key_press");
     const Input::Toggle &toggle = event[0].attr.selection();
     Babylon::Char uc(static_cast<Babylon::UCS4>(toggle.number));
+
     switch (toggle.number)
     {
     case Babylon::UC_BACKSPACE:
     my_buffer->remove_backward(1);
     break; // backspace
+    case Babylon::UC_DELETE:
+    my_buffer->remove_forward(1);
+    break; // delete
+#if 1
+    case Babylon::UC_KEY_CURSOR_UP:
+    case Babylon::UC_KEY_HOME:
+    my_buffer->position(0);
+    break; // up/home
+    case Babylon::UC_KEY_CURSOR_DOWN:
+    case Babylon::UC_KEY_END:
+    my_buffer->position(my_buffer->size());
+    break; // down/end
+#endif
     case Babylon::UC_KEY_CURSOR_LEFT:
     my_buffer->backward();
     break; // left