From 88a6175f8fe69d118c7a0663f744ee9a58ff17a0 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 29 Sep 2006 20:07:01 +0000
Subject: [PATCH] Better looking input mouse over when input has > 1 line

---
 TODO.FACTOR.txt              | 1 -
 library/tools/summary.factor | 5 +++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 96dc9e5e82..b6831bd71f 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -11,7 +11,6 @@
 - page scrolling should be timer-based too
 - x11: scroll up/down wiggles caret
 - slider needs to be modelized
-- mouse over for input w/ multiple lines looks stupid
 - more compact relocation info
 - hashed generic method dispatch
 
diff --git a/library/tools/summary.factor b/library/tools/summary.factor
index 8bba23a150..04ba75d847 100644
--- a/library/tools/summary.factor
+++ b/library/tools/summary.factor
@@ -10,8 +10,9 @@ M: object summary
     "an instance of the " swap class word-name " class" append3 ;
 
 M: input summary
-    "Input: " swap input-string
-    dup string? [ unparse-short ] unless append ;
+    "Input: " swap input-string dup string?
+    [ "\n" split1 "..." "" ? append ] [ unparse-short ] if
+    append ;
 
 M: vocab-link summary
     [