sub InitMenuFunc {
    my $self=shift;
        self->{@menuFunc} = @_;
}