Mercurial > urweb

view tests/styleRt.ur @ 1892:907a82a44f01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add missing inter-library dependencies This is needed, at least on recent Ubuntu, to fix these linker errors when compiling any Ur/Web application: liburweb.so: undefined reference to `lround' liburweb.so: undefined reference to `ceil' liburweb.so: undefined reference to `RAND_bytes' liburweb.so: undefined reference to `DES_fcrypt' liburweb.so: undefined reference to `SHA256_Init' liburweb.so: undefined reference to `SHA256_Final' liburweb.so: undefined reference to `SHA256_Update' Signed-off-by: Anders Kaseorg <andersk@mit.edu> --- src/c/Makefile.am | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-)
author Anders Kaseorg <andersk@mit.edu>
date Thu, 21 Nov 2013 14:32:11 -0500
parents e9587120831a
children
line wrap: on
line source
fun handler r =
    return <xml><body>
      <span style={oneProperty
                       (oneProperty noStyle (value (property r.Prop) (atom r.Valu)))
                       (value (property "background") (css_url (bless r.Url)))}>
        Teeeest
      </span>
    </body></xml>

fun main () =
    prop <- source "";
    valu <- source "";
    url <- source "";
    xm <- source <xml/>;
    return <xml><body>
      Property: <ctextbox source={prop}/><br/>
      Value: <ctextbox source={valu}/><br/>
      URL: <ctextbox source={url}/><br/>
      <button value="Go!" onclick={prop <- get prop;
                                   valu <- get valu;
                                   url <- get url;
                                   set xm <xml><span style={oneProperty
                                                                (oneProperty noStyle (value (property prop) (atom valu)))
                                                                (value (property "background") (css_url (bless url)))}>
                                     Teeeest
                                   </span></xml>}/>
      <hr/>
      <dyn signal={signal xm}/>
      <hr/>
      <h2>Or the old fashioned way...</h2>

      <form>
        Property: <textbox{#Prop}/><br/>
        Value: <textbox{#Valu}/><br/>
        URL: <textbox{#Url}/><br/>
        <submit action={handler}/>
      </form>
    </body></xml>