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

racket/gui gtk: fix canvas/panel border drawing

Browse Source 
The code to draw a border has to determine the widget's position
within the drawing window. Gtk 3.0 has a function to provide that
transformation, but Gtk 2.0 doesn't seem to have one, and it seems
that the transformation implemented in `racket/gui' wasn't right.

Closes PR 13453
This commit is contained in:
Matthew Flatt 2013-01-25 14:16:51 -07:00 committed by Matthew Flatt
parent 86203467a4
commit e22977667d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wx/gtk/panel.rkt
View File

@ -38,11 +38,15 @@
(let* ([a (widget-allocation gtk)] (let* ([a (widget-allocation gtk)]
[w (sub1 (GtkAllocation-width a))] [w (sub1 (GtkAllocation-width a))]
[h (sub1 (GtkAllocation-height a))]) [h (sub1 (GtkAllocation-height a))])
(let loop ([gtk gtk] [x 0] [y 0]) (let loop ([gtk gtk] [x 0] [y 0] [can-super? #t])
(if (not (zero? (bitwise-and (get-gtk-object-flags gtk) GTK_NO_WINDOW))) (if (and can-super?
(not (zero? (bitwise-and (get-gtk-object-flags gtk) GTK_NO_WINDOW))))
;; no window: ;; no window:
(let ([a (widget-allocation gtk)]) (let ([a (widget-allocation gtk)])
(loop (widget-parent gtk) (+ x (GtkAllocation-x a)) (+ y (GtkAllocation-y a)))) (loop (widget-parent gtk) (+ x (GtkAllocation-x a)) (+ y (GtkAllocation-y a))
;; It seems that a widget's allocation is with respect
;; to a window, not its parent.
#f))
;; found window: ;; found window:
(gdk_draw_rectangle win gc #f x y w h)))) (gdk_draw_rectangle win gc #f x y w h))))
(gdk_gc_unref gc))) (gdk_gc_unref gc)))