/[papo]/papo/zot/Zot.pm
ViewVC logotype

Diff of /papo/zot/Zot.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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'}}) }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26