about summary refs log tree commit diff stats
path: root/rkt
diff options
context:
space:
mode:
authorelioat <elioat@tilde.institute>2024-08-25 20:02:33 -0400
committerelioat <elioat@tilde.institute>2024-08-25 20:02:33 -0400
commit38c532bee51ec73ac5aadd05871c49bfa3257293 (patch)
treed2c609a1a463130626ceb294540eb37fb07e3b9e /rkt
parentfd7ab88d6ced6aafbbda43da6c258070ab114825 (diff)
downloadtour-38c532bee51ec73ac5aadd05871c49bfa3257293.tar.gz
*
Diffstat (limited to 'rkt')
-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