Функция ADA & GTK => Get_Text

-9

Я хочу создать окно Toplevel и использовать в нем эту функцию.

Нигде нет примера...

Здесь полное описание в /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

спросил(а) 2015-12-11T01:26:00+03:00 5 лет, 7 месяцев назад
0
63

Я понял, как использовать функцию Get_text со входом.

manuBriot & andlabs =

Я также нашел сигнал в пакете "Enter" для реакции, когда пользователь нажал кнопку "Enter".

Наконец, теперь все работает нормально.

Что моя программа? = Его окно выглядит примерно так: http://pix.toile-libre.org/?img=1450777307.png

И после того, как вы что-то напишете и нажмите "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 ;

ответил(а) 2015-12-22T12:45:00+03:00 5 лет, 7 месяцев назад
45

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 как описано в пакете.

Код, который я написал, минимален: печатает на экране текстовую запись, но опять же, это бесполезно, если я не могу использовать эту функцию.

ответил(а) 2015-12-11T22:00:00+03:00 5 лет, 7 месяцев назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема