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

fix canvas% refresh for Gtk

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-12 10:50:16 -06:00
parent 0709870ef9
commit 1aab1c78a3
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/gtk/canvas.rkt
View File

@ -20,6 +20,8 @@
(define-gtk gtk_drawing_area_new (_fun -> _GtkWidget))
(define-gtk gtk_widget_queue_draw (_fun _GtkWidget -> _void))
(define-gtk gtk_hbox_new (_fun _gboolean _int -> _GtkWidget))
(define-gtk gtk_hscrollbar_new (_fun _pointer -> _GtkWidget))
(define-gtk gtk_vscrollbar_new (_fun _pointer -> _GtkWidget))
@ -169,6 +171,9 @@
(define/public (on-paint) (void))
(define/override (refresh)
(gtk_widget_queue_draw client-gtk))
(define/override (internal-on-client-size w h)
(send dc reset-dc-size))

1
collects/racket/draw/bitmap-dc.rkt
View File

@ -40,7 +40,6 @@
(values (exact->inexact (send bm get-width))
(exact->inexact (send bm get-height))))
(define last-y -1)
(def/public (set-pixel [real? x][real? y][color% c])
(let ([s (bytes 255 (color-red c) (color-green c) (color-blue c))])
(set-argb-pixels x y 1 1 s)))