hashi-ruby 1.0.0

data/bin/src/ui/Didacticiel.rb

@@ -0,0 +1,169 @@
+require "gtk3"
+
+# Fenetre comportant les règles du jeu, les techniques basiques
+# et des explications sur l'interface
+class Didacticiel < Gtk::Window
+
+    # Constructeur
+    def initialize()
+        super("Didacticiel")
+        self.set_default_size(700, 700)
+        self.signal_connect('destroy') { self.close() }
+        
+        vbox = Gtk::Box.new(Gtk::Orientation.new(1), 0)
+
+        vbox.margin = 15
+
+        view = Gtk::TextView.new()
+        view.wrap_mode = :word
+        view1 = Gtk::TextView.new()
+        view1.wrap_mode = :word
+        view2 = Gtk::TextView.new()
+        view2.wrap_mode = :word
+        view3 = Gtk::TextView.new()
+        view3.wrap_mode = :word
+        view4 = Gtk::TextView.new()
+        view4.wrap_mode = :word
+        view5 = Gtk::TextView.new()
+        view5.wrap_mode = :word
+        view6 = Gtk::TextView.new()
+        view6.wrap_mode = :word
+        view7 = Gtk::TextView.new()
+        view7.wrap_mode = :word
+        view8 = Gtk::TextView.new()
+        view8.wrap_mode = :word
+        view.buffer.text = 
+"   
+    Règles : 
+
+        Tout pont débute et finit sur une case.
+        Aucun pont ne peut en croiser un autre.
+        Tous les ponts sont en ligne droite.
+        Le nombre de ponts qui passent sur une case est le nombre indiqué sur la dite case.
+        Toutes les cases doivent être reliées entre elles.
+        Le nombre de ponts en direction de chaque case ne peut pas être supérieur à 2.
+
+    Techniques :
+
+        Une case 1 ayant un seul voisin doit forcément être reliée à ce voisin avec un pont. 
+"
+        
+        view1.buffer.text = 
+"        
+        Une case 2 ayant un seul voisin doit forcément relier 2 ponts à ce voisin. 
+"
+        
+        view2.buffer.text = 
+"        
+        Une case 3 ayant exactement 2 voisins doit avoir au moins un pont relié vers chaque (car s'il y avait 2 ponts vers un des voisin, il resterait un dernier pont à faire vers le second voisin).
+"
+        
+        view3.buffer.text = 
+"         
+        Une case 4 ayant exactement 2 voisins doit forcément relier 2 ponts à chaque voisin (car la limite de pont vers un voisin est de 2 et il y a 2 voisins, ce qui fait 4 ponts au total). 
+"
+        
+        view4.buffer.text = 
+"        
+        Une case 5 ayant exactement 3 voisins doit avoir au moins un pont relié vers chaque voisin (car s'il devait y avoir 2 ponts vers 2 voisins, il resterait un dernier pont à relier au dernier voisin). 
+"
+        
+        view5.buffer.text = 
+"        
+        Une case 6 ayant exactement 3 voisins doit forcément relier 2 ponts à chaque voisin (car la limite de pont vers un voisin est de 2 et il y a 3 voisins, ce qui fait 6 ponts au total) 
+"
+        
+        view6.buffer.text = 
+"        
+        Une case 7 ayant exactement 4 voisins doit avoir au moins un pont relié vers chaque voisin (car s'il devait y avoir 2 ponts vers 3 voisins, il resterait un dernier pont à relier au dernier voisin). 
+"
+        
+        view7.buffer.text = 
+"        
+        Une case 8 ayant exactement 4 voisins doit forcément relier 2 ponts à chaque voisin (car la limite de pont vers un voisin est de 2 et il y a 4 voisins, ce qui fait 8 ponts au total)
+"
+        
+        view8.buffer.text = 
+"        
+    Interface :
+
+        Les boutons : 
+            Annuler : Permet de revenir un coup en arrière.
+            Refaire : Permet de rétablir le dernier coup annulé.
+            Vérification : Permet de revenir au dernier état de jeu sans erreur. Cependant, votre score en sera pénalisé en mode Classé et Aventure.
+            Hypothèse : Permet d'émettre des hypothèses de liens. Ces liens seront d'une couleur différente pour vous signifier que vous entrez dans ce mode. À la fin de votre hypothèse, vous aurez
+le choix de la valider, ou bien de l'annuler afin de revenir à l'état du jeu avant l'hypothèse. 
+            Réinitialiser : Supprime tous les liens dans la grille.
+            Position : Met une case en surbrillance (vert) où une technique connue est applicable. 
+            Technique : Affiche dans la zone de texte une technique applicable sur l'une des cases de la grille, sans signifier laquelle.
+
+        Les clics sur : 
+            Triangle : Crée un lien vers la case voisine dans la direction du triangle.
+            Case : Met en évidence (en rouge) tous les liens de l'île à laquelle appartient cette case.
+            Lien : Supprime ce lien.
+"
+        view.sensitive = false
+        view1.sensitive = false
+        view2.sensitive = false
+        view3.sensitive = false
+        view4.sensitive = false
+        view5.sensitive = false
+        view6.sensitive = false
+        view7.sensitive = false
+        view8.sensitive = false
+        scroll = Gtk::ScrolledWindow.new()
+        image1 = Gtk::Image.new(:file => "../assets/didacticiel/1.jpg")
+        image2 = Gtk::Image.new(:file => "../assets/didacticiel/2.jpg")
+        image3 = Gtk::Image.new(:file => "../assets/didacticiel/3.jpg")
+        image4 = Gtk::Image.new(:file => "../assets/didacticiel/4.jpg")
+        image5 = Gtk::Image.new(:file => "../assets/didacticiel/5.jpg")
+        image6 = Gtk::Image.new(:file => "../assets/didacticiel/6.jpg")
+        image7 = Gtk::Image.new(:file => "../assets/didacticiel/7.jpg")
+        image8 = Gtk::Image.new(:file => "../assets/didacticiel/8.jpg")
+        
+
+        vbox2 = Gtk::Box.new(Gtk::Orientation.new(1), 0)
+
+        
+        vbox2.add(view)
+        vbox2.add(image1)
+
+        vbox2.add(view1)
+        vbox2.add(image2)
+        
+        vbox2.add(view2)
+        vbox2.add(image3)
+        
+        vbox2.add(view3)
+        vbox2.add(image4)
+        
+        vbox2.add(view4)
+        vbox2.add(image5)
+        
+        vbox2.add(view5)
+        vbox2.add(image6)
+
+        vbox2.add(view6)
+        vbox2.add(image7)
+
+        vbox2.add(view7)
+        vbox2.add(image8)
+
+        vbox2.add(view8)
+        
+        scroll.add(vbox2)
+        scroll.set_policy(:never, :automatic)
+        scroll.vexpand = true
+        
+        bouton = Gtk::Button.new(label: "Quitter")
+        bouton.signal_connect("clicked") { self.close() }
+        bouton.margin_top = 10
+
+        vbox.add(scroll)
+        vbox.add(bouton)
+
+        self.add(vbox)
+
+        self.show_all()
+    end
+end

data/bin/src/ui/Etiquette.rb

@@ -0,0 +1,24 @@
+# Etiquette pour les différents niveaux en mode aventure
+class Etiquette
+
+    attr_reader :x, :y, :w, :h, :s, :g
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +x+ - Position en x de l'étiquette
+    # * +y+ - Position en y de l'étiquette
+    # * +w+ - Largeur du rectangle
+    # * +h+ - Hauteur du rectangle
+    # * +s+ - Nombre d'étoiles
+    # * +g+ - Grille à jouer
+    def initialize(x, y, w, h, s, g)
+        @x = x
+        @y = y
+        @w = w
+        @h = h
+        @s = s
+        @g = g
+    end
+end

data/bin/src/ui/Europe.rb

@@ -0,0 +1,38 @@
+require "gtk3"
+require_relative "Carte"
+require_relative "Etiquette"
+
+# Widget Gtk affichant l'europe
+class Europe < Carte
+
+    # @factZoom => Facteur de zoom
+    # @dX => Décalage de l'affichage en x
+    # @dY => Décalage de l'affichage en y
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +carte+ - Carte principale
+    def initialize(carte)
+        super(carte)
+        @dX = -2350
+        @dY = -1300
+        @factZoom = 1.5
+
+        @g = carte.grillesM
+
+        self.dessinerEtiquettes()
+    end
+
+    def dessinerEtiquettes()
+        ajouterEtiquette(Etiquette.new(2250, 1380, 90, 30, @carte.etoiles[1][0], @g[0]))
+        ajouterEtiquette(Etiquette.new(2170, 1320, 90, 30, @carte.etoiles[1][1], @g[1]))
+        ajouterEtiquette(Etiquette.new(2180, 1490, 90, 30, @carte.etoiles[1][2], @g[2]))
+        ajouterEtiquette(Etiquette.new(2340, 1160, 90, 30, @carte.etoiles[1][3], @g[3]))
+        ajouterEtiquette(Etiquette.new(2440, 1340, 90, 30, @carte.etoiles[1][4], @g[4]))
+        ajouterEtiquette(Etiquette.new(2400, 1500, 90, 30, @carte.etoiles[1][5], @g[5]))
+        ajouterEtiquette(Etiquette.new(2620, 1250, 90, 30, @carte.etoiles[1][6], @g[6]))
+        super()
+    end
+end

data/bin/src/ui/ListeClassement.rb

@@ -0,0 +1,44 @@
+require "gtk3"
+
+class ListeClassement < Gtk::ScrolledWindow
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +difficulté+ - Niveau de difficulté (1 = facile, 2 = moyen, 3 = difficile) 
+    def initialize(difficulté)
+        super()
+        self.set_policy(Gtk::PolicyType::NEVER, Gtk::PolicyType::AUTOMATIC)
+        self.expand = true
+
+        nbColonnes = 3
+        types = [Integer, String, Integer]
+        @store = Gtk::ListStore.new(*types)
+        
+        joueurs = GestionBase.recupJoueurAll()
+
+        c = joueurs.map() do |x|
+            nb = GestionBase.recupNbGrillesJouees(x.id, difficulté)
+            score = nb > 0 ? GestionBase.recupScoreTotal(x.id, difficulté) / nb : 0
+            [x, score] 
+        end
+        c = c.sort() { |a,b| b[1] <=> a[1] }
+
+          c.each_index()  do |i|
+             iter = @store.append()
+             iter.set_values([i+1, c[i][0].pseudo, c[i][1]])
+         end
+
+         @tree = Gtk::TreeView.new(@store)
+         @tree.show_expanders = false
+
+         colonnes = ["Rang", "Nom d'utilisateur", "Score  moyen"]
+         colonnes.each_index() do |i|
+             renderer = Gtk::CellRendererText.new()
+             colonne = Gtk::TreeViewColumn.new(colonnes[i], renderer, {:text => i})
+             colonne.expand = true
+             @tree.append_column(colonne)
+         end
+         self.add(@tree)
+    end
+end

data/bin/src/ui/Menu.rb

@@ -0,0 +1,74 @@
+require "gtk3"
+
+# Menu principal
+class Menu < Gtk::Box
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +fenetre+ - Fenetre principale
+    def initialize(fenetre)
+        super(Gtk::Orientation.new(1), 0)
+
+        self.spacing = 5
+
+        boxHorizontale = Gtk::Box.new(Gtk::Orientation.new(0), 0)
+        boxHorizontale.homogeneous = true
+        boxHorizontale.margin_top = 10
+        c = Gtk::Label.new("")
+        c.hexpand = true
+        boxHorizontale.add(c)
+        b = Gtk::Button.new(label: "Didacticiel")
+        b.signal_connect("clicked") { fenetre.finMenu("didacticiel") }
+        boxHorizontale.add(b)
+        c = Gtk::Label.new("")
+        c.hexpand = true
+        boxHorizontale.add(c)
+        b = Gtk::Button.new(label: "Classement")
+        b.signal_connect("clicked") { fenetre.finMenu("classement") }
+        boxHorizontale.add(b)
+        c = Gtk::Label.new("")
+        c.hexpand = true
+        boxHorizontale.add(c)
+        self.add(boxHorizontale)
+
+        l = Gtk::Label.new("")
+        l.expand = true
+        self.add(l)
+
+        b = Gtk::Button.new(label: "Entraînement")
+        b.signal_connect("clicked") { fenetre.finMenu("entrainement") }
+        self.add(b)
+        b = Gtk::Button.new(label: "Classé")
+        b.signal_connect("clicked") { fenetre.finMenu("classe") }
+        self.add(b)
+        b = Gtk::Button.new(label: "Aventure")
+        b.signal_connect("clicked") { fenetre.finMenu("aventure") }
+        self.add(b)
+
+        l = Gtk::Label.new("")
+        l.expand = true
+        self.add(l)
+
+        boxHorizontale = Gtk::Box.new(Gtk::Orientation.new(0), 0)
+        boxHorizontale.homogeneous = true
+        boxHorizontale.margin_bottom = 10
+        c = Gtk::Label.new("")
+        c.hexpand = true
+        boxHorizontale.add(c)
+        b = Gtk::Button.new(label: "Déconnexion")
+        b.signal_connect("clicked") { fenetre.finMenu("deconnexion") }
+        boxHorizontale.add(b)
+        c = Gtk::Label.new("")
+        c.hexpand = true
+        boxHorizontale.add(c)
+        b = Gtk::Button.new(label: "Quitter")
+        b.signal_connect("clicked") { fenetre.finMenu("quitter") }
+        boxHorizontale.add(b)
+        c = Gtk::Label.new("")
+        c.hexpand = true
+        boxHorizontale.add(c)
+        self.add(boxHorizontale)
+    end
+end

data/bin/src/ui/Monde.rb

@@ -0,0 +1,167 @@
+require "gtk3"
+require_relative "Carte"
+
+# Widget Gtk affichant le monde
+class Monde < Carte
+
+    # @factZoom => Facteur de zoom
+    # @dX => Décalage de l'affichage en x
+    # @dY => Décalage de l'affichage en y
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +carte+ - Carte principale
+    def initialize(carte)
+        super(carte)
+        @dX = -2383
+        @dY = -1950
+        @factZoom = 0.5
+
+        self.dessinerEtiquettes()
+    end
+
+    def dessinerEtiquettes()
+        # Amérique du nord
+        self.drawRectangleVide(380, 900, 1300, 950, false)
+        n = @carte.etoiles[0].first(7).inject(:+)
+        self.drawTexte(380 + 1300/2, 900 + 950/2, "Amérique du nord : #{n}/21")
+
+        # Amérique du sud
+        @bAmeriqueSud = @carte.nbEtoiles >= 12
+        self.drawRectangleVide(1150, 1870, 700, 950, !@bAmeriqueSud)
+        if @bAmeriqueSud
+          n = @carte.etoiles[0].last(7).inject(:+)
+          self.drawTexte(1150 + 700/2, 1820 + 950/2, "Amérique du sud")
+          self.drawTexte(1150 + 700/2, 1920 + 950/2, "#{n}/21")
+        else
+          self.drawTexte(1150 + 700/2, 1870 + 950/2, "12 pour débloquer")
+        end
+
+        # Europe
+        @bEurope = @carte.nbEtoiles >= 24
+        self.drawRectangleVide(1980, 900, 850, 680, !@bEurope)
+        if @bEurope
+            n = @carte.etoiles[1].first(7).inject(:+)
+            self.drawTexte(1980 + 850/2, 900 + 680/2, "Europe : #{n}/21")
+        else
+            self.drawTexte(1980 + 850/2, 900 + 680/2, "24 pour débloquer")
+        end
+
+        # Asie
+        @bAsie = @carte.nbEtoiles >= 36
+        self.drawRectangleVide(2850, 750, 1200, 1350, !@bAsie)
+        if @bAsie
+            n = @carte.etoiles[1].last(7).inject(:+)
+            self.drawTexte(2850 + 1200/2, 750 + 1350/2, "Asie : #{n}/21")
+        else
+            self.drawTexte(2850 + 1200/2, 750 + 1350/2, "36 pour débloquer")
+        end
+
+        # Océanie
+        @bOceanie = @carte.nbEtoiles >= 48
+        self.drawRectangleVide(3375, 2120, 950, 550, !@bOceanie)
+        if @bOceanie
+            n = @carte.etoiles[1].first(7).inject(:+)
+            self.drawTexte(3375 + 950/2, 2120 + 550/2, "Océanie : #{n}/21")
+        else
+            self.drawTexte(3375 + 950/2, 2120 + 550/2, "48 pour débloquer")
+        end
+
+        # Afrique
+        @bAfrique = @carte.nbEtoiles >= 60
+        self.drawRectangleVide(1980, 1600, 850, 900, !@bAfrique)
+        if @bAfrique
+          n = @carte.etoiles[1].last(8).first(7).inject(:+)
+            self.drawTexte(1980 + 850/2, 1600 + 900/2, "Afrique : #{n}/21")
+        else
+            self.drawTexte(1980 + 850/2, 1600 + 900/2, "60 pour débloquer")
+        end
+        
+        # Antarctique
+        if @bAfrique
+            @bAntarctique = @carte.nbEtoiles >= 120
+            self.drawRectangleVide(1980, 3000, 850, 200, !@bAntarctique)
+            if @bAntarctique
+                n = @carte.etoiles[1].last.inject(:+)
+                self.drawTexte(1980 + 850/2, 3000 + 200/2, "Antarctique : #{n}/3")
+            else
+                self.drawTexte(1980 + 850/2, 3000 + 200/2, "120 pour débloquer")
+            end
+        end
+    end
+
+    # Dessin de la carte
+    #
+    # === Paramètres
+    #
+    # * +cr+ => Contexte sur lequel dessiner
+    def draw(cr)
+        #ic.rectangle(0, 0, 1000, 1000)
+        #ic.fill()
+        super(cr)
+    end
+
+    # Clic sur la souris
+    #
+    # === Paramètres
+    #
+    # * +event+ => Evenement Gtk contenant les informations sur le clic
+    def mouseClick(event)
+        x = getVX(event.x)
+        y = getVY(event.y)
+
+        # Europe
+        if x > 1980 && y >  900 && x < 1980+850 && y < 900+680
+            if @bEurope == true
+                s = "europe"
+            else
+                s = "null"
+            end
+            # Afrique
+        elsif x > 1980 && y > 1600 && x < 1980+850 && y < 1600+900
+            if @bAfrique == true
+                s = "afrique"
+            else
+                s = "null"
+            end
+            # Asie
+        elsif x > 2850 && y > 750 && x < 2850+1200 && y < 750+1350
+            if @bAsie == true
+                s = "asie"
+            else
+                s = "null"
+            end
+            # Océanie
+        elsif x > 3375 && y > 2120 && x < 3375+950 && y < 2120+550
+            if @bOceanie == true
+                s = "oceanie"
+            else
+                s = "null"
+            end
+            # Amérique du nord
+        elsif x > 380 && y > 900 && x < 380+1300 && y < 900+950
+            s = "ameriqueNord"
+            # Amérique du sud
+        elsif x > 1150 && y > 1870 && x < 1150+700 && y < 1870+950
+            if @bAmeriqueSud == true
+                s = "ameriqueSud"
+            else
+                s = "null"
+            end
+            # Antarctique
+        elsif x > 1980 && y > 3000 && x < 1980+850 && y < 3000+200
+            if @bAntarctique == true
+                s = "antarctique"
+            else
+                s = "null"
+            end
+        end
+        if s
+            if s != "null"
+              @carte.choix(s)
+            end
+        end
+    end
+end

data/bin/src/ui/Oceanie.rb

@@ -0,0 +1,38 @@
+require "gtk3"
+require_relative "Carte"
+require_relative "Etiquette"
+
+# Widget Gtk affichant l'oceanie
+class Oceanie < Carte
+
+    # @factZoom => Facteur de zoom
+    # @dX => Décalage de l'affichage en x
+    # @dY => Décalage de l'affichage en y
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +carte+ - Carte principale
+    def initialize(carte)
+        super(carte)
+        @dX = -3850
+        @dY = -2350
+        @factZoom = 1.3
+
+        @g = carte.grillesD
+
+        self.dessinerEtiquettes()
+    end
+
+    def dessinerEtiquettes()
+        ajouterEtiquette(Etiquette.new(3780, 2065, 90, 30, @carte.etoiles[2][0], @g[0]))
+        ajouterEtiquette(Etiquette.new(4090, 2220, 90, 30, @carte.etoiles[2][1], @g[1]))
+        ajouterEtiquette(Etiquette.new(3850, 2550, 90, 30, @carte.etoiles[2][2], @g[2]))
+        ajouterEtiquette(Etiquette.new(3850, 2400, 90, 30, @carte.etoiles[2][3], @g[3]))
+        ajouterEtiquette(Etiquette.new(3600, 2350, 90, 30, @carte.etoiles[2][4], @g[4]))
+        ajouterEtiquette(Etiquette.new(4140, 2600, 90, 30, @carte.etoiles[2][5], @g[5]))
+        ajouterEtiquette(Etiquette.new(3700, 2222, 90, 30, @carte.etoiles[2][6], @g[6]))
+        super()
+    end
+end

data/bin/src/ui/SelecteurGrille.rb

@@ -0,0 +1,58 @@
+require "gtk3"
+
+require_relative "AfficheurGrille"
+require_relative "../Grille"
+require_relative "../Case"
+require_relative "../Lien"
+
+# Widget Gtk permettant d'afficher un selecteur pour une grille
+class SelecteurGrille < Gtk::ScrolledWindow
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +fenetre+ - Fenetre principale
+    # * +dif+ - Difficulté à utiliser
+    def initialize(fenetre, dif)
+        super()
+        self.set_policy(Gtk::PolicyType::NEVER, Gtk::PolicyType::AUTOMATIC)
+        self.expand = true
+        @fenetre = fenetre
+
+	#à modifier
+	idMode = 1 # Entrainement
+        grilles = [GestionBase.recupGrilles(fenetre.joueur.id, dif, 1, 0, 5),
+                   GestionBase.recupGrilles(fenetre.joueur.id, dif, 1, 10, 5),
+                   GestionBase.recupGrilles(fenetre.joueur.id, dif, 1, 20, 5)].inject(:+)
+        #grilles = grilles.map() { |x| YAML.load(x.grilleSolution).grilleRes }
+
+        grid = Gtk::Grid.new()
+        grid.row_spacing = 40
+        grid.column_spacing = 40
+        grid.margin = 20
+        
+        x = 0
+        y = 0
+
+        grilles.each() do |g|
+            vBox = Gtk::Box.new(Gtk::Orientation.new(1), 0)
+            f = Gtk::Frame.new()
+            a = AfficheurGrille.new(YAML.load(g.grilleSolution), false, nil)
+            a.set_size_request(1,300)
+            a.expand = true
+            f.add(a)
+            vBox.add(f)
+            vBox.add(Gtk::Label.new("Grille n°#{x+y*3+1}"))
+            vBox.signal_connect("button-press-event") { @fenetre.finSelection(g, "entrainement") }
+            grid.attach(vBox, x, y, 1, 1)
+            x += 1
+            if x > 2
+                x = 0
+                y += 1
+            end
+        end
+
+        self.add(grid)
+    end
+end

data/bin/src/ui/SelectionDifficulte.rb

@@ -0,0 +1,38 @@
+require "gtk3"
+
+# Widget GTK permettant de choisir une difficulté
+class SelectionDifficulte < Gtk::Box
+
+    # Constructeur
+    #
+    # === Paramètres
+    #
+    # * +fenetre+ - Fenetre principale
+    def initialize(fenetre)
+        super(Gtk::Orientation.new(1), 0)
+
+        self.spacing = 5
+
+        l = Gtk::Label.new("")
+        l.expand = true
+        self.add(l)
+
+        b = Gtk::Button.new(label: "Facile")
+        b.signal_connect("clicked") { fenetre.finSelection(GestionBase.recupGrilleAleatoire(fenetre.joueur.id, 1, 2), "classe") }
+        self.add(b)
+        b = Gtk::Button.new(label: "Moyen")
+        b.signal_connect("clicked") { fenetre.finSelection(GestionBase.recupGrilleAleatoire(fenetre.joueur.id, 2, 2), "classe") }
+        self.add(b)
+        b = Gtk::Button.new(label: "Difficile")
+        b.signal_connect("clicked") { fenetre.finSelection(GestionBase.recupGrilleAleatoire(fenetre.joueur.id, 3, 2), "classe") }
+        self.add(b)
+
+        l = Gtk::Label.new("")
+        l.expand = true
+        self.add(l)
+
+        b = Gtk::Button.new(label: "Retour")
+        b.signal_connect("clicked") { fenetre.finSelection(nil, nil) }
+        self.add(b)
+    end
+end