-

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define pkg-authors '(hnmdijkema))
-(define version "0.2.7")
+(define version "0.2.8")
 (define license 'MIT)   
 (define collection "web-racket")
 (define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire")

private/web-racket.rkt

@@ -191,6 +191,9 @@
       (define cb #f)
       (define val #f)
 
+      (define/public (value-converter v)
+        v)
+
       (define/public (get)
         val)
 
@@ -217,8 +220,10 @@
       (super-new)
 
       (begin
-        (inp-set! val (ww-get-value (send this get-win-id)
+
-                                    (send this get-id)))
+        (let ((v (ww-get-value (send this get-win-id) (send this get-id))))
+          (inp-set! val (send this value-converter v)))
+        
         (send this connect 'input (λ (data)
                                     (ww-debug "WW-INPUT% 'input event:" data)
                                     (let ((js-evt (hash-ref data 'js_evt #f)))
@@ -306,9 +311,9 @@
   (define ww-input-range%
     (class ww-input%
 
-      (define/override (get)
+      (define/override (value-converter v)
-        (let ((val (super get)))
+        (string->number v))
-          val))
+      
       (super-new)
       ))
 

private/web-wire.rkt

@@ -899,7 +899,14 @@
   ;; get value of an element
   (def-cmd ww-get-value
     value ((win-id ww-win?)
-           (element-id symbol-or-string?)) () -> json)
+           (element-id symbol-or-string?)) () -> string
+    => (λ (val)
+         ; expect <element-id>:{ "result": <result: string> }
+         (let ((e-id (format "~a:" element-id)))
+           (unless (string=? (substring val 0 (string-length e-id)) e-id)
+             (error "Unexpected for ww-get-value, result does not start with requested id"))
+           (ww-from-json (substring val (string-length e-id)))))
+    )
 
   ;; set value of an element
   (def-cmd ww-set-value