Πώς να κάνει ένα παράθυρο διαλόγου γρήγορης X11 σε Perl

Τα παράθυρα διαλόγου που χρησιμοποιούνται σε εφαρμογές των υπολογιστών να επικοινωνούν πληροφορίες για τους χρήστες , ή για την αλληλεπίδραση με τους χρήστες . Ένα τυπικό παράδειγμα ένα παράθυρο διαλόγου είναι ένα παράθυρο pop -up που εμφανίζεται όταν κάνετε κλικ σε ένα κουμπί ή να εκτελέσετε μια ενέργεια , ενώ χρησιμοποιώντας ένα πρόγραμμα . Αυτά έχουν συνήθως ένα μήνυμα και ένα "OK " και " Cancel" κάνετε κλικ για να περάσει τη συγκατάθεσή σας , ή έλλειψη επ 'αυτού , την επιστροφή στην αίτηση . Το λειτουργικό σύστημα X-Windows ( X11) για UNIX υποστηρίζει διαλόγου σε Perl μέσω του πλαισίου Tk , το οποίο είναι ένα γραφικό interface ( GUI ), το σύστημα του χρήστη , που επεκτείνει τη λειτουργικότητα της γλώσσας προγραμματισμού Perl , απλοποιώντας την κωδικοποίηση του διαλόγου . Οδηγίες
Η 1

Εκκίνηση Perl εφαρμογή επεξεργασίας σας . Ένα απλό επεξεργαστή κειμένου θα είναι αρκετό , αρκεί να αποθηκεύσετε το αρχείο με ένα " . Pl " επέκταση , καθώς αυτό θα δείξει στο σύστημα που το αρχείο είναι ένα πρόγραμμα Perl . 2

Πληκτρολογήστε την κεφαλίδα πρόγραμμα Perl και να ξεκινήσει ένα νέο πρόγραμμα , συμπεριλαμβανομένης της « Tk :: DialogBox " μονάδα τοποθετώντας τις ακόλουθες γραμμές στο πάνω μέρος του αρχείου :

# /bin /perl -w
χρήση

Tk ? χρήση Tk :: DialogBox ?

$ κύριες = MainWindow - > νέα μου?
εικόνων 3

Δημιουργήστε ένα απλό , γρήγορο " ναι /όχι " παράθυρο διαλόγου , πληκτρολογώντας την ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας :

$ διαλόγου = $ κύρια - > DialogBox ( - title = > " Πληκτρολογήστε τον τίτλο σας εδώ " , κουμπιά = > [ " Ναι ", "όχι " ] ) ?

Αυτό θα σας δώσει ένα παράθυρο διαλόγου με δύο κουμπιά, το ένα με την ένδειξη " Ναι " και το άλλο φέρει την ένδειξη " Όχι "
Η 4

Προσθέστε ένα μήνυμα στο κουμπί χρησιμοποιώντας μια ετικέτα πληκτρολογώντας τον ακόλουθο κώδικα στον επεξεργαστή :

$ διαλόγου - > προσθήκη ( " Πληκτρολογήστε την ετικέτα /το μήνυμά σας εδώ " , κείμενο = > $ _ [ 0 ] ) - > πακέτο ?
5

Εμφανίστε το παράθυρο διαλόγου , πληκτρολογώντας τον παρακάτω κώδικα στον επεξεργαστή :

$ button_clicked = $ διαλόγου - > Show ( ) ?
Η 6

Πληκτρολογήστε το απαιτούμενο κωδικό για την επεξεργασία που θα πρέπει να λάβει χώρα όταν ο χρήστης κάνει κλικ στο κουμπί " Ναι " ή "Όχι " :

if ( $ button_clicked eq " Ναι " ) { κωδικό αν " Ναι "επιλογή επιλέγεται } elsif ( $ button_clicked eq" Όχι " ) { κωδικό εάν " Όχι " λύση που θα επιλεγεί } else { λάθος χειρισμό κώδικα πηγαίνει εδώ }
Η
εικόνων