504a505,510
>   
>   if (_text_object)
>     {
>       NSString *dummy = AUTORELEASE([[_text_object string] copy]);
>       ASSIGN (_oldString, dummy);
>     }
530c536
<       
---
> 
550c556
< 	  NSLog (@"Unimplemented: should set string to %@", newString);
---
> 	  //	  NSLog (@"Unimplemented: should set string to %@", newString);
552c558,560
< 	  //[_text_object setString: newString];
---
> 	  NSRange range = [_text_object selectedRange];
> 	  [_text_object setString: newString];
> 	  [_text_object setSelectedRange: range];
559c567,571
< 	      NSLog (@"Unimplemented: should delete last typed character");
---
> 	      //  NSLog (@"Unimplemented: should delete last typed character");
> 	      NSRange range = [_text_object selectedRange];
> 	      range.location--;
> 	      [_text_object setString: _oldString];
> 	      [_text_object setSelectedRange: range];
562c574,578
< 
---
>     {
>       NSString *dummy= AUTORELEASE( [[_text_object string] copy]);
>       ASSIGN(_oldString, dummy);
>     } 
>