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

* Made DrScheme show tools sorted by spec paths, and not show #<path:...> when

Browse Source 
there is no name
* Added tool-names entries for tools that were missing it

svn: r3035
This commit is contained in:
Eli Barzilay 2006-05-24 18:03:10 +00:00
parent 779f4a9f1b
commit 1fca26c61d
6 changed files with 55 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/algol60/info.ss
View File

@ -1,4 +1,5 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define name "Algol 60") (define name "Algol 60")
(define doc.txt "doc.txt") (define doc.txt "doc.txt")
(define tools (list (list "tool.ss")))) (define tools '(("tool.ss")))
(define tool-names '("Algol 60")))

56
collects/drscheme/private/app.ss
View File

@ -259,53 +259,51 @@
(insert-url/external-browser "PLT" "http://www.plt-scheme.org/") (insert-url/external-browser "PLT" "http://www.plt-scheme.org/")
(send* e (send* e
(insert ".") (insert ".\n")
(insert #\newline)
(insert (get-authors)) (insert (get-authors))
(insert #\newline) (insert "\nFor licensing information see "))
(insert "For licensing information see "))
(insert/clickback "our software license" (λ () (help-desk:goto-plt-license))) (insert/clickback "our software license"
(λ () (help-desk:goto-plt-license)))
(send* e (send* e
(insert ".") (insert ".\n\nBased on:\n ")
(insert #\newline)
(insert #\newline)
(insert "Based on:")
(insert #\newline)
(insert " ")
(insert (banner))) (insert (banner)))
(when (or (eq? (system-type) 'macos) (when (or (eq? (system-type) 'macos)
(eq? (system-type) 'macosx)) (eq? (system-type) 'macosx))
(send* e (send* e
(insert " The A List (c) 1997-2001 Kyle Hammond") (insert " The A List (c) 1997-2001 Kyle Hammond\n")))
(insert #\newline)))
(let ([tools (drscheme:tools:get-successful-tools)]) (let ([tools (sort (drscheme:tools:get-successful-tools)
(lambda (a b)
(string<? (path->string (drscheme:tools:successful-tool-spec a))
(path->string (drscheme:tools:successful-tool-spec b)))))])
(unless (null? tools) (unless (null? tools)
(send* e (let loop ([actions1 '()] [actions2 '()] [tools tools])
(insert #\newline) (if (pair? tools)
(insert "Installed tools:") (let* ([successful-tool (car tools)]
(insert #\newline)) [name (drscheme:tools:successful-tool-name successful-tool)]
(for-each [spec (drscheme:tools:successful-tool-spec successful-tool)]
(λ (successful-tool)
(let ([name (or (drscheme:tools:successful-tool-name successful-tool)
(format "~s" (drscheme:tools:successful-tool-spec successful-tool)))]
[bm (drscheme:tools:successful-tool-bitmap successful-tool)] [bm (drscheme:tools:successful-tool-bitmap successful-tool)]
[url (drscheme:tools:successful-tool-url successful-tool)]) [url (drscheme:tools:successful-tool-url successful-tool)])
(define (action)
(send e insert " ") (send e insert " ")
(when bm (when bm
(send* e (send* e
(insert (make-object image-snip% bm)) (insert (make-object image-snip% bm))
(insert #\space))) (insert #\space)))
(cond (let ([name (or name (format "~a" spec))])
[url (cond [url (insert-url/external-browser name url)]
(insert-url/external-browser name url)] [else (send e insert name)]))
[else (send e insert #\newline))
(send e insert name)]) (if name
(send e insert #\newline))) (loop (cons action actions1) actions2 (cdr tools))
tools))) (loop actions1 (cons action actions2) (cdr tools))))
(begin (send e insert "\nInstalled tools:\n")
(for-each (λ (act) (act)) (reverse! actions1))
;; (send e insert "Installed anonymous tools:\n")
(for-each (λ (act) (act)) (reverse! actions2)))))))
(send e insert "\n") (send e insert "\n")
(send e insert (get-translating-acks)) (send e insert (get-translating-acks))

4
collects/guibuilder/info.ss
View File

@ -1,5 +1,5 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define doc.txt "doc.txt") (define doc.txt "doc.txt")
(define name "GUI Builder") (define name "GUI Builder")
(define tools (list (list "tool.ss")))) (define tools '(("tool.ss")))
(define tool-names '("GUI Builder")))

13
collects/profj/info.ss
View File

@ -1,15 +1,16 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(require (lib "string-constant.ss" "string-constants")) (require (lib "string-constant.ss" "string-constants"))
(define name "ProfessorJ") (define name "ProfessorJ")
(define doc.txt "doc.txt") (define doc.txt "doc.txt")
(define tools (list (list "tool.ss"))) (define tools '(("tool.ss")))
(define tool-names '("ProfessorJ"))
(define install-collection "installer.ss") (define install-collection "installer.ss")
(define pre-install-collection "pre-installer.ss") (define pre-install-collection "pre-installer.ss")
(define compile-subcollections (list (list "profj" "parsers") (define compile-subcollections
(list "profj" "libs" "java" "lang") '(("profj" "parsers")
(list "profj" "libs" "java" "io") ("profj" "libs" "java" "lang")
(list "profj" "libs" "java" "util"))) ("profj" "libs" "java" "io")
("profj" "libs" "java" "util")))
(define textbook-pls (define textbook-pls
(list (list '("htdch-icon.png" "profj") (list (list '("htdch-icon.png" "profj")
"How to Design Class Hierarchies" "How to Design Class Hierarchies"

11
collects/profjWizard/info.ss
View File

@ -1,13 +1,14 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define name "ProfessorJ Wizard") (define name "ProfessorJ Wizard")
(define tools (list (list "tool.ss"))) (define tools '(("tool.ss")))
(define comment '(define compile-subcollections (list (list "profj" "parsers") (define tool-names '("ProfessorJ Wizard"))
(list "profj" "libs" "java" "lang") ;; (define compile-subcollections
(list "profj" "libs" "java" "io")))) ;; '(("profj" "parsers")
;; ("profj" "libs" "java" "lang")
;; ("profj" "libs" "java" "io")))
(define compile-omit-files (define compile-omit-files
'("draw-txt0.ss" '("draw-txt0.ss"
"macro-class.scm" "macro-class.scm"
"view0.scm" "view0.scm"
"data-defs0.scm")) "data-defs0.scm"))
) )

8
collects/xml/info.ss
View File

@ -1,4 +1,3 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define name "XML") (define name "XML")
(define doc.txt "doc.txt") (define doc.txt "doc.txt")
@ -7,8 +6,5 @@
(define help-desk-message "Mz/Mr: (require (lib \"xml.ss\" \"xml\"))") (define help-desk-message "Mz/Mr: (require (lib \"xml.ss\" \"xml\"))")
(define blurb (define blurb
`("The XML collection provides functions for reading, writing, and manipulating XML documents.")) `("The XML collection provides functions for reading, writing, and manipulating XML documents."))
(define tools (list "text-box-tool.ss")) (define tools '(("text-box-tool.ss")))
(define tool-name (list "Text Box"))) (define tool-names '("Text Box")))