Alzabo-Display-SWF

 view release on metacpan or  search on metacpan

lib/Alzabo/Display/SWF/Column.pm  view on Meta::CPAN

  $v->nextFrame;
  $v->add(new SWF::Action("stop();"));
  $v->nextFrame;
  $v->remove($ti);
  $v->add($tb);
  $v->nextFrame;

  my $self = { sprite => $v, width => $w, dy => undef, displayItem => undef,
               is_primary_key => undef, is_foreign_key => undef,
               foreign_keys => [] };
  bless $self, $pkg;
  return $self;
}

1;

lib/Alzabo/Display/SWF/Key.pm  view on Meta::CPAN

use SWF::Shape;
use SWF::Button;
use SWF::Action;
our $VERSION = '0.01';

my $PI = 3.1415926535;

sub new {
  my $pkg = shift;
  my $self = { @_ };
  bless $self, $pkg;
  return $self;
}

sub indicator {
  my ($self, $fk) = @_;
  our ($r, $segments) = ($self->{r}, $self->{segments});
  my $c = new SWF::Sprite();
  my $b = new SWF::Button();
  my $s = new SWF::Shape();
  $s->setLineStyle( @{ $self->{linestyle_up} } );

lib/Alzabo/Display/SWF/Schema.pm  view on Meta::CPAN

our $VERSION = '0.01';

SWF::setVersion(5);
my $scale = 5;
SWF::setScale($scale);

sub new {
  my $pkg = shift;
  my %p = @_;
  my $self = {};
  bless $self, $pkg;
  $self->{mov} = new SWF::Movie;
  $self->{ars} = Alzabo::Runtime::Schema->load_from_file(name => $p{name});
  $self->{cfg} = $p{cfg};
  $self->{gvz} = GraphViz->new(  qw/
    layout     neato
    no_overlap 1
    /,
    node  => {qw/ shape   box  fontname Courier /},
    graph => {qw/ splines false /, label => $p{name} },
  );

lib/Alzabo/Display/SWF/Table.pm  view on Meta::CPAN

use Alzabo::Display::SWF::Text;
use Alzabo::Display::SWF::Column;
our $VERSION = '0.01';

sub new {
  my ($pkg, $t, $m, $scale, $cfg ) = @_;
  my $tfdb = $cfg->{fdb_dir} . '/' . $cfg->{table}{fdb} .'.fdb';

  my $self = { columns => [], text => undef , head => undef , body => undef,
               dx => undef, dy => undef, keys => [], column_by_name => {} };
  bless $self, $pkg;

  my $f = new SWF::Font $tfdb;
  my $txt = new Alzabo::Display::SWF::Text
    $t->name, $f, rgb2ary( $cfg->{table}{color}{fg} );
  my $w = 0;
  my $dx = 14;
  my $dy = 0;
  for my $c ( $t->columns ) {
    my $co = new Alzabo::Display::SWF::Column $c->name, $cfg;
    $self->{column_by_name}{$c->name} = $co;