Ante :: Deluvian :: Diálogo

extensão perl para interação de usuário de estilo muito antigo
Baixe Agora

Ante :: Deluvian :: Diálogo Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Berthold Michel
  • Site do editor:
  • http://search.cpan.org/~bhm/

Ante :: Deluvian :: Diálogo Tag


Ante :: Deluvian :: Diálogo Descrição

Extensão Perl para interação de usuário de estilo muito antigo Ante :: Deluvian :: Dialog é um módulo Perl para interação de usuário de estilo muito antigo.developer comentaLTer várias tentativas para obter maldições em execução no Windows (sem ter que instalar cygwin), eu decidi fazer alguma programação para obter um ASCII puro Com base e janela de diálogo simples. Eu tenho certeza que não haverá muitos usuários preferindo esse tipo de interface, mas eu não quero ser obrigado a produzir alguma GUI apenas para controlar ou testar comunicação. Que você tentará este programa, vai pensar que eu fiquei louco, e ele certamente será certo.ConstructoreNew (platform => "mswin", title => "título da janela", prompt => "O que você quer"); Há dois outros registros de opções, que podem ser definidos para um valor booleano e replay, que espera obter algum arquivo de entrada gravado anteriormente. Isto é principalmente para fins de teste, se você não gosta de repetir uma sequência de entrada especial com a mão ... Tenho certeza que você descobrirá se isso é interessante para você.synopsis Use ante :: Deluvian :: Dialog; $ D = Ante :: Deluvian :: Dialog-> Novo (Plataforma => "MSWIN", Drawframe => 1, title => "Título da janela", prompt => "Por favor, faça a sua escolha:" 1, # Replay => "C: / temp / addialog / _. Txt",); $ fdir = $ d-> dselect (); Imprimir "Você selecionou o diretório $ FDIR ... \ n"; $ fname = $ D-> fselect ($ FDIR); Imprimir "Você selecionou o arquivo $ fname ... \ n"; @ALST = ("A" .. "Z", "A" .. "z"); @ares = $ D-> listbox (\ @ alst, select => "multi"); $ rd = $ d-> radiolista (, , , , ,]); $ D-> Alerta (); if (-t $ fname) {$ inpf = io :: file-> novo ($ fname); $ D-> TextBox ($ INPF); } else {$ d-> caixa de texto ($ fname); } Requisitos: · Perl.


Ante :: Deluvian :: Diálogo Software Relacionado

Sobre nós