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

gtk: fix frame for text-field%' and other canvas%'es

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-16 08:12:31 -06:00
parent 099a0eebed
commit 8264e77585
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,10 +35,12 @@
[gray #x8000])
(when gc
(gdk_gc_set_rgb_fg_color gc (make-GdkColor 0 gray gray gray))
(let ([a (widget-allocation gtk)])
(let ([a (widget-allocation gtk)]
[no-window? (not (zero? (bitwise-and (get-gtk-object-flags gtk)
GTK_NO_WINDOW)))])
(gdk_draw_rectangle win gc #f
0
0
(if no-window? (GtkAllocation-x a) 0)
(if no-window? (GtkAllocation-y a) 0)
(sub1 (GtkAllocation-width a))
(sub1 (GtkAllocation-height a))))
(gdk_gc_unref gc)))