Discussion :

[Elverion]

Bonjour,

Pour m'amuser j'écrit un script ( qui en fait est un bloc-note ) avec interface graphique.
Pour l'instant elle est en Tk et assez minimaliste.

Je voudrais la faire évoluer avec des graphismes un peu plus évolués ( couleurs, reliefs autres que ceux standards dans Tk etc ).

Est ce que c'est faisable avec Tk ou est ce que je doit plutôt utiliser un autre module?
Autre petite question, j'ai en ce moment mon code IHM ( interface homme machine ) mélangé avec mon code métier et je voudrais les séparer.
Comment puis-je faire?

D'avance merci de vos réponses

[djibril]

Avec Tk tu as déjà pas mal de façon de faire pour mettre des couleurs et je doute que tu es utilisé toute les capacité de Tk.
Pourrais tu nous montrer ton code ?

[Elverion]

Bonjour,

Merci d'avoir répondu si rapidement ( et merci du déplacement, je devrais apprendre à regarder ).

Voici mon code ( assez moche ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

Je n'ai utilisé que les outils de bases de Tk ( relief ... ) le reste je ne connais absolument pas.

[djibril]

en effet pour l'instant ton appli ne fais pas beaucoup de choses, donc je ne vois pas ce que tu trouve moche ?
Tu peux déjà colorier si tu veux, faire des tests.

[Elverion]

Ce que je voudrais c'est rendre mon interface un peu plus conviviale parce que la l'interface style nedit n'est pas très "user friendly" pour utiliser un terme à la mode.

Je vais fouiller pour trouver de la bonne doc sur Tk et je vais remanier tout ça voir ce que ça donne.