Better looking input mouse over when input has > 1 line

2006-09-29 20:07:01 +00:00 · 2006-09-29 20:07:01 +00:00 · 88a6175f8f
parent 037b9bac02
commit 88a6175f8f
2 changed files with 3 additions and 3 deletions
--- 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

--- 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
    [