Perl/TK

[r00t]

Δυστυχώς όχι, δεν μπορώ να σε βοηθήσω με το exe διότι δεν έχω το ίδιο λειτουργικό με εσένα. Ούτε με tinyperl έχω ασχοληθεί, το application μου το διανέμω με το πηγαίο κώδικα χωρίς να το έχω κάνει σε μία εκτελέσιμη μορφη.

 

 

[dominant]

Mia erotish sxetika me design, pos mporeis na stoixiseis ta koublia kai ta labels pano se ena parent widget?

[r00t]

Κοίτα το geometry manager,

 

Υπάρχουν μέθοδοι, όπως η pack

που είναι υπεύθυνα για την τοποθέτηση αντικειμένων μέσα σε

widget.

 

 

[dominant]

Eutixos vrika to Learning Perl/Tk kai so8ika kata mia ennoia.

 

Xrisimopoio to grid kai ola stixoizontai kateuxin.

 

Ena allo erotima sxetika me dialog boxes. Pos mporeis na doseis command sta default koubia tou? ( ennoo patontas Ok na kanei ena callback kai cancel antistoixa.)

[r00t]

Για να κάνεις κάτι τέτοιο θα πρέπει να καλέσεις μία subroutine μέσω του command argument και μετά να κοιτάξεις τι θες να κάνεις μέσα στο subroutine. Αν δεις το κώδικα μου στην 1η σελίδα, τότε θα καταλάβεις. Σε ένα κουμπί που είναι για Browse κάνω assign τη subroutine "selectsinglefile"..... πιστεύω να καταλαβαίνεις....

 

>
$incol3fr->Button(-text=>'Browse', 
-command=> [ \&selectsinglefile, \$testfile_e , \$main] , 
       -borderwidth=>1, 
       -padx=> 0, 
       -pady=> 0, 
       )->pack(-side=>'top', 
          -anchor=>'nw', 
); 
   
 

[dominant]

Exo teliosei me to gui mou. To vrika auto me to dialog boxes apla h me8odos Show epistrefei to label tou default button.

 

Tora ola pane mia xara mexri stigmhs