#!/usr/bin/perl
# calc-example5 - Set Column sizes

use ooolib;

# Set variables
$doc = new ooolib("sxc");
$doc->oooSet("builddir", ".");
$doc->oooSet("title", "Calc Cell Styles");
$doc->oooSet("subject", "Calc Example");
$doc->oooSet("comments", "Styles include bold, italics, and colors");
$doc->oooSet("author", "ooolib Example");
$doc->oooSet("meta1-name", "Programmer");
$doc->oooSet("meta1-value", "Joseph Colton");

# Column 1
$doc->oooSet("bold", "on");
$doc->oooSet("cell-loc", 1, 1);
$doc->oooData("cell-text", "bold");

$doc->oooSet("text-color", "ff0000");
$doc->oooSet("cell-loc", 1, 2);
$doc->oooData("cell-text", "red");

$doc->oooSet("text-color", "00ff00");
$doc->oooSet("cell-loc", 1, 3);
$doc->oooData("cell-text", "green");

$doc->oooSet("text-color", "0000ff");
$doc->oooSet("cell-loc", 1, 4);
$doc->oooData("cell-text", "blue");
$doc->oooSet("bold", "off");
$doc->oooSet("text-color", "000000");

# Column 2
$doc->oooSet("italic", "on");
$doc->oooSet("cell-loc", 2, 1);
$doc->oooData("cell-text", "italic");

$doc->oooSet("text-color", "ff0000");
$doc->oooSet("cell-loc", 2, 2);
$doc->oooData("cell-text", "red");

$doc->oooSet("text-color", "00ff00");
$doc->oooSet("cell-loc", 2, 3);
$doc->oooData("cell-text", "green");

$doc->oooSet("text-color", "0000ff");
$doc->oooSet("cell-loc", 2, 4);
$doc->oooData("cell-text", "blue");
$doc->oooSet("italic", "off");
$doc->oooSet("text-color", "000000");

my($filename) = $doc->oooGenerate("calc-example5.sxc");

exit;
