Parent Directory | Revision Log | Patch
revision 1.7 by jlenton, Fri May 16 16:52:21 2003 UTC | revision 1.8 by jlenton, Mon May 19 19:42:29 2003 UTC | |
---|---|---|
# | Line 84 sub style | Line 84 sub style |
84 | } | } |
85 | ||
86 | ||
87 | sub styles | |
88 | { | |
89 | my $self = shift; | |
90 | ||
91 | return keys %{ $self->{'STYLES'} || {} }; | |
92 | } | |
93 | ||
94 | # returns a list of Zot::Table objects, ordered by name | # returns a list of Zot::Table objects, ordered by name |
95 | ||
96 | sub tables { return sort( { $a->name cmp $b->name } values %{$_[0]->{'TABLES'}}) } | sub tables { return sort( { $a->name cmp $b->name } values %{$_[0]->{'TABLES'}}) } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |