1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126
|
#!/usr/bin/perl -w
# Bloc-note ecrit par Elverion
# Le 25/01/2008
#
use Tk;
use strict;
use encoding "iso-8859-1";
use utf8;
my $nomFichier;
my $phrase;
my $fen;
my $barre_menu;
my $menu_gen;
my $barre_statut;
my $zoneTexte;
my $recup;
my $f_open;
my $text;
$text="";
sub recupNom
{
# Mini fenetre qui demande le nom du fichier a ouvrir
$f_open = $fen->Toplevel();
$f_open->title("Ouvrir");
$f_open->grab();
$f_open->raise();
$f_open->Entry(
-textvariable => \$nomFichier , #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$f_open->Button(
-text => 'Ouvrir',
-font => '{Garamond} 10',
-command => \&ouvrir
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
}
sub nouveau
{
open FICHIER, "< $nomFichier.oj" or die "Le fichier n'existe pas ou n'est pas accessible en lecture\n";
close FICHIER;
$zoneTexte = $fen->Text->pack();
$zoneTexte->pack(-fill=>'both');
}
sub ouvrir
{
open FICHIER, "< $nomFichier.oj" or die "Le fichier n'existe pas ou n'est pas accessible en lecture\n";
while (my $ligne = <FICHIER>)
{
$text=$text.$ligne."\n";
}
$zoneTexte = $fen->Text->pack();
$zoneTexte->insert("end", "$text");
$text="";
$zoneTexte->pack(-fill=>'both');
close FICHIER;
$f_open->destroy();
}
sub sauver
{
open FICHIER, "> $nomFichier.oj" or die "Le fichier n'existe pas ou n'est pas accessible en ecriture\n";
$text=$zoneTexte->get('1.0','end');
print FICHIER "$text";
$text="";
close FICHIER;
}
sub Quitter
{
exit(0);
}
$fen = MainWindow->new();
$fen->minsize('500','400');
$fen->title("Elnote");
$barre_menu = $fen->Frame(-relief => 'ridge' , -borderwidth => 2);
$menu_gen = $barre_menu->Menubutton (
-text => 'Application' ,
-font => '{Garamond} 10',
-relief => 'ridge',
-tearoff => 0 ,
-menuitems => [
[ 'command' => 'Nouveau', -font => '{Garamond} 10', -command => \&nouveau ],
[ 'command' => 'Ouvrir', -font => '{Garamond} 10', -command => \&recupNom ],
[ 'command' => 'Sauver', -font => '{Garamond} 10', -command => \&sauver ],
[ 'command' => 'Quitter', -font => '{Garamond} 10', -command => \&Quitter ]
]
);
$menu_gen->pack(-side => 'left');
$barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');
$barre_statut = $fen->Label(-relief => 'ridge', -text => "Bienvenue dans le bloc-note d'Elverion", -font => '{Garamond} 10');
$barre_statut->pack( -side => 'bottom', -fill => 'both');
MainLoop; |
Partager