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

slideshow: tame use of fullscreen mode

Browse Source 
Closes PR 11490, hopefully
This commit is contained in:
Matthew Flatt 2010-12-08 18:39:31 -07:00
parent 5f73c361ef
commit aee9f41d53
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/slideshow/viewer.rkt
View File

@ -414,6 +414,12 @@
(values 0 0) (values 0 0)
(get-display-left-top-inset))) (get-display-left-top-inset)))
(define fullscreen?
(and (not config:keep-titlebar?)
(let-values ([(w h) (get-display-size #t)])
(and (= config:actual-screen-w w)
(= config:actual-screen-h h)))))
(define background-f (define background-f
(make-object (class frame% (make-object (class frame%
(inherit is-shown?) (inherit is-shown?)
@ -425,7 +431,9 @@
[x (- screen-left-inset)] [y (- screen-top-inset)] [x (- screen-left-inset)] [y (- screen-top-inset)]
[width (inexact->exact (floor config:actual-screen-w))] [width (inexact->exact (floor config:actual-screen-w))]
[height (inexact->exact (floor config:actual-screen-h))] [height (inexact->exact (floor config:actual-screen-h))]
[style '(no-caption no-resize-border hide-menu-bar)])))) [style (append
(if fullscreen? '(hide-menu-bar) null)
'(no-caption no-resize-border))]))))
(send background-f enable #f) (send background-f enable #f)
@ -440,7 +448,9 @@
[height (inexact->exact (floor config:actual-screen-h))] [height (inexact->exact (floor config:actual-screen-h))]
[style (if config:keep-titlebar? [style (if config:keep-titlebar?
null null
'(no-caption no-resize-border hide-menu-bar))])) (append
(if fullscreen? '(hide-menu-bar) null)
'(no-caption no-resize-border)))]))
(define f-both (new talk-frame% (define f-both (new talk-frame%
[closeable? #t] [closeable? #t]