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

no message

Browse Source 
original commit: b51fb9ba8bc539dc4115d3c8ab62ee33b24ce094
This commit is contained in:
Robby Findler 2001-04-12 16:31:30 +00:00
parent 319fc109f9
commit 789900eaef
2 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -119,14 +119,14 @@
,@(apply append (map
(lambda (x)
(cond
[(an-item? x) (map (lambda (f) (f x))
(list
an-item->callback-name
an-item->get-item-name
an-item->string-name
an-item->help-string-name
an-item->on-demand-name
an-item->create-menu-item-name))]
[(an-item? x)
(list
(an-item->callback-name x)
(an-item->get-item-name x)
(an-item->string-name x)
(an-item->help-string-name x)
(an-item->on-demand-name x)
(an-item->create-menu-item-name x))]
[(between? x) (list (between->name x))]
[(or (after? x) (before? x))
(list (before/after->name x))]

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

@ -130,6 +130,8 @@
(let ([target (get-edit-target-object)])
(and target (is-a? target editor<%>))))))
(define on-demand-do-nothing '(lambda (menu-item) (void)))
(define items
(list (make-generic-override
'on-close
@ -218,37 +220,37 @@
(make-an-item 'file-menu 'new "Open a new file"
'(lambda (item control) (handler:edit-file #f) #t)
#\n "&New" ""
'(lambda () (void)))
on-demand-do-nothing)
(make-between 'file-menu 'new 'open 'nothing)
(make-an-item 'file-menu 'open "Open a file from disk"
'(lambda (item control) (handler:open-file) #t)
#\o "&Open" "..."
'(lambda () (void)))
on-demand-do-nothing)
(make-between 'file-menu 'open 'revert 'nothing)
(make-an-item 'file-menu 'revert
"Revert this file to the copy on disk"
#f #f "&Revert" ""
'(lambda () (void)))
on-demand-do-nothing)
(make-between 'file-menu 'revert 'save 'nothing)
(make-an-item 'file-menu 'save
"Save this file to disk"
#f #\s "&Save" ""
'(lambda () (void)))
on-demand-do-nothing)
(make-an-item 'file-menu 'save-as
"Prompt for a filename and save this file to disk"
#f #f "Save" " &As..."
'(lambda () (void)))
on-demand-do-nothing)
(make-between 'file-menu 'save-as 'print 'separator)
(make-an-item 'file-menu 'print
"Print this file"
#f #\p "&Print" "..."
'(lambda () (void)))
on-demand-do-nothing)
(make-between 'file-menu 'print 'close 'separator)
(make-an-item 'file-menu 'close
"Close this file"
'(lambda (item control) (when (can-close?) (on-close) (show #f)) #t)
#\w "&Close" ""
'(lambda () (void)))
on-demand-do-nothing)
(make-between 'file-menu 'close 'quit 'nothing)
(make-an-item 'file-menu 'quit
"Quit"
@ -256,7 +258,7 @@
#\q
'(if (eq? (system-type) 'windows) "E&xit" "Quit")
""
'(lambda () (void)))
on-demand-do-nothing)
(make-after 'file-menu 'quit 'nothing)
(make-an-item 'edit-menu 'undo "Undo the most recent action"
@ -311,7 +313,7 @@
(make-an-item 'edit-menu 'preferences "Configure the preferences"
'(lambda (item control) (preferences:show-dialog) #t)
#f "Preferences..." ""
'(lambda () (void)))
on-demand-do-nothing)
(make-after 'edit-menu 'preferences 'nothing)
(make-before 'help-menu 'about 'nothing)
@ -320,5 +322,5 @@
#f
"About "
"..."
'(lambda () (void)))
on-demand-do-nothing)
(make-after 'help-menu 'about 'nothing))))