Προς το περιεχόμενο

Perl/TK


r00t

Προτεινόμενες αναρτήσεις

Δημοσ.

Ποιο module σου λείπει δηλάδή ; Modules υπάρχουν παντού όχι μόνο στο CPAN. πες μου όνομα, να στο στείλω. Επιπλέον use google βάλε το module name θα βρεις πολλα mirrors.

 

 

;-)

  • Απαντ. 35
  • Δημ.
  • Τελ. απάντηση
Δημοσ.

evala ta modules pou apaitountan kai eida thn efarmogh, pareola auta mou vgazei merika provlimatakia.

 

Tora ftiaxno to menu kai 8elo na valo ena rule gia na ksexorizei apo to upoloipo window.

 

Ksereis pos ginete?

 

Exo kanei to menu me ton perlish way.

Δημοσ.

Hello,

 

 

Υπάρχει ένα reserved word seperator και νομίζω η σύνταξη του θα είναι κάπως έτσι

 

>
my $menuitems =
   

      [Cascade => "~File", -menuitems =>
      [Button => "~New", -command => \&new],
      [Separator => ""],
      [Button => "~Open", -command => \&open],
      

και τα λοιπα.....

 

 

'Oso για την άλλη ερώτηση σου, δεν έχω ασχοληθεί sorry...

Δημοσ.

Sorry δεν σε κατάλαβα, γιατί δεν χρησιμοποιώ Explorer και windows γενικότερα. Μπορείς να γίνεις λίγο πιο σαφής

 

 

Ευχαριστώ

Δημοσ.

Hello,

 

 

Νομίζω ότι αυτό έχει να κάνει με το -relief, αν δεις το 3ο tab στο παράδειγμα μου θα καταλάβεις γιατί έχω κάνει πολλά frames, προκειμένου να τα φέρω όπως θέλω ( αν αλλάξεις το χρώμα, θα καταλάβεις πιο frame είναι μέσα σε πιο).

 

Αν πάλι βοηθάει για κάνε compile αυτό

 

>
#/usr/bin/perl;
use Tk;

$top = new MainWindow;

create_gui();

sub create_gui {

   my $menuitems = 
   [

    [Cascade => "~File", -menuitems =>
     [
      [Button => "~New", -command => \&new],
      [Separator => ""],
      [Button => "~Open", -command => \&open],
      [Button => "~Save", -command => \&open],
      [Button => "~Save As", -command => \&open],
      [Cascade => "~Export", -menuitems =>
[
 [Button => "~GIF", -command => sub { export("gif")}],
 [Button => "~JPG", -command => sub { export("jpg")}],
 [Button => "~BMP", -command => sub { export("bmp")}],
]
      ], 
      [Separator => ""],
      [Button => "~Print", -command => \&printcmd],
      [Button => "~Quit", -command => \&quitapp],
     ]
    ],

    [Cascade => "~Edit", -menuitems =>
     [
      [Button => "~Copy", -command => \&copy],
      [Button => "C~ut", -command => \&cut],
      [Button => "~Paste", -command => \&paste],
     ]
    ],

    [Cascade => "~Help", -menuitems =>
     [
      [Button => "~Index", -command => \&helpindex],
      [Button => "~About", -command => \&about],
     ]
    ],
   ];

   if ($Tk::VERSION >= 800) {
$menubar = $top->Menu(-menuitems => $menuitems);
$top->configure(-menu => $menubar);
   } else {
$top->Menubutton(-text => "Pseudo menubar",
		 -menuitems => $menuitems)->pack;
   }
}

MainLoop;

Δημοσ.

Mporeis na travikseis grammh toulaxiston akrivos kato apo to menu bar?

 

Kati allo. Pos mporeis na ka8ariseis to MainWindow, giati opote klikaro se mia option apo to menu 8elo na mou efmanizontai alla labels buttons ktlp.

 

Diladi san na kaneis unpack ola ta prohgoumena kai na vazeis kainouria.

Δημοσ.

Αυτό που θα συνιστούσα για να δεις τι υπάρχει διαθέσιμο στα demo, της Τκ. Δεν ξέρω πως θα το κάνεις στα windows, αλλά υπάρχει, ένας φάκελος με perl τα οποία δείχνουν, όλους τους widgets που υπάρχουν διαθέσιμοι.

 

 

Αυτά τα ολιγά,

Δημοσ.

den nomizw,

 

prepei na deis se ena directory sinithos legetai demo,

to opoio exei *.pl files.

 

Isos iparxei kapoio interface gia windows to opoio edn gnwrizw

px kapoios manager o opioos sou ta deixnei ola.

 

 

 

Euxaristw

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...