diff options
author | elioat <elioat@tilde.institute> | 2024-08-25 20:02:33 -0400 |
---|---|---|
committer | elioat <elioat@tilde.institute> | 2024-08-25 20:02:33 -0400 |
commit | 38c532bee51ec73ac5aadd05871c49bfa3257293 (patch) | |
tree | d2c609a1a463130626ceb294540eb37fb07e3b9e | |
parent | fd7ab88d6ced6aafbbda43da6c258070ab114825 (diff) | |
download | tour-38c532bee51ec73ac5aadd05871c49bfa3257293.tar.gz |
*
-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 |