about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--rkt/pixel/pixel.rkt8
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