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

move line numbers option from general to editing->general

Browse Source
This commit is contained in:
Jon Rafkind 2010-11-14 19:33:12 -07:00
parent c8eb07221d
commit cd4e5e7410
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/drracket/private/main.rkt
View File

@ -316,17 +316,7 @@
(make-check-box 'drracket:open-in-tabs (make-check-box 'drracket:open-in-tabs
(string-constant open-files-in-tabs) (string-constant open-files-in-tabs)
editor-panel) editor-panel)
(make-check-box 'drracket:show-line-numbers?
(string-constant show-line-numbers)
editor-panel
(lambda (value)
(define (drracket:frame? frame)
(and (is-a? frame top-level-window<%>)
(is-a? frame drracket:unit:frame%)))
;; is it a hack to use `get-top-level-windows' ?
(define frames (filter drracket:frame? (get-top-level-windows)))
(when (not (null? frames))
(send (car frames) show-line-numbers! value))))
(make-check-box 'drracket:show-interactions-on-execute (make-check-box 'drracket:show-interactions-on-execute
(string-constant show-interactions-on-execute) (string-constant show-interactions-on-execute)
@ -346,7 +336,17 @@
(preferences:add-to-editor-checkbox-panel (preferences:add-to-editor-checkbox-panel
(λ (editor-panel) (λ (editor-panel)
(void) (make-check-box 'drracket:show-line-numbers?
(string-constant show-line-numbers)
editor-panel
(lambda (value)
(define (drracket:frame? frame)
(and (is-a? frame top-level-window<%>)
(is-a? frame drracket:unit:frame%)))
;; is it a hack to use `get-top-level-windows' ?
(define frames (filter drracket:frame? (get-top-level-windows)))
(when (not (null? frames))
(send (car frames) show-line-numbers! value))))
;; come back to this one. ;; come back to this one.
#; #;