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

gtk: `get-display-size' reports main monitor only

Browse Source 
and the same for `get-display-left-top-inset'
This commit is contained in:
Matthew Flatt 2011-07-18 16:55:25 -06:00
parent 25329c203c
commit b096fb7503
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/mred/private/wx/gtk/frame.rkt
View File

@ -487,11 +487,23 @@
(define-gdk gdk_screen_get_width (_fun _GdkScreen -> _int))
(define-gdk gdk_screen_get_height (_fun _GdkScreen -> _int))
(define (display-origin x y all?) (set-box! x 0) (set-box! y 0))
(define-gdk gdk_screen_get_monitor_geometry (_fun _GdkScreen _int _GdkRectangle-pointer -> _void))
(define (monitor-rect num)
(let ([s (gdk_screen_get_default)]
[r (make-GdkRectangle 0 0 0 0)])
(gdk_screen_get_monitor_geometry s num r)
r))
(define (display-origin x y all?)
(let ([r (monitor-rect 0)])
(set-box! x (GdkRectangle-x r))
(set-box! y (GdkRectangle-y r))))
(define (display-size w h all?)
(let ([s (gdk_screen_get_default)])
(set-box! w (gdk_screen_get_width s))
(set-box! h (gdk_screen_get_height s))))
(let ([r (monitor-rect 0)])
(set-box! w (GdkRectangle-width r))
(set-box! h (GdkRectangle-height r))))
(define (location->window x y)
(for/or ([f (in-hash-keys all-frames)])