<div dir="ltr">Thanks Adam for your quick reply.<div>So, fun tabbed can not be use for anything but bootstrap navbar-nav.</div><div><br><div><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Dec 23, 2015 at 12:35 PM, emil brusic <span dir="ltr"><<a href="mailto:emil.brusic@gmail.com" target="_blank">emil.brusic@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div>Greetings to all community!<br><br></div>I have just started to learn about Ur/Web and UPO framework with Bootstrap.<br></div>In upo/ui.ur, functor Make, there is function tabbed which is use for boostrap navbar:<br></div><span>fun</span> tabbed [ts] (fl : folder ts) titl (ts : $(map (<span>fn</span> a <span>=></span> <span>option</span> <span>string</span> * t a) ts)) = ...<br></div>This is how I use it:<br><br><div><div>fun main () =<br>    about <- aboutUs(lng);<br>    usr <- User.userIdNam();<br>    login <- User.blurb();<br>     Theme.tabbed titl<br>     ((Some (case lng of<br>                 HR => "O nama"<br>               | EN => "About us")<br>            , Ui.const about)<br>     ,(case usr of<br>           None =><br>              Some (case lng of<br>                     HR => "Prijava"<br>                   | EN => "Login")<br>         | Some u =><br>           case lng of<br>               HR => Some ("Korisnik: " ^ u.Nam)<br>             | EN => Some ("User: " ^ u.Nam)<br>           , Ui.const login)<br></div><div>(* this navbar-right is not showing in browser: *)<br></div><div>    ,(None<br>    , Ui.const (<xml><br>                 <ul class="bs3-nav navbar-nav navbar-right"><br>                   <li><a link={lg()}><span class="glyphicon glyphicon-user"></span> Sign Up</a></li><br>                   <li><a link={lg()}><span class="glyphicon glyphicon-log-in"></span> Login</a></li><br>                 </ul><br>               </xml>))<br>     )<br></div><div>Everything pass type checking and compiling, but navbar-right menu entries with glyphicons are not shown.<br></div><div>So I wrote new test function without using UPO framework:<br>fun test () = ...<br>...<br><div id={nid} class="collapse navbar-collapse"><br>...<br>                  <ul class="bs3-nav navbar-nav navbar-right"><br>                    <li><a href={log}><span class="glyphicon glyphicon-user"></span> Sign Up</a></li><br>                    <li><a href={log}><span class="glyphicon glyphicon-log-in"></span> Login</a></li><br>                  </ul><br>                </div><br>...<br></div><div>In this case navbar-right is shown.<br></div><div>Probably I missed something with code:<br></div><div>,(None, Ui.const (<xml> ... </xml>))<br></div><div>Also I have noticed that vertical collapse menu for mobile devices is not shown even in UPO site - <a href="http://upo.csail.mit.edu/" target="_blank">http://upo.csail.mit.edu/</a><br><br></div><div>I will be grateful if anyone help me to find out what is wrong with my code, or how to use tabbed function for<br></div><div>navbar-right.<br><br></div><div>Best regards,<br></div><div>Emil<br></div><div><br></div><div><br> </div><div><br><br></div></div></div>
</blockquote></div><br></div>