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

removed printout

Browse Source 
svn: r3189
This commit is contained in:
Robby Findler 2006-06-02 19:18:03 +00:00
parent 3c17a310ee
commit 8f0f4aacf3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,3 +1,4 @@
#|
closing:
@ -1419,8 +1420,7 @@ module browser threading seems wrong.
(toggle-show/hide-interactions)
(update-shown)))
(override get-editor%)
[define get-editor% (λ () (drscheme:get/extend:get-definitions-text))]
(define/override (get-editor%) (drscheme:get/extend:get-definitions-text))
(define/public (still-untouched?)
(and (= (send definitions-text last-position) 0)
(not (send definitions-text is-modified?))
@ -2254,6 +2254,7 @@ module browser threading seems wrong.
(define/private (update-close-tab-menu-item-shortcut item)
(let ([just-one? (and (pair? tabs) (null? (cdr tabs)))])
(send item set-shortcut (if just-one? #f #\w))))
(define/private (update-close-menu-item-shortcut item)
(let ([just-one? (and (pair? tabs) (null? (cdr tabs)))])
(send item set-shortcut (if just-one? #\w #f))))