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 [