Discussion :

[Thornn654]

Bonjour je débute dans le Perl Tk et je me vois attribuer le rôle de faire une interface graphique.

Pour commencer , j'ai une barre de menu asser chargée en éléments.

voici l'image :

http://www.heberger-image.fr/images/...titre.png.html

J'ai repartis les menus dans plusieurs fichier propre appelé par son nom : "File.pl" .... ect....

Est-il possible d'appeler les fichiers pour que l'interface puisse se faire ?

[alainbb]

Je passerais pas le concept de Module

renomme ton fichier en File.pm
Insère au début
Package File;
à la fin
return 1;

Dans ton fichier principal
use File;

et dans ta routine de création de fenêtre
File::NomDeTaRoutineDansFile

[Thornn654]

- Est ce normal que une fois le fichier sois mis en .pm il ne soit plus ouvrable ?

- le Use File; est à utilisé dans la Mainloop ? ou juste avant ?

- File::NomRoutine... Qu'est ce que la routine précisemment ? Voici un bout du code ( le code est nettement plus long )

Fichier : Menu File

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
# menu File 
 
Package File;
 
my $menu_File = $menu_bar->cascade( -label => 'File', -tearoff => 0, ); 
$menu_File->command( -label   => 'Open Ctrl - O', ); 
 
my $cascade1 = $menu_File->cascade( -label => 'Open as', -tearoff => 0, );
$menu_File->separator; 
 
$cascade1->command( -label   => 'Slice...', );
$cascade1->separator;
 
$cascade1->command( -label   => 'RGB Image...', );
$cascade1->command( -label   => 'RGB Cube...', );  
$cascade1->separator;
 
$cascade1->command( -label   => 'Multiple Extension Cube...', );
$cascade1->command( -label   => 'Multiple Extension Frames...', );  
$cascade1->separator;
return 1;

Fichier principal

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
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::FileSelect;
 
#use File::menu_File
 
my $txt = "Lancement";
my $i   = 1;
my $filename;
my $b_var;
my $b_menu;
 
 
# Création fenêtre / taille / titre
 
my $soft = MainWindow->new;
$soft->geometry("800x550+0+0");
$soft->title("Programme Astronomique");
 
# Création barre de menu 
 
my $menu_bar = $soft->Menu( -type => "menubar", ); 
$soft->configure( -menu => $menu_bar, );
 
MainLoop;

[alainbb]

Ouvrable ? veut tu dire exécutable ? si c'est ça, en effet, il n'y a pas de raison de l'exécuter tout seul (j'imagine qu'on peut faire des modules exécutable, mais c'est pas le sujet).

Use File; se met en début , après tes use Tk,...

Mon idée, il y en a surement d'autres, est de faire un
sub menu_file {

return $menu_File
}
de tout ton fichier File.pm,
Et tu raccorches ton $menu_file au bon endroit de ta barre de menu.

[Thornn654]

Bonjour,

le submenu serait trop encombrant j'ai plus de 1000 lignes de menu, ça ferait nettement trop pour s'y retrouver.

- Je ne sais toujours pas ce qu'il faut faire dans votre indication " File::NomDeTaRoutineDansFile "

j'ai une érreur :

Code :

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

Can't locate object method "Package" via Package "File" at File.pm line 4.

[Lolo78]

Pour déclarer un module, utilise le mot-clef package, pas Package (tout en minuscules, donc).