diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-27 22:28:10 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-27 22:28:10 +0000 |
| commit | 5d9eeef458159fb0e6b36b6b6d37bdb30436c77d (patch) | |
| tree | 82e5929713d89812ba60564427bdbd87824146a5 | |
| parent | 897140cfc593b9697dfa383eacaf14affe44edf2 (diff) | |
| download | drakx-5d9eeef458159fb0e6b36b6b6d37bdb30436c77d.tar drakx-5d9eeef458159fb0e6b36b6b6d37bdb30436c77d.tar.gz drakx-5d9eeef458159fb0e6b36b6b6d37bdb30436c77d.tar.bz2 drakx-5d9eeef458159fb0e6b36b6b6d37bdb30436c77d.tar.xz drakx-5d9eeef458159fb0e6b36b6b6d37bdb30436c77d.zip | |
add a minimal example
| -rw-r--r-- | perl-install/interactive.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 809281ea7..c693155c5 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -9,6 +9,12 @@ use strict; use MDK::Common::Func; use common; +#- minimal example using interactive: +#- > use interactive; +#- > my $in = interactive->vnew; +#- > $in->ask_okcancel('title', 'question'); +#- > $in->exit; + #- ask_from_entries takes: #- val => reference to the value #- label => description |