"half-screen" -> "right-half-screen".

(I don't know why this was needed, but calling it "half-screen" looks
like it's asking for future trouble.)
This commit is contained in:
Eli Barzilay 2011-10-10 13:35:00 -04:00
parent e9db4df6c3
commit ca64179b63
3 changed files with 6 additions and 6 deletions

View File

@ -44,7 +44,7 @@
(define print-target #f)
(define smoothing? #t)
(define screen-number 0)
(define half-screen? #f)
(define right-half-screen? #f)
(define init-page 0)
@ -122,8 +122,8 @@
(set! use-prefetch-in-preview? #t))
(("--keep-titlebar") "give the slide window a title bar and resize border"
(set! keep-titlebar? #t))
(("--half-screen") "display slides on right half of the screen"
(set! half-screen? #t)
(("--right-half-screen") "display slides on right half of the screen"
(set! right-half-screen? #t)
(set! keep-titlebar? #t)
(set! actual-screen-w (/ actual-screen-w 2)))
(("--comment") "display commentary in window"

View File

@ -99,7 +99,7 @@
trust-me?
quad-view?
keep-titlebar?
half-screen?
right-half-screen?
two-frames?
use-prefetch?
use-prefetch-in-preview?

View File

@ -414,7 +414,7 @@
(values 0 0)
(get-display-left-top-inset #:monitor config:screen-number)))
(when config:half-screen?
(when config:right-half-screen?
(set! screen-left-inset (- screen-left-inset config:actual-screen-w)))
(define fullscreen?