- set page title
- set page HTML text (using DATA Uri "text/html")
Remark:
It's lame to type a multiline string but it works
Later, it could be replaced by EnableJS/DisableJS block when these commands will be fixed
Code: Select all
Procedure SetPageHTMLText(ContentText.s)
Protected encodedText.s = URLEncoder(ContentText)
!document.location.replace("data:text/html,"+v_encodedText);
EndProcedure
Import ""
SetPageTitle(Title.s) As "document.title="
EndImport
CompilerIf #PB_Compiler_IsMainFile
; ***********************************
; EXAMPLE - change page title
; ***********************************
SetPageTitle("My page title")
!alert('Page title has been changed!\nPage content will change...')
; ***********************************
; EXAMPLE - replace page html code
; ***********************************
;// BOOTSTRAP Page template : http://getbootstrap.com/getting-started/
MenuBar.s="<div class='collapse navbar-collapse' id='bs-example-navbar-collapse-1'>"+
"<ul class='nav navbar-nav'>"+
"<li class='active'><a href='#'>Link</a></li>"+
"<li><a href='#'>Link</a></li>"+
"<li class='dropdown'>"+
"<a href='#' class='dropdown-toggle' Data-toggle='dropdown'>Dropdown <b class='caret'></b></a>"+
"<ul class='dropdown-menu'>"+
"<li><a href='#'>Action</a></li>"+
"<li><a href='#'>Another action</a></li>"+
"<li><a href='#'>Something Else here</a></li>"+
"<li class='divider'></li>"+
"<li><a href='#'>Separated link</a></li>"+
"<li class='divider'></li>"+
"<li><a href='#'>One more separated link</a></li>"+
"</ul>"+
"</li>"+
"</ul>"
NavBar.s="<nav class='navbar navbar-inverse' role='navigation'>"+
"<div class='container-fluid'>"+
"<!-- Brand And toggle get grouped For better mobile display -->"+
"<div class='navbar-header'>"+
"<button type='button' class='navbar-toggle' Data-toggle='collapse' Data-target='#bs-example-navbar-collapse-1'>"+
"<span class='sr-only'>Toggle navigation</span>"+
"<span class='icon-bar'></span>"+
"<span class='icon-bar'></span>"+
"<span class='icon-bar'></span>"+
"</button>"+
"<a class='navbar-brand' href='#'>Brand</a>"+
"</div>"+
MenuBar+
"</nav>"
HTMLCode.s="<!DOCTYPE html>"+
"<html lang='en'>"+
" <head>"+
" <meta charset='utf-8'>"+
" <meta http-equiv='X-UA-Compatible' content='IE=edge'>"+
" <meta name='viewport' content='width=device-width, initial-scale=1'>"+
" <title>Bootstrap 101 Template</title>"+
" <!-- Bootstrap -->"+
" <link href='http://netdna.bootstrapcdn.com/bootstrap/3.1.1/css/bootstrap.min.css' rel='stylesheet'>"+
" <!-- HTML5 Shim And Respond.js IE8 support of HTML5 elements And media queries -->"+
" <!-- WARNING: Respond.js doesn''t work If you view the page via file:// -->"+
" <!--[If lt IE 9]>"+
" <script src='https://oss.maxcdn.com/libs/html5shiv/3.7.0/html5shiv.js'></script>"+
" <script src='https://oss.maxcdn.com/libs/respond.js/1.4.2/respond.min.js'></script>"+
" <![EndIf]-->"+
" </head>"+
" <body>"+
NavBar+
" <!-- jQuery (necessary For Bootstrap''s JavaScript plugins) -->"+
" <script src='https://ajax.googleapis.com/ajax/libs/jquery/1.11.0/jquery.min.js'></script>"+
" <!-- Include all compiled plugins (below), Or include individual files As needed -->"+
" <script src='http://netdna.bootstrapcdn.com/bootstrap/3.1.1/js/bootstrap.min.js'></script>"+
" </body>"+
"</html>"
SetPageHTMLText(HTMLCode)
CompilerEndIf