suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

shortened the search-in-help-desk string in the context menu to 50 chars or less

Browse Source 
svn: r15547
This commit is contained in:
Robby Findler 2009-07-24 05:01:55 +00:00
parent ba4fd47407
commit 37e9d73a82
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/drscheme/private/unit.ss
View File

@ -149,14 +149,15 @@ module browser threading seems wrong.
[name (and l (send l get-language-name))])
(unless (string=? str "")
(add-sep)
(make-object menu-item%
(gui-utils:format-literal-label
(string-constant search-help-desk-for)
(shorten-str
str
(- 200 (string-length (string-constant search-help-desk-for)))))
menu
(λ x (help-desk:help-desk str (list ctxt name))))))))
(let ([short-str (shorten-str str 50)])
(make-object menu-item%
(gui-utils:format-literal-label
(string-constant search-help-desk-for)
(if (equal? short-str str)
str
(string-append short-str "...")))
menu
(λ x (help-desk:help-desk str (list ctxt name)))))))))
(when (is-a? text editor:basic<%>)
(let-values ([(pos text) (send text get-pos/text event)])