diff options
| -rw-r--r-- | rkt/pixel/pixel.rkt | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/rkt/pixel/pixel.rkt b/rkt/pixel/pixel.rkt index a95ea0d..7e2f198 100644 --- a/rkt/pixel/pixel.rkt +++ b/rkt/pixel/pixel.rkt @@ -29,7 +29,6 @@ [y (in-range grid-height)]) (let ([color (vector-ref (vector-ref grid x) y)]) (when (not (string=? color "")) - (send dc set-brush color 'solid) (send dc draw-rectangle (* x cell-size) (* y cell-size) cell-size cell-size))))) (define/override (on-event event) @@ -60,10 +59,9 @@ ;; Add the canvas to the canvas panel (new my-canvas% [parent canvas-panel] - [min-width 500] - [min-height 500]) + [min-width 600] + [min-height 600]) -;; Position the color picker in the top right corner (define color-panel (new horizontal-panel% [parent main-panel] [alignment '(right top)])) @@ -74,4 +72,4 @@ [callback (lambda (choice event) (set! selected-color (send choice get-string-selection)))]) -(send frame show #t) +(send frame show #t) \ No newline at end of file |