← Back to branch summary

~jba-aps/epics-base/dvl-3.15-origin

« back to all changes in this revision

Viewing changes to src/tools/DBD/Menu.pm

  • Committer: Andrew Johnson
  • Date: 2014-10-03 19:23:04 UTC
  • mfrom: (12522.1.25 dbd2html)
  • Revision ID: anj@aps.anl.gov-20141003192304-93okwfqwgx3id6bk
Merged dbd2html branch

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tools/DBD/Menu.pm
7
7
    $this->SUPER::init($name, "menu");
8
8
    $this->{CHOICE_LIST} = [];
9
9
    $this->{CHOICE_INDEX} = {};
 
10
    $this->{COMMENTS} = [];
10
11
    return $this;
11
12
}
12
13
 
39
40
    return exists $this->{CHOICE_INDEX}->{$value};
40
41
}
41
42
 
 
43
sub add_comment {
 
44
    my $this = shift;
 
45
    push @{$this->{COMMENTS}}, @_;
 
46
}
 
47
 
 
48
sub comments {
 
49
    return @{shift->{COMMENTS}};
 
50
}
 
51
 
42
52
sub equals {
43
53
    my ($a, $b) = @_;
44
54
    return $a->SUPER::equals($b)