From b2b6a790d8f6b1002973ef522a928a2047be511d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 28 Aug 2008 13:59:11 +0200
Subject: Listener: Select the input field after clearing it.

---
 MLKListenerController.m | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'MLKListenerController.m')

diff --git a/MLKListenerController.m b/MLKListenerController.m
index 88a58d6..4e238a7 100644
--- a/MLKListenerController.m
+++ b/MLKListenerController.m
@@ -49,6 +49,7 @@
   NS_ENDHANDLER;
 
   [inputField setStringValue:@""];
+  [inputField selectText:self];
 
   package = [[MLKDynamicContext currentContext]
              valueForSymbol:[[MLKPackage findPackage:@"COMMON-LISP"]
@@ -97,7 +98,7 @@
   [[text mutableString] appendString:@"\n"];
 
   [text endEditing];
-  
+
   [submitButton setEnabled:YES];
 }
 @end
-- 
cgit v1.2.3