#!/usr/bin/perl
# writer-example4 - Creates a sxw Writer document with page breaks and colored text

use ooolib;

# Set variables
$doc = new ooolib("sxw");
$doc->oooSet("builddir", ".");
$doc->oooSet("title", "Writer Styles");
$doc->oooSet("subject", "Writer Examples");
$doc->oooSet("comments", "Page breaks and colored text.");
$doc->oooSet("author", "ooolib examples");

$doc->oooSet("text-color", "blue");
$doc->oooData("default", "blue text");
$doc->oooSet("text-color", "red");
$doc->oooData("default", "red text");
$doc->oooSet("text-color", "green");
$doc->oooData("default", "green text");

$doc->oooSet("text-color", "default");
$doc->oooData("default", "Be prepared for visual pain.");
$doc->oooSpecial("pagebreak");

$doc->oooSet("text-bgcolor", "red");
$doc->oooSet("text-color", "blue");
$doc->oooData("default", "blue on red text");
$doc->oooSet("text-bgcolor", "green");
$doc->oooSet("text-color", "red");
$doc->oooData("default", "red on green text");
$doc->oooSet("text-bgcolor", "blue");
$doc->oooSet("text-color", "green");
$doc->oooData("default", "green on blue text");

my($filename) = $doc->oooGenerate("writer-example4.sxw");

exit;

