<html>
<head>
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
The [tabbed] function itself claims control of the Bootstrap
navigation bar at the top of the screen. You're free to create
additional navigation bars within the main content of tabs.<br>
<br>
<div class="moz-cite-prefix">On 12/23/2015 09:12 AM, emil brusic
wrote:<br>
</div>
<blockquote
cite="mid:CABfT-7YbcXt9i2gX9+9x+Fz1o3yVNONzLeaUKi7GpdXFUo7UzQ@mail.gmail.com"
type="cite">
<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 moz-do-not-send="true"
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
moz-do-not-send="true"
href="http://upo.csail.mit.edu/" target="_blank"><a class="moz-txt-link-freetext" href="http://upo.csail.mit.edu/">http://upo.csail.mit.edu/</a></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>
<br>
</div>
</div>
</blockquote>
</div>
</div>
</blockquote>
<br>
</body>
</html>