Linux 美国残疾人协会；GTK=>；函数获取文本

我想创建一个顶级窗口并在其中使用此函数

没有任何例子

以下是

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

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.

对于Debian和其他操作系统，您可以访问以下目录：

sudo apt get install libgtkada2.24.1-dev

WITH Gtk.Main ;          USE Gtk.Main ;
WITH Gtk.Window ;        USE Gtk.Window ;
WITH Gtk.Gentry;         USE Gtk.Gentry;
WITH Gtk.Box ;           USE Gtk.Box ;
WITH Gtk.Enums ;         USE Gtk.Enums ;

Procedure gtkada_get_a_entry is

    win : Gtk_window ;

   space : Gtk_Entry ;

   the_box : Gtk_VBox ;

      --    function Get_Text (The_Entry : access Gtk_Entry_Record) return UTF8_String;
      --    How to use the function ???

begin

 Init ; 

 Gtk_New(win); 

 Gtk_New(space);

 Gtk_New_VBox
  (the_box, homogeneous => false, Spacing => 0) ;


 the_box.Pack_Start(space);

 win.Add(the_box);

 win.Set_Default_Size(300,200) ;   

 win.set_position(Win_Pos_Center) ; 

 win.Show_all ; 

   Main ; 

end gtkada_get_a_entry;

我只想使用包中描述的

Get_text

函数

---

我发布的代码很简单：在屏幕上打印文本条目，但是，如果我不能使用该函数，它也没用。

我找到了如何在条目中使用Get_text函数

manuBriot&andlabs=

我还在条目的包中找到了当用户按下Enter时的反应信号

最后，现在一切正常

我的程序做什么？ =它是一个窗口，看起来就像这样：

并且，在您写入某些内容并在图形条目中按Enter键后，结果是在命令行中打印

使用GTK语言开始学习时简单且有用

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;        USE Ada.text_io;
WITH Gtk.Widget ;        USE Gtk.Widget ; 
with Gtk.Handlers;

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 ;



----------------------------------------------------------
--Instanciation package(s) for connexion
----------------------------------------------------------

   PACKAGE P_Callback IS NEW Gtk.Handlers.Callback(Gtk_Widget_Record);

   USE P_Callback ; 

----------------------------------------------------------
--  Handlers (or callbacks)   |
----------------------------------------------------------

   procedure Stop_Program(Emetteur : access Gtk_Widget_Record'class)
   is

      PRAGMA Unreferenced (Emetteur);

   begin

      Main_Quit;

   end Stop_Program ;


   procedure Handler_text(Ent : access Gtk_Widget_Record'class)
   is begin

   put_line(get_text(saisie));

   end Handler_text ;

-------------------------------------------------
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) ;

---------------------------------
--  Add                    |
---------------------------------

   alignG.add(Btn1) ;
   alignM.add(Btn2) ;
   alignD.add(Btn3) ;

   win.Add(Boite);

------------------------------------------
--  Connect                   |
------------------------------------------

Connect(Widget => win ,
          Name => "destroy" ,
            Cb => Stop_Program'access);         

Connect(Widget => saisie ,
          Name => "activate" ,
            Cb =>  Handler_text'access);

------------------------------------------
--  Design Window          |
------------------------------------------

   Boite.Pack_Start(saisie);
   Boite.Pack_Start(Boutons);
   Boutons.Pack_Start(alignG);
   Boutons.Pack_Start(alignM);
   Boutons.Pack_Start(alignD);


   win.Set_Default_Size(500,500) ;   

   win.set_position(Win_Pos_Mouse) ; 

   -- win.set_opacity(0.7) ;

   win.Show_all ; 
   Main ; 

END prototype ;

---

该函数用于GtkEntry，该类表示一个小部件，该小部件包含用户可以键入的单行文本。您将需要在toplevel中托管它，toplevel的类称为GtkWindow。注意，这些是GTK+类的主要名称；Ada绑定似乎使用了不同的约定。我不知道有什么好的针对GTK+的Ada特定教程，但Google似乎指出了其中的一些。你的回答太笼统了，我知道这些小部件如何与库一起工作，但你在这里真的没有帮助我。。。。。试着使用这个函数，你就会理解我的问题，“testgtk”源代码中有很多例子，在发行版中还有很多。除非它们都被gtkada 3.x删除…@infinite在这种情况下，我不确定你的问题是什么。你是如何使用这个函数的，你得到了什么，你期望得到什么？一旦我知道，我可以试着自己重现这个问题，找出问题所在。这个问题实际上没有背景。我们不知道什么是尝试过的，什么是无效的。显然，要使用该功能，您需要一个Gtk_Entry小部件，但我认为这不是真正的问题……这看起来是问题的有用补充，而不是答案。您想什么时候获取文本？在用户键入某些内容之后？如果是这样，您需要连接到Gtk_条目的

changed

信号。@andlabs=我想在用户按下“Enter”后获取文本，然后您可以连接到

编辑完成

信号（从GtkCellEditable界面继承）。