misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use exact-nonnegative-integer for better backawrd compatibility.

This commit is contained in:
Metaxal 2017-09-02 10:14:44 +01:00 committed by Jay McCarthy
parent 7844e92817
commit a9aaabd388
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
chaos/gui/utils.rkt
View File

@ -1,7 +1,7 @@
#lang racket/gui #lang racket/gui
(require racket/contract/base) (require racket/contract/base)
(define nnint? nonnegative-integer?) (define nnint? exact-nonnegative-integer?)
(provide (provide
(contract-out (contract-out
[get-mouse-x/y [get-mouse-x/y
@ -104,12 +104,12 @@
(module+ drracket (module+ drracket
(define n-displays (get-display-count)) (define n-displays (get-display-count))
#;(for/list ([d (in-range n-displays)]) (for/list ([d (in-range n-displays)])
(define-values (x y) (define-values (x y)
(get-display-left-top-inset #:monitor d)) (get-display-left-top-inset #:monitor d))
(define-values (w h) (define-values (w h)
(get-display-size #:monitor d)) (get-display-size #:monitor d))
(vars->assoc d x y w h)) (list d x y w h))
(define fr (define fr
(new frame% (new frame%
@ -129,6 +129,6 @@
#:monitor monitor)) #:monitor monitor))
(send fr set-label (format "~a, ~a(~a), ~a(~a)" monitor xx x yy y)) (send fr set-label (format "~a, ~a(~a), ~a(~a)" monitor xx x yy y))
(send fr move x y) (send fr move x y)
(sleep/yield 1 #;0.5)) (sleep/yield 0.25))
) )