[Acdo-commit] CVS: acdo/install/instalar-acdo/src instalar_acdo_intl.adb,2.0,2.1 ventana_pkg-callbacks.adb,2.0,2.1

[Cesar P. T. <or...@us...>]

Update of /cvsroot/acdo//acdo/install/instalar-acdo/src
In directory usw-pr-cvs1:/tmp/cvs-serv19886/instalar-acdo/src

Modified Files:
	instalar_acdo_intl.adb ventana_pkg-callbacks.adb 
Log Message:
Programa de instalacion terminado


Index: instalar_acdo_intl.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/install/instalar-acdo/src/instalar_acdo_intl.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** instalar_acdo_intl.adb	2001/05/10 19:34:49	2.0
--- instalar_acdo_intl.adb	2001/06/14 16:58:03	2.1
***************
*** 1,3 ****
! with Gtkada.Intl; use Gtkada.Intl;
  
  package body Instalar_Acdo_Intl is
--- 1,3 ----
! --with Gtkada.Intl; use Gtkada.Intl;
  
  package body Instalar_Acdo_Intl is
***************
*** 5,9 ****
     function "-" (Msg : String) return String is
     begin
!       return Dgettext ("Instalar_Acdo", Msg);
     end "-";
  
--- 5,10 ----
     function "-" (Msg : String) return String is
     begin
! --      return Dgettext ("Instalar_Acdo", Msg);
! 	return (Msg);
     end "-";
  

Index: ventana_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/install/instalar-acdo/src/ventana_pkg-callbacks.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** ventana_pkg-callbacks.adb	2001/05/10 19:34:49	2.0
--- ventana_pkg-callbacks.adb	2001/06/14 16:58:03	2.1
***************
*** 9,16 ****
--- 9,24 ----
  with Gtk.Widget; use Gtk.Widget;
  
+ --with text_io; use text_io;
+ with ventana_pkg; use ventana_pkg;
+ with Gtk.Main; use Gtk.Main;
+ with interfaces.c.strings; use interfaces.c.strings; 
+ 
  package body Ventana_Pkg.Callbacks is
  
     use Gtk.Arguments;
  
+    procedure instalar (ruta: string);
+    pragma import (C, instalar);
+ 
     ------------------------
     -- On_Aceptar_Clicked --
***************
*** 21,25 ****
     is
     begin
!       null;
     end On_Aceptar_Clicked;
  
--- 29,34 ----
     is
     begin
!     Instalar (Get_Text(Ventana.Entry1) & ASCII.NUL);
!     Main_Quit;
     end On_Aceptar_Clicked;