diff --git a/gui-rkt/.gitignore b/gui-rkt/.gitignore new file mode 100644 index 0000000..c748c64 --- /dev/null +++ b/gui-rkt/.gitignore @@ -0,0 +1 @@ +main.rkt~ diff --git a/gui-rkt/main.rkt b/gui-rkt/main.rkt new file mode 100644 index 0000000..6e39dc6 --- /dev/null +++ b/gui-rkt/main.rkt @@ -0,0 +1,30 @@ +#lang racket +(require racket/gui/base) +(require db) + +(define db (sqlite3-connect #:database "recipes.db")) +(define pngs + [for/hash [[[item png] (in-query db "select rowid, image from image")]] + (values item png)]) + + + + + + +(define (update text-field event) + (let ([text (send (send text-field get-editor) get-text)]) + (display text) + (newline))) + +[define bitmaps + [hash-map/copy + pngs + [λ (item png) + [let [(img [make-object bitmap% [open-input-bytes png]])] + [values item img]]]]] + +(define frame (new frame% [label "Example"])) +(define text-field (new text-field% [label "TEXT"] [parent frame] [callback update])) +(define container (new vertical-pane% [parent frame])) +;(send frame show #t) \ No newline at end of file diff --git a/gui-rkt/recipes.db b/gui-rkt/recipes.db new file mode 100644 index 0000000..eb3d7de Binary files /dev/null and b/gui-rkt/recipes.db differ