#!/usr/bin/perl
# -*- mode: cperl; coding: utf-8; -*-

use strict;
use warnings;
use utf8;

use lib "/h/hamren/src/post/lib", "."; my $rval = do "common.pm" || die "$0: common.pm failed ($!) [$@]";  #--- Single-line common initializer

#--- End of header

sub qqq($) { return i("@_"); }
my $Worker  = qqq("Worker");

post(
    header(),

    p(read_main_redgreenblue_article("Java and AWT")),

    p("Java has its own abstraction for sockets. Each $Worker is a separate thread.",
      " That would be expensive it there were hundreds of clients, but in this small example it does not matter."),

    p("AWP is Java's GUI library, the Abstract Window Toolkit."),

    h2("The source code"),

    source_file("./redgreenblue.java.source"),

    footer()
);
__END__