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

no message

Browse Source 
original commit: e17e9e764dc5804a0b48e2ab2aff934fd3928fdd
This commit is contained in:
Robby Findler 2001-05-18 19:10:50 +00:00
parent 641757ffa8
commit 118e692b3f
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/framework/private/frame.ss
View File

@ -732,16 +732,20 @@
"Error Reverting"
(format "could not read ~a" filename)))))))
#t))]
[file-menu:create-revert? (lambda () #t)]
[file-menu:save-callback (lambda (item control)
(send (get-editor) save-file)
#t)]
[file-menu:create-save? (lambda () #t)]
[file-menu:save-as-callback (lambda (item control) (save-as) #t)]
[file-menu:create-save-as? (lambda () #t)]
[file-menu:print-callback (lambda (item control)
(send (get-editor) print
#t
#t
(preferences:get 'framework:print-output-mode))
#t)])
#t)]
[file-menu:create-print? (lambda () #t)])
(private
[edit-menu:do (lambda (const)
@ -807,7 +811,8 @@
(lambda (menu evt)
(message-box (application:current-app-name)
(format "Welcome to ~a" (application:current-app-name))))]
[help-menu:about-string (lambda () (application:current-app-name))])
[help-menu:about-string (lambda () (application:current-app-name))]
[help-menu:create-about? (lambda () #t)])
(sequence
(apply super-init
@ -1250,10 +1255,13 @@
[super-root 'unitiaialized-super-root])
(override
[edit-menu:find-callback (lambda (menu evt) (move-to-search-or-search) #t)]
[edit-menu:create-find? (lambda () #t)]
[edit-menu:find-again-callback (lambda (menu evt) (search-again) #t)]
[edit-menu:create-find-again? (lambda () #t)]
[edit-menu:replace-and-find-again-callback (lambda (menu evt) (replace&search) #t)]
[edit-menu:replace-and-find-again-on-demand
(lambda (item) (send item enable (can-replace?)))])
(lambda (item) (send item enable (can-replace?)))]
[edit-menu:create-replace-and-find-again? (lambda () #t)])
(override
[make-root-area-container
(lambda (% parent)