1 2 3 4 5 6 7 8 9 10 11 12
|
GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Buffer := Get_Buffer(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Outputs_Text);
Get_End_iter(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Buffer, End_Iter);
Insert(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Buffer, End_Iter, Glib.Convert.Locale_to_Utf8(Sub_Command_Type'Image(Sub_Command) & Character'val(10)));
Set_buffer(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.Outputs_Text, GtkAda_Interface_Record(GtkAda_Interface).Main_Window.Outputs_Buffer);
Get_End_iter(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Buffer, End_Iter);
Mark := Create_Mark(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Buffer, Where => End_Iter);
Scroll_To_Mark(GtkAda_Interface_Record(GtkAda_Interface).Main_Window.GnuLinux_Outputs_Text, mark); |
Partager