Hvordan å gjøre en rask X11 dialogboks i Perl

Dialogbokser brukes i PC-programmer for å formidle informasjon til brukere, eller for å kommunisere med brukerne. Et typisk eksempel på en dialogboks er en pop-up vindu som vises når du klikker på en knapp eller utføre en handling mens du bruker et program. Disse har som regel et budskap og en "OK" og "Avbryt" knappen du klikker for å passere ditt samtykke, eller mangelen på dem, tilbake til programmet. The X-Windows operativsystem (X11) på UNIX støtter dialogbokser i Perl gjennom Tk rammeverk, som er et grafisk brukergrensesnitt (GUI) system som utvider funksjonaliteten til Perl programmeringsspråk, forenkle kodingen av dialogbokser.

Bruksanvisning

1 Start din Perl redigeringsprogram. En enkel tekst editor vil nok, forutsatt at du lagre filen med en "PL" forlengelse, da dette vil indikere til systemet at filen er et Perl program.

2 Skriv inn Perl program header og lansere et nytt program, inkludert "Tk :: DialogBox" modul ved å plassere følgende linjer på toppen av filen:

! / Bin / perl-w

Bruk TK;

Bruk TK :: DialogBox;

$ Min viktigste = MainWindow-> nye;

3 Lag en enkel, rask "ja / nei" dialogboksen ved å skrive inn følgende kode inn i editoren:

dialog $ = $ opprett> DialogBox (-title => "Skriv inn din tittel her", trykkes på knapper => [ "Ja", "Nei"]);

Dette vil gi deg en dialogboks med to knapper, en merket "Ja" og den andre merket "Nei."

4 Legg til en melding til knappen ved hjelp av en etikett ved å skrive inn følgende kode inn i editoren:

$ Dialog-> legge til ( "Skriv inn etiketten / melding her", -tekst => $ _ [0]) -> pakke;

5 Vise dialogboksen ved å skrive inn følgende kode inn i editoren:

$ Button_clicked = $ dialog-> Show ();

6 Skriv inn noen nødvendige koden for behandlingen som skal skje når brukeren klikker på "Ja" eller "Nei" -knappen:

if ($ button_clicked eq "Ja") {kode hvis "Ja" alternativet er valgt} elsif ($ button_clicked eq "Nei") {kode hvis "No" alternativet er valgt} else {feilhåndtering koden går her}