Discussion :

[Viduc]

Bonjour,

Sur tes conseils Djibril, je suis en train de modifier mon apli pour utiliser pack et grid...

j'ai pas mal avancé sur le concept et en effet c'est bien pratique mais là je seiche sur un truc con...

Dans ma fenêtre principale, je veux créer deux frames (qui contiendront chacune d'autres frames après...).

La première fait toute la largeur de la page sur une hauteur de 150, et la deuxième le reste de la place...

Voici le code:

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
use strict;
use Tk;
use Tk::Photo;
use Tk::JPEG;
use Tk::Table;
use Tk::Dialog;
use Win32::NetResource qw(:DEFAULT AddConnection CancelConnection);
use Win32::Registry;
use Fonction_Admin_Isotop;
 
# -- Définition des Variables Tk -- #
my ($Fenetre_Principale, $Frame_Principale );
my ($Cadre_Haut, $Cadre_Bas);
my ($Image_Gauche_Logo, $Frame_Gauche_Logo);
my ($Frame_Gauche_Menu, $Frame_Top, $Frame_Main);
my ($Barre_Menu, $Menu_App, $DBI_MyAdmin_Menu, $Menu_Quitter);
 
my $foreground_1 = "black";
my $font_1 = "{Garamond} 12";
my $color_menu_1 = "PeachPuff4";
my $color_menu_2 = "DarkSlateGray3";
my $color_principale = "bisque4";
my $mappage = Fonction_Admin_Isotop::Recuperation_Information_BDR("MAPPAGE"); # A VOIR!!!!
my $Logo ="$mappage:/Ressources/Images/Logo_Isotop_Transparent_5.gif";
my $Icon_Modif ="$mappage:/Ressources/Images/Icon_Modif.jpeg";
my $Bouton_ON = "$mappage:/Ressources/Images/Bouton_ON.gif";
my $Bouton_OFF = "$mappage:/Ressources/Images/Bouton_OFF.gif";
my $ON_OFF = "$mappage:/Ressources/Images/ON_OFF.gif";
my $dbargs = {AutoCommit => 0, PrintError => 1};
 
my ($Entry_NAME, $Entry_GROUPE, $Entry_CODEISO, $Entry_CODEPRO, $Label_IN_TYPE, $Entry_START, $Label_IN_ICON, $Label_IN_SESSION, $Label_IN_VIE, $Text_INFO);
 
# -- Création de la Fenêtre Principale -- #
$Fenetre_Principale = MainWindow->new();
$Fenetre_Principale->minsize( '800', '600' );
$Fenetre_Principale->title("Interface Admin ISOTOP");
 
#===================================
# Création d'un menu principal
#===================================
$Barre_Menu = $Fenetre_Principale->Menu(-type => "menubar");
$Fenetre_Principale->configure( -menu => $Barre_Menu );
 
# Configuration de mon menu
	# Menu Application (qui contiendra des sous menu)
	$Menu_App = $Barre_Menu->cascade(-label => "Application", -tearoff => 0);
	$DBI_MyAdmin_Menu = $Menu_App->cascade(	-label => "DBI_MyAdmin", 
											-tearoff => 0, 
											-background  => $color_menu_1,
											-activebackground  => $color_menu_2,
											-foreground => $foreground_1, 
											-font => $font_1);
	foreach ( qw/ Langue Jetton / ) {$DBI_MyAdmin_Menu->command(	-label   => $_, 
															-command => [\&My_Admin, $_]);}
	# Autre Menu
	$Menu_Quitter = $Menu_App->command(	-label => "Quitter", 
										-command => sub {exit(0);}, 
										-background  => $color_menu_1,
										-activebackground  => $color_menu_2,
										-foreground => $foreground_1,
										-font => $font_1);
 
# Création de la Première fenêtre
Frame_Principale();
 
# -- Lanceur d'évènement -- #
MainLoop;
 
# -- Fonctions Principales -- #
sub Frame_Principale
	{
	# -- Création de la Frame Centrale -- #
	#$Frame_Principale = $Fenetre_Principale->Frame(-background  => 'blue');
	#$Frame_Principale->pack(-side => 'left', -fill   => 'both', -anchor => 'nw', -expand => 1);
 
	# -- Création du Cadre_Haut --#
	$Cadre_Haut = $Fenetre_Principale -> Frame(-background  => 'green', -height => 150);
	$Cadre_Haut -> pack(-side => 'top', -fill => 'x', -anchor => 'nw', -expand => 1);
 
	# -- Création du Cadre_Bas --#
	$Cadre_Bas = $Fenetre_Principale -> Frame(-background  => 'red');
	$Cadre_Bas -> pack(-side => 'top', -fill => 'both', -anchor => 'sw', -expand => 1);	
	}

et voila ce que ça me donne:



je n'arrive pas à ce que le deuxième cadre remplisse tout... j'ai toujours la bande vide au milieu, j'ai essayé de créer une autre frame pour englober les deux mais pareils, puis toutes les options possible de pack et rien à faire...

Suis je bête?

[Viduc]

personne pour m'aider ?

[djibril]

Au niveau des options de pack, regardes l'option -fill both.

[Viduc]

Salut!!

Bah en faite j'ai déjà testé x ou y... le truc c'est que je veux que le premier cadre fasse 150 de haut et largeur 100%, ça ça marche impec...

Le deuxième cadre doit faire le reste, donc comme je ne peux connaitre ni la hauteur, ni la largeur j'ai mis 'both' ... mais j'ai l'impression que pack divise de lui même la fenêtre en fonction du premier cadre et applique une proportion au deuxième...?

[Jasmine80]

Cela fonctionnera si tu mets expand du cadre du haut à 0

Code :

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

1
2
3
4
5
6
7
	# -- Création du Cadre_Haut --#
	$Cadre_Haut = $Fenetre_Principale -> Frame(-background  => 'green', -height => 150);
	$Cadre_Haut -> pack(-side => 'top', -fill => 'x', -anchor => 'nw', -expand => 0);
 
	# -- Création du Cadre_Bas --#
	$Cadre_Bas = $Fenetre_Principale -> Frame(-background  => 'red');
	$Cadre_Bas -> pack(-side => 'top', -fill => 'both', -anchor => 'sw', -expand => 1);

[djibril]

C'est Ok avec les conseils de jasmine ?