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

Rackety

Browse Source
This commit is contained in:
Robby Findler 2012-08-07 13:03:45 -05:00
parent 4a19ab40e8
commit e65cbdecf0
1 changed files with 24 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
collects/framework/private/frame.rkt
View File

@ -1436,31 +1436,30 @@
(when s (when s
(send (current-ps-setup) copy-from s))))]))) (send (current-ps-setup) copy-from s))))])))
(define/override edit-menu:between-select-all-and-find (define/override (edit-menu:between-select-all-and-find edit-menu)
(λ (edit-menu) (define c% (get-checkable-menu-item%))
(let* ([c% (get-checkable-menu-item%)] (define (on-demand menu-item)
[on-demand (define edit (get-edit-target-object))
(λ (menu-item) (cond
(let ([edit (get-edit-target-object)]) [(and edit (is-a? edit editor<%>))
(if (and edit (is-a? edit editor<%>)) (send menu-item enable #t)
(begin (send menu-item check (send edit auto-wrap))]
(send menu-item enable #t) [else
(send menu-item check (send edit auto-wrap))) (send menu-item check #f)
(begin (send menu-item enable #f)]))
(send menu-item check #f) (define (callback item event)
(send menu-item enable #f)))))] (define edit (get-edit-target-object))
[callback (when (and edit
(λ (item event) (is-a? edit editor<%>))
(let ([edit (get-edit-target-object)]) (define new-pref (not (send edit auto-wrap)))
(when (and edit (preferences:set 'framework:auto-set-wrap? new-pref)
(is-a? edit editor<%>)) (send edit auto-wrap new-pref)))
(let ([new-pref (not (send edit auto-wrap))]) (new c%
(preferences:set 'framework:auto-set-wrap? new-pref) [label (string-constant wrap-text-item)]
(send edit auto-wrap new-pref)))))]) [parent edit-menu]
(make-object c% (string-constant wrap-text-item) [callback callback]
edit-menu callback #f #f on-demand)) [demand-callback on-demand])
(make-object separator-menu-item% edit-menu))
(make-object separator-menu-item% edit-menu)))
(define/override help-menu:about-callback (define/override help-menu:about-callback
(λ (menu evt) (λ (menu evt)