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

changed linux shortcut to control-shit-z as well

Browse Source 
svn: r10600
This commit is contained in:
Robby Findler 2008-07-04 16:54:43 +00:00
parent c7e2c34b81
commit 489f1e732e
3 changed files with 104 additions and 251 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/gen-standard-menus.ss
View File

@ -7,6 +7,9 @@
(define-runtime-path here ".") (define-runtime-path here ".")
(define standard-menus.ss-filename (simplify-path (build-path here "standard-menus.ss")))
(define docs-menus.ss-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl")))
;; build-before-super-item-clause : an-item -> (listof clause) ;; build-before-super-item-clause : an-item -> (listof clause)
(define build-before-super-item-clause (define build-before-super-item-clause
(λ (item) (λ (item)
@ -115,9 +118,6 @@
(list `(define/public ,(generic-name generic) (list `(define/public ,(generic-name generic)
,(generic-initializer generic)))])) ,(generic-initializer generic)))]))
(define standard-menus.ss-filename (build-path here "standard-menus.ss"))
(define docs-menus.ss-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl")))
(define (main) (define (main)
(write-standard-menus.ss) (write-standard-menus.ss)
(write-docs)) (write-docs))

12
collects/framework/private/standard-menus-items.ss
View File

@ -292,12 +292,12 @@
(make-an-item 'edit-menu 'redo (make-an-item 'edit-menu 'redo
'(string-constant redo-info) '(string-constant redo-info)
(edit-menu:do 'redo) (edit-menu:do 'redo)
'(if (eq? (system-type) 'macosx) '(if (eq? (system-type) 'windows)
#\z #\y
#\y) #\z)
'(if (eq? (system-type) 'macosx) '(if (eq? (system-type) 'windows)
(cons 'shift (get-default-shortcut-prefix)) (get-default-shortcut-prefix)
(get-default-shortcut-prefix)) (cons 'shift (get-default-shortcut-prefix)))
'(string-constant redo-menu-item) '(string-constant redo-menu-item)
(edit-menu:can-do-on-demand 'redo) (edit-menu:can-do-on-demand 'redo)
#t) #t)

337
collects/framework/private/standard-menus.ss
View File

@ -164,35 +164,24 @@
(when (is-a? menu menu:can-restore<%>) (when (is-a? menu menu:can-restore<%>)
(if v (send menu restore-keybinding) (send menu set-shortcut #f))) (if v (send menu restore-keybinding) (send menu set-shortcut #f)))
(when (is-a? menu menu:can-restore-underscore<%>) (when (is-a? menu menu:can-restore-underscore<%>)
(if v (if v (send menu restore-underscores) (send menu erase-underscores)))
(send menu restore-underscores) (when (is-a? menu menu-item-container<%>) (for-each loop (send menu get-items)))))))
(send menu erase-underscores)))
(when (is-a? menu menu-item-container<%>)
(for-each loop (send menu get-items)))))))
(inherit get-menu-bar show can-close? get-edit-target-object) (inherit get-menu-bar show can-close? get-edit-target-object)
(define/augment (define/augment on-close (λ () (remove-prefs-callback) (inner (void) on-close)))
on-close
(lambda () (remove-prefs-callback) (inner (void) on-close)))
(define/public get-menu% (λ () menu:can-restore-underscore-menu%)) (define/public get-menu% (λ () menu:can-restore-underscore-menu%))
(define/public get-menu-item% (λ () menu:can-restore-menu-item%)) (define/public get-menu-item% (λ () menu:can-restore-menu-item%))
(define/public (define/public get-checkable-menu-item% (λ () menu:can-restore-checkable-menu-item%))
get-checkable-menu-item%
(λ () menu:can-restore-checkable-menu-item%))
(define/public get-file-menu (λ () file-menu)) (define/public get-file-menu (λ () file-menu))
(define/public get-edit-menu (λ () edit-menu)) (define/public get-edit-menu (λ () edit-menu))
(define/public get-help-menu (λ () help-menu)) (define/public get-help-menu (λ () help-menu))
(define/public (define/public file-menu:new-callback (λ (item control) (handler:edit-file #f) #t))
file-menu:new-callback
(λ (item control) (handler:edit-file #f) #t))
(define/public (file-menu:get-new-item) file-menu:new-item) (define/public (file-menu:get-new-item) file-menu:new-item)
(define/public (file-menu:new-string) (string-constant new-menu-item)) (define/public (file-menu:new-string) (string-constant new-menu-item))
(define/public (file-menu:new-help-string) (string-constant new-info)) (define/public (file-menu:new-help-string) (string-constant new-info))
(define/public file-menu:new-on-demand (λ (menu-item) (void))) (define/public file-menu:new-on-demand (λ (menu-item) (void)))
(define/public (file-menu:create-new?) #t) (define/public (file-menu:create-new?) #t)
(define/public file-menu:between-new-and-open (λ (menu) (void))) (define/public file-menu:between-new-and-open (λ (menu) (void)))
(define/public (define/public file-menu:open-callback (λ (item control) (handler:open-file) #t))
file-menu:open-callback
(λ (item control) (handler:open-file) #t))
(define/public (file-menu:get-open-item) file-menu:open-item) (define/public (file-menu:get-open-item) file-menu:open-item)
(define/public (file-menu:open-string) (string-constant open-menu-item)) (define/public (file-menu:open-string) (string-constant open-menu-item))
(define/public (file-menu:open-help-string) (string-constant open-info)) (define/public (file-menu:open-help-string) (string-constant open-info))
@ -200,15 +189,9 @@
(define/public (file-menu:create-open?) #t) (define/public (file-menu:create-open?) #t)
(define/public file-menu:open-recent-callback (λ (x y) (void))) (define/public file-menu:open-recent-callback (λ (x y) (void)))
(define/public (file-menu:get-open-recent-item) file-menu:open-recent-item) (define/public (file-menu:get-open-recent-item) file-menu:open-recent-item)
(define/public (define/public (file-menu:open-recent-string) (string-constant open-recent-menu-item))
(file-menu:open-recent-string) (define/public (file-menu:open-recent-help-string) (string-constant open-recent-info))
(string-constant open-recent-menu-item)) (define/public file-menu:open-recent-on-demand (λ (menu) (handler:install-recent-items menu)))
(define/public
(file-menu:open-recent-help-string)
(string-constant open-recent-info))
(define/public
file-menu:open-recent-on-demand
(λ (menu) (handler:install-recent-items menu)))
(define/public (file-menu:create-open-recent?) #t) (define/public (file-menu:create-open-recent?) #t)
(define/public file-menu:between-open-and-revert (λ (menu) (void))) (define/public file-menu:between-open-and-revert (λ (menu) (void)))
(define/public file-menu:revert-callback (λ (item control) (void))) (define/public file-menu:revert-callback (λ (item control) (void)))
@ -226,12 +209,8 @@
(define/public (file-menu:create-save?) #f) (define/public (file-menu:create-save?) #f)
(define/public file-menu:save-as-callback (λ (item control) (void))) (define/public file-menu:save-as-callback (λ (item control) (void)))
(define/public (file-menu:get-save-as-item) file-menu:save-as-item) (define/public (file-menu:get-save-as-item) file-menu:save-as-item)
(define/public (define/public (file-menu:save-as-string) (string-constant save-as-menu-item))
(file-menu:save-as-string) (define/public (file-menu:save-as-help-string) (string-constant save-as-info))
(string-constant save-as-menu-item))
(define/public
(file-menu:save-as-help-string)
(string-constant save-as-info))
(define/public file-menu:save-as-on-demand (λ (menu-item) (void))) (define/public file-menu:save-as-on-demand (λ (menu-item) (void)))
(define/public (file-menu:create-save-as?) #f) (define/public (file-menu:create-save-as?) #f)
(define/public file-menu:between-save-as-and-print (λ (menu) (void))) (define/public file-menu:between-save-as-and-print (λ (menu) (void)))
@ -241,21 +220,15 @@
(define/public (file-menu:print-help-string) (string-constant print-info)) (define/public (file-menu:print-help-string) (string-constant print-info))
(define/public file-menu:print-on-demand (λ (menu-item) (void))) (define/public file-menu:print-on-demand (λ (menu-item) (void)))
(define/public (file-menu:create-print?) #f) (define/public (file-menu:create-print?) #f)
(define/public (define/public file-menu:between-print-and-close (λ (menu) (make-object separator-menu-item% menu)))
file-menu:between-print-and-close (define/public file-menu:close-callback (λ (item control) (when (can-close?) (on-close) (show #f)) #t))
(λ (menu) (make-object separator-menu-item% menu)))
(define/public
file-menu:close-callback
(λ (item control) (when (can-close?) (on-close) (show #f)) #t))
(define/public (file-menu:get-close-item) file-menu:close-item) (define/public (file-menu:get-close-item) file-menu:close-item)
(define/public (file-menu:close-string) (string-constant close-menu-item)) (define/public (file-menu:close-string) (string-constant close-menu-item))
(define/public (file-menu:close-help-string) (string-constant close-info)) (define/public (file-menu:close-help-string) (string-constant close-info))
(define/public file-menu:close-on-demand (λ (menu-item) (void))) (define/public file-menu:close-on-demand (λ (menu-item) (void)))
(define/public (file-menu:create-close?) #t) (define/public (file-menu:create-close?) #t)
(define/public file-menu:between-close-and-quit (λ (menu) (void))) (define/public file-menu:between-close-and-quit (λ (menu) (void)))
(define/public (define/public file-menu:quit-callback (λ (item control) (when (exit:user-oks-exit) (exit:exit))))
file-menu:quit-callback
(λ (item control) (when (exit:user-oks-exit) (exit:exit))))
(define/public (file-menu:get-quit-item) file-menu:quit-item) (define/public (file-menu:get-quit-item) file-menu:quit-item)
(define/public (define/public
(file-menu:quit-string) (file-menu:quit-string)
@ -264,16 +237,13 @@
(string-constant quit-menu-item-others))) (string-constant quit-menu-item-others)))
(define/public (file-menu:quit-help-string) (string-constant quit-info)) (define/public (file-menu:quit-help-string) (string-constant quit-info))
(define/public file-menu:quit-on-demand (λ (menu-item) (void))) (define/public file-menu:quit-on-demand (λ (menu-item) (void)))
(define/public (define/public (file-menu:create-quit?) (not (current-eventspace-has-standard-menus?)))
(file-menu:create-quit?)
(not (current-eventspace-has-standard-menus?)))
(define/public file-menu:after-quit (λ (menu) (void))) (define/public file-menu:after-quit (λ (menu) (void)))
(define/public (define/public
edit-menu:undo-callback edit-menu:undo-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'undo)))
(send edit do-edit-operation 'undo)))
#t)) #t))
(define/public (edit-menu:get-undo-item) edit-menu:undo-item) (define/public (edit-menu:get-undo-item) edit-menu:undo-item)
(define/public (edit-menu:undo-string) (string-constant undo-menu-item)) (define/public (edit-menu:undo-string) (string-constant undo-menu-item))
@ -282,18 +252,14 @@
edit-menu:undo-on-demand edit-menu:undo-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'undo))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'undo))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-undo?) #t) (define/public (edit-menu:create-undo?) #t)
(define/public (define/public
edit-menu:redo-callback edit-menu:redo-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'redo)))
(send edit do-edit-operation 'redo)))
#t)) #t))
(define/public (edit-menu:get-redo-item) edit-menu:redo-item) (define/public (edit-menu:get-redo-item) edit-menu:redo-item)
(define/public (edit-menu:redo-string) (string-constant redo-menu-item)) (define/public (edit-menu:redo-string) (string-constant redo-menu-item))
@ -302,21 +268,15 @@
edit-menu:redo-on-demand edit-menu:redo-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'redo))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'redo))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-redo?) #t) (define/public (edit-menu:create-redo?) #t)
(define/public (define/public edit-menu:between-redo-and-cut (λ (menu) (make-object separator-menu-item% menu)))
edit-menu:between-redo-and-cut
(λ (menu) (make-object separator-menu-item% menu)))
(define/public (define/public
edit-menu:cut-callback edit-menu:cut-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'cut)))
(send edit do-edit-operation 'cut)))
#t)) #t))
(define/public (edit-menu:get-cut-item) edit-menu:cut-item) (define/public (edit-menu:get-cut-item) edit-menu:cut-item)
(define/public (edit-menu:cut-string) (string-constant cut-menu-item)) (define/public (edit-menu:cut-string) (string-constant cut-menu-item))
@ -325,10 +285,7 @@
edit-menu:cut-on-demand edit-menu:cut-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'cut))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'cut))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-cut?) #t) (define/public (edit-menu:create-cut?) #t)
(define/public edit-menu:between-cut-and-copy (λ (menu) (void))) (define/public edit-menu:between-cut-and-copy (λ (menu) (void)))
@ -336,8 +293,7 @@
edit-menu:copy-callback edit-menu:copy-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'copy)))
(send edit do-edit-operation 'copy)))
#t)) #t))
(define/public (edit-menu:get-copy-item) edit-menu:copy-item) (define/public (edit-menu:get-copy-item) edit-menu:copy-item)
(define/public (edit-menu:copy-string) (string-constant copy-menu-item)) (define/public (edit-menu:copy-string) (string-constant copy-menu-item))
@ -346,10 +302,7 @@
edit-menu:copy-on-demand edit-menu:copy-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'copy))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'copy))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-copy?) #t) (define/public (edit-menu:create-copy?) #t)
(define/public edit-menu:between-copy-and-paste (λ (menu) (void))) (define/public edit-menu:between-copy-and-paste (λ (menu) (void)))
@ -357,8 +310,7 @@
edit-menu:paste-callback edit-menu:paste-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'paste)))
(send edit do-edit-operation 'paste)))
#t)) #t))
(define/public (edit-menu:get-paste-item) edit-menu:paste-item) (define/public (edit-menu:get-paste-item) edit-menu:paste-item)
(define/public (edit-menu:paste-string) (string-constant paste-menu-item)) (define/public (edit-menu:paste-string) (string-constant paste-menu-item))
@ -367,10 +319,7 @@
edit-menu:paste-on-demand edit-menu:paste-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'paste))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'paste))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-paste?) #t) (define/public (edit-menu:create-paste?) #t)
(define/public edit-menu:between-paste-and-clear (λ (menu) (void))) (define/public edit-menu:between-paste-and-clear (λ (menu) (void)))
@ -378,8 +327,7 @@
edit-menu:clear-callback edit-menu:clear-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'clear)))
(send edit do-edit-operation 'clear)))
#t)) #t))
(define/public (edit-menu:get-clear-item) edit-menu:clear-item) (define/public (edit-menu:get-clear-item) edit-menu:clear-item)
(define/public (define/public
@ -392,10 +340,7 @@
edit-menu:clear-on-demand edit-menu:clear-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'clear))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'clear))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-clear?) #t) (define/public (edit-menu:create-clear?) #t)
(define/public edit-menu:between-clear-and-select-all (λ (menu) (void))) (define/public edit-menu:between-clear-and-select-all (λ (menu) (void)))
@ -403,29 +348,19 @@
edit-menu:select-all-callback edit-menu:select-all-callback
(λ (menu evt) (λ (menu evt)
(let ((edit (get-edit-target-object))) (let ((edit (get-edit-target-object)))
(when (and edit (is-a? edit editor<%>)) (when (and edit (is-a? edit editor<%>)) (send edit do-edit-operation 'select-all)))
(send edit do-edit-operation 'select-all)))
#t)) #t))
(define/public (edit-menu:get-select-all-item) edit-menu:select-all-item) (define/public (edit-menu:get-select-all-item) edit-menu:select-all-item)
(define/public (define/public (edit-menu:select-all-string) (string-constant select-all-menu-item))
(edit-menu:select-all-string) (define/public (edit-menu:select-all-help-string) (string-constant select-all-info))
(string-constant select-all-menu-item))
(define/public
(edit-menu:select-all-help-string)
(string-constant select-all-info))
(define/public (define/public
edit-menu:select-all-on-demand edit-menu:select-all-on-demand
(λ (item) (λ (item)
(let* ((editor (get-edit-target-object)) (let* ((editor (get-edit-target-object))
(enable? (enable? (and editor (is-a? editor editor<%>) (send editor can-do-edit-operation? 'select-all))))
(and editor
(is-a? editor editor<%>)
(send editor can-do-edit-operation? 'select-all))))
(send item enable enable?)))) (send item enable enable?))))
(define/public (edit-menu:create-select-all?) #t) (define/public (edit-menu:create-select-all?) #t)
(define/public (define/public edit-menu:between-select-all-and-find (λ (menu) (make-object separator-menu-item% menu)))
edit-menu:between-select-all-and-find
(λ (menu) (make-object separator-menu-item% menu)))
(define/public edit-menu:find-callback (λ (item control) (void))) (define/public edit-menu:find-callback (λ (item control) (void)))
(define/public (edit-menu:get-find-item) edit-menu:find-item) (define/public (edit-menu:get-find-item) edit-menu:find-item)
(define/public (edit-menu:find-string) (string-constant find-menu-item)) (define/public (edit-menu:find-string) (string-constant find-menu-item))
@ -433,66 +368,35 @@
(define/public (define/public
edit-menu:find-on-demand edit-menu:find-on-demand
(λ (item) (λ (item)
(send item enable (send item enable (let ((target (get-edit-target-object))) (and target (is-a? target editor<%>))))))
(let
((target (get-edit-target-object)))
(and target (is-a? target editor<%>))))))
(define/public (edit-menu:create-find?) #f) (define/public (edit-menu:create-find?) #f)
(define/public edit-menu:find-again-callback (λ (item control) (void))) (define/public edit-menu:find-again-callback (λ (item control) (void)))
(define/public (edit-menu:get-find-again-item) edit-menu:find-again-item) (define/public (edit-menu:get-find-again-item) edit-menu:find-again-item)
(define/public (define/public (edit-menu:find-again-string) (string-constant find-again-menu-item))
(edit-menu:find-again-string) (define/public (edit-menu:find-again-help-string) (string-constant find-again-info))
(string-constant find-again-menu-item))
(define/public
(edit-menu:find-again-help-string)
(string-constant find-again-info))
(define/public (define/public
edit-menu:find-again-on-demand edit-menu:find-again-on-demand
(λ (item) (λ (item)
(send item enable (send item enable (let ((target (get-edit-target-object))) (and target (is-a? target editor<%>))))))
(let
((target (get-edit-target-object)))
(and target (is-a? target editor<%>))))))
(define/public (edit-menu:create-find-again?) #f) (define/public (edit-menu:create-find-again?) #f)
(define/public (define/public edit-menu:replace-and-find-again-callback (λ (item control) (void)))
edit-menu:replace-and-find-again-callback (define/public (edit-menu:get-replace-and-find-again-item) edit-menu:replace-and-find-again-item)
(λ (item control) (void))) (define/public (edit-menu:replace-and-find-again-string) (string-constant replace-and-find-again-menu-item))
(define/public (define/public (edit-menu:replace-and-find-again-help-string) (string-constant replace-and-find-again-info))
(edit-menu:get-replace-and-find-again-item)
edit-menu:replace-and-find-again-item)
(define/public
(edit-menu:replace-and-find-again-string)
(string-constant replace-and-find-again-menu-item))
(define/public
(edit-menu:replace-and-find-again-help-string)
(string-constant replace-and-find-again-info))
(define/public (define/public
edit-menu:replace-and-find-again-on-demand edit-menu:replace-and-find-again-on-demand
(λ (item) (λ (item)
(send item enable (send item enable (let ((target (get-edit-target-object))) (and target (is-a? target editor<%>))))))
(let
((target (get-edit-target-object)))
(and target (is-a? target editor<%>))))))
(define/public (edit-menu:create-replace-and-find-again?) #f) (define/public (edit-menu:create-replace-and-find-again?) #f)
(define/public (define/public
edit-menu:between-find-and-preferences edit-menu:between-find-and-preferences
(λ (menu) (λ (menu) (unless (current-eventspace-has-standard-menus?) (make-object separator-menu-item% menu))))
(unless (current-eventspace-has-standard-menus?) (define/public edit-menu:preferences-callback (λ (item control) (preferences:show-dialog) #t))
(make-object separator-menu-item% menu))))
(define/public
edit-menu:preferences-callback
(λ (item control) (preferences:show-dialog) #t))
(define/public (edit-menu:get-preferences-item) edit-menu:preferences-item) (define/public (edit-menu:get-preferences-item) edit-menu:preferences-item)
(define/public (define/public (edit-menu:preferences-string) (string-constant preferences-menu-item))
(edit-menu:preferences-string) (define/public (edit-menu:preferences-help-string) (string-constant preferences-info))
(string-constant preferences-menu-item))
(define/public
(edit-menu:preferences-help-string)
(string-constant preferences-info))
(define/public edit-menu:preferences-on-demand (λ (menu-item) (void))) (define/public edit-menu:preferences-on-demand (λ (menu-item) (void)))
(define/public (define/public (edit-menu:create-preferences?) (not (current-eventspace-has-standard-menus?)))
(edit-menu:create-preferences?)
(not (current-eventspace-has-standard-menus?)))
(define/public edit-menu:after-preferences (λ (menu) (void))) (define/public edit-menu:after-preferences (λ (menu) (void)))
(define/public help-menu:before-about (λ (menu) (void))) (define/public help-menu:before-about (λ (menu) (void)))
(define/public help-menu:about-callback (λ (item control) (void))) (define/public help-menu:about-callback (λ (item control) (void)))
@ -503,18 +407,9 @@
(define/public (help-menu:create-about?) #f) (define/public (help-menu:create-about?) #f)
(define/public help-menu:after-about (λ (menu) (void))) (define/public help-menu:after-about (λ (menu) (void)))
(super-instantiate ()) (super-instantiate ())
(define file-menu (define file-menu (make-object (get-menu%) (string-constant file-menu-label) (get-menu-bar)))
(make-object (get-menu%) (define edit-menu (make-object (get-menu%) (string-constant edit-menu-label) (get-menu-bar)))
(string-constant file-menu-label) (define help-menu (make-object (get-menu%) (string-constant help-menu-label) (get-menu-bar)))
(get-menu-bar)))
(define edit-menu
(make-object (get-menu%)
(string-constant edit-menu-label)
(get-menu-bar)))
(define help-menu
(make-object (get-menu%)
(string-constant help-menu-label)
(get-menu-bar)))
(define file-menu:new-item (define file-menu:new-item
(and (file-menu:create-new?) (and (file-menu:create-new?)
(new (new
@ -522,14 +417,12 @@
(label (file-menu:new-string)) (label (file-menu:new-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:new-callback (let ((file-menu:new-callback (λ (item evt) (file-menu:new-callback item evt))))
(λ (item evt) (file-menu:new-callback item evt))))
file-menu:new-callback)) file-menu:new-callback))
(shortcut #\n) (shortcut #\n)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:new-help-string)) (help-string (file-menu:new-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:new-on-demand menu-item))))))
(λ (menu-item) (file-menu:new-on-demand menu-item))))))
(file-menu:between-new-and-open (get-file-menu)) (file-menu:between-new-and-open (get-file-menu))
(define file-menu:open-item (define file-menu:open-item
(and (file-menu:create-open?) (and (file-menu:create-open?)
@ -538,14 +431,12 @@
(label (file-menu:open-string)) (label (file-menu:open-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:open-callback (let ((file-menu:open-callback (λ (item evt) (file-menu:open-callback item evt))))
(λ (item evt) (file-menu:open-callback item evt))))
file-menu:open-callback)) file-menu:open-callback))
(shortcut #\o) (shortcut #\o)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:open-help-string)) (help-string (file-menu:open-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:open-on-demand menu-item))))))
(λ (menu-item) (file-menu:open-on-demand menu-item))))))
(define file-menu:open-recent-item (define file-menu:open-recent-item
(and (file-menu:create-open-recent?) (and (file-menu:create-open-recent?)
(new (new
@ -553,8 +444,7 @@
(label (file-menu:open-recent-string)) (label (file-menu:open-recent-string))
(parent file-menu) (parent file-menu)
(help-string (file-menu:open-recent-help-string)) (help-string (file-menu:open-recent-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:open-recent-on-demand menu-item))))))
(λ (menu-item) (file-menu:open-recent-on-demand menu-item))))))
(file-menu:between-open-and-revert (get-file-menu)) (file-menu:between-open-and-revert (get-file-menu))
(define file-menu:revert-item (define file-menu:revert-item
(and (file-menu:create-revert?) (and (file-menu:create-revert?)
@ -563,14 +453,12 @@
(label (file-menu:revert-string)) (label (file-menu:revert-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:revert-callback (let ((file-menu:revert-callback (λ (item evt) (file-menu:revert-callback item evt))))
(λ (item evt) (file-menu:revert-callback item evt))))
file-menu:revert-callback)) file-menu:revert-callback))
(shortcut #f) (shortcut #f)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:revert-help-string)) (help-string (file-menu:revert-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:revert-on-demand menu-item))))))
(λ (menu-item) (file-menu:revert-on-demand menu-item))))))
(file-menu:between-revert-and-save (get-file-menu)) (file-menu:between-revert-and-save (get-file-menu))
(define file-menu:save-item (define file-menu:save-item
(and (file-menu:create-save?) (and (file-menu:create-save?)
@ -579,14 +467,12 @@
(label (file-menu:save-string)) (label (file-menu:save-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:save-callback (let ((file-menu:save-callback (λ (item evt) (file-menu:save-callback item evt))))
(λ (item evt) (file-menu:save-callback item evt))))
file-menu:save-callback)) file-menu:save-callback))
(shortcut #\s) (shortcut #\s)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:save-help-string)) (help-string (file-menu:save-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:save-on-demand menu-item))))))
(λ (menu-item) (file-menu:save-on-demand menu-item))))))
(define file-menu:save-as-item (define file-menu:save-as-item
(and (file-menu:create-save-as?) (and (file-menu:create-save-as?)
(new (new
@ -594,14 +480,12 @@
(label (file-menu:save-as-string)) (label (file-menu:save-as-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:save-as-callback (let ((file-menu:save-as-callback (λ (item evt) (file-menu:save-as-callback item evt))))
(λ (item evt) (file-menu:save-as-callback item evt))))
file-menu:save-as-callback)) file-menu:save-as-callback))
(shortcut #f) (shortcut #f)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:save-as-help-string)) (help-string (file-menu:save-as-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:save-as-on-demand menu-item))))))
(λ (menu-item) (file-menu:save-as-on-demand menu-item))))))
(file-menu:between-save-as-and-print (get-file-menu)) (file-menu:between-save-as-and-print (get-file-menu))
(define file-menu:print-item (define file-menu:print-item
(and (file-menu:create-print?) (and (file-menu:create-print?)
@ -610,14 +494,12 @@
(label (file-menu:print-string)) (label (file-menu:print-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:print-callback (let ((file-menu:print-callback (λ (item evt) (file-menu:print-callback item evt))))
(λ (item evt) (file-menu:print-callback item evt))))
file-menu:print-callback)) file-menu:print-callback))
(shortcut #\p) (shortcut #\p)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:print-help-string)) (help-string (file-menu:print-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:print-on-demand menu-item))))))
(λ (menu-item) (file-menu:print-on-demand menu-item))))))
(file-menu:between-print-and-close (get-file-menu)) (file-menu:between-print-and-close (get-file-menu))
(define file-menu:close-item (define file-menu:close-item
(and (file-menu:create-close?) (and (file-menu:create-close?)
@ -626,14 +508,12 @@
(label (file-menu:close-string)) (label (file-menu:close-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:close-callback (let ((file-menu:close-callback (λ (item evt) (file-menu:close-callback item evt))))
(λ (item evt) (file-menu:close-callback item evt))))
file-menu:close-callback)) file-menu:close-callback))
(shortcut #\w) (shortcut #\w)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:close-help-string)) (help-string (file-menu:close-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:close-on-demand menu-item))))))
(λ (menu-item) (file-menu:close-on-demand menu-item))))))
(file-menu:between-close-and-quit (get-file-menu)) (file-menu:between-close-and-quit (get-file-menu))
(define file-menu:quit-item (define file-menu:quit-item
(and (file-menu:create-quit?) (and (file-menu:create-quit?)
@ -642,14 +522,12 @@
(label (file-menu:quit-string)) (label (file-menu:quit-string))
(parent file-menu) (parent file-menu)
(callback (callback
(let ((file-menu:quit-callback (let ((file-menu:quit-callback (λ (item evt) (file-menu:quit-callback item evt))))
(λ (item evt) (file-menu:quit-callback item evt))))
file-menu:quit-callback)) file-menu:quit-callback))
(shortcut #\q) (shortcut #\q)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (file-menu:quit-help-string)) (help-string (file-menu:quit-help-string))
(demand-callback (demand-callback (λ (menu-item) (file-menu:quit-on-demand menu-item))))))
(λ (menu-item) (file-menu:quit-on-demand menu-item))))))
(file-menu:after-quit (get-file-menu)) (file-menu:after-quit (get-file-menu))
(define edit-menu:undo-item (define edit-menu:undo-item
(and (edit-menu:create-undo?) (and (edit-menu:create-undo?)
@ -658,14 +536,12 @@
(label (edit-menu:undo-string)) (label (edit-menu:undo-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:undo-callback (let ((edit-menu:undo-callback (λ (item evt) (edit-menu:undo-callback item evt))))
(λ (item evt) (edit-menu:undo-callback item evt))))
edit-menu:undo-callback)) edit-menu:undo-callback))
(shortcut #\z) (shortcut #\z)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:undo-help-string)) (help-string (edit-menu:undo-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:undo-on-demand menu-item))))))
(λ (menu-item) (edit-menu:undo-on-demand menu-item))))))
(define edit-menu:redo-item (define edit-menu:redo-item
(and (edit-menu:create-redo?) (and (edit-menu:create-redo?)
(new (new
@ -673,17 +549,15 @@
(label (edit-menu:redo-string)) (label (edit-menu:redo-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:redo-callback (let ((edit-menu:redo-callback (λ (item evt) (edit-menu:redo-callback item evt))))
(λ (item evt) (edit-menu:redo-callback item evt))))
edit-menu:redo-callback)) edit-menu:redo-callback))
(shortcut (if (eq? (system-type) 'macosx) #\z #\y)) (shortcut (if (eq? (system-type) 'windows) #\y #\z))
(shortcut-prefix (shortcut-prefix
(if (eq? (system-type) 'macosx) (if (eq? (system-type) 'windows)
(cons 'shift (get-default-shortcut-prefix)) (get-default-shortcut-prefix)
(get-default-shortcut-prefix))) (cons 'shift (get-default-shortcut-prefix))))
(help-string (edit-menu:redo-help-string)) (help-string (edit-menu:redo-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:redo-on-demand menu-item))))))
(λ (menu-item) (edit-menu:redo-on-demand menu-item))))))
(edit-menu:between-redo-and-cut (get-edit-menu)) (edit-menu:between-redo-and-cut (get-edit-menu))
(define edit-menu:cut-item (define edit-menu:cut-item
(and (edit-menu:create-cut?) (and (edit-menu:create-cut?)
@ -692,14 +566,12 @@
(label (edit-menu:cut-string)) (label (edit-menu:cut-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:cut-callback (let ((edit-menu:cut-callback (λ (item evt) (edit-menu:cut-callback item evt))))
(λ (item evt) (edit-menu:cut-callback item evt))))
edit-menu:cut-callback)) edit-menu:cut-callback))
(shortcut #\x) (shortcut #\x)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:cut-help-string)) (help-string (edit-menu:cut-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:cut-on-demand menu-item))))))
(λ (menu-item) (edit-menu:cut-on-demand menu-item))))))
(edit-menu:between-cut-and-copy (get-edit-menu)) (edit-menu:between-cut-and-copy (get-edit-menu))
(define edit-menu:copy-item (define edit-menu:copy-item
(and (edit-menu:create-copy?) (and (edit-menu:create-copy?)
@ -708,14 +580,12 @@
(label (edit-menu:copy-string)) (label (edit-menu:copy-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:copy-callback (let ((edit-menu:copy-callback (λ (item evt) (edit-menu:copy-callback item evt))))
(λ (item evt) (edit-menu:copy-callback item evt))))
edit-menu:copy-callback)) edit-menu:copy-callback))
(shortcut #\c) (shortcut #\c)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:copy-help-string)) (help-string (edit-menu:copy-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:copy-on-demand menu-item))))))
(λ (menu-item) (edit-menu:copy-on-demand menu-item))))))
(edit-menu:between-copy-and-paste (get-edit-menu)) (edit-menu:between-copy-and-paste (get-edit-menu))
(define edit-menu:paste-item (define edit-menu:paste-item
(and (edit-menu:create-paste?) (and (edit-menu:create-paste?)
@ -724,14 +594,12 @@
(label (edit-menu:paste-string)) (label (edit-menu:paste-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:paste-callback (let ((edit-menu:paste-callback (λ (item evt) (edit-menu:paste-callback item evt))))
(λ (item evt) (edit-menu:paste-callback item evt))))
edit-menu:paste-callback)) edit-menu:paste-callback))
(shortcut #\v) (shortcut #\v)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:paste-help-string)) (help-string (edit-menu:paste-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:paste-on-demand menu-item))))))
(λ (menu-item) (edit-menu:paste-on-demand menu-item))))))
(edit-menu:between-paste-and-clear (get-edit-menu)) (edit-menu:between-paste-and-clear (get-edit-menu))
(define edit-menu:clear-item (define edit-menu:clear-item
(and (edit-menu:create-clear?) (and (edit-menu:create-clear?)
@ -740,14 +608,12 @@
(label (edit-menu:clear-string)) (label (edit-menu:clear-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:clear-callback (let ((edit-menu:clear-callback (λ (item evt) (edit-menu:clear-callback item evt))))
(λ (item evt) (edit-menu:clear-callback item evt))))
edit-menu:clear-callback)) edit-menu:clear-callback))
(shortcut #f) (shortcut #f)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:clear-help-string)) (help-string (edit-menu:clear-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:clear-on-demand menu-item))))))
(λ (menu-item) (edit-menu:clear-on-demand menu-item))))))
(edit-menu:between-clear-and-select-all (get-edit-menu)) (edit-menu:between-clear-and-select-all (get-edit-menu))
(define edit-menu:select-all-item (define edit-menu:select-all-item
(and (edit-menu:create-select-all?) (and (edit-menu:create-select-all?)
@ -756,14 +622,12 @@
(label (edit-menu:select-all-string)) (label (edit-menu:select-all-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:select-all-callback (let ((edit-menu:select-all-callback (λ (item evt) (edit-menu:select-all-callback item evt))))
(λ (item evt) (edit-menu:select-all-callback item evt))))
edit-menu:select-all-callback)) edit-menu:select-all-callback))
(shortcut #\a) (shortcut #\a)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:select-all-help-string)) (help-string (edit-menu:select-all-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:select-all-on-demand menu-item))))))
(λ (menu-item) (edit-menu:select-all-on-demand menu-item))))))
(edit-menu:between-select-all-and-find (get-edit-menu)) (edit-menu:between-select-all-and-find (get-edit-menu))
(define edit-menu:find-item (define edit-menu:find-item
(and (edit-menu:create-find?) (and (edit-menu:create-find?)
@ -772,14 +636,12 @@
(label (edit-menu:find-string)) (label (edit-menu:find-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:find-callback (let ((edit-menu:find-callback (λ (item evt) (edit-menu:find-callback item evt))))
(λ (item evt) (edit-menu:find-callback item evt))))
edit-menu:find-callback)) edit-menu:find-callback))
(shortcut #\f) (shortcut #\f)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:find-help-string)) (help-string (edit-menu:find-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:find-on-demand menu-item))))))
(λ (menu-item) (edit-menu:find-on-demand menu-item))))))
(define edit-menu:find-again-item (define edit-menu:find-again-item
(and (edit-menu:create-find-again?) (and (edit-menu:create-find-again?)
(new (new
@ -787,14 +649,12 @@
(label (edit-menu:find-again-string)) (label (edit-menu:find-again-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:find-again-callback (let ((edit-menu:find-again-callback (λ (item evt) (edit-menu:find-again-callback item evt))))
(λ (item evt) (edit-menu:find-again-callback item evt))))
edit-menu:find-again-callback)) edit-menu:find-again-callback))
(shortcut #\g) (shortcut #\g)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:find-again-help-string)) (help-string (edit-menu:find-again-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:find-again-on-demand menu-item))))))
(λ (menu-item) (edit-menu:find-again-on-demand menu-item))))))
(define edit-menu:replace-and-find-again-item (define edit-menu:replace-and-find-again-item
(and (edit-menu:create-replace-and-find-again?) (and (edit-menu:create-replace-and-find-again?)
(new (new
@ -803,15 +663,12 @@
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:replace-and-find-again-callback (let ((edit-menu:replace-and-find-again-callback
(λ (item evt) (λ (item evt) (edit-menu:replace-and-find-again-callback item evt))))
(edit-menu:replace-and-find-again-callback item evt))))
edit-menu:replace-and-find-again-callback)) edit-menu:replace-and-find-again-callback))
(shortcut (if (eq? (system-type) 'macosx) #f #\h)) (shortcut (if (eq? (system-type) 'macosx) #f #\h))
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:replace-and-find-again-help-string)) (help-string (edit-menu:replace-and-find-again-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:replace-and-find-again-on-demand menu-item))))))
(λ (menu-item)
(edit-menu:replace-and-find-again-on-demand menu-item))))))
(edit-menu:between-find-and-preferences (get-edit-menu)) (edit-menu:between-find-and-preferences (get-edit-menu))
(define edit-menu:preferences-item (define edit-menu:preferences-item
(and (edit-menu:create-preferences?) (and (edit-menu:create-preferences?)
@ -820,14 +677,12 @@
(label (edit-menu:preferences-string)) (label (edit-menu:preferences-string))
(parent edit-menu) (parent edit-menu)
(callback (callback
(let ((edit-menu:preferences-callback (let ((edit-menu:preferences-callback (λ (item evt) (edit-menu:preferences-callback item evt))))
(λ (item evt) (edit-menu:preferences-callback item evt))))
edit-menu:preferences-callback)) edit-menu:preferences-callback))
(shortcut (case (system-type) ((macosx) #\,) (else #\;))) (shortcut (case (system-type) ((macosx) #\,) (else #\;)))
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (edit-menu:preferences-help-string)) (help-string (edit-menu:preferences-help-string))
(demand-callback (demand-callback (λ (menu-item) (edit-menu:preferences-on-demand menu-item))))))
(λ (menu-item) (edit-menu:preferences-on-demand menu-item))))))
(edit-menu:after-preferences (get-edit-menu)) (edit-menu:after-preferences (get-edit-menu))
(help-menu:before-about (get-help-menu)) (help-menu:before-about (get-help-menu))
(define help-menu:about-item (define help-menu:about-item
@ -837,13 +692,11 @@
(label (help-menu:about-string)) (label (help-menu:about-string))
(parent help-menu) (parent help-menu)
(callback (callback
(let ((help-menu:about-callback (let ((help-menu:about-callback (λ (item evt) (help-menu:about-callback item evt))))
(λ (item evt) (help-menu:about-callback item evt))))
help-menu:about-callback)) help-menu:about-callback))
(shortcut #f) (shortcut #f)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (get-default-shortcut-prefix))
(help-string (help-menu:about-help-string)) (help-string (help-menu:about-help-string))
(demand-callback (demand-callback (λ (menu-item) (help-menu:about-on-demand menu-item))))))
(λ (menu-item) (help-menu:about-on-demand menu-item))))))
(help-menu:after-about (get-help-menu)) (help-menu:after-about (get-help-menu))
(reorder-menus this))) (reorder-menus this)))