From 547706df4812781efea0b883392685aea26bfebe Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Thu, 8 Jul 2010 23:11:43 +0400
Subject: [PATCH] Proper handling of T when textentry is active

---
 main.ml | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index c9926a3..5d66354 100644
--- a/main.ml
+++ b/main.ml
@@ -509,9 +509,16 @@ let act cmd =
       let s = Scanf.sscanf cmd "T %n"
         (fun n -> String.sub cmd n (String.length cmd - n))
       in
-      state.text <- s;
-      showtext ' ' s;
-      Glut.swapBuffers ();
+      if state.textentry = None
+      then (
+        state.text <- s;
+        showtext ' ' s;
+        Glut.swapBuffers ();
+      )
+      else (
+        state.text <- s;
+        Glut.postRedisplay ();
+      )
 
   | 'V' ->
       if conf.verbose
-- 
2.11.4.GIT