webview-get-style debugging

racket-webview.rkt

@@ -1057,9 +1057,12 @@
           #f
           (let ((h (hash-ref r 'with-ids)))
             (let ((l  (map (λ (e)
-                            (cons
+                             (let ((id-rec (car e))
-                             (string->symbol (hash-ref e 'id))
+                                   (style-rec (cadr e)))
-                             (hash-ref e 'style))) h)))
+                               (cons (string->symbol (cadr id-rec))
+                                     (make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec)))
+                                     )
+                               )) h)))
               (if (symbol? selector)
                   (cdr (car l))
                   l))))