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")
(define name "Algol 60")
(define doc.txt "doc.txt")
(define tools (list (list "tool.ss"))))
(define tools '(("tool.ss")))
(define tool-names '("Algol 60")))

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

@ -259,54 +259,52 @@
(insert-url/external-browser "PLT" "http://www.plt-scheme.org/")
(send* e
(insert ".")
(insert #\newline)
(insert ".\n")
(insert (get-authors))
(insert #\newline)
(insert "For licensing information see "))
(insert "\nFor 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
(insert ".")
(insert #\newline)
(insert #\newline)
(insert "Based on:")
(insert #\newline)
(insert " ")
(insert ".\n\nBased on:\n ")
(insert (banner)))
(when (or (eq? (system-type) 'macos)
(eq? (system-type) 'macosx))
(send* e
(insert " The A List (c) 1997-2001 Kyle Hammond")
(insert #\newline)))
(let ([tools (drscheme:tools:get-successful-tools)])
(insert " The A List (c) 1997-2001 Kyle Hammond\n")))
(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)
(send* e
(insert #\newline)
(insert "Installed tools:")
(insert #\newline))
(for-each
(λ (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)]
[url (drscheme:tools:successful-tool-url successful-tool)])
(send e insert " ")
(when bm
(send* e
(insert (make-object image-snip% bm))
(insert #\space)))
(cond
[url
(insert-url/external-browser name url)]
[else
(send e insert name)])
(send e insert #\newline)))
tools)))
(let loop ([actions1 '()] [actions2 '()] [tools tools])
(if (pair? tools)
(let* ([successful-tool (car tools)]
[name (drscheme:tools:successful-tool-name successful-tool)]
[spec (drscheme:tools:successful-tool-spec successful-tool)]
[bm (drscheme:tools:successful-tool-bitmap successful-tool)]
[url (drscheme:tools:successful-tool-url successful-tool)])
(define (action)
(send e insert " ")
(when bm
(send* e
(insert (make-object image-snip% bm))
(insert #\space)))
(let ([name (or name (format "~a" spec))])
(cond [url (insert-url/external-browser name url)]
[else (send e insert name)]))
(send e insert #\newline))
(if name
(loop (cons action actions1) actions2 (cdr 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 (get-translating-acks))

4
collects/guibuilder/info.ss
View File

@ -1,5 +1,5 @@
(module info (lib "infotab.ss" "setup")
(define doc.txt "doc.txt")
(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")
(require (lib "string-constant.ss" "string-constants"))
(define name "ProfessorJ")
(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 pre-install-collection "pre-installer.ss")
(define compile-subcollections (list (list "profj" "parsers")
(list "profj" "libs" "java" "lang")
(list "profj" "libs" "java" "io")
(list "profj" "libs" "java" "util")))
(define compile-subcollections
'(("profj" "parsers")
("profj" "libs" "java" "lang")
("profj" "libs" "java" "io")
("profj" "libs" "java" "util")))
(define textbook-pls
(list (list '("htdch-icon.png" "profj")
"How to Design Class Hierarchies"

11
collects/profjWizard/info.ss
View File

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

8
collects/xml/info.ss
View File

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