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

...

Browse Source 
original commit: 5eb2537402938d76730e03632ab0f4b0a29087ce
This commit is contained in:
Robby Findler 2000-09-21 02:41:42 +00:00
parent ce3ca75aa3
commit 382bb3331b
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
collects/framework/frame.ss
View File

@ -570,7 +570,9 @@
make-editor make-editor
save-as save-as
get-canvas get-canvas
get-editor)) get-editor
add-edit-menu-snip-items))
(define editor-mixin (define editor-mixin
(mixin (standard-menus<%>) (-editor<%>) (mixin (standard-menus<%>) (-editor<%>)
@ -711,24 +713,30 @@
(send edit do-edit-operation const))) (send edit do-edit-operation const)))
#t))]) #t))])
(public
[add-edit-menu-snip-items
(lambda (edit-menu)
(let ([c% (class (get-menu-item%) args
(inherit enable)
(rename [super-on-demand on-demand])
(override
[on-demand
(lambda ()
(let ([edit (get-edit-target-object)])
(enable (and edit (is-a? edit editor<%>)))))])
(sequence (apply super-init args)))])
(make-object c% "Insert Text Box" edit-menu (edit-menu:do 'insert-text-box))
(make-object c% "Insert Pasteboard Box" edit-menu (edit-menu:do 'insert-pasteboard-box))
(make-object c% "Insert Image..." edit-menu (edit-menu:do 'insert-image))))])
(override (override
[edit-menu:between-select-all-and-find [edit-menu:between-select-all-and-find
(lambda (edit-menu) (lambda (edit-menu)
(make-object separator-menu-item% edit-menu) (make-object separator-menu-item% edit-menu)
(let ([c% (class (get-menu-item%) args (add-edit-menu-snip-items edit-menu)
(inherit enable)
(rename [super-on-demand on-demand])
(override
[on-demand
(lambda ()
(let ([edit (get-edit-target-object)])
(enable (and edit (is-a? edit editor<%>)))))])
(sequence (apply super-init args)))])
(make-object c% "Insert Text Box" edit-menu (edit-menu:do 'insert-text-box))
(make-object c% "Insert Pasteboard Box" edit-menu (edit-menu:do 'insert-pasteboard-box))
(make-object c% "Insert Image..." edit-menu (edit-menu:do 'insert-image)))
(let* ([c% (class (get-checkable-menu-item%) args (let* ([c% (class (get-checkable-menu-item%) args
(rename [super-on-demand on-demand]) (rename [super-on-demand on-demand])