Discussion :

[codezero1]

Bonjour ,

J'ai un code qui fonctionne bien ( voir plus bas ) .
Mais je n'arrive pas à utiliser cette fonction =

Code :

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

1
2
3
4
5
 function Get_Text (The_Entry : access Gtk_Entry_Record) return UTF8_String;
   --  Modify the text in the entry.
   --  The text is cut at the maximum length that was set when the entry was
   --  created.
   --  The text replaces the current contents.

Elle est disponible pour linux dans

Code :

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

/usr/share/ada/adainclude/gtkada/gtk-gentry.ads

Pour les autres OS , elle se trouve dans le dossier gtkada à l'endroit ou vous avez intallé la bibliothéque .

En effet , je veux utiliser cette fonction Get_text dans mon entrée text que j'ai créer , mais je ne sais pas comment faire !!

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
 
WITH Gtk.Main ;          USE Gtk.Main ;
WITH Gtk.Window ;        USE Gtk.Window ;
WITH Gtk.Enums ;         USE Gtk.Enums ;
WITH Gtk.Button ;        USE Gtk.Button ;
WITH Gtk.Alignment ;     USE Gtk.Alignment ;
WITH Gtk.Box ;           USE Gtk.Box ;
WITH Gtk.Gentry;         USE Gtk.Gentry;
 
PROCEDURE prototype IS
 
-------------------------------
   -- VARIABLES --    |
-----------------------------------------------------------
   win : Gtk_window ;
 
   Btn1, Btn2 ,Btn3  : Gtk_Button ;
 
   alignG, alignM ,alignD  : Gtk_Alignment ;
 
   Boite  : Gtk_VBox ;
 
   Boutons :  Gtk_HBox ;
 
   saisie : Gtk_Entry ;
 
-----------------------------------------------------------
BEGIN
 
   Init ;
 
--------------------
   -- NEW --   |
-------------------------------------------
 
   Gtk_New(win);  
 
   Gtk_New(saisie);
 
   Gtk_New(Btn1, "Bouton 1") ;
   Gtk_New(Btn2, "Bouton 2") ;
   Gtk_New(Btn3, "Bouton 3") ;
 
   Gtk_New(alignG,0.0,1.0,1.0,1.0);
   Gtk_New(alignM,0.5,1.0,1.0,1.0);
   Gtk_New(alignD,1.0,1.0,1.0,1.0);
 
  Gtk_New_VBox
  (Boite, homogeneous => false, Spacing => 0) ;
 
  Gtk_New_HBox
  (Boutons, homogeneous => false, Spacing => 0) ;
 
--------------------------------------------
 
   Boite.Pack_Start(saisie);
   Boite.Pack_Start(Boutons);
   Boutons.Pack_Start(alignG);
   Boutons.Pack_Start(alignM);
   Boutons.Pack_Start(alignD);
 
 
---------------------------------
--  Ajouts                    |
--------------------------------------------
 
   alignG.add(Btn1) ;
   alignM.add(Btn2) ;
   alignD.add(Btn3) ;
 
   win.Add(Boite);
 
 -------------------------------------------  
 
   win.Set_Default_Size(500,500) ;  
 
   win.set_position(Win_Pos_Mouse) ;
 
   -- win.set_opacity(0.7) ;
 
   win.Show_all ;
   Main ;
 
END prototype ;

Help !

[codezero1]

Edit=Je sais que pour avoir une réaction , il y les signaux .

Pour l'instant , je met de coté la réaction de la fenêtre et je me concentre sur la fonction Get_text .

J'ai modifié le code et utilisé la fonction comme ci-aprés =

Code :

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

saisie := Get_text(The_Entry => saisie);

Donc , la variable "saisie" de type = Gtk_Entry , est bien utilisée dans la fonction .

Mais alors POURQUOI le compilo affiche =

prototype.adb:74:14: expected type "Gtk_Entry" defined at gtk-gentry.ads:59
prototype.adb:74:14: found type "Standard.String"
Compilation échouée.
gnatmake: "prototype.adb" compilation error

???


Voici le code entier aprés la modification =

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
WITH Gtk.Main ;          USE Gtk.Main ;
WITH Gtk.Window ;        USE Gtk.Window ;
WITH Gtk.Enums ;         USE Gtk.Enums ;
WITH Gtk.Button ;        USE Gtk.Button ;
WITH Gtk.Alignment ;     USE Gtk.Alignment ;
WITH Gtk.Box ;           USE Gtk.Box ;
WITH Gtk.Gentry;         USE Gtk.Gentry;
 
PROCEDURE prototype IS
 
-------------------------------
   -- VARIABLES --    | 
-----------------------------------------------------------
   win : Gtk_window ;
 
   Btn1, Btn2 ,Btn3  : Gtk_Button ;
 
   alignG, alignM ,alignD  : Gtk_Alignment ;
 
   Boite  : Gtk_VBox ;
 
   Boutons :  Gtk_HBox ;
 
   saisie : Gtk_Entry ;
 
-----------------------------------------------------------
BEGIN
 
   Init ; 
 
--------------------
   -- NEW --   |
-------------------------------------------
 
   Gtk_New(win);   
 
   Gtk_New(saisie);
 
   Gtk_New(Btn1, "Bouton 1") ; 
   Gtk_New(Btn2, "Bouton 2") ; 
   Gtk_New(Btn3, "Bouton 3") ; 
 
   Gtk_New(alignG,0.0,1.0,1.0,1.0);
   Gtk_New(alignM,0.5,1.0,1.0,1.0);
   Gtk_New(alignD,1.0,1.0,1.0,1.0);
 
  Gtk_New_VBox
  (Boite, homogeneous => false, Spacing => 0) ;
 
  Gtk_New_HBox
  (Boutons, homogeneous => false, Spacing => 0) ;
 
--------------------------------------------
 
   Boite.Pack_Start(saisie);
   Boite.Pack_Start(Boutons);
   Boutons.Pack_Start(alignG);
   Boutons.Pack_Start(alignM);
   Boutons.Pack_Start(alignD);
 
 
---------------------------------
--  Ajouts                    |
--------------------------------------------
 
   alignG.add(Btn1) ;
   alignM.add(Btn2) ;
   alignD.add(Btn3) ;
 
   win.Add(Boite);
 
 -------------------------------------------  
 
   saisie := Get_text(The_Entry => saisie);
 
   win.Set_Default_Size(500,500) ;   
 
   win.set_position(Win_Pos_Mouse) ; 
 
   -- win.set_opacity(0.7) ;
 
   win.Show_all ; 
   Main ; 
 
END prototype ;

[codezero1]

Correction à faire=

Déclaration de chaine vide , donc =

Code :

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

chaine : String  := "" ;

Et utiliser la fonction avec =

Code :

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

chaine := Get_text(saisie);