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

improve the language dialog a little bit:

Browse Source 
- make clicking on the example languages
  select the 'The Racket Language' radio button
- when the clicked example language matches
  the buffer, have a more friendly message
This commit is contained in:
Robby Findler 2012-11-06 20:31:12 -06:00
parent 66c1045b42
commit c02797b121
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/drracket/private/language-configuration.rkt
View File

@ -435,7 +435,7 @@
[parent in-source-discussion-panel]
[stretchable-width #f]
[min-width 32]))
(define in-source-discussion-editor-canvas (add-discussion in-source-discussion-panel definitions-text))
(define in-source-discussion-editor-canvas (add-discussion in-source-discussion-panel definitions-text use-language-in-source-rb-callback))
(define most-recent-languages-hier-list-selection (preferences:get 'drracket:language-dialog:hierlist-default))
(define most-recent-teaching-languages-hier-list-selection (preferences:get 'drracket:language-dialog:teaching-hierlist-default))
@ -1129,7 +1129,7 @@
#f)]
[else #f])))))
(define (add-discussion p definitions-text)
(define (add-discussion p definitions-text use-language-in-source-rb-callback)
(define t (new (text:hide-caret/selection-mixin text:standard-style-list%)))
(define c (new editor-canvas%
[stretchable-width #t]
@ -1191,6 +1191,7 @@
(do-insert "]\n" #f)
(send t set-clickback before-lang after-lang
(λ (t start end)
(use-language-in-source-rb-callback)
(define-values (current-line-start current-line-end)
(if definitions-text
(find-language-position definitions-text)
@ -1201,20 +1202,18 @@
(string-constant drscheme)
(string-append
(string-constant racket-dialect-in-buffer-message)
"\n\n"
(cond
[(and existing-lang-line
(equal? existing-lang-line the-lang-line))
""]
(format (string-constant racket-dialect-already-same-#lang-line)
existing-lang-line)]
[existing-lang-line
(string-append
"\n\n"
(format (string-constant racket-dialect-replace-#lang-line)
existing-lang-line
the-lang-line))]
(format (string-constant racket-dialect-replace-#lang-line)
existing-lang-line
the-lang-line)]
[else
(string-append
"\n\n"
(format (string-constant racket-dialect-add-new-#lang-line) the-lang-line))]))
(format (string-constant racket-dialect-add-new-#lang-line) the-lang-line)]))
(cond
[(and existing-lang-line
(equal? existing-lang-line the-lang-line))