From b63b3b7c22502521c11c932c8779136bcbe6122f Mon Sep 17 00:00:00 2001
From: marche
Date: Thu, 10 Apr 2003 13:44:00 +0000
Subject: set_focus

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3901 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/command_windows.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/command_windows.ml b/ide/command_windows.ml
index 94fc74c975..7a08d209c6 100644
--- a/ide/command_windows.ml
+++ b/ide/command_windows.ml
@@ -74,7 +74,7 @@ object(self)
 	~packing:(vbox#pack ~fill:true ~expand:true) () in
     let ok_b = GButton.button ~label:"Ok" ~packing:(hbox#pack ~expand:false) () in
     let result = GText.view ~packing:r_bin#add () in
-    result#misc#set_can_focus false;
+    result#misc#set_can_focus true; (* false causes problems for selection *)
     result#set_editable false;
     let callback () =
       let phrase = combo#entry#text ^ " " ^ entry#text ^" . " in
-- 
cgit v1.2.3