Termine :: Visual. Interfaccia utente di Split-Terminal
Scarica ora

Termine :: Visual. Classifica e riepilogo

Termine :: Visual. Tag

utente modulo Perl interfaccia interfaccia utente interfaccia Perl Terminale diviso

Termine :: Visual. Descrizione

Interfaccia utente di Split-Terminal Termine :: Visual è un'interfaccia terminale "Visual" per applicazioni di maledizioni, scritte in Perl. Fornisce l'interfaccia di split-screen che potresti aver visto in client IRC e fango a base di console.Term :: Visual utilizza il framework di rete PoE e multitasking per supportare l'ingresso simultaneo da prese di rete e la console, i più timer e altro .synopsis #! / usr / bin / perl -w usare rigoroso; Utilizzare il termine :: Visual; My $ VT = Termine :: Visual-> Nuovo (ALIAS => "Interfaccia", ERRLEVEL => 0); $ VT-> Set_Palette (MyColor => "Magenta on Black", Thiscolor => "Green on Black"); My $ window_id_id = $ vt-> create_window (window_name => "foo", stato => {0 => {format => "Modello per la linea di stato 1", campi => }, 1 = > {format => "Template for Status Line 2", campi => ]},}, buffer_size => 1000, history_size => 50, ingresso_prompt => "", # Imposta l'input Prompt per la linea di input. Uso_title => 0, # Non utilizzare una barra del titolo Uso_Status => 0, # Non utilizzare un titolo di statusbar => "Titolo di Foo"); Poe :: Session-> Crea (inline_states => {_start => start_handler, got_term_input => term_input_handler,}); sub start_handler {my $ kernel = $ _ ; # Dì al terminal di inviarmi input come "got_term_input". $ kernel-> post (interfaccia => send_me_input => "got_term_input"); $ vt-> set_status_field ($ window_id, bar => $ valore); $ vt-> set_input_prompt ($ window_id, "$"); $ VT-> Stampa ($ window_id ", il mio ID finestra è $ window_id"); } sub term_input_handler {my ($ kernel, $ heap, $ Input, $ Exception) = @_ ; # Ha un'eccezione. Questi sono interrupt (^ c) o smettere (^). Se (Defined $ Exception) {Warn "ha ottenuto un'eccezione: $ eccezione"; Uscita; } $ VT-> Stampa ($ window_id, $ Input); } # Utilizzare solo delete_window se si utilizza più finestre. $ vt-> delete_window ($ window_id); $ vt-> spegnimento; Requisiti: · Perl.

Termine :: Visual. Software correlato