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

..

Browse Source 
original commit: 1b119792dba1b33fbcd2336b771e56433bcf2181
This commit is contained in:
Robby Findler 2002-08-23 22:50:49 +00:00
parent e820f3512e
commit f23826dd04
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -130,7 +130,7 @@
(mixin ((class->interface frame%)) (basic<%>)
(define/override (can-exit?) (exit:can-exit?))
(define/override (on-exit) (exit:exit #t))
(define/override (on-exit) (exit:on-exit) (exit))
(rename [super-can-close? can-close?]
[super-on-close on-close]

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

@ -35,9 +35,9 @@
,(case (-procedure obj)
[(nothing) '(lambda (menu) (void))]
[(separator) '(lambda (menu) (make-object separator-menu-item% menu))]
[(nothing-on-macosx)
[(nothing-with-standard-menus)
'(lambda (menu)
(unless (eq? (system-type) 'macosx)
(unless (current-eventspace-has-standard-menus?)
(make-object separator-menu-item% menu)))]
[else (error 'gen-standard-menus "unknown between sym: ~e" (-procedure obj))])]))))

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

@ -282,7 +282,7 @@
(string-constant quit-menu-item-windows)
(string-constant quit-menu-item-others))
on-demand-do-nothing
'(not (eq? (system-type) 'macosx)))
'(not (current-eventspace-has-standard-menus?)))
(make-after 'file-menu 'quit 'nothing)
(make-an-item 'edit-menu 'undo
@ -364,15 +364,14 @@
edit-menu:edit-target-on-demand
#f)
(make-between 'edit-menu 'find 'preferences
'nothing-on-macosx)
(make-between 'edit-menu 'find 'preferences 'nothing-with-standard-menus)
(make-an-item 'edit-menu 'preferences
'(string-constant preferences-info)
'(lambda (item control) (preferences:show-dialog) #t)
#\;
'(string-constant preferences-menu-item)
on-demand-do-nothing
'(not (eq? (system-type) 'macosx)))
'(not (current-eventspace-has-standard-menus?)))
(make-after 'edit-menu 'preferences 'nothing)
(make-before 'help-menu 'about 'nothing)