HTML-GUI
3 results

 view release on metacpan or  search on metacpan

lib/HTML/GUI/templates/main.html  view on Meta::CPAN 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
	<title>HTML-GUI-Widget</title>
	<meta http-equiv="content-type" content="text/html;charset=utf-8" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta http-equiv="Content-Script-Type" content="text/javascript"/>
		
	<TMPL_LOOP NAME=css_path>
	<link rel="stylesheet" type="text/css" href="<TMPL_VAR NAME=url>" />
	</TMPL_LOOP>
</head>

<body>
		<TMPL_VAR NAME="screen">

lib/HTML/GUI/templates/test.html  view on Meta::CPAN 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"><head>
				<title>Informations patient</title>

	<meta http-equiv="content-type" content="text/html;charset=utf-8"/>
	<meta http-equiv="Content-Style-Type" content="text/css"/>
	<meta http-equiv="Content-Script-Type" content="text/javascript"/>
		
	<link rel="stylesheet" type="text/css" href="css/base.css"/>
</head><body>

<form action="">
<h1>Informations patient</h1>
<div class="errorList">
<h2 class="errorList">Des erreurs sont survenues</h2>

t/03-screen.t  view on Meta::CPAN 

ok($screenFromFile,"load a screen widget from a file from a root path and a relative filename");
#the path of the widget copy is the name of the temp file
#we modify it in order to have all the propeties identical
$screenFromFile->setProp({path=>'/'});

is($screenFromFile->getHtml(),
q~<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
	<title>HTML-GUI-Widget</title>
	<meta http-equiv="content-type" content="text/html;charset=utf-8" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta http-equiv="Content-Script-Type" content="text/javascript"/>
		
	
	<link rel="stylesheet" type="text/css" href="/static/css/base.css" />
	
</head>

<body>
		<form action="/" method="post"><p class="float"><input id="bla" name="bla" type="text" value="1"/></p><p class="float"><input id="bli" name="bli" type="text" value="2"/></p><p class="float"><input id="textObject" name="textObject" type="text" value...

t/03-screen.t  view on Meta::CPAN 

ok(!$callFlag,"We didn't call the dummy function previously");
ok($smallScreen->processHttpRequest({button=>'"A Table!! éàüù\\"\'""'}),"We can call a dummy function");
ok($callFlag,"The btnTestFunction was really called");

$smallScreen->error("This is a dummy message for the violation of a business rule with special caracters [éàüù]");

my $smallScreenHTML = q~<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
	<title>HTML-GUI-Widget</title>
	<meta http-equiv="content-type" content="text/html;charset=utf-8" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta http-equiv="Content-Script-Type" content="text/javascript"/>
		
	
	<link rel="stylesheet" type="text/css" href="/static/css/base.css" />
	
</head>

<body>
		<form action="/" method="post"><div class="errorList"><h2 class="errorList">Some errors occured.</h2><dl class="errorList"><dt>General</dt><dd>This is a dummy message for the violation of a business rule with special caracters [éàüù]</dd></dl><...



( run in 2.454 seconds using v1.01-cache-2.11-cpan-d7f47b0818f )