webglade

JavaScript library to dynamically create XUL GUI from Glade XML files
git clone https://logand.com/git/webglade.git/
Log | Files | Refs | README | LICENSE

htv3.ls (529B)

      1 ;;; http://haskell.org/haskellwiki/TV section 2.3
      2 
      3 (defun main ()
      4   (load-xml "htv3.glade"
      5             (lambda (glade)
      6               (let ((widgets (parse-glade glade)))
      7                 (wbuild document.document-element
      8                         (array (slot-value widgets "window1")))))))
      9 
     10 (defhandler "update" ()
     11   (let ((apples (wget "apples"))
     12         (bananas (wget "bananas"))
     13         (total (wget "total")))
     14     (wsetp total "value" (+ "" (wgetp apples "value")
     15                             " + " (wgetp bananas "value")))))