Ada

[Résolu][GTK]Utiliser la fonction Get_text

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][GTK]Utiliser la fonction Get_text

eroge

Bonjour ,

Voici un code qui se compile et fonctionne .
Seulement les conditions dans le bloc de déclaration sont ignorés .

Pourquoi ???

Aussi , certains pourront trouver ça étrange , mais pour un autre programme uniquement avec la lib Ada.text_io , la function Get_Line utilisé dans un bloc comme Get_text ci dessous , fonctionnait trés bien et rien n'était ignoré dans le bloc !! :pt1cable:

Code :

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;
with Ada.text_io;
 
PROCEDURE prototype IS
 
-------------------------------
   -- VARIABLES --    | 
-----------------------------------------------------------
   win : Gtk_window ;
 
   Btn1, Btn2 ,Btn3  : Gtk_Button ;
 
   alignG, alignM ,alignD  : Gtk_Alignment ;
   
   Boite  : Gtk_VBox ;
   
   Boutons :  Gtk_HBox ;
      
   space : Gtk_Entry ;
      
-----------------------------------------------------------
BEGIN
 
   Init ; 
   
--------------------
   -- NEW --   |
-------------------------------------------
 
   Gtk_New(win);   
   
   Gtk_New(space);
 
   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(space);
   Boite.Pack_Start(Boutons);
   Boutons.Pack_Start(alignG);
   Boutons.Pack_Start(alignM);
   Boutons.Pack_Start(alignD);
   
 
---------------------------------
--  Add                    |
--------------------------------------------
 
   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) ;
   
    declare 
 
    name : String := get_text(space) ; 
 
         begin
         
         if name= "user"
         then Ada.text_io.Put("Hello" );
         end if;
         
    end ;
   
   win.Show_all ; 
   Main ; 
 
END prototype ;

Message édité par eroge le 22-12-2015 à 00:39:26

Publicité

eroge

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 :

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

:??: :ouch:

Voici le code entier aprés la modification =

Code :

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 ;

Message édité par eroge le 18-12-2015 à 06:07:27

gilou

Modérateur
Modzilla

saisie := Get_text(The_Entry => saisie);
Si tu supposes que les deux arguments du message d'erreur ont été inversés:
prototype.adb:74:14: expected type "Standard.String" defined at gtk-gentry.ads:59
prototype.adb:74:14: found type "Gtk_Entry"
Ça devient plus clair, car je suppose que Get_text devrait renvoyer une String et non pas une Entry, non?
Et en allant vérifier:

Citation :

function Get_Text
(The_Entry : not null access Gtk_Entry_Record) return UTF8_String;

(et en plus, il devrait pas y avoir une majuscule à text?)
Tu pourras faire un rapport de bug pour le compilo quand à cette inversion de paramètres.

A+,

Message édité par gilou le 18-12-2015 à 13:56:25

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

eroge

merci de ton aide @gilou ,

Finalement c'est pas la faute du compilo .

Correction à faire=

Déclaration de chaine vide , donc =

Code :

chaine : String  := "" ;

Et utiliser la fonction avec =

Code :

chaine := Get_text(saisie);

Message édité par eroge le 22-12-2015 à 00:38:42

FORUM HardWare.fr

Programmation

Ada

[Résolu][GTK]Utiliser la fonction Get_text

Sujets relatifs
Utiliser getClass() dans une fonction	Utiliser une variable dans une fonction range.value
Problème pour utiliser la fonction split	quelle fonction utiliser?
Utiliser une fonction du shell dans un programme C	Utiliser un variable, lancer une fonction d'un autre movieclip?
utiliser la fonction number_format() pour ajouter une virgule	Utiliser une fonction sur un pointeur
Fonction à utiliser dans une chaîne de caractère dans Access
Plus de sujets relatifs à : [Résolu][GTK]Utiliser la fonction Get_text

Page générée en 0.084 secondes