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

adjust the close/close window/close tab menu items to be more like other apps on the various platforms

Browse Source 
original commit: 49dbb5d963e7b7a21235b0a9ef3935cb08a980e0
This commit is contained in:
Robby Findler 2011-09-01 10:52:17 -05:00
parent 03c59f6df9
commit 9427dc1b12
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/standard-menus-items.rkt
View File

@ -265,7 +265,9 @@
'(λ (item control) (when (can-close?) (on-close) (show #f)) #t)
#\w
'(get-default-shortcut-prefix)
'(string-constant close-menu-item)
'(if (eq? (system-type) 'linux)
(string-constant close-menu-item)
(string-constant close-window-menu-item))
on-demand-do-nothing
#t)
(make-between 'file-menu 'close 'quit 'nothing)