Better looking input mouse over when input has > 1 line

slava 2006-09-29 20:07:01 +00:00
parent 037b9bac02
commit 88a6175f8f
2 changed files with 3 additions and 3 deletions

View File

@ -11,7 +11,6 @@
- page scrolling should be timer-based too - page scrolling should be timer-based too
- x11: scroll up/down wiggles caret - x11: scroll up/down wiggles caret
- slider needs to be modelized - slider needs to be modelized
- mouse over for input w/ multiple lines looks stupid
- more compact relocation info - more compact relocation info
- hashed generic method dispatch - hashed generic method dispatch

View File

@ -10,8 +10,9 @@ M: object summary
"an instance of the " swap class word-name " class" append3 ; "an instance of the " swap class word-name " class" append3 ;
M: input summary M: input summary
"Input: " swap input-string "Input: " swap input-string dup string?
dup string? [ unparse-short ] unless append ; [ "\n" split1 "..." "" ? append ] [ unparse-short ] if
append ;
M: vocab-link summary M: vocab-link summary
[ [