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

* set svn:eol-style

Browse Source 
* This commit also adds drscheme:help-context-term capability for the
  teaching languages, with a couple of #|!!!|# comments that will go
  away soon.  (This part was committed by mistake.)

svn: r10940
This commit is contained in:
Eli Barzilay 2008-07-28 04:01:15 +00:00
parent b088ac9c74
commit 3bcbdc1924
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/rep.ss
View File

@ -283,8 +283,8 @@ TODO
(and (is-a? tlw drscheme:unit:frame<%>)
(send (send tlw get-definitions-text)
get-next-settings)))))])
(drscheme:help-desk:help-desk str))))]
[else
(drscheme:help-desk:help-desk str #|!!!!!!|#))))]
[else
(drscheme:help-desk:help-desk)])))))
(send drs-bindings-keymap add-function

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

@ -151,7 +151,7 @@ module browser threading seems wrong.
str
(- 200 (string-length (string-constant search-help-desk-for)))))
menu
(λ x (help-desk:help-desk str)))))))
(λ x (help-desk:help-desk str #|!!!!|#)))))))
(when (is-a? text editor:basic<%>)
(let-values ([(pos text) (send text get-pos/text event)])

9
collects/lang/htdp-langs.ss
View File

@ -533,6 +533,15 @@
keywords]
[(drscheme:teachpack-menu-items) htdp-teachpack-callbacks]
[(drscheme:special:insert-lambda) #f]
[(drscheme:help-context-term)
(let* ([m (get-module)]
[m (and m (pair? m) (pair? (cdr m)) (cadr m))]
[m (and m (regexp-match #rx"^(lang/[^/.]+).ss$"))]
[m (and m (cadr m))])
(if m
(format "L:~a" m)
(error 'drscheme:help-context-term
"internal error: unexpected module spec")))]
[(tests:test-menu tests:dock-menu) #t]
[else (inner (drscheme:language:get-capability-default key)
capability-value