<BASE HREF="file:///E|/Smalltalk/Squeak/v27/HtmlFormatterExample.1.cs">
'From Squeak2.8alpha of 10 February 2000 [latest update: #1852] on 11 February 2000 at 9:28:29 am'!
"Change Set: HtmlFormatterExample
Date: 9 February 2000
Author: John Clonts
Correction to the example because HtmlParser>>#on: was apparently changed to HtmlParser>>#parse:"!
!HtmlFormatter class methodsFor: 'example' stamp: 'jcc 2/9/2000 17:13'!
example1
"(HtmlFormatter example1 asParagraph compositionRectangle: (0@0 extent: 300@500) ) displayAt: 0@0"
| input |
input _ ReadStream on:
'<html>
<head>
<title>The Gate of Chaos</title>
</head>
<body>
<h1>Chaos</h1>
<h2>Into the Maelstrom</h2>
Direction is useless in the ever-changing Maelstrom. However,
if you wander with purpose, you might be able to find....
<ul>
<li><a href="/cgi-bin/w">see who''s logged in</a>
<li><a href="/Telnet/connect.html">log in, if you (oooh) have an account</a>
<li><a href="http://chaos.resnet.gatech.edu:9000/sw">The Chaos Swiki</a>--scribble on chaos
<li>the original <a href="/cgi-bin/guestlog-print">Visitor Sands</a>
<li>my old <a href="rant.html">Rant Page</a>
<li>neverending <a href="/cgi-bin/bread">poll</a>: do you have an opinion on bread?
<li>a <a href="http://www.cc.gatech.edu/~lex/linux.html">Linux page</a>-- free UNIX for PC''s!!
<li><a href="english.au">Hear Linus Himself speak!!!!</a>
<li><a href="/doc/">some docs on all kinds of computer stuff</a>
</ul>
<hr>
<h2>Paths of Retreat</h2>
Several commonly travelled ways have left paths leading
<em>away</em> from the maelstrom, too:
<p>
<ul>
<li><a href="friends.html">Friends of Chaos</a>
<li><a href="http://www.apache.org/">The <em>Apache</em> home page</a> --
<em>Chaos</em>''s WWW server!!
<li><a href="http://www.ee.umanitoba.ca/~djc/personal/notscape.html">
Notscape</a>
the <a href="http://www.eskimo.com/%7Eirving/anti-ns/">Anti-Netscape
Page</a> -- fight the tyranny!!
</ul>
<hr>
<a href="/analog/usage.html">usage stats</a> for this server
<hr>
<a href="http://www.eff.org/blueribbon.html"><img src="blueribbon.gif" alt="[blue ribbon campaign]"></a>
<a href="http://www.ee.umanitoba.ca/~djc/personal/notscape.html">
<img src="notscape.gif" alt="[NOTscape]">
</a>
<a href="http://www.anybrowser.org/campaign/">
<img src="anybrowser3.gif" alt="[Best Viewed With Any Browser"]></a>
</body>
</html>'.
^(HtmlParser parse: input) formattedText! !