Ante::Deluvian::Dialog Perl extension for very old style user interaction
Download

Ante::Deluvian::Dialog Ranking & Summary

Ante::Deluvian::Dialog Tags

Perl module perl dialog user interaction deluvian

Ante::Deluvian::Dialog Description

Perl extension for very old style user interaction Ante::Deluvian::Dialog is a Perl module for very old style user interaction.Developer commentsAfter several attempts to get curses running on Windows (without having to install cygwin), I made up my mind to do some programming to get a pure ASCII based and very simple dialog window.I'm sure there won't be many users preferring this kind of interface, but I don't want to be obliged to produce some GUI just for controling or testing communication.Whoever will try this program, will think that I have gone mad, and he will certainly be right.CONSTRUCTORnew (platform => "MSWIN", title => "Window's title", prompt => "What do you want"); There are two other options record, which can be set to a boolean value, and replay, which expects to get some previously recorded input file. This is mainly for testing purposes, if you don't like to repeat a special input sequence by hand... I'm sure you will find out if this is interesting to you.SYNOPSIS use Ante::Deluvian::Dialog; $d = Ante::Deluvian::Dialog->new( platform => "MSWIN", drawframe => 1, title => "Title of Window", prompt => "Please make your choice:", # record => 1, # replay => "C:/temp/addialog/_.txt", ); $fdir = $d->dselect(); print "You have selected directory $fdir ...\n"; $fname = $d->fselect($fdir); print "You have selected file $fname ...\n"; @aLst = ( "A" .. "Z", "a" .. "z" ); @aRes = $d->listbox(\@aLst, select => "multi"); $rd = $d->radiolist(, , , , , ]); $d->alert(); if (-T $fname) { $inpf = IO::File->new($fname); $d->textbox($inpf); } else { $d->textbox($fname); } Requirements: · Perl

Ante::Deluvian::Dialog Related Software