sub InitMenuLines {
    my $self=shift;
    @{$self->{menuLines}} = @_;
}