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; |
