From 38c532bee51ec73ac5aadd05871c49bfa3257293 Mon Sep 17 00:00:00 2001
From: elioat <elioat@tilde.institute>
Date: Sun, 25 Aug 2024 20:02:33 -0400
Subject: *

---
 rkt/pixel/pixel.rkt | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'rkt')

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
-- 
cgit 1.4.1-2-gfad0