#!/usr/bin/perl -w

use vars qw($IDL_PATH);

BEGIN {
    my $datadir = `gnome-config --datadir`;
    chomp $datadir;
    $IDL_PATH = "$datadir/idl";
}

use CORBA::ORBit idl_path => $IDL_PATH, 
                 idl => [ qw(gnome-unknown.idl Gnumeric.idl) ];
 
use GNOME::GNORBA;

GNOME::GNORBA::init();

$workbook_factory = GNOME::GOAD::activate (id => 'IDL:GNOME:Gnumeric:WorkbookFactory:1.0');
defined $workbook_factory or die "Cannot activate Gnumeric\n";

$workbook = $workbook_factory->create_object ('IDL:GNOME:Gnumeric:Workbook:1.0', []);
$workbook->show(1);

$sheet = $workbook->sheet_new("Main Sheet");
$sheet->cell_set_value  (0,0, [ GNOME::Gnumeric::VALUE_INTEGER, 1 ]);
$sheet->cell_set_value  (1,0, [ GNOME::Gnumeric::VALUE_INTEGER, 1 ]);
$sheet->cell_set_text  (0,1, "This is a test of text");
$sheet->cell_set_formula (2,0, "=A1+B1");
$workbook->recalc();