Gtkada : GtkEntry & Get_Text

[c***@gmail.com]

Bonjour ,

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

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.

En effet , je veux utiliser cette fonction dans mon code , mais je ne sais pas comment faire ! :p


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 ;

[c***@gmail.com]

Bon , si je connecte l'entrée à un signal peut-être que je pourrai utiliser la fonction ?

Mais , je ne sais pas comment faire...

[c***@gmail.com]

Edit=Je sais que pour avoir une réaction , il y a 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 =

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


???

[Blady]

Post by c***@gmail.com
Edit=Je sais que pour avoir une réaction , il y a 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 .

...

Post by c***@gmail.com
???

Bonjour,

Pour débuter avec GTKAda essaye les quelques exemples du tuto :
http://blady.pagesperso-orange.fr/telechargements/gtkada/gtk-ada.pdf

Cordialement, Pascal.
http://blady.pagesperso-orange.fr

[c***@gmail.com]

Je vais utiliser ton lien .

Cependant, qu'est-ce que tu ne comprenais pas exactement dans mon post ??