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

uses system-position-ok-before-cancel? now

Browse Source 
svn: r12754

original commit: 41d0609ad2ee358ba3bfb8d903a45edd20f50073
This commit is contained in:
Robby Findler 2008-12-09 18:06:03 +00:00
parent dc41bf0a45
commit ad1172bde8
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/gui-utils.ss
View File

@ -110,7 +110,7 @@
;; end choices-canvas% ;; end choices-canvas%
(define (cancel-on-right?) (eq? (system-type) 'windows)) (define (cancel-on-right?) (system-position-ok-before-cancel?))
(define ok/cancel-buttons (define ok/cancel-buttons
(lambda (parent (lambda (parent
@ -334,6 +334,8 @@
@{Returns @scheme[#t] if cancel should be on the right-hand side (or below) @{Returns @scheme[#t] if cancel should be on the right-hand side (or below)
in a dialog and @scheme[#f] otherwise. in a dialog and @scheme[#f] otherwise.
Just returns what @scheme[system-position-ok-before-cancel?] does.
See also @scheme[gui-utils:ok/cancel-buttons].}) See also @scheme[gui-utils:ok/cancel-buttons].})
(proc-doc/names (proc-doc/names
gui-utils:ok/cancel-buttons gui-utils:ok/cancel-buttons