Discussion :

[Pitchown]

Bonjour ,

je suis en train de tester Gtkada en suivant un tutoriel seulement j'ai une erreure de compilation que je n'arrive pas à résoudre malgré de nombreuses recherches...

l'erreur est : instantiation error at gtk-handlers.ads à la ligne PACKAGE Callback IS NEW Gtk.Handlers.Callback(Gtk_Widget_Record) ;

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
WITH Gtk.Button ;        USE Gtk.Button ;
WITH Gtk.Alignment ;     USE Gtk.Alignment ;
with gtk.label;          use gtk.Label;
WITH Gtk.Fixed ;         USE Gtk.Fixed ;
WITH Gtk.Bin ;           USE Gtk.Bin ; 
WITH Gtk.Handlers ;      
WITH Gtk.Widget ;        USE Gtk.Widget ;
 
 
PROCEDURE MaFenetre IS
 
 PACKAGE Callback IS NEW Gtk.Handlers.Callback(Gtk_Widget_Record) ; 
 USE Callback ;
 
 
   PROCEDURE Stop_Program(Emetteur : access Gtk_Widget_Record'class) IS
      PRAGMA Unreferenced (Emetteur);
   BEGIN
      Main_Quit;
   END Stop_Program ;
 
 
 
 
 
   Win                     : Gtk_Window ;
   Couche                  : Gtk_Fixed ;
   Btn1, Btn2              : Gtk_Button ;
   lbl                     : Gtk_Label ;
BEGIN
   Init ;
   Gtk_New(Win,Window_Toplevel) ;
   Win.Set_Title("Fixes") ;
   win.set_default_size(250,200) ;
 
   Gtk_New(Couche) ;
   Win.Add(Couche) ;
 
   Gtk_New(Btn1, "Bouton 1") ; Couche.put(Btn1,0,0) ;
   Gtk_New(Btn2, "Bouton 2") ; Couche.put(Btn2,65,0) ;
   Gtk_new(lbl, "coucou");     couche.put(lbl,50,50);
 
   Connect(Win, "destroy", Stop_Program'ACCESS) ;
   Connect(Btn1, "clicked", To_Marshaller(Stop_Program'ACCESS)) ;
 
   Win.Show_all ;
   Main ;
END MaFenetre ;

Si quelqu'un d'entre vous à une solution merci d'avance

[Invité]

Bonjour, il manque simplement 3 clause with/use :

Code :

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

1
2
3
with Gtk.Main;           use Gtk.Main;
with Gtk.Enums;          use Gtk.Enums;
with Gtk.Window;         use Gtk.Window;

A plus.

[Pitchown]

je les avaient oublié dans mon copier-coller ;( with Gtk.Main; use Gtk.Main; with Gtk.Enums; use Gtk.Enums; with Gtk.Window; use Gtk.Window; sont bien dans le programme

[Invité]

J'ai pas d'erreur, ça compile link et execute normalement.

[Pitchown]

et bien la je ne sais pas d'ou cela peut venir !

[Blackknight]

Procédons dans l'ordre :

• Quel version de GtkAda utilises-tu ?
• Quelle version de Gnat ?
• Sur quel OS ?
• Quelle ligne de commande utilises-tu pour compiler ?

Parce que le problème, c'est que ça marche très bien aussi,chez moi sous Ubuntu

[Pitchown]

alors j'utilise GPS 6.0.1 , GNAT GPL 2014 dans GPS je vais dans build > setting >target > tarjet model " gnatmake " (j'ai suivit un tuto )

et l'os c'est windows 7

merci du coup de main