I have no idea what this code will do on MacOS, but it works on Windows
... at least for the limited window tilings I tried.
YMMV.
-------------------------------------
#lang racket
(require racket/gui)
(define-values (w h) (get-display-size #:monitor 0))
(printf "screen: ~a ~a~n" w h)
(set! w (/ w 2))
(set! h 100)
(define f1 (new frame% [label "Window 1"] [height h] [width w] [y 0] [x 0]))
(define f2 (new frame% [label "Window 2"] [height h] [width w] [y h] [x w]))
(define f3 (new frame% [label "Window 3"] [height h] [width w] [y (+ h
h)] [x 0]))
(define (align frm)
(let*-values [
((wx) (send frm get-x))
((wy) (send frm get-y))
((ww wh) (send frm get-client-size))
((dx dy) (send frm client->screen 0 0))
]
(printf "~s:~n" frm)
(printf "~a,~a ~a ~a~n" wx wy ww wh)
(printf "~a,~a~n" dx dy)
(printf "~n")
(let ((dx (- wx dx)))
(send frm move (+ wx dx) wy))
(send frm resize
(+ w (abs (- ww w)))
(+ h (- h (+ wh (- dy wy))))
)
(send frm show #t)
))
(align f1)
(align f2)
(align f3)
-------------------------------------
--
You received this message because you are subscribed to the Google Groups "Racket
Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/e5b86730-d78c-d445-2fa2-b2b78b632f77%40comcast.net.
