Menu
▾
▴
acdo-commit — commits
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
(4) |
May
(101) |
Jun
(39) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|---|
|
From: Cesar P. T. <or...@us...> - 2001-05-02 19:37:04
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv20867/src/gui
Modified Files:
autocdorganizer.adb navegador_pkg.adb navegador_pkg.ads
principal_pkg-callbacks.adb principal_pkg-callbacks.ads
principal_pkg.adb principal_pkg.ads
Log Message:
Conectamos con la base de datos y leemos las preferencias al arrancar el program
a.
Cambios menores.
Index: autocdorganizer.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/autocdorganizer.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** autocdorganizer.adb 2001/05/01 10:45:09 1.2
--- autocdorganizer.adb 2001/05/02 19:37:01 1.3
***************
*** 6,9 ****
--- 6,11 ----
--Proyecto: ACDO
--Descripción: Programa principal
+ --Modificado Por: Óscar Bonilla y César Pérez
+ --Fecha de modificación: 2 de mayo de 2001
--------------------------------------------------------------------------
with Gtk; use Gtk;
***************
*** 17,20 ****
--- 19,24 ----
with Navegador_Pkg; use Navegador_Pkg;
with Buscar_Pkg; use Buscar_Pkg;
+ with preferencias;
+ with base_datos;
procedure Autocdorganizer is
***************
*** 22,25 ****
--- 26,31 ----
Gtk.Main.Set_Locale;
Gtk.Main.Init;
+ preferencias.leer;
+ base_datos.conectar;
-- Gtk_New (Preferencias);
-- Show_All (Preferencias);
Index: navegador_pkg.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/navegador_pkg.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** navegador_pkg.adb 2001/04/24 23:50:59 1.1.1.1
--- navegador_pkg.adb 2001/05/02 19:37:01 1.2
***************
*** 107,118 ****
Put (Navegador.Fixed12, Navegador.Borrar, 328, 360);
! Gtk_New (Navegador.Aceptar, -"Aceptar");
! Set_Relief (Navegador.Aceptar, Relief_Normal);
! Set_UPosition (Navegador.Aceptar, 504, 360);
! Set_USize (Navegador.Aceptar, 88, 32);
Button_Callback.Connect
! (Navegador.Aceptar, "clicked",
Button_Callback.To_Marshaller (On_Aceptar_Clicked'Access));
! Put (Navegador.Fixed12, Navegador.Aceptar, 504, 360);
end Initialize;
--- 107,118 ----
Put (Navegador.Fixed12, Navegador.Borrar, 328, 360);
! Gtk_New (Navegador.Cerrar, -"Cerrar");
! Set_Relief (Navegador.Cerrar, Relief_Normal);
! Set_UPosition (Navegador.Cerrar, 504, 360);
! Set_USize (Navegador.Cerrar, 88, 32);
Button_Callback.Connect
! (Navegador.Cerrar, "clicked",
Button_Callback.To_Marshaller (On_Aceptar_Clicked'Access));
! Put (Navegador.Fixed12, Navegador.Cerrar, 504, 360);
end Initialize;
Index: navegador_pkg.ads
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/navegador_pkg.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** navegador_pkg.ads 2001/04/24 23:50:59 1.1.1.1
--- navegador_pkg.ads 2001/05/02 19:37:01 1.2
***************
*** 17,21 ****
Modificar : Gtk_Button;
Borrar : Gtk_Button;
! Aceptar : Gtk_Button;
end record;
type Navegador_Access is access all Navegador_Record'Class;
--- 17,21 ----
Modificar : Gtk_Button;
Borrar : Gtk_Button;
! Cerrar : Gtk_Button;
end record;
type Navegador_Access is access all Navegador_Record'Class;
Index: principal_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg-callbacks.adb,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** principal_pkg-callbacks.adb 2001/05/01 15:52:15 1.3
--- principal_pkg-callbacks.adb 2001/05/02 19:37:01 1.4
***************
*** 28,31 ****
--- 28,32 ----
with datos; use datos;
with gtk.check_button; use gtk.check_button;
+ with base_datos;
package body Principal_Pkg.Callbacks is
***************
*** 56,63 ****
if libre then
Gtk_New (Agregar);
! set_title (Agregar,"Agregar a mano");
! a_mano := true;
! libre := false;
! Show_All (Agregar);
end if;
end On_Agregar_A_Mano_Clicked;
--- 57,64 ----
if libre then
Gtk_New (Agregar);
! set_title (Agregar,"Agregar manualmente");
! a_mano := true;
! libre := false;
! Show_All (Agregar);
end if;
end On_Agregar_A_Mano_Clicked;
***************
*** 74,83 ****
if libre then
Gtk_New (Agregar);
! a_mano := false;
! libre := false;
! Show_All (Agregar);
end if;
end On_Agregar_Automaticamente_Clicked;
-----------------------
-- On_Buscar_Clicked --
--- 75,121 ----
if libre then
Gtk_New (Agregar);
! a_mano := false;
! libre := false;
! Show_All (Agregar);
end if;
end On_Agregar_Automaticamente_Clicked;
+ -----------------------------
+ -- On_Preferencias_Clicked --
+ -----------------------------
+
+ procedure On_Preferencias_Clicked
+ (Object : access Gtk_Widget_Record'Class;
+ Params : Gtk.Arguments.Gtk_Args)
+ is
+ begin
+ if libre then
+ dar(prefs);
+ Gtk_New (preferencias_pkg.Preferencias);
+ set_text (preferencias_pkg.Preferencias.ruta, S(prefs.ruta));
+ set_text (preferencias_pkg.Preferencias.medio, S(prefs.medio));
+ set_text (preferencias_pkg.Preferencias.login, S(prefs.bd_usuario));
+ set_text (preferencias_pkg.Preferencias.contrasenya, S(prefs.bd_password));
+ set_text (preferencias_pkg.Preferencias.host, S(prefs.bd_servidor));
+ set_text (preferencias_pkg.Preferencias.nombre, S(prefs.bd_nombre));
+ set_text (preferencias_pkg.Preferencias.puerto, prefs.bd_puerto'img);
+ set_Active (preferencias_pkg.Preferencias.administrador, prefs.administrador);
+ Show_All (preferencias_pkg.Preferencias);
+ libre := false;
+ end if;
+ end On_Preferencias_Clicked;
+
+ ----------------------
+ -- On_Salir_Clicked --
+ ----------------------
+
+ procedure On_Salir_Clicked
+ (Object : access Gtk_Widget_Record'Class;
+ Params : Gtk.Arguments.Gtk_Args)
+ is
+ begin
+ salir;
+ end On_Salir_Clicked;
+
-----------------------
-- On_Buscar_Clicked --
***************
*** 103,146 ****
begin
desde_buscar := false;
Gtk_New (Navegador);
Show_All (Navegador);
end On_Navegar_Clicked;
-
- -----------------------------
- -- On_Preferencias_Clicked --
- -----------------------------
-
- procedure On_Preferencias_Clicked
- (Object : access Gtk_Widget_Record'Class;
- Params : Gtk.Arguments.Gtk_Args)
- is
- begin
- if libre then
- dar(prefs);
- Gtk_New (preferencias_pkg.Preferencias);
- set_text (preferencias_pkg.Preferencias.ruta, S(prefs.ruta));
- set_text (preferencias_pkg.Preferencias.medio, S(prefs.medio));
- set_text (preferencias_pkg.Preferencias.login, S(prefs.bd_usuario));
- set_text (preferencias_pkg.Preferencias.contrasenya, S(prefs.bd_password));
- set_text (preferencias_pkg.Preferencias.host, S(prefs.bd_servidor));
- set_text (preferencias_pkg.Preferencias.nombre, S(prefs.bd_nombre));
- set_text (preferencias_pkg.Preferencias.puerto, prefs.bd_puerto'img);
- set_Active (preferencias_pkg.Preferencias.administrador, prefs.administrador);
- Show_All (preferencias_pkg.Preferencias);
- libre := false;
- end if;
- end On_Preferencias_Clicked;
-
- ----------------------
- -- On_Salir_Clicked --
- ----------------------
-
- procedure On_Salir_Clicked
- (Object : access Gtk_Widget_Record'Class;
- Params : Gtk.Arguments.Gtk_Args)
- is
- begin
- salir;
- end On_Salir_Clicked;
end Principal_Pkg.Callbacks;
--- 141,148 ----
begin
desde_buscar := false;
+ base_datos.buscar; -- busca los temas
Gtk_New (Navegador);
Show_All (Navegador);
end On_Navegar_Clicked;
end Principal_Pkg.Callbacks;
Index: principal_pkg-callbacks.ads
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg-callbacks.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** principal_pkg-callbacks.ads 2001/04/24 23:50:58 1.1.1.1
--- principal_pkg-callbacks.ads 2001/05/02 19:37:01 1.2
***************
*** 14,30 ****
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Buscar_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Navegar_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Preferencias_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Salir_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
--- 14,30 ----
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Preferencias_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Salir_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Buscar_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
! procedure On_Navegar_Clicked
(Object : access Gtk_Widget_Record'Class;
Params : Gtk.Arguments.Gtk_Args);
Index: principal_pkg.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** principal_pkg.adb 2001/04/24 23:51:00 1.1.1.1
--- principal_pkg.adb 2001/05/02 19:37:01 1.2
***************
*** 8,11 ****
--- 8,13 ----
with Autocdorganizer_Intl; use Autocdorganizer_Intl;
with Principal_Pkg.Callbacks; use Principal_Pkg.Callbacks;
+ with datos; use datos;
+ with preferencias;
package body Principal_Pkg is
***************
*** 19,22 ****
--- 21,25 ----
procedure Initialize (Principal : access Principal_Record'Class) is
pragma Suppress (All_Checks);
+ prefs: tppreferencias;
begin
Gtk.Window.Initialize (Principal, Window_Toplevel);
***************
*** 32,69 ****
Gtk_New (Principal.Fixed11);
Add (Principal, Principal.Fixed11);
!
! Gtk_New (Principal.Toolbar6, Orientation_Horizontal, Toolbar_Both);
! Set_Border_Width (Principal.Toolbar6, 5);
! Set_Space_Size (Principal.Toolbar6, 5);
! Set_Space_Style (Principal.Toolbar6, Toolbar_Space_Empty);
! Set_Tooltips (Principal.Toolbar6, True);
! Set_Button_Relief (Principal.Toolbar6, Relief_Normal);
! Principal.Agregar_A_Mano := Append_Element
! (Toolbar => Principal.Toolbar6,
The_Type => Toolbar_Child_Button,
! Text => -"Agregar a mano...",
Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
Widget_Callback.Connect
! (Principal.Agregar_A_Mano, "clicked", On_Agregar_A_Mano_Clicked'Access);
! Principal.Agregar_Automaticamente := Append_Element
! (Toolbar => Principal.Toolbar6,
The_Type => Toolbar_Child_Button,
! Text => -"Auto-agregar...",
Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
Widget_Callback.Connect
! (Principal.Agregar_Automaticamente, "clicked", On_Agregar_Automaticamente_Clicked'Access);
! Set_UPosition (Principal.Toolbar6, 0, 150);
! Set_USize (Principal.Toolbar6, 400, 75);
! Put (Principal.Fixed11, Principal.Toolbar6, 0, 150);
!
! Set_USize (Principal.Agregar_A_Mano, 195, 60);
! Gtk_New (Principal.Toolbar4, Orientation_Horizontal, Toolbar_Both);
! Set_Border_Width (Principal.Toolbar4, 5);
! Set_Space_Size (Principal.Toolbar4, 5);
! Set_Space_Style (Principal.Toolbar4, Toolbar_Space_Empty);
! Set_Tooltips (Principal.Toolbar4, True);
! Set_Button_Relief (Principal.Toolbar4, Relief_Normal);
Principal.Buscar := Append_Element
! (Toolbar => Principal.Toolbar4,
The_Type => Toolbar_Child_Button,
Text => -"Buscar...",
--- 35,101 ----
Gtk_New (Principal.Fixed11);
Add (Principal, Principal.Fixed11);
! -- barra agregar
! preferencias.dat (prefs);
! if prefs.administrador then
! Gtk_New (Principal.Barra_Agregar, Orientation_Horizontal, Toolbar_Both);
! Set_Border_Width (Principal.Barra_Agregar, 5);
! Set_Space_Size (Principal.Barra_Agregar, 5);
! Set_Space_Style (Principal.Barra_Agregar, Toolbar_Space_Empty);
! Set_Tooltips (Principal.Barra_Agregar, True);
! Set_Button_Relief (Principal.Barra_Agregar, Relief_Normal);
! Principal.Agregar_A_Mano := Append_Element
! (Toolbar => Principal.Barra_Agregar,
! The_Type => Toolbar_Child_Button,
! Text => -"Agregar a mano...",
! Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
! Widget_Callback.Connect
! (Principal.Agregar_A_Mano, "clicked", On_Agregar_A_Mano_Clicked'Access);
! Principal.Agregar_Automaticamente := Append_Element
! (Toolbar => Principal.Barra_Agregar,
! The_Type => Toolbar_Child_Button,
! Text => -"Auto-agregar...",
! Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
! Widget_Callback.Connect
! (Principal.Agregar_Automaticamente, "clicked", On_Agregar_Automaticamente_Clicked'Access);
! Set_UPosition (Principal.Barra_Agregar, 0, 150);
! Set_USize (Principal.Barra_Agregar, 400, 75);
! Put (Principal.Fixed11, Principal.Barra_Agregar, 0, 150);
!
! Set_USize (Principal.Agregar_A_Mano, 195, 60);
! end if;
!
! Gtk_New (Principal.Barra_Prefs_Salir, Orientation_Horizontal, Toolbar_Both);
! Set_Border_Width (Principal.Barra_Prefs_Salir, 5);
! Set_Space_Size (Principal.Barra_Prefs_Salir, 5);
! Set_Space_Style (Principal.Barra_Prefs_Salir, Toolbar_Space_Empty);
! Set_Tooltips (Principal.Barra_Prefs_Salir, True);
! Set_Button_Relief (Principal.Barra_Prefs_Salir, Relief_Normal);
! Principal.Preferencias := Append_Element
! (Toolbar => Principal.Barra_Prefs_Salir,
The_Type => Toolbar_Child_Button,
! Text => -"Preferencias...",
Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
Widget_Callback.Connect
! (Principal.Preferencias, "clicked", On_Preferencias_Clicked'Access);
! Principal.Salir := Append_Element
! (Toolbar => Principal.Barra_Prefs_Salir,
The_Type => Toolbar_Child_Button,
! Text => -"Salir",
Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
Widget_Callback.Connect
! (Principal.Salir, "clicked", On_Salir_Clicked'Access);
! Set_UPosition (Principal.Barra_Prefs_Salir, 0, 225);
! Set_USize (Principal.Barra_Prefs_Salir, 400, 75);
! Put (Principal.Fixed11, Principal.Barra_Prefs_Salir, 0, 225);
!
! Set_USize (Principal.Preferencias, 195, 50);
! Gtk_New (Principal.Barra_Busqueda_Navegar, Orientation_Horizontal, Toolbar_Both);
! Set_Border_Width (Principal.Barra_Busqueda_Navegar, 5);
! Set_Space_Size (Principal.Barra_Busqueda_Navegar, 5);
! Set_Space_Style (Principal.Barra_Busqueda_Navegar, Toolbar_Space_Empty);
! Set_Tooltips (Principal.Barra_Busqueda_Navegar, True);
! Set_Button_Relief (Principal.Barra_Busqueda_Navegar, Relief_Normal);
Principal.Buscar := Append_Element
! (Toolbar => Principal.Barra_Busqueda_Navegar,
The_Type => Toolbar_Child_Button,
Text => -"Buscar...",
***************
*** 72,76 ****
(Principal.Buscar, "clicked", On_Buscar_Clicked'Access);
Principal.Navegar := Append_Element
! (Toolbar => Principal.Toolbar4,
The_Type => Toolbar_Child_Button,
Text => -"Navegar...",
--- 104,108 ----
(Principal.Buscar, "clicked", On_Buscar_Clicked'Access);
Principal.Navegar := Append_Element
! (Toolbar => Principal.Barra_Busqueda_Navegar,
The_Type => Toolbar_Child_Button,
Text => -"Navegar...",
***************
*** 78,111 ****
Widget_Callback.Connect
(Principal.Navegar, "clicked", On_Navegar_Clicked'Access);
! Set_UPosition (Principal.Toolbar4, 0, 15);
! Set_USize (Principal.Toolbar4, 400, 135);
! Put (Principal.Fixed11, Principal.Toolbar4, 0, 15);
Set_USize (Principal.Buscar, 195, 120);
- Gtk_New (Principal.Toolbar5, Orientation_Horizontal, Toolbar_Both);
- Set_Border_Width (Principal.Toolbar5, 5);
- Set_Space_Size (Principal.Toolbar5, 5);
- Set_Space_Style (Principal.Toolbar5, Toolbar_Space_Empty);
- Set_Tooltips (Principal.Toolbar5, True);
- Set_Button_Relief (Principal.Toolbar5, Relief_Normal);
- Principal.Preferencias := Append_Element
- (Toolbar => Principal.Toolbar5,
- The_Type => Toolbar_Child_Button,
- Text => -"Preferencias...",
- Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
- Widget_Callback.Connect
- (Principal.Preferencias, "clicked", On_Preferencias_Clicked'Access);
- Principal.Salir := Append_Element
- (Toolbar => Principal.Toolbar5,
- The_Type => Toolbar_Child_Button,
- Text => -"Salir",
- Icon => Gtk_Widget (Create_Pixmap ("yes.xpm", Principal)));
- Widget_Callback.Connect
- (Principal.Salir, "clicked", On_Salir_Clicked'Access);
- Set_UPosition (Principal.Toolbar5, 0, 225);
- Set_USize (Principal.Toolbar5, 400, 75);
- Put (Principal.Fixed11, Principal.Toolbar5, 0, 225);
-
- Set_USize (Principal.Preferencias, 195, 50);
end Initialize;
--- 110,118 ----
Widget_Callback.Connect
(Principal.Navegar, "clicked", On_Navegar_Clicked'Access);
! Set_UPosition (Principal.Barra_Busqueda_Navegar, 0, 15);
! Set_USize (Principal.Barra_Busqueda_Navegar, 400, 135);
! Put (Principal.Fixed11, Principal.Barra_Busqueda_Navegar, 0, 15);
Set_USize (Principal.Buscar, 195, 120);
end Initialize;
Index: principal_pkg.ads
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** principal_pkg.ads 2001/04/24 23:51:00 1.1.1.1
--- principal_pkg.ads 2001/05/02 19:37:01 1.2
***************
*** 9,21 ****
type Principal_Record is new Gtk_Window_Record with record
Fixed11 : Gtk_Fixed;
! Toolbar6 : Gtk_Toolbar;
Agregar_A_Mano : Gtk_Widget;
Agregar_Automaticamente : Gtk_Widget;
! Toolbar4 : Gtk_Toolbar;
! Buscar : Gtk_Widget;
! Navegar : Gtk_Widget;
! Toolbar5 : Gtk_Toolbar;
Preferencias : Gtk_Widget;
Salir : Gtk_Widget;
end record;
type Principal_Access is access all Principal_Record'Class;
--- 9,21 ----
type Principal_Record is new Gtk_Window_Record with record
Fixed11 : Gtk_Fixed;
! Barra_Agregar : Gtk_Toolbar;
Agregar_A_Mano : Gtk_Widget;
Agregar_Automaticamente : Gtk_Widget;
! Barra_Prefs_Salir : Gtk_Toolbar;
Preferencias : Gtk_Widget;
Salir : Gtk_Widget;
+ Barra_Busqueda_Navegar : Gtk_Toolbar;
+ Buscar : Gtk_Widget;
+ Navegar : Gtk_Widget;
end record;
type Principal_Access is access all Principal_Record'Class;
|
|
From: Cesar P. T. <or...@us...> - 2001-05-01 20:44:55
|
Update of /cvsroot/acdo//acdo In directory usw-pr-cvs1:/tmp/cvs-serv10865 Added Files: ChangeLog Log Message: Changelog creado por cvs2cl --- NEW FILE --- 2001-05-01 21:37 oroz * TODO: [no log message] 2001-05-01 21:37 oroz * src/gui/: agregar_pkg-callbacks.adb, buscar_pkg-callbacks.adb, preferencias_pkg-callbacks.adb: arreglos menores 2001-05-01 20:59 juanma * src/: pkg/base_datos.adb, test/prueba_base_datos.adb: Reparada la búsqueda de ficheros en la base de datos. 2001-05-01 17:52 oroz * src/gui/: preferencias_pkg-callbacks.adb, preferencias_pkg-callbacks.ads, principal_pkg-callbacks.adb: la vida esta llena de pequeños detalles... 2001-05-01 17:51 oroz * src/pkg/: utiles.adb, utiles.ads: Módulo para funciones varias: salir, cadena a entero... 2001-05-01 13:56 oroz * TODO: [no log message] 2001-05-01 13:06 oroz * src/pkg/dispositivo.adb: Se introdujo un error tipográfico en el anterior commit. 2001-05-01 12:50 mtolosa * src/gui/globales.ads: Fichero con las variables globales que se utilizan para que no se abra más de una ventana, para saber si se agrega a mano o automáticamente y para saber si se abre el navegador desde buscar o desde la ventana principal 2001-05-01 12:45 mtolosa * src/: autocdorganizer.glade, gui/agregar_pkg-callbacks.adb, gui/agregar_pkg-callbacks.ads, gui/agregar_pkg.adb, gui/autocdorganizer.adb, gui/buscar_pkg-callbacks.adb, gui/navegador_pkg-callbacks.adb, gui/preferencias_pkg-callbacks.adb, gui/preferencias_pkg-callbacks.ads, gui/preferencias_pkg.adb, gui/preferencias_pkg.ads, gui/principal_pkg-callbacks.adb, gui/.gate/autocdorganizer/agregar_pkg-callbacks.adb, gui/.gate/autocdorganizer/agregar_pkg-callbacks.ads, gui/.gate/autocdorganizer/agregar_pkg.adb, gui/.gate/autocdorganizer/preferencias_pkg.adb, gui/.gate/autocdorganizer/preferencias_pkg.ads, pkg/dispositivo.adb: Hemos añadido el código para los botones de las ventanas 2001-05-01 01:50 oroz * src/: pkg/preferencias.adb, test/prueba_leerdirectorio.adb, test/prueba_preferencias.adb: modificación del módulo preferencias porque no se puede utilizar xml en hendrix. Los cambios no afectan ningún módulo que utilice preferencias. 2001-04-30 23:54 oroz * src/test/: infofich.c, prueba_leerdirectorio.adb: cambio sustancial, ahora se hace prácticamente todo desde c. Se pretende con esto que el paso a solaris sea más suave 2001-04-30 22:10 oroz * src/test/prueba_leerdirectorio.adb: arreglos solaris 2001-04-30 16:37 oroz * src/: pkg/dispositivo.adb, pkg/infofich.c, test/infofich.c, test/prueba_leerdirectorio.adb: He añadido localización para el formato de la fecha, mira la variable de entorno LC_ALL. El módulo dispositivo sigue estando incompleto (quedán los tamaños de diectorios) y sin comprobar. 2001-04-30 10:45 oroz * src/pkg/dispositivo.adb: Añadido código para insertar. Queda: 1) que no se inserten los directorios . y .. 2) tamaño de los directorios (modificar aquí o en el módulo base_datos? 2001-04-30 02:55 oroz * src/test/prueba_leerdirectorio.adb: Añadido código para detectar si una entrada de un directorio es un subdirectorio 2001-04-30 02:54 oroz * src/pkg/: dispositivo.adb, dispositivo.ads, infofich.c: Versión preliminar que todavía no introduce nada en la base de datos, pero que l ee los ficheros y directorios del dispositivo. 2001-04-30 01:27 oroz * src/test/: infofich.c, prueba_leerdirectorio.adb: Prueba de acceso a directorios que debe funcionar en todo UNIX 2001-04-28 01:21 oroz * src/test/: Makefile, infofich.c, prueba_leerdirectorio.adb: pruebas para leer directorios y datos de ficheros del sistema de ficheros. Esta imcompleto la fecha todavía no funciona bien. 2001-04-27 19:04 oroz * src/pkg/dispositivo.ads: añadidas exepciones 2001-04-26 23:04 juanma * install/crear_bd.sql: Añadido el directorio de instalación /install y el fichero con las sentencias SQL para crear la base de datos (crear_bd.sql). 2001-04-26 23:00 juanma * src/: lib/pgada/pgada_hpux/pgada.ads, lib/pgada/pgada_hpux/postgresql.adb, lib/pgada/pgada_hpux/postgresql.ads, lib/pgada/pgada_hpux/prueba_pgada.adb, lib/pgada/pgada_hpux/prueba_postgresql.adb, lib/pgada/pgada_linux/pgada.ads, lib/pgada/pgada_linux/postgresql.adb, lib/pgada/pgada_linux/postgresql.ads, lib/pgada/pgada_linux/prueba_pgada.adb, lib/pgada/pgada_linux/prueba_postgresql.adb, lib/pgada/pgada_solaris_sparc/pgada.ads, lib/pgada/pgada_solaris_sparc/postgresql.adb, lib/pgada/pgada_solaris_sparc/postgresql.ads, lib/pgada/pgada_solaris_sparc/prueba_pgada.adb, lib/pgada/pgada_solaris_sparc/prueba_postgresql.adb, pkg/base_datos.adb, pkg/datos.ads, test/prueba_base_datos.adb: He quitado los tabuladores y he dado formato a los ficheros. 2001-04-26 22:23 juanma * src/: lib/pgada/pgada_hpux/pgada.ads, lib/pgada/pgada_hpux/postgresql.adb, lib/pgada/pgada_hpux/postgresql.ads, lib/pgada/pgada_hpux/prueba_pgada.adb, lib/pgada/pgada_hpux/prueba_postgresql.adb, lib/pgada/pgada_linux/pgada.ads, lib/pgada/pgada_linux/postgresql.adb, lib/pgada/pgada_linux/postgresql.ads, lib/pgada/pgada_linux/prueba_pgada.adb, lib/pgada/pgada_linux/prueba_postgresql.adb, lib/pgada/pgada_solaris_sparc/pgada.ads, lib/pgada/pgada_solaris_sparc/postgresql.adb, lib/pgada/pgada_solaris_sparc/postgresql.ads, lib/pgada/pgada_solaris_sparc/prueba_pgada.adb, lib/pgada/pgada_solaris_sparc/prueba_postgresql.adb, pkg/base_datos.adb, pkg/base_datos.ads, pkg/datos.ads, pkg/dispositivo.ads, pkg/preferencias.adb, pkg/preferencias.ads, test/Makefile, test/prueba_base_datos.adb, test/prueba_preferencias.adb: Modificado la librería pgada debido a un fallo al leer los campos. Implementado el módulo base_datos, funciona pero no está probado a fondo. Modificadas algunas especificaciones. Puestos los encabezados. 2001-04-26 18:54 oroz * AUTHORS: [no log message] 2001-04-26 18:49 oroz * AUTHORS, COPYING: [no log message] 2001-04-25 11:22 oroz * src/COPYING: License 2001-04-25 02:30 juanma * src/: pkg/preferencias.adb, test/prueba_preferencias.adb: Capturadas las excepciones del procedimiento leer de prueba_preferencias 2001-04-25 02:04 oroz * src/lib/pgada/: pgada_hpux/libpq.a, pgada_linux/libpq.a, pgada_solaris_sparc/libpq.a: [no log message] 2001-04-25 01:50 oroz * src/: autocdorganizer.glade, gui/callbacks_autocdorganizer.ads, gui/opcion_pkg.adb, gui/opcion_pkg.ads, gui/proceso_pkg-callbacks.adb, gui/proceso_pkg-callbacks.ads, gui/yes.xpm, gui/agregar_pkg.adb, gui/agregar_pkg.ads, gui/opcion_pkg-callbacks.adb, gui/opcion_pkg-callbacks.ads, gui/principal_pkg-callbacks.adb, gui/principal_pkg-callbacks.ads, gui/autocdorganizer.adb, gui/buscar_pkg.adb, gui/buscar_pkg.ads, gui/navegador_pkg.adb, gui/navegador_pkg.ads, gui/preferencias_pkg-callbacks.adb, gui/preferencias_pkg-callbacks.ads, gui/agregar_pkg-callbacks.adb, gui/agregar_pkg-callbacks.ads, gui/autocdorganizer_intl.adb, gui/autocdorganizer_intl.ads, gui/buscar_pkg-callbacks.adb, gui/buscar_pkg-callbacks.ads, gui/principal_pkg.adb, gui/principal_pkg.ads, gui/navegador_pkg-callbacks.adb, gui/navegador_pkg-callbacks.ads, gui/proceso_pkg.adb, gui/proceso_pkg.ads, gui/preferencias_pkg.adb, gui/preferencias_pkg.ads, gui/.gate/autocdorganizer/agregar_pkg.adb, gui/.gate/autocdorganizer/agregar_pkg.ads, gui/.gate/autocdorganizer/callbacks_autocdorganizer.ads, gui/.gate/autocdorganizer/opcion_pkg.adb, gui/.gate/autocdorganizer/opcion_pkg.ads, gui/.gate/autocdorganizer/proceso_pkg-callbacks.adb, gui/.gate/autocdorganizer/proceso_pkg-callbacks.ads, gui/.gate/autocdorganizer/navegador_pkg.adb, gui/.gate/autocdorganizer/navegador_pkg.ads, gui/.gate/autocdorganizer/opcion_pkg-callbacks.adb, gui/.gate/autocdorganizer/opcion_pkg-callbacks.ads, gui/.gate/autocdorganizer/principal_pkg-callbacks.adb, gui/.gate/autocdorganizer/principal_pkg-callbacks.ads, gui/.gate/autocdorganizer/agregar_pkg-callbacks.adb, gui/.gate/autocdorganizer/agregar_pkg-callbacks.ads, gui/.gate/autocdorganizer/autocdorganizer.adb, gui/.gate/autocdorganizer/autocdorganizer_intl.adb, gui/.gate/autocdorganizer/autocdorganizer_intl.ads, gui/.gate/autocdorganizer/buscar_pkg-callbacks.adb, gui/.gate/autocdorganizer/buscar_pkg-callbacks.ads, gui/.gate/autocdorganizer/buscar_pkg.adb, gui/.gate/autocdorganizer/buscar_pkg.ads, gui/.gate/autocdorganizer/conflicts.txt, gui/.gate/autocdorganizer/preferencias_pkg-callbacks.adb, gui/.gate/autocdorganizer/preferencias_pkg-callbacks.ads, gui/.gate/autocdorganizer/principal_pkg.adb, gui/.gate/autocdorganizer/principal_pkg.ads, gui/.gate/autocdorganizer/navegador_pkg-callbacks.adb, gui/.gate/autocdorganizer/navegador_pkg-callbacks.ads, gui/.gate/autocdorganizer/proceso_pkg.adb, gui/.gate/autocdorganizer/proceso_pkg.ads, gui/.gate/autocdorganizer/preferencias_pkg.adb, gui/.gate/autocdorganizer/preferencias_pkg.ads, lib/pgada/pgada_hpux/Makefile, lib/pgada/pgada_hpux/c.h, lib/pgada/pgada_hpux/postgresql.ads.txt, lib/pgada/pgada_hpux/prueba_pgada.adb, lib/pgada/pgada_hpux/prueba_postgresql.adb, lib/pgada/pgada_hpux/fe-auth.h, lib/pgada/pgada_hpux/fe-connect.h, lib/pgada/pgada_hpux/postgresql.adb, lib/pgada/pgada_hpux/postgresql.ads, lib/pgada/pgada_hpux/pqsignal.h, lib/pgada/pgada_hpux/libpq-fe.h, lib/pgada/pgada_hpux/ustrings.adb, lib/pgada/pgada_hpux/ustrings.ads, lib/pgada/pgada_hpux/pgada.ads, lib/pgada/pgada_solaris_sparc/c.h, lib/pgada/pgada_solaris_sparc/prueba_pgada.adb, lib/pgada/pgada_solaris_sparc/prueba_postgresql.adb, lib/pgada/pgada_solaris_sparc/Makefile, lib/pgada/pgada_solaris_sparc/fe-auth.h, lib/pgada/pgada_solaris_sparc/fe-connect.h, lib/pgada/pgada_solaris_sparc/postgresql.adb, lib/pgada/pgada_solaris_sparc/postgresql.ads, lib/pgada/pgada_solaris_sparc/postgresql.ads.txt, lib/pgada/pgada_solaris_sparc/pqsignal.h, lib/pgada/pgada_solaris_sparc/libpq-fe.h, lib/pgada/pgada_solaris_sparc/ustrings.adb, lib/pgada/pgada_solaris_sparc/pgada.ads, lib/pgada/pgada_solaris_sparc/ustrings.ads, lib/pgada/pgada_linux/Makefile, lib/pgada/pgada_linux/c.h, lib/pgada/pgada_linux/postgresql.ads.txt, lib/pgada/pgada_linux/prueba_pgada.adb, lib/pgada/pgada_linux/prueba_postgresql.adb, lib/pgada/pgada_linux/fe-auth.h, lib/pgada/pgada_linux/fe-connect.h, lib/pgada/pgada_linux/postgresql.adb, lib/pgada/pgada_linux/postgresql.ads, lib/pgada/pgada_linux/pqsignal.h, lib/pgada/pgada_linux/libpq-fe.h, lib/pgada/pgada_linux/pgada.ads, lib/pgada/pgada_linux/ustrings.adb, lib/pgada/pgada_linux/ustrings.ads, pkg/Makefile, pkg/base_datos.ads, pkg/datos.ads, pkg/dispositivo.ads, pkg/preferencias.adb, pkg/preferencias.ads, pixmaps/yes.xpm, pkg/ustrings.adb, pkg/ustrings.ads, test/Makefile, test/prueba_preferencias.adb: Initial revision 2001-04-25 01:50 oroz * src/: autocdorganizer.glade, gui/callbacks_autocdorganizer.ads, gui/opcion_pkg.adb, gui/opcion_pkg.ads, gui/proceso_pkg-callbacks.adb, gui/proceso_pkg-callbacks.ads, gui/yes.xpm, gui/agregar_pkg.adb, gui/agregar_pkg.ads, gui/opcion_pkg-callbacks.adb, gui/opcion_pkg-callbacks.ads, gui/principal_pkg-callbacks.adb, gui/principal_pkg-callbacks.ads, gui/autocdorganizer.adb, gui/buscar_pkg.adb, gui/buscar_pkg.ads, gui/navegador_pkg.adb, gui/navegador_pkg.ads, gui/preferencias_pkg-callbacks.adb, gui/preferencias_pkg-callbacks.ads, gui/agregar_pkg-callbacks.adb, gui/agregar_pkg-callbacks.ads, gui/autocdorganizer_intl.adb, gui/autocdorganizer_intl.ads, gui/buscar_pkg-callbacks.adb, gui/buscar_pkg-callbacks.ads, gui/principal_pkg.adb, gui/principal_pkg.ads, gui/navegador_pkg-callbacks.adb, gui/navegador_pkg-callbacks.ads, gui/proceso_pkg.adb, gui/proceso_pkg.ads, gui/preferencias_pkg.adb, gui/preferencias_pkg.ads, gui/.gate/autocdorganizer/agregar_pkg.adb, gui/.gate/autocdorganizer/agregar_pkg.ads, gui/.gate/autocdorganizer/callbacks_autocdorganizer.ads, gui/.gate/autocdorganizer/opcion_pkg.adb, gui/.gate/autocdorganizer/opcion_pkg.ads, gui/.gate/autocdorganizer/proceso_pkg-callbacks.adb, gui/.gate/autocdorganizer/proceso_pkg-callbacks.ads, gui/.gate/autocdorganizer/navegador_pkg.adb, gui/.gate/autocdorganizer/navegador_pkg.ads, gui/.gate/autocdorganizer/opcion_pkg-callbacks.adb, gui/.gate/autocdorganizer/opcion_pkg-callbacks.ads, gui/.gate/autocdorganizer/principal_pkg-callbacks.adb, gui/.gate/autocdorganizer/principal_pkg-callbacks.ads, gui/.gate/autocdorganizer/agregar_pkg-callbacks.adb, gui/.gate/autocdorganizer/agregar_pkg-callbacks.ads, gui/.gate/autocdorganizer/autocdorganizer.adb, gui/.gate/autocdorganizer/autocdorganizer_intl.adb, gui/.gate/autocdorganizer/autocdorganizer_intl.ads, gui/.gate/autocdorganizer/buscar_pkg-callbacks.adb, gui/.gate/autocdorganizer/buscar_pkg-callbacks.ads, gui/.gate/autocdorganizer/buscar_pkg.adb, gui/.gate/autocdorganizer/buscar_pkg.ads, gui/.gate/autocdorganizer/conflicts.txt, gui/.gate/autocdorganizer/preferencias_pkg-callbacks.adb, gui/.gate/autocdorganizer/preferencias_pkg-callbacks.ads, gui/.gate/autocdorganizer/principal_pkg.adb, gui/.gate/autocdorganizer/principal_pkg.ads, gui/.gate/autocdorganizer/navegador_pkg-callbacks.adb, gui/.gate/autocdorganizer/navegador_pkg-callbacks.ads, gui/.gate/autocdorganizer/proceso_pkg.adb, gui/.gate/autocdorganizer/proceso_pkg.ads, gui/.gate/autocdorganizer/preferencias_pkg.adb, gui/.gate/autocdorganizer/preferencias_pkg.ads, lib/pgada/pgada_hpux/Makefile, lib/pgada/pgada_hpux/c.h, lib/pgada/pgada_hpux/postgresql.ads.txt, lib/pgada/pgada_hpux/prueba_pgada.adb, lib/pgada/pgada_hpux/prueba_postgresql.adb, lib/pgada/pgada_hpux/fe-auth.h, lib/pgada/pgada_hpux/fe-connect.h, lib/pgada/pgada_hpux/postgresql.adb, lib/pgada/pgada_hpux/postgresql.ads, lib/pgada/pgada_hpux/pqsignal.h, lib/pgada/pgada_hpux/libpq-fe.h, lib/pgada/pgada_hpux/ustrings.adb, lib/pgada/pgada_hpux/ustrings.ads, lib/pgada/pgada_hpux/pgada.ads, lib/pgada/pgada_solaris_sparc/c.h, lib/pgada/pgada_solaris_sparc/prueba_pgada.adb, lib/pgada/pgada_solaris_sparc/prueba_postgresql.adb, lib/pgada/pgada_solaris_sparc/Makefile, lib/pgada/pgada_solaris_sparc/fe-auth.h, lib/pgada/pgada_solaris_sparc/fe-connect.h, lib/pgada/pgada_solaris_sparc/postgresql.adb, lib/pgada/pgada_solaris_sparc/postgresql.ads, lib/pgada/pgada_solaris_sparc/postgresql.ads.txt, lib/pgada/pgada_solaris_sparc/pqsignal.h, lib/pgada/pgada_solaris_sparc/libpq-fe.h, lib/pgada/pgada_solaris_sparc/ustrings.adb, lib/pgada/pgada_solaris_sparc/pgada.ads, lib/pgada/pgada_solaris_sparc/ustrings.ads, lib/pgada/pgada_linux/Makefile, lib/pgada/pgada_linux/c.h, lib/pgada/pgada_linux/postgresql.ads.txt, lib/pgada/pgada_linux/prueba_pgada.adb, lib/pgada/pgada_linux/prueba_postgresql.adb, lib/pgada/pgada_linux/fe-auth.h, lib/pgada/pgada_linux/fe-connect.h, lib/pgada/pgada_linux/postgresql.adb, lib/pgada/pgada_linux/postgresql.ads, lib/pgada/pgada_linux/pqsignal.h, lib/pgada/pgada_linux/libpq-fe.h, lib/pgada/pgada_linux/pgada.ads, lib/pgada/pgada_linux/ustrings.adb, lib/pgada/pgada_linux/ustrings.ads, pkg/Makefile, pkg/base_datos.ads, pkg/datos.ads, pkg/dispositivo.ads, pkg/preferencias.adb, pkg/preferencias.ads, pixmaps/yes.xpm, pkg/ustrings.adb, pkg/ustrings.ads, test/Makefile, test/prueba_preferencias.adb: [no log message] 2001-04-25 01:47 oroz * doc/: Auditorias/ACDO_AudAnas_1.doc, Auditorias/ACDO_AudDiseño_1.doc, Auditorias/ACDO_AudDiseño_2.doc, Análisis/ACDO_Analisis_v2.1.doc, Análisis/viejos/ACDO_Acuerdo(Ficha)_1.doc, Análisis/viejos/an lisis.zip, Análisis/viejos/ACDO_Analisis_v2.0.doc, Análisis/viejos/ACDO_An lisis(T¡tulo)_1.doc, Análisis/viejos/ACDO_An lisis(Ficha)_1.doc, Análisis/viejos/acdo-2.0-Analisis.mdl, Análisis/viejos/dfds.zip: Initial revision 2001-04-25 01:47 oroz * doc/: Auditorias/ACDO_AudAnas_1.doc, Auditorias/ACDO_AudDiseño_1.doc, Auditorias/ACDO_AudDiseño_2.doc, Análisis/ACDO_Analisis_v2.1.doc, Análisis/viejos/ACDO_Acuerdo(Ficha)_1.doc, Análisis/viejos/an lisis.zip, Análisis/viejos/ACDO_Analisis_v2.0.doc, Análisis/viejos/ACDO_An lisis(T¡tulo)_1.doc, Análisis/viejos/ACDO_An lisis(Ficha)_1.doc, Análisis/viejos/acdo-2.0-Analisis.mdl, Análisis/viejos/dfds.zip: [no log message] 2001-04-25 01:44 oroz * doc/: plantilla ficha.doc, Diseño/ACDO_Diseño_2.doc, Diseño/viejos/dise¤o_v1_r0.doc, Diseño/viejos/dise¤o_v1_r1.doc, Diseño/viejos/dise¤o_v1_r2.doc, Diseño/viejos/dise¤o_v1_r3.doc, Diseño/viejos/dise¤o_v1_r4.doc, Acuerdo del proyecto/ACDO_Acuerdo(Ficha)_1.doc, Acuerdo del proyecto/ACDO_Acuerdo(T¡tulo)_1.doc, Acuerdo del proyecto/ACDO_Acuerdo_1.doc, presentaciones/Tildure - ACDO - presentación producto - v1.0.zip, Análisis de requisitos/ACDO_DRU_1.doc, Análisis de requisitos/ACDO_DRU(T¡tulo)_1.doc, Análisis de requisitos/ACDO_DRU(Ficha)_1.doc, Idea Inicial/AutoCD Organizer - Idea inicial.doc: Initial revision 2001-04-25 01:44 oroz * doc/: plantilla ficha.doc, Diseño/ACDO_Diseño_2.doc, Diseño/viejos/dise¤o_v1_r0.doc, Diseño/viejos/dise¤o_v1_r1.doc, Diseño/viejos/dise¤o_v1_r2.doc, Diseño/viejos/dise¤o_v1_r3.doc, Diseño/viejos/dise¤o_v1_r4.doc, Acuerdo del proyecto/ACDO_Acuerdo(Ficha)_1.doc, Acuerdo del proyecto/ACDO_Acuerdo(T¡tulo)_1.doc, Acuerdo del proyecto/ACDO_Acuerdo_1.doc, presentaciones/Tildure - ACDO - presentación producto - v1.0.zip, Análisis de requisitos/ACDO_DRU_1.doc, Análisis de requisitos/ACDO_DRU(T¡tulo)_1.doc, Análisis de requisitos/ACDO_DRU(Ficha)_1.doc, Idea Inicial/AutoCD Organizer - Idea inicial.doc: [no log message] |
|
From: Cesar P. T. <or...@us...> - 2001-05-01 19:37:31
|
Update of /cvsroot/acdo//acdo In directory usw-pr-cvs1:/tmp/cvs-serv30229 Modified Files: TODO Log Message: Index: TODO =================================================================== RCS file: /cvsroot/acdo//acdo/TODO,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** TODO 2001/05/01 11:56:23 1.1 --- TODO 2001/05/01 19:37:29 1.2 *************** *** 1,5 **** 1 mayo 2001: - Añadir una función que pase de string a entero para la ventana de preferencias y busqueda. - Inicializar los valores de la ventana de preferencias El navegador Hacer que funcione el módulo dispositivo en solaris --- 1,4 ---- 1 mayo 2001: El navegador Hacer que funcione el módulo dispositivo en solaris + Cuando conectamos, leemos las preferencias? |
|
From: Cesar P. T. <or...@us...> - 2001-05-01 19:37:02
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv30021/src/gui
Modified Files:
agregar_pkg-callbacks.adb buscar_pkg-callbacks.adb
preferencias_pkg-callbacks.adb
Log Message:
arreglos menores
Index: agregar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/agregar_pkg-callbacks.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** agregar_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
--- agregar_pkg-callbacks.adb 2001/05/01 19:37:00 1.3
***************
*** 44,51 ****
(Object : access Gtk_Button_Record'Class)
is
! datos_agregar: tpitem;
identif : integer;
begin
- datos_agregar.tipo := VOLUMEN;
datos_agregar.titulo := ustrings.U(Get_Text(Agregar.titulo));
datos_agregar.tema := ustrings.U(Get_Text(Agregar.tema));
--- 44,50 ----
(Object : access Gtk_Button_Record'Class)
is
! datos_agregar: tpitem(VOLUMEN);
identif : integer;
begin
datos_agregar.titulo := ustrings.U(Get_Text(Agregar.titulo));
datos_agregar.tema := ustrings.U(Get_Text(Agregar.tema));
Index: buscar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/buscar_pkg-callbacks.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** buscar_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
--- buscar_pkg-callbacks.adb 2001/05/01 19:37:00 1.3
***************
*** 18,21 ****
--- 18,24 ----
with globales; use globales;
with ustrings; use ustrings;
+ with datos; use datos;
+ with navegador_pkg; use navegador_pkg;
+ with base_datos; use base_datos;
package body Buscar_Pkg.Callbacks is
***************
*** 57,63 ****
busq.fecha_ant := ustrings.U(Get_Text(Buscar.fecha_anterior_a));
busq.fecha_post := ustrings.U(Get_Text(Buscar.fecha_posterior_a));
! --FIXME
! -- busq.tama_menor := ATOI (Get_Text(Buscar.tam_menor_que));
! -- busq.tama_mayor := ATOI (Get_Text(Buscar.tam_mayor_que));
busq.tema := ustrings.U(Get_Text(Buscar.tema));
busq.codigo := ustrings.U(Get_Text(Buscar.codigo));
--- 60,65 ----
busq.fecha_ant := ustrings.U(Get_Text(Buscar.fecha_anterior_a));
busq.fecha_post := ustrings.U(Get_Text(Buscar.fecha_posterior_a));
! busq.tama_menor := integer'value (Get_Text(Buscar.tam_menor_que));
! busq.tama_mayor := integer'value (Get_Text(Buscar.tam_mayor_que));
busq.tema := ustrings.U(Get_Text(Buscar.tema));
busq.codigo := ustrings.U(Get_Text(Buscar.codigo));
***************
*** 67,71 ****
--Sacar ventana procesando...
! buscar(busq);
desde_buscar := true;
Gtk_New (Navegador);
--- 69,73 ----
--Sacar ventana procesando...
! base_datos.buscar(busq);
desde_buscar := true;
Gtk_New (Navegador);
Index: preferencias_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/preferencias_pkg-callbacks.adb,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** preferencias_pkg-callbacks.adb 2001/05/01 15:52:15 1.3
--- preferencias_pkg-callbacks.adb 2001/05/01 19:37:00 1.4
***************
*** 20,23 ****
--- 20,24 ----
with preferencias; use preferencias;
with ustrings; use ustrings;
+ with datos; use datos;
package body Preferencias_Pkg.Callbacks is
***************
*** 43,46 ****
--- 44,48 ----
(Object : access Gtk_Button_Record'Class)
is
+ prefs: tppreferencias;
begin
prefs.ruta := ustrings.U(Get_Text(Preferencias.ruta));
***************
*** 49,57 ****
prefs.bd_password := ustrings.U(Get_Text(Preferencias.contrasenya));
prefs.bd_servidor := ustrings.U(Get_Text(Preferencias.host));
! --FIXME
! -- no sabemos pasar la cadena de la ventana a entero, hacer una funcion
! -- prefs.puerto := ATOI (Get_Text(Preferencias.puerto));
prefs.bd_nombre := ustrings.U(Get_Text(Preferencias.nombre));
guardar (prefs);
destroy(get_toplevel(Object));
--- 51,58 ----
prefs.bd_password := ustrings.U(Get_Text(Preferencias.contrasenya));
prefs.bd_servidor := ustrings.U(Get_Text(Preferencias.host));
! prefs.bd_puerto := integer'value(Get_Text(Preferencias.puerto));
prefs.bd_nombre := ustrings.U(Get_Text(Preferencias.nombre));
+ prefs.administrador := get_active(Preferencias.administrador);
guardar (prefs);
destroy(get_toplevel(Object));
***************
*** 77,81 ****
is
begin
! prefs.administrador := not prefs.administrador;
end On_Administrador_Toggled;
--- 78,83 ----
is
begin
! --prefs.administrador := not prefs.administrador;
! null;
end On_Administrador_Toggled;
|
|
From: Juan M. P. B. <ju...@us...> - 2001-05-01 18:59:20
|
Update of /cvsroot/acdo/acdo/src/test
In directory usw-pr-cvs1:/tmp/cvs-serv21618/src/test
Modified Files:
prueba_base_datos.adb
Log Message:
Reparada la búsqueda de ficheros en la base de datos.
Index: prueba_base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/test/prueba_base_datos.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** prueba_base_datos.adb 2001/04/26 21:00:59 1.2
--- prueba_base_datos.adb 2001/05/01 18:59:17 1.3
***************
*** 19,22 ****
--- 19,24 ----
unitem : tpitem_access;
+ criterios : tpbusqueda;
+ resul : tpbusqresul;
tema : ustring;
***************
*** 146,152 ****
end loop;
unitem := new tpitem(VOLUMEN);
unitem.identificador := volid;
- put_line("Recuperados. Vamos a borrar...");
borrar(unitem.all);
put_line("Borrado...");
--- 148,174 ----
end loop;
+ put_line("Recuperados. Vamos a buscar...");
+ criterios.nombre := U("");
+ criterios.fecha_ant := U("20/7/04");
+ criterios.fecha_post := U("");
+ criterios.tama_menor := 0;
+ criterios.tama_mayor := 0;
+ criterios.tema := U("");
+ criterios.codigo := U("");
+ criterios.medio := U("");
+ buscar(criterios);
+ put_line("Buscados. Vamos a recuperar...");
+
+ recuperar(resul,fin);
+ while not fin loop
+ put('['); put(S(resul.titulo)); put(']');
+ put('['); put(S(resul.nombre_completo_dir)); put(']');
+ put('['); put(S(resul.nombre_fich)); put(']'); new_line;
+ recuperar(resul,fin);
+ end loop;
+
+ put_line("Recuperados. Vamos a borrar...");
unitem := new tpitem(VOLUMEN);
unitem.identificador := volid;
borrar(unitem.all);
put_line("Borrado...");
|
|
From: Juan M. P. B. <ju...@us...> - 2001-05-01 18:59:20
|
Update of /cvsroot/acdo/acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv21618/src/pkg
Modified Files:
base_datos.adb
Log Message:
Reparada la búsqueda de ficheros en la base de datos.
Index: base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** base_datos.adb 2001/04/26 21:00:59 1.2
--- base_datos.adb 2001/05/01 18:59:17 1.3
***************
*** 9,14 ****
with postgresql; use postgresql;
with preferencias; use preferencias;
- with ada.text_IO; use ada.text_IO;
- with ada.integer_text_IO; use ada.integer_text_IO;
package body base_datos is
--- 9,12 ----
***************
*** 148,154 ****
integer'image(identificador) & " where idvol = " &
integer'image(item.volumen) & ";");
- put_line("update volumen set idraiz = "&
- integer'image(identificador) & " where idvol = " &
- integer'image(item.volumen) & ";");
consulta(conexion, resultado, "commit;");
end if;
--- 146,149 ----
***************
*** 237,241 ****
condicion : ustring;
sentencia : ustring;
- primero : boolean := true;
begin
--- 232,235 ----
***************
*** 246,334 ****
if S(criterios.nombre) /= "" then
! if primero then
! condicion := U(S(condicion) & "(nombre like '%" & S(criterios.nombre)
! & "%')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (nombre like '%" &
! S(criterios.nombre) & "%')");
! end if;
end if;
if S(criterios.fecha_ant) /= "" then
! if primero then
! condicion := U(S(condicion) & "(fecha <= '" & S(criterios.fecha_ant)
! & "')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (fecha <= '" &
! S(criterios.fecha_ant) & "')");
! end if;
end if;
if S(criterios.fecha_post) /= "" then
! if primero then
! condicion := U(S(condicion) & "(fecha >= '" & S(criterios.fecha_post)
! & "')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (fecha >= '" &
! S(criterios.fecha_post) & "')");
! end if;
end if;
if criterios.tama_menor /= 0 then
! if primero then
! condicion := U(S(condicion) & "(tamanyo <= " &
! integer'image(criterios.tama_menor) & ")");
! primero := false;
! else
! condicion := U(S(condicion) & " and (tamanyo <= '" &
! integer'image(criterios.tama_menor) & "')");
! end if;
end if;
if criterios.tama_mayor /= 0 then
! if primero then
! condicion := U(S(condicion) & "(tamanyo >= '" &
! integer'image(criterios.tama_mayor) &"')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (tamanyo >= '" &
! integer'image(criterios.tama_mayor) & "')");
! end if;
end if;
if S(criterios.tema) /= "" then
! if primero then
! condicion := U(S(condicion) & "(tema = '" & S(criterios.tema)
! & "')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (tema = '" & S(criterios.tema) &
! "')");
! end if;
end if;
if S(criterios.codigo) /= "" then
! if primero then
! condicion := U(S(condicion) & "(codigo = '" & S(criterios.codigo) &
! "')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (codigo = '" & S(criterios.codigo)
! & "')");
! end if;
end if;
if S(criterios.medio) /= "" then
! if primero then
! condicion := U(S(condicion) & "(medio = '" & S(criterios.medio) &
! "')");
! primero := false;
! else
! condicion := U(S(condicion) & " and (medio = '" & S(criterios.medio)
! & "')");
! end if;
end if;
--- 240,280 ----
if S(criterios.nombre) /= "" then
! condicion := U(S(condicion) & " and (fichero.nombre like '%" &
! S(criterios.nombre) & "%')");
end if;
if S(criterios.fecha_ant) /= "" then
! condicion := U(S(condicion) & " and (fichero.fecha <= '" &
! S(criterios.fecha_ant) & "')");
end if;
if S(criterios.fecha_post) /= "" then
! condicion := U(S(condicion) & " and (fichero.fecha >= '" &
! S(criterios.fecha_post) & "')");
end if;
if criterios.tama_menor /= 0 then
! condicion := U(S(condicion) & " and (fichero.tamanyo <= '" &
! integer'image(criterios.tama_menor) & "')");
end if;
if criterios.tama_mayor /= 0 then
! condicion := U(S(condicion) & " and (fichero.tamanyo >= '" &
! integer'image(criterios.tama_mayor) & "')");
end if;
if S(criterios.tema) /= "" then
! condicion := U(S(condicion) & " and (fichero.tema = '" &
! S(criterios.tema) & "')");
end if;
if S(criterios.codigo) /= "" then
! condicion := U(S(condicion) & " and (fichero.codigo = '" &
! S(criterios.codigo) & "')");
end if;
if S(criterios.medio) /= "" then
! condicion := U(S(condicion) & " and (fichero.medio = '" &
! S(criterios.medio) & "')");
end if;
***************
*** 337,349 ****
sentencia := U("select fichero.nombre, fichero.tamanyo, fichero.fecha," &
"directorio.nombre_completo, volumen.titulo from " &
! "fichero,directorio,volumen");
- if primero then
- sentencia := U(S(sentencia) & ";");
- else
- sentencia := U(S(sentencia) & " where " & S(condicion) & ";");
- end if;
-
- put_line(sentencia);
consulta(conexion, resultado, S(sentencia));
--- 283,290 ----
sentencia := U("select fichero.nombre, fichero.tamanyo, fichero.fecha," &
"directorio.nombre_completo, volumen.titulo from " &
! "fichero,directorio,volumen where " &
! "(fichero.iddir = directorio.iddir) and " &
! "(directorio.idvol = volumen.idvol) " & S(condicion) & ";");
consulta(conexion, resultado, S(sentencia));
***************
*** 398,407 ****
"tamanyo,iddir from fichero where iddir = " &
integer'image(item.identificador) & ";");
- put_line("select iddir, nombre, nombre_completo," &
- "fecha, tamanyo, idVol, idPadre from directorio where " &
- "iddir = " & integer'image(item.identificador) & ";");
- put_line("select idfich, nombre, fecha," &
- "tamanyo,iddir from fichero where iddir = " &
- integer'image(item.identificador) & ";");
else
-- Es un volumen
--- 339,342 ----
***************
*** 412,425 ****
integer'image(item.identificador) & ");");
consulta(conexion, resultado_fich, "select idfich, fichero.nombre, " &
- "fichero.fecha,fichero.tamanyo,fichero.iddir from fichero," &
- "directorio where (fichero.iddir = directorio.iddir) " &
- "and (directorio.idpadre = -1) and (directorio.idvol = " &
- integer'image(item.identificador) & ");");
- put_line("select iddir, nombre, nombre_completo," &
- "directorio.fecha, tamanyo, directorio.idVol, idPadre from " &
- "volumen,directorio where (directorio.iddir = volumen.idraiz)"&
- " and (directorio.idvol = " &
- integer'image(item.identificador) & ");");
- put_line("select idfich, fichero.nombre, " &
"fichero.fecha,fichero.tamanyo,fichero.iddir from fichero," &
"directorio where (fichero.iddir = directorio.iddir) " &
--- 347,350 ----
|
|
From: Cesar P. T. <or...@us...> - 2001-05-01 15:52:17
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv18842/src/gui
Modified Files:
preferencias_pkg-callbacks.adb preferencias_pkg-callbacks.ads
principal_pkg-callbacks.adb
Log Message:
la vida esta llena de pequeños detalles...
Index: preferencias_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/preferencias_pkg-callbacks.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** preferencias_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
--- preferencias_pkg-callbacks.adb 2001/05/01 15:52:15 1.3
***************
*** 53,57 ****
-- prefs.puerto := ATOI (Get_Text(Preferencias.puerto));
! prefs.nombre := ustrings.U(Get_Text(Preferencias.nombre));
guardar (prefs);
destroy(get_toplevel(Object));
--- 53,57 ----
-- prefs.puerto := ATOI (Get_Text(Preferencias.puerto));
! prefs.bd_nombre := ustrings.U(Get_Text(Preferencias.nombre));
guardar (prefs);
destroy(get_toplevel(Object));
Index: preferencias_pkg-callbacks.ads
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/preferencias_pkg-callbacks.ads,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** preferencias_pkg-callbacks.ads 2001/05/01 10:45:09 1.2
--- preferencias_pkg-callbacks.ads 2001/05/01 15:52:15 1.3
***************
*** 12,15 ****
--- 12,16 ----
package Preferencias_Pkg.Callbacks is
+
procedure On_Opciones_Destroy
(Object : access Gtk_Window_Record'Class);
***************
*** 23,26 ****
procedure On_Administrador_Toggled
(Object : access Gtk_Check_Button_Record'Class);
- prefs : tppreferencias;
end Preferencias_Pkg.Callbacks;
--- 24,26 ----
Index: principal_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg-callbacks.adb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** principal_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
--- principal_pkg-callbacks.adb 2001/05/01 15:52:15 1.3
***************
*** 17,24 ****
with Gtk.Widget; use Gtk.Widget;
with globales; use globales;
! with preferencias_pkg-callbacks;
with preferencias; use preferencias;
package body Principal_Pkg.Callbacks is
use Gtk.Arguments;
--- 17,34 ----
with Gtk.Widget; use Gtk.Widget;
with globales; use globales;
! --with preferencias_pkg.callbacks;
! with preferencias_pkg; use preferencias_pkg;
with preferencias; use preferencias;
+ with agregar_pkg; use agregar_pkg;
+ with buscar_pkg; use buscar_pkg;
+ with navegador_pkg; use navegador_pkg;
+ with utiles; use utiles;
+ with ustrings; use ustrings;
+ with gtk.gentry; use gtk.gentry;
+ with datos; use datos;
+ with gtk.check_button; use gtk.check_button;
package body Principal_Pkg.Callbacks is
+ prefs : tppreferencias;
use Gtk.Arguments;
***************
*** 107,113 ****
begin
if libre then
! dar(preferencias_pkg-callbacks.prefs);
! Gtk_New (Preferencias);
! Show_All (Preferencias);
libre := false;
end if;
--- 117,131 ----
begin
if libre then
! dar(prefs);
! Gtk_New (preferencias_pkg.Preferencias);
! set_text (preferencias_pkg.Preferencias.ruta, S(prefs.ruta));
! set_text (preferencias_pkg.Preferencias.medio, S(prefs.medio));
! set_text (preferencias_pkg.Preferencias.login, S(prefs.bd_usuario));
! set_text (preferencias_pkg.Preferencias.contrasenya, S(prefs.bd_password));
! set_text (preferencias_pkg.Preferencias.host, S(prefs.bd_servidor));
! set_text (preferencias_pkg.Preferencias.nombre, S(prefs.bd_nombre));
! set_text (preferencias_pkg.Preferencias.puerto, prefs.bd_puerto'img);
! set_Active (preferencias_pkg.Preferencias.administrador, prefs.administrador);
! Show_All (preferencias_pkg.Preferencias);
libre := false;
end if;
|
|
From: Cesar P. T. <or...@us...> - 2001-05-01 15:51:24
|
Update of /cvsroot/acdo//acdo/src/pkg In directory usw-pr-cvs1:/tmp/cvs-serv18672 Added Files: utiles.adb utiles.ads Log Message: Módulo para funciones varias: salir, cadena a entero... --- NEW FILE --- -------------------------------------------------------------------------- --TILDURE --Autores: César Pérez Turrado <44...@ce...> --Fichero: utiles.ads --Fecha: 1 Mayo 2001 --Proyecto: ACDO --Descripción: -------------------------------------------------------------------------- with base_datos; use base_datos; with Gtk.Main; use Gtk.Main; package body utiles is procedure salir is begin desconectar; Main_Quit; end; function atoi(cadena: string) return integer; end utiles; --- NEW FILE --- -------------------------------------------------------------------------- --TILDURE --Autores: César Pérez Turrado <44...@ce...> --Fichero: utiles.ads --Fecha: 1 Mayo 2001 --Proyecto: ACDO --Descripción: -------------------------------------------------------------------------- package utiles is procedure salir; function atoi(cadena: string) return integer; end utiles; |
|
From: Cesar P. T. <or...@us...> - 2001-05-01 11:56:25
|
Update of /cvsroot/acdo//acdo In directory usw-pr-cvs1:/tmp/cvs-serv4386 Added Files: TODO Log Message: --- NEW FILE --- 1 mayo 2001: Añadir una función que pase de string a entero para la ventana de preferencias y busqueda. Inicializar los valores de la ventana de preferencias El navegador Hacer que funcione el módulo dispositivo en solaris |
|
From: Cesar P. T. <or...@us...> - 2001-05-01 11:06:20
|
Update of /cvsroot/acdo//acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv29262
Modified Files:
dispositivo.adb
Log Message:
Se introdujo un error tipográfico en el anterior commit.
Index: dispositivo.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/pkg/dispositivo.adb,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** dispositivo.adb 2001/05/01 10:45:09 1.4
--- dispositivo.adb 2001/05/01 11:06:17 1.5
***************
*** 83,87 ****
exit when direntop = null;
! directorio:=To_Pointer(OpenDir(padre & "/" & Direntop.name & ASCII.NULL));
if directorio /= null then
--- 83,87 ----
exit when direntop = null;
! directorio:=To_Pointer(OpenDir(padre & "/" & Direntop.name & ASCII.NUL));
if directorio /= null then
|
|
From: Marta T. S. <mt...@us...> - 2001-05-01 10:50:35
|
Update of /cvsroot/acdo/acdo/src/gui In directory usw-pr-cvs1:/tmp/cvs-serv24635 Added Files: globales.ads Log Message: Fichero con las variables globales que se utilizan para que no se abra más de una ventana, para saber si se agrega a mano o automáticamente y para saber si se abre el navegador desde buscar o desde la ventana principal --- NEW FILE --- -------------------------------------------------------------------------- --TILDURE --Autores: María Bazús, César Pérez, Marta Tolosa --Fichero: globales.ads --Fecha: 1 Mayo 2001 --Proyecto: ACDO --Descripción: -------------------------------------------------------------------------- package globales is libre : boolean := true; a_mano : boolean; desde_buscar : boolean; end globales; |
|
From: Marta T. S. <mt...@us...> - 2001-05-01 10:45:13
|
Update of /cvsroot/acdo/acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv23118/acdo/src/gui
Modified Files:
agregar_pkg-callbacks.adb agregar_pkg-callbacks.ads
agregar_pkg.adb autocdorganizer.adb buscar_pkg-callbacks.adb
navegador_pkg-callbacks.adb preferencias_pkg-callbacks.adb
preferencias_pkg-callbacks.ads preferencias_pkg.adb
preferencias_pkg.ads principal_pkg-callbacks.adb
Log Message:
Hemos añadido el código para los botones de las ventanas
Index: agregar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/agregar_pkg-callbacks.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** agregar_pkg-callbacks.adb 2001/04/24 23:51:00 1.1.1.1
--- agregar_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,10 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autores: María Bazús, César Pérez, Marta Tolosa
+ --Fecha: 1 Mayo 2001
+ --Fichero: agregar_pkg-callbacks.adb
+ --Proyecto: ACDO
+ --Descripción: callbacks de la ventana agregar automáticamente
+ --------------------------------------------------------------------------
with System; use System;
with Glib; use Glib;
***************
*** 8,11 ****
--- 16,24 ----
with Gtk.Style; use Gtk.Style;
with Gtk.Widget; use Gtk.Widget;
+ with globales; use globales;
+ with datos; use datos;
+ with ustrings; use ustrings;
+ with dispositivo; use dispositivo;
+ with base_datos; use base_datos;
package body Agregar_Pkg.Callbacks is
***************
*** 21,26 ****
is
begin
! null;
end On_Agregar_Automaticamente_Destroy;
end Agregar_Pkg.Callbacks;
--- 34,74 ----
is
begin
! libre := true;
end On_Agregar_Automaticamente_Destroy;
+
+ ------------------------
+ -- On_Agregar_Clicked --
+ ------------------------
+
+ procedure On_Agregar_Clicked
+ (Object : access Gtk_Button_Record'Class)
+ is
+ datos_agregar: tpitem;
+ identif : integer;
+ begin
+ datos_agregar.tipo := VOLUMEN;
+ datos_agregar.titulo := ustrings.U(Get_Text(Agregar.titulo));
+ datos_agregar.tema := ustrings.U(Get_Text(Agregar.tema));
+ datos_agregar.codigo := ustrings.U(Get_Text(Agregar.codigo));
+ datos_agregar.fecha_insercion := ustrings.U(Get_Text(Agregar.fecha));
+ datos_agregar.tipo_dispositivo := ustrings.U(Get_Text(Agregar.medio));
+ datos_agregar.descripcion := ustrings.U(Get_Text(Agregar.descripcion));
+ if a_mano then
+ insertar(datos_agregar,identif);
+ else
+ insertar(datos_agregar);
+ end if;
+ end On_Agregar_Clicked;
+
+ -------------------------
+ -- On_Cancelar_Clicked --
+ -------------------------
+
+ procedure On_Cancelar_Clicked
+ (Object : access Gtk_Button_Record'Class)
+ is
+ begin
+ destroy(get_toplevel(Object));
+ end On_Cancelar_Clicked;
end Agregar_Pkg.Callbacks;
Index: agregar_pkg-callbacks.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/agregar_pkg-callbacks.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** agregar_pkg-callbacks.ads 2001/04/24 23:51:00 1.1.1.1
--- agregar_pkg-callbacks.ads 2001/05/01 10:45:09 1.2
***************
*** 6,8 ****
--- 6,14 ----
(Object : access Gtk_Window_Record'Class);
+ procedure On_Agregar_Clicked
+ (Object : access Gtk_Button_Record'Class);
+
+ procedure On_Cancelar_Clicked
+ (Object : access Gtk_Button_Record'Class);
+
end Agregar_Pkg.Callbacks;
Index: agregar_pkg.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/agregar_pkg.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** agregar_pkg.adb 2001/04/24 23:50:58 1.1.1.1
--- agregar_pkg.adb 2001/05/01 10:45:09 1.2
***************
*** 73,76 ****
--- 73,79 ----
Set_UPosition (Agregar.Agregar, 200, 256);
Set_USize (Agregar.Agregar, 96, 32);
+ Button_Callback.Connect
+ (Agregar.Agregar, "clicked",
+ Button_Callback.To_Marshaller (On_Agregar_Clicked'Access));
Put (Agregar.Fixed3, Agregar.Agregar, 200, 256);
***************
*** 79,82 ****
--- 82,88 ----
Set_UPosition (Agregar.Cancelar, 296, 256);
Set_USize (Agregar.Cancelar, 96, 32);
+ Button_Callback.Connect
+ (Agregar.Cancelar, "clicked",
+ Button_Callback.To_Marshaller (On_Cancelar_Clicked'Access));
Put (Agregar.Fixed3, Agregar.Cancelar, 296, 256);
Index: autocdorganizer.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/autocdorganizer.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** autocdorganizer.adb 2001/04/24 23:50:59 1.1.1.1
--- autocdorganizer.adb 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,10 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autores: María Bazús, César Pérez, Marta Tolosa
+ --Fichero: Autocdorganizer.adb
+ --Fecha: 1 Mayo 2001
+ --Proyecto: ACDO
+ --Descripción: Programa principal
+ --------------------------------------------------------------------------
with Gtk; use Gtk;
with Gtk.Main;
***************
*** 14,31 ****
Gtk.Main.Set_Locale;
Gtk.Main.Init;
! Gtk_New (Preferencias);
! Show_All (Preferencias);
! Gtk_New (Agregar);
! Show_All (Agregar);
! Gtk_New (Proceso);
! Show_All (Proceso);
! Gtk_New (Opcion);
! Show_All (Opcion);
Gtk_New (Principal);
Show_All (Principal);
! Gtk_New (Navegador);
! Show_All (Navegador);
! Gtk_New (Buscar);
! Show_All (Buscar);
Gtk.Main.Main;
end Autocdorganizer;
--- 22,39 ----
Gtk.Main.Set_Locale;
Gtk.Main.Init;
! -- Gtk_New (Preferencias);
! -- Show_All (Preferencias);
! -- Gtk_New (Agregar);
! -- Show_All (Agregar);
! -- Gtk_New (Proceso);
! -- Show_All (Proceso);
! -- Gtk_New (Opcion);
! -- Show_All (Opcion);
Gtk_New (Principal);
Show_All (Principal);
! -- Gtk_New (Navegador);
! -- Show_All (Navegador);
! -- Gtk_New (Buscar);
! -- Show_All (Buscar);
Gtk.Main.Main;
end Autocdorganizer;
Index: buscar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/buscar_pkg-callbacks.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** buscar_pkg-callbacks.adb 2001/04/24 23:51:00 1.1.1.1
--- buscar_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,10 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autores: María Bazús, César Pérez, Marta Tolosa
+ --Fecha: 1 Mayo 2001
+ --Fichero: buscar_pkg-callbacks.adb
+ --Proyecto: ACDO
+ --Descripción: callbacks de la ventana buscar
+ --------------------------------------------------------------------------
with System; use System;
with Glib; use Glib;
***************
*** 8,11 ****
--- 16,21 ----
with Gtk.Style; use Gtk.Style;
with Gtk.Widget; use Gtk.Widget;
+ with globales; use globales;
+ with ustrings; use ustrings;
package body Buscar_Pkg.Callbacks is
***************
*** 32,36 ****
is
begin
! null;
end On_Cancelar_Clicked;
--- 42,46 ----
is
begin
! destroy(get_toplevel(Object));
end On_Cancelar_Clicked;
***************
*** 42,47 ****
(Object : access Gtk_Button_Record'Class)
is
begin
! null;
end On_Aceptar_Clicked;
--- 52,74 ----
(Object : access Gtk_Button_Record'Class)
is
+ busq : tpbusqueda;
begin
! busq.nombre := ustrings.U(Get_Text(Buscar.nombre));
! busq.fecha_ant := ustrings.U(Get_Text(Buscar.fecha_anterior_a));
! busq.fecha_post := ustrings.U(Get_Text(Buscar.fecha_posterior_a));
! --FIXME
! -- busq.tama_menor := ATOI (Get_Text(Buscar.tam_menor_que));
! -- busq.tama_mayor := ATOI (Get_Text(Buscar.tam_mayor_que));
! busq.tema := ustrings.U(Get_Text(Buscar.tema));
! busq.codigo := ustrings.U(Get_Text(Buscar.codigo));
! busq.medio := ustrings.U(Get_Text(Buscar.medio));
! destroy(get_toplevel(Object));
! --FIXME
! --Sacar ventana procesando...
!
! buscar(busq);
! desde_buscar := true;
! Gtk_New (Navegador);
! Show_All (Navegador);
end On_Aceptar_Clicked;
Index: navegador_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/navegador_pkg-callbacks.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** navegador_pkg-callbacks.adb 2001/04/24 23:51:01 1.1.1.1
--- navegador_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,10 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autor:
+ --Fecha: 1 Mayo 2001
+ --Fichero: navegador_pkg-callbacks.adb
+ --Proyecto: ACDO
+ --Descripción: callbacks de la ventana del navegador
+ --------------------------------------------------------------------------
with System; use System;
with Glib; use Glib;
Index: preferencias_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/preferencias_pkg-callbacks.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** preferencias_pkg-callbacks.adb 2001/04/24 23:50:59 1.1.1.1
--- preferencias_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,11 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autores: María Bazús, César Pérez, Marta Tolosa
+ --Fichero: preferencias_pkg-callbacks.adb
+ --Fecha: 1 Mayo 2001
+ --Proyecto: ACDO
+ --Descripción: callbacks de la ventana de preferencias
+ --------------------------------------------------------------------------
+
with System; use System;
with Glib; use Glib;
***************
*** 8,11 ****
--- 17,23 ----
with Gtk.Style; use Gtk.Style;
with Gtk.Widget; use Gtk.Widget;
+ with globales; use globales;
+ with preferencias; use preferencias;
+ with ustrings; use ustrings;
package body Preferencias_Pkg.Callbacks is
***************
*** 21,25 ****
is
begin
! null;
end On_Opciones_Destroy;
--- 33,37 ----
is
begin
! libre := true;
end On_Opciones_Destroy;
***************
*** 32,36 ****
is
begin
! null;
end On_Modificar_Clicked;
--- 44,59 ----
is
begin
! prefs.ruta := ustrings.U(Get_Text(Preferencias.ruta));
! prefs.medio := ustrings.U(Get_Text(Preferencias.medio));
! prefs.bd_usuario := ustrings.U(Get_Text(Preferencias.login));
! prefs.bd_password := ustrings.U(Get_Text(Preferencias.contrasenya));
! prefs.bd_servidor := ustrings.U(Get_Text(Preferencias.host));
! --FIXME
! -- no sabemos pasar la cadena de la ventana a entero, hacer una funcion
! -- prefs.puerto := ATOI (Get_Text(Preferencias.puerto));
!
! prefs.nombre := ustrings.U(Get_Text(Preferencias.nombre));
! guardar (prefs);
! destroy(get_toplevel(Object));
end On_Modificar_Clicked;
***************
*** 43,47 ****
is
begin
! null;
end On_Cancelar_Clicked;
--- 66,70 ----
is
begin
! destroy(get_toplevel(Object));
end On_Cancelar_Clicked;
***************
*** 54,58 ****
is
begin
! null;
end On_Administrador_Toggled;
--- 77,81 ----
is
begin
! prefs.administrador := not prefs.administrador;
end On_Administrador_Toggled;
Index: preferencias_pkg-callbacks.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/preferencias_pkg-callbacks.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** preferencias_pkg-callbacks.ads 2001/04/24 23:50:59 1.1.1.1
--- preferencias_pkg-callbacks.ads 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,11 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autores: María Bazús, César Pérez, Marta Tolosa
+ --Fichero: preferencias_pkg-callbacks.ads
+ --Fecha: 1 Mayo 2001
+ --Proyecto: ACDO
+ --Descripción: callbacks de la ventana de preferencias
+ --------------------------------------------------------------------------
+
with Gtk.Arguments;
with Gtk.Widget; use Gtk.Widget;
***************
*** 14,17 ****
procedure On_Administrador_Toggled
(Object : access Gtk_Check_Button_Record'Class);
!
end Preferencias_Pkg.Callbacks;
--- 23,26 ----
procedure On_Administrador_Toggled
(Object : access Gtk_Check_Button_Record'Class);
! prefs : tppreferencias;
end Preferencias_Pkg.Callbacks;
Index: preferencias_pkg.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/preferencias_pkg.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** preferencias_pkg.adb 2001/04/24 23:51:02 1.1.1.1
--- preferencias_pkg.adb 2001/05/01 10:45:09 1.2
***************
*** 132,152 ****
Put (Preferencias.Fixed2, Preferencias.Login, 64, 128);
! Gtk_New (Preferencias.Label7, -("Password:"));
! Set_Alignment (Preferencias.Label7, 0.5, 0.5);
! Set_Padding (Preferencias.Label7, 0, 0);
! Set_Justify (Preferencias.Label7, Justify_Left);
! Set_Line_Wrap (Preferencias.Label7, True);
! Set_UPosition (Preferencias.Label7, 200, 128);
! Set_USize (Preferencias.Label7, 88, 24);
! Put (Preferencias.Fixed2, Preferencias.Label7, 200, 128);
!
! Gtk_New (Preferencias.Entry7);
! Set_Editable (Preferencias.Entry7, True);
! Set_Max_Length (Preferencias.Entry7, 0);
! Set_Text (Preferencias.Entry7, -"");
! Set_Visibility (Preferencias.Entry7, False);
! Set_UPosition (Preferencias.Entry7, 280, 128);
! Set_USize (Preferencias.Entry7, 110, 24);
! Put (Preferencias.Fixed2, Preferencias.Entry7, 280, 128);
Gtk_New (Preferencias.Modificar, -"Modificar");
--- 132,143 ----
Put (Preferencias.Fixed2, Preferencias.Login, 64, 128);
! Gtk_New (Preferencias.Contrasenya);
! Set_Editable (Preferencias.Contrasenya, True);
! Set_Max_Length (Preferencias.Contrasenya, 0);
! Set_Text (Preferencias.Contrasenya, -"");
! Set_Visibility (Preferencias.Contrasenya, False);
! Set_UPosition (Preferencias.Contrasenya, 280, 128);
! Set_USize (Preferencias.Contrasenya, 110, 24);
! Put (Preferencias.Fixed2, Preferencias.Contrasenya, 280, 128);
Gtk_New (Preferencias.Modificar, -"Modificar");
***************
*** 168,171 ****
--- 159,171 ----
Put (Preferencias.Fixed2, Preferencias.Cancelar, 200, 208);
+ Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
+ Set_Active (Preferencias.Administrador, False);
+ Set_UPosition (Preferencias.Administrador, 8, 168);
+ Set_USize (Preferencias.Administrador, 344, 28);
+ Check_Button_Callback.Connect
+ (Preferencias.Administrador, "toggled",
+ Check_Button_Callback.To_Marshaller (On_Administrador_Toggled'Access));
+ Put (Preferencias.Fixed2, Preferencias.Administrador, 8, 168);
+
Gtk_New (Preferencias.Label1, -("Ruta al dispositivo:"));
Set_Alignment (Preferencias.Label1, 0.5, 0.5);
***************
*** 177,188 ****
Put (Preferencias.Fixed2, Preferencias.Label1, 8, 8);
! Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
! Set_Active (Preferencias.Administrador, False);
! Set_UPosition (Preferencias.Administrador, 8, 168);
! Set_USize (Preferencias.Administrador, 344, 28);
! Check_Button_Callback.Connect
! (Preferencias.Administrador, "toggled",
! Check_Button_Callback.To_Marshaller (On_Administrador_Toggled'Access));
! Put (Preferencias.Fixed2, Preferencias.Administrador, 8, 168);
end Initialize;
--- 177,188 ----
Put (Preferencias.Fixed2, Preferencias.Label1, 8, 8);
! Gtk_New (Preferencias.Label7, -("Contraseña:"));
! Set_Alignment (Preferencias.Label7, 0.5, 0.5);
! Set_Padding (Preferencias.Label7, 0, 0);
! Set_Justify (Preferencias.Label7, Justify_Left);
! Set_Line_Wrap (Preferencias.Label7, True);
! Set_UPosition (Preferencias.Label7, 200, 128);
! Set_USize (Preferencias.Label7, 88, 24);
! Put (Preferencias.Fixed2, Preferencias.Label7, 200, 128);
end Initialize;
Index: preferencias_pkg.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/preferencias_pkg.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** preferencias_pkg.ads 2001/04/24 23:51:02 1.1.1.1
--- preferencias_pkg.ads 2001/05/01 10:45:09 1.2
***************
*** 20,29 ****
Label6 : Gtk_Label;
Login : Gtk_Entry;
! Label7 : Gtk_Label;
! Entry7 : Gtk_Entry;
Modificar : Gtk_Button;
Cancelar : Gtk_Button;
- Label1 : Gtk_Label;
Administrador : Gtk_Check_Button;
end record;
type Preferencias_Access is access all Preferencias_Record'Class;
--- 20,29 ----
Label6 : Gtk_Label;
Login : Gtk_Entry;
! Contrasenya : Gtk_Entry;
Modificar : Gtk_Button;
Cancelar : Gtk_Button;
Administrador : Gtk_Check_Button;
+ Label1 : Gtk_Label;
+ Label7 : Gtk_Label;
end record;
type Preferencias_Access is access all Preferencias_Record'Class;
Index: principal_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/principal_pkg-callbacks.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** principal_pkg-callbacks.adb 2001/04/24 23:50:58 1.1.1.1
--- principal_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
***************
*** 1,2 ****
--- 1,10 ----
+ --------------------------------------------------------------------------
+ --TILDURE
+ --Autores: María Bazús, César Pérez, Marta Tolosa
+ --Fecha: 1 Mayo 2001
+ --Fichero: principal_pkg-callbacks.adb
+ --Proyecto: ACDO
+ --Descripción: Callbacks de la ventana principal
+ --------------------------------------------------------------------------
with System; use System;
with Glib; use Glib;
***************
*** 8,11 ****
--- 16,22 ----
with Gtk.Style; use Gtk.Style;
with Gtk.Widget; use Gtk.Widget;
+ with globales; use globales;
+ with preferencias_pkg-callbacks;
+ with preferencias; use preferencias;
package body Principal_Pkg.Callbacks is
***************
*** 21,25 ****
is
begin
! null;
end On_Principal_Destroy;
--- 32,36 ----
is
begin
! salir;
end On_Principal_Destroy;
***************
*** 33,37 ****
is
begin
! null;
end On_Agregar_A_Mano_Clicked;
--- 44,54 ----
is
begin
! if libre then
! Gtk_New (Agregar);
! set_title (Agregar,"Agregar a mano");
! a_mano := true;
! libre := false;
! Show_All (Agregar);
! end if;
end On_Agregar_A_Mano_Clicked;
***************
*** 45,49 ****
is
begin
! null;
end On_Agregar_Automaticamente_Clicked;
--- 62,71 ----
is
begin
! if libre then
! Gtk_New (Agregar);
! a_mano := false;
! libre := false;
! Show_All (Agregar);
! end if;
end On_Agregar_Automaticamente_Clicked;
***************
*** 57,61 ****
is
begin
! null;
end On_Buscar_Clicked;
--- 79,84 ----
is
begin
! Gtk_New (Buscar);
! Show_All (Buscar);
end On_Buscar_Clicked;
***************
*** 69,73 ****
is
begin
! null;
end On_Navegar_Clicked;
--- 92,98 ----
is
begin
! desde_buscar := false;
! Gtk_New (Navegador);
! Show_All (Navegador);
end On_Navegar_Clicked;
***************
*** 81,85 ****
is
begin
! null;
end On_Preferencias_Clicked;
--- 106,115 ----
is
begin
! if libre then
! dar(preferencias_pkg-callbacks.prefs);
! Gtk_New (Preferencias);
! Show_All (Preferencias);
! libre := false;
! end if;
end On_Preferencias_Clicked;
***************
*** 93,97 ****
is
begin
! null;
end On_Salir_Clicked;
--- 123,127 ----
is
begin
! salir;
end On_Salir_Clicked;
|
|
From: Marta T. S. <mt...@us...> - 2001-05-01 10:45:13
|
Update of /cvsroot/acdo/acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv23118/acdo/src/pkg
Modified Files:
dispositivo.adb
Log Message:
Hemos añadido el código para los botones de las ventanas
Index: dispositivo.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/dispositivo.adb,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** dispositivo.adb 2001/04/30 14:37:29 1.3
--- dispositivo.adb 2001/05/01 10:45:09 1.4
***************
*** 83,87 ****
exit when direntop = null;
! directorio:=To_Pointer(OpenDir(padre & "/" & Direntop.name & ASCII.NUL));
if directorio /= null then
--- 83,87 ----
exit when direntop = null;
! directorio:=To_Pointer(OpenDir(padre & "/" & Direntop.name & ASCII.NULL));
if directorio /= null then
***************
*** 111,116 ****
--- 111,120 ----
insertar (item, identificador);
end if;
+ <<<<<<< dispositivo.adb
+ end loop;
+ =======
end loop;
+ >>>>>>> 1.2
end insertarDirectorio;
|
|
From: Marta T. S. <mt...@us...> - 2001-05-01 10:45:12
|
Update of /cvsroot/acdo/acdo/src
In directory usw-pr-cvs1:/tmp/cvs-serv23118/acdo/src
Modified Files:
autocdorganizer.glade
Log Message:
Hemos añadido el código para los botones de las ventanas
Index: autocdorganizer.glade
===================================================================
RCS file: /cvsroot/acdo/acdo/src/autocdorganizer.glade,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** autocdorganizer.glade 2001/04/24 23:50:56 1.1.1.1
--- autocdorganizer.glade 2001/05/01 10:45:08 1.2
***************
*** 206,227 ****
<widget>
- <class>GtkLabel</class>
- <name>label7</name>
- <x>200</x>
- <y>128</y>
- <width>88</width>
- <height>24</height>
- <label>Password:</label>
- <justify>GTK_JUSTIFY_LEFT</justify>
- <wrap>True</wrap>
- <xalign>0.5</xalign>
- <yalign>0.5</yalign>
- <xpad>0</xpad>
- <ypad>0</ypad>
- </widget>
-
- <widget>
<class>GtkEntry</class>
! <name>entry7</name>
<x>280</x>
<y>128</y>
--- 206,211 ----
<widget>
<class>GtkEntry</class>
! <name>contrasenya</name>
<x>280</x>
<y>128</y>
***************
*** 273,276 ****
--- 257,278 ----
<widget>
+ <class>GtkCheckButton</class>
+ <name>administrador</name>
+ <x>8</x>
+ <y>168</y>
+ <width>344</width>
+ <height>28</height>
+ <can_focus>True</can_focus>
+ <signal>
+ <name>toggled</name>
+ <handler>on_administrador_toggled</handler>
+ <last_modification_time>Thu, 05 Apr 2001 10:54:49 GMT</last_modification_time>
+ </signal>
+ <label>Mostrar utilidades de administración.</label>
+ <active>False</active>
+ <draw_indicator>True</draw_indicator>
+ </widget>
+
+ <widget>
<class>GtkLabel</class>
<name>label1</name>
***************
*** 289,307 ****
<widget>
! <class>GtkCheckButton</class>
! <name>administrador</name>
! <x>8</x>
! <y>168</y>
! <width>344</width>
! <height>28</height>
! <can_focus>True</can_focus>
! <signal>
! <name>toggled</name>
! <handler>on_administrador_toggled</handler>
! <last_modification_time>Thu, 05 Apr 2001 10:54:49 GMT</last_modification_time>
! </signal>
! <label>Mostrar utilidades de administración.</label>
! <active>False</active>
! <draw_indicator>True</draw_indicator>
</widget>
</widget>
--- 291,307 ----
<widget>
! <class>GtkLabel</class>
! <name>label7</name>
! <x>200</x>
! <y>128</y>
! <width>88</width>
! <height>24</height>
! <label>Contraseña:</label>
! <justify>GTK_JUSTIFY_LEFT</justify>
! <wrap>True</wrap>
! <xalign>0.5</xalign>
! <yalign>0.5</yalign>
! <xpad>0</xpad>
! <ypad>0</ypad>
</widget>
</widget>
***************
*** 396,399 ****
--- 396,404 ----
<height>32</height>
<can_focus>True</can_focus>
+ <signal>
+ <name>clicked</name>
+ <handler>on_agregar_clicked</handler>
+ <last_modification_time>Tue, 01 May 2001 09:50:07 GMT</last_modification_time>
+ </signal>
<label>Agregar</label>
<relief>GTK_RELIEF_NORMAL</relief>
***************
*** 408,411 ****
--- 413,421 ----
<height>32</height>
<can_focus>True</can_focus>
+ <signal>
+ <name>clicked</name>
+ <handler>on_cancelar_clicked</handler>
+ <last_modification_time>Tue, 01 May 2001 09:49:45 GMT</last_modification_time>
+ </signal>
<label>Cancelar</label>
<relief>GTK_RELIEF_NORMAL</relief>
|
Update of /cvsroot/acdo/acdo/src/gui/.gate/autocdorganizer
In directory usw-pr-cvs1:/tmp/cvs-serv23118/acdo/src/gui/.gate/autocdorganizer
Modified Files:
agregar_pkg-callbacks.adb agregar_pkg-callbacks.ads
agregar_pkg.adb preferencias_pkg.adb preferencias_pkg.ads
Log Message:
Hemos añadido el código para los botones de las ventanas
Index: agregar_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/.gate/autocdorganizer/agregar_pkg-callbacks.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** agregar_pkg-callbacks.adb 2001/04/24 23:51:05 1.1.1.1
--- agregar_pkg-callbacks.adb 2001/05/01 10:45:09 1.2
***************
*** 24,26 ****
--- 24,48 ----
end On_Agregar_Automaticamente_Destroy;
+ ------------------------
+ -- On_Agregar_Clicked --
+ ------------------------
+
+ procedure On_Agregar_Clicked
+ (Object : access Gtk_Button_Record'Class)
+ is
+ begin
+ null;
+ end On_Agregar_Clicked;
+
+ -------------------------
+ -- On_Cancelar_Clicked --
+ -------------------------
+
+ procedure On_Cancelar_Clicked
+ (Object : access Gtk_Button_Record'Class)
+ is
+ begin
+ null;
+ end On_Cancelar_Clicked;
+
end Agregar_Pkg.Callbacks;
Index: agregar_pkg-callbacks.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/.gate/autocdorganizer/agregar_pkg-callbacks.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** agregar_pkg-callbacks.ads 2001/04/24 23:51:05 1.1.1.1
--- agregar_pkg-callbacks.ads 2001/05/01 10:45:09 1.2
***************
*** 6,8 ****
--- 6,14 ----
(Object : access Gtk_Window_Record'Class);
+ procedure On_Agregar_Clicked
+ (Object : access Gtk_Button_Record'Class);
+
+ procedure On_Cancelar_Clicked
+ (Object : access Gtk_Button_Record'Class);
+
end Agregar_Pkg.Callbacks;
Index: agregar_pkg.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/.gate/autocdorganizer/agregar_pkg.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** agregar_pkg.adb 2001/04/24 23:51:02 1.1.1.1
--- agregar_pkg.adb 2001/05/01 10:45:09 1.2
***************
*** 73,76 ****
--- 73,79 ----
Set_UPosition (Agregar.Agregar, 200, 256);
Set_USize (Agregar.Agregar, 96, 32);
+ Button_Callback.Connect
+ (Agregar.Agregar, "clicked",
+ Button_Callback.To_Marshaller (On_Agregar_Clicked'Access));
Put (Agregar.Fixed3, Agregar.Agregar, 200, 256);
***************
*** 79,82 ****
--- 82,88 ----
Set_UPosition (Agregar.Cancelar, 296, 256);
Set_USize (Agregar.Cancelar, 96, 32);
+ Button_Callback.Connect
+ (Agregar.Cancelar, "clicked",
+ Button_Callback.To_Marshaller (On_Cancelar_Clicked'Access));
Put (Agregar.Fixed3, Agregar.Cancelar, 296, 256);
Index: preferencias_pkg.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/.gate/autocdorganizer/preferencias_pkg.adb,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** preferencias_pkg.adb 2001/04/24 23:51:07 1.1.1.1
--- preferencias_pkg.adb 2001/05/01 10:45:09 1.2
***************
*** 132,152 ****
Put (Preferencias.Fixed2, Preferencias.Login, 64, 128);
! Gtk_New (Preferencias.Label7, -("Password:"));
! Set_Alignment (Preferencias.Label7, 0.5, 0.5);
! Set_Padding (Preferencias.Label7, 0, 0);
! Set_Justify (Preferencias.Label7, Justify_Left);
! Set_Line_Wrap (Preferencias.Label7, True);
! Set_UPosition (Preferencias.Label7, 200, 128);
! Set_USize (Preferencias.Label7, 88, 24);
! Put (Preferencias.Fixed2, Preferencias.Label7, 200, 128);
!
! Gtk_New (Preferencias.Entry7);
! Set_Editable (Preferencias.Entry7, True);
! Set_Max_Length (Preferencias.Entry7, 0);
! Set_Text (Preferencias.Entry7, -"");
! Set_Visibility (Preferencias.Entry7, False);
! Set_UPosition (Preferencias.Entry7, 280, 128);
! Set_USize (Preferencias.Entry7, 110, 24);
! Put (Preferencias.Fixed2, Preferencias.Entry7, 280, 128);
Gtk_New (Preferencias.Modificar, -"Modificar");
--- 132,143 ----
Put (Preferencias.Fixed2, Preferencias.Login, 64, 128);
! Gtk_New (Preferencias.Contrasenya);
! Set_Editable (Preferencias.Contrasenya, True);
! Set_Max_Length (Preferencias.Contrasenya, 0);
! Set_Text (Preferencias.Contrasenya, -"");
! Set_Visibility (Preferencias.Contrasenya, False);
! Set_UPosition (Preferencias.Contrasenya, 280, 128);
! Set_USize (Preferencias.Contrasenya, 110, 24);
! Put (Preferencias.Fixed2, Preferencias.Contrasenya, 280, 128);
Gtk_New (Preferencias.Modificar, -"Modificar");
***************
*** 168,171 ****
--- 159,171 ----
Put (Preferencias.Fixed2, Preferencias.Cancelar, 200, 208);
+ Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
+ Set_Active (Preferencias.Administrador, False);
+ Set_UPosition (Preferencias.Administrador, 8, 168);
+ Set_USize (Preferencias.Administrador, 344, 28);
+ Check_Button_Callback.Connect
+ (Preferencias.Administrador, "toggled",
+ Check_Button_Callback.To_Marshaller (On_Administrador_Toggled'Access));
+ Put (Preferencias.Fixed2, Preferencias.Administrador, 8, 168);
+
Gtk_New (Preferencias.Label1, -("Ruta al dispositivo:"));
Set_Alignment (Preferencias.Label1, 0.5, 0.5);
***************
*** 177,188 ****
Put (Preferencias.Fixed2, Preferencias.Label1, 8, 8);
! Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
! Set_Active (Preferencias.Administrador, False);
! Set_UPosition (Preferencias.Administrador, 8, 168);
! Set_USize (Preferencias.Administrador, 344, 28);
! Check_Button_Callback.Connect
! (Preferencias.Administrador, "toggled",
! Check_Button_Callback.To_Marshaller (On_Administrador_Toggled'Access));
! Put (Preferencias.Fixed2, Preferencias.Administrador, 8, 168);
end Initialize;
--- 177,188 ----
Put (Preferencias.Fixed2, Preferencias.Label1, 8, 8);
! Gtk_New (Preferencias.Label7, -("Contraseña:"));
! Set_Alignment (Preferencias.Label7, 0.5, 0.5);
! Set_Padding (Preferencias.Label7, 0, 0);
! Set_Justify (Preferencias.Label7, Justify_Left);
! Set_Line_Wrap (Preferencias.Label7, True);
! Set_UPosition (Preferencias.Label7, 200, 128);
! Set_USize (Preferencias.Label7, 88, 24);
! Put (Preferencias.Fixed2, Preferencias.Label7, 200, 128);
end Initialize;
Index: preferencias_pkg.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/.gate/autocdorganizer/preferencias_pkg.ads,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** preferencias_pkg.ads 2001/04/24 23:51:07 1.1.1.1
--- preferencias_pkg.ads 2001/05/01 10:45:09 1.2
***************
*** 20,29 ****
Label6 : Gtk_Label;
Login : Gtk_Entry;
! Label7 : Gtk_Label;
! Entry7 : Gtk_Entry;
Modificar : Gtk_Button;
Cancelar : Gtk_Button;
- Label1 : Gtk_Label;
Administrador : Gtk_Check_Button;
end record;
type Preferencias_Access is access all Preferencias_Record'Class;
--- 20,29 ----
Label6 : Gtk_Label;
Login : Gtk_Entry;
! Contrasenya : Gtk_Entry;
Modificar : Gtk_Button;
Cancelar : Gtk_Button;
Administrador : Gtk_Check_Button;
+ Label1 : Gtk_Label;
+ Label7 : Gtk_Label;
end record;
type Preferencias_Access is access all Preferencias_Record'Class;
|
|
From: Cesar P. T. <or...@us...> - 2001-04-30 23:50:08
|
Update of /cvsroot/acdo//acdo/src/test
In directory usw-pr-cvs1:/tmp/cvs-serv15021/src/test
Modified Files:
prueba_leerdirectorio.adb prueba_preferencias.adb
Log Message:
modificación del módulo preferencias porque no se puede utilizar xml en hendrix. Los cambios no afectan ningún módulo que utilice preferencias.
Index: prueba_leerdirectorio.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/test/prueba_leerdirectorio.adb,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** prueba_leerdirectorio.adb 2001/04/30 21:54:26 1.6
--- prueba_leerdirectorio.adb 2001/04/30 23:50:06 1.7
***************
*** 10,65 ****
with Ada.Text_IO, Interfaces.C, Ada.Strings.Fixed;
with ustrings; use ustrings;
- --with ada.integer_text_io; use ada.integer_text_io;
use Ada.Text_IO, Interfaces.C, Ada.Strings.Fixed;
with System.Address_To_Access_Conversions;
-
-
-
procedure prueba_leerdirectorio is
- subtype size_t is Interfaces.C.size_t;
- -- renaming size_t to save some typing
package CStringPtrs is new
System.Address_To_Access_Conversions( string );
use CStringPtrs;
- -- Convert between C and Ada pointers to a string
- subtype DirInfoCPtr is System.Address;
- subtype DirEntCPtr is System.Address;
- -- two C pointers (System.Address types), renamed for
- -- clarity below
- type DirEnt is record
- inode : long_integer; -- inode number
- offset : integer; -- system dependent
- offset2: unsigned_char; -- system dependent
- reclen : unsigned_short; -- system dependent
- name : string( 1..257 ); -- name of file
- end record;
- pragma pack( dirent);
- -- dirent is defined in /usr/src/linux../linux/dirent.h
- package DirEntPtrs is new
- System.Address_To_Access_Conversions( DirEnt );
- use DirEntPtrs;
- -- Convert between C and Ada pointers to a directory entry
! -- funciones de la librería de c
-- las cadenas son cadenas de c para utilizarlas hay que concatenar ASCII.NUL
- procedure getcwd( buffer : out string; maxsize : size_t );
- pragma import( C, getcwd );
-
- -- no funciona en solaris
- --function get_current_dir_name return System.Address;
- --pragma import( C, get_current_dir_name );
- --function opendir(path : string) return System.Address;
- --pragma import(C, opendir);
-
- --function readdir( info : System.Address ) return DirEntCPtr;
- --pragma import( C, readdir);
-
- --function closedir( info : System.Address) return integer;
- --pragma import( C, closedir);
-
procedure abrirdirectorio (fichero: string);
pragma import (C, abrirdirectorio);
--- 10,26 ----
with Ada.Text_IO, Interfaces.C, Ada.Strings.Fixed;
with ustrings; use ustrings;
use Ada.Text_IO, Interfaces.C, Ada.Strings.Fixed;
with System.Address_To_Access_Conversions;
procedure prueba_leerdirectorio is
package CStringPtrs is new
System.Address_To_Access_Conversions( string );
use CStringPtrs;
! -- funciones de c
-- las cadenas son cadenas de c para utilizarlas hay que concatenar ASCII.NUL
procedure abrirdirectorio (fichero: string);
pragma import (C, abrirdirectorio);
***************
*** 83,92 ****
pragma import (C, fichdirectorio);
cadena: ustring;
- -- i: integer;
- -- csop: CStringPtrs.Object_Pointer;
- -- DirInfo: DirInfoCPtr;
- -- DirInfoAux: DirEntPtrs.Object_Pointer;
- -- direntop : DirEntPtrs.Object_Pointer;
nombre: CStringPtrs.Object_Pointer;
fecha: CStringPtrs.Object_Pointer;
--- 44,49 ----
pragma import (C, fichdirectorio);
+
cadena: ustring;
nombre: CStringPtrs.Object_Pointer;
fecha: CStringPtrs.Object_Pointer;
***************
*** 94,101 ****
begin
- -- no funciona en solaris
- -- csop := To_Pointer( get_current_dir_name );
- -- Put("El directorio actual es:");
- -- Put_Line( Head( csop.all, Index( csop.all, ASCII.NUL & "" )) );
put_line ("Introduzca el directorio que desea analizar");
get_line (cadena);
--- 51,54 ----
Index: prueba_preferencias.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/test/prueba_preferencias.adb,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** prueba_preferencias.adb 2001/04/26 20:23:25 1.3
--- prueba_preferencias.adb 2001/04/30 23:50:06 1.4
***************
*** 6,9 ****
--- 6,12 ----
-- Proyecto: acdo
-- Descripción: Programa de prueba del módulo de preferencias
+ -- Modificado por: César Pérez Turrado <44...@ce...)
+ -- Fecha modifiacion: 1 de mayo de 2001
+ -- Motivo de la modificación: ya no usamos xml
-----------------------------------------------------------------------------
with preferencias; use preferencias;
***************
*** 15,22 ****
procedure prueba_preferencias is
- NOMBRE_FICHERO : constant string := "acdo.xml";
p,p2,p3 : tppreferencias;
- ficheroXML : File_Type;
linea : ustring;
--- 18,23 ----
***************
*** 47,59 ****
guardar(p);
-
- open(ficheroXML,In_File,NOMBRE_FICHERO);
-
- while not End_of_File(ficheroXML) loop
- get_line(ficheroXML,linea);
- put_line(linea);
- end loop;
-
- close(ficheroXML);
leer;
--- 48,51 ----
|
|
From: Cesar P. T. <or...@us...> - 2001-04-30 23:50:08
|
Update of /cvsroot/acdo//acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv15021/src/pkg
Modified Files:
preferencias.adb
Log Message:
modificación del módulo preferencias porque no se puede utilizar xml en hendrix. Los cambios no afectan ningún módulo que utilice preferencias.
Index: preferencias.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/pkg/preferencias.adb,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** preferencias.adb 2001/04/26 20:23:25 1.3
--- preferencias.adb 2001/04/30 23:50:06 1.4
***************
*** 1,130 ****
-----------------------------------------------------------------------------
-- TILDURE
! -- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: preferencias.adb
! -- Fecha: 24 de abril de 2001
-- Proyecto: acdo
-- Descripción: Módulo para la gestión de las preferencias del programa
! -- (implementación)
-----------------------------------------------------------------------------
with datos; use datos;
- with Glib.XML;
- with glib;
with ustrings; use ustrings;
with ada.io_exceptions; use ada.io_exceptions;
package body preferencias is
! NOMBRE_FICHERO : constant string := "acdo.xml";
! TAG_PREFERENCIAS : constant string := "preferencias";
! TAG_RUTA : constant string := "ruta";
! TAG_MEDIO : constant string := "medio";
! TAG_BD_USUARIO : constant string := "bd_usuario";
! TAG_BD_PASSWORD : constant string := "bd_password";
! TAG_BD_SERVIDOR : constant string := "bd_servidor";
! TAG_BD_PUERTO : constant string := "bd_puerto";
! TAG_BD_NOMBRE : constant string := "bd_nombre";
! TAG_ADMINISTRADOR : constant string := "administrador";
!
! VALOR_TRUE : constant string := "true";
! VALOR_FALSE : constant string := "false";
!
! type tpvacio is record
! null;
end record;
! package miXml is new Glib.XML(tpvacio);
! use miXml;
! p : tppreferencias;
! procedure leer is
! raiz : node_ptr;
!
begin
! raiz := parse(NOMBRE_FICHERO);
- p.ruta := U(get_field(raiz, TAG_RUTA).all);
- p.medio := U(get_field(raiz, TAG_MEDIO).all);
- p.bd_usuario := U(get_field(raiz, TAG_BD_USUARIO).all);
- p.bd_password := U(get_field(raiz, TAG_BD_PASSWORD).all);
- p.bd_servidor := U(get_field(raiz, TAG_BD_SERVIDOR).all);
- p.bd_puerto := Integer'value(get_field(raiz, TAG_BD_PUERTO).all);
- p.bd_nombre := U(get_field(raiz, TAG_BD_NOMBRE).all);
- if get_field(raiz, TAG_ADMINISTRADOR).all = VALOR_TRUE then
- p.administrador := true;
- else
- p.administrador := false;
- end if;
exception
! when NAME_ERROR | CONSTRAINT_ERROR =>
! p.ruta := U("");
! p.medio := U("");
! p.bd_usuario := U("");
! p.bd_password := U("");
! p.bd_servidor := U("");
p.bd_puerto := 0;
! p.bd_nombre := U("");
p.administrador := false;
end leer;
procedure guardar(preferencias : tppreferencias) is
!
! raiz, nodo_tmp : node_ptr;
!
begin
! p := preferencias;
!
! raiz := new node;
! raiz.tag := new string'(TAG_PREFERENCIAS);
! raiz.value := new string'("");
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_RUTA);
! nodo_tmp.value := new string'(S(p.ruta));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_MEDIO);
! nodo_tmp.value := new string'(S(p.medio));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_BD_USUARIO);
! nodo_tmp.value := new string'(S(p.bd_usuario));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_BD_PASSWORD);
! nodo_tmp.value := new string'(S(p.bd_password));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_BD_SERVIDOR);
! nodo_tmp.value := new string'(S(p.bd_servidor));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_BD_PUERTO);
! nodo_tmp.value := new string'(Integer'image(p.bd_puerto));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_BD_NOMBRE);
! nodo_tmp.value := new string'(S(p.bd_nombre));
! add_child(raiz, nodo_tmp);
!
! nodo_tmp := new node;
! nodo_tmp.tag := new string'(TAG_ADMINISTRADOR);
! if p.administrador = true then
! nodo_tmp.value := new string'(VALOR_TRUE);
! else
! nodo_tmp.value := new string'(VALOR_FALSE);
! end if;
! add_child(raiz, nodo_tmp);
!
! print(raiz,2,NOMBRE_FICHERO);
end guardar;
--- 1,75 ----
-----------------------------------------------------------------------------
-- TILDURE
! -- Autor: César Pérez Turrado (44...@ce...)
-- Fichero: preferencias.adb
! -- Fecha: 1 de mayo de 2001
-- Proyecto: acdo
-- Descripción: Módulo para la gestión de las preferencias del programa
! -- segunda versión: no utiliza xml
-----------------------------------------------------------------------------
with datos; use datos;
with ustrings; use ustrings;
+ with ada.strings.fixed; use ada.strings.fixed;
+ with ada.strings.bounded; use ada.strings.bounded;
with ada.io_exceptions; use ada.io_exceptions;
+ with ada.sequential_io;
package body preferencias is
! PACKAGE pcad255 IS NEW generic_bounded_length(255);
! USE pcad255;
! type tpSpreferencias is record
! ruta: bounded_string;
! medio: bounded_string;
! bd_usuario: bounded_string;
! bd_password: bounded_string;
! bd_servidor: bounded_string;
! bd_puerto: integer := 0;
! bd_nombre: bounded_string;
! administrador: boolean := false;
end record;
+ package esDatos is new ada.sequential_io(tpSpreferencias);
+ use esDatos;
! type tpfDatos is new esDatos.file_type;
! nfichero : constant string := "acdo.cfg";
! p : tpSpreferencias;
! procedure leer is
! fichero: tpfDatos;
begin
! open(fichero, in_file, nfichero);
! read(fichero, p);
! close(fichero);
exception
! when others =>
! p.ruta := to_bounded_string("");
! p.medio := to_bounded_string("");
! p.bd_usuario := to_bounded_string("");
! p.bd_password := to_bounded_string("");
! p.bd_servidor := to_bounded_string("");
p.bd_puerto := 0;
! p.bd_nombre := to_bounded_string("");
p.administrador := false;
end leer;
procedure guardar(preferencias : tppreferencias) is
! fichero: tpfDatos;
begin
! create (fichero, out_file, nfichero);
! p.ruta := to_bounded_string(ustrings.S(preferencias.ruta));
! p.medio := to_bounded_string(ustrings.S(preferencias.medio));
! p.bd_usuario := to_bounded_string(ustrings.S(preferencias.bd_usuario));
! p.bd_password := to_bounded_string(ustrings.S(preferencias.bd_password));
! p.bd_servidor := to_bounded_string(ustrings.S(preferencias.bd_servidor));
! p.bd_puerto := preferencias.bd_puerto;
! p.bd_nombre := to_bounded_string(ustrings.S(preferencias.bd_nombre));
! p.administrador := preferencias.administrador;
! write (fichero, p);
! close (fichero);
end guardar;
***************
*** 132,136 ****
begin
! preferencias := p;
end dar;
--- 77,88 ----
begin
! preferencias.ruta := U(to_string(p.ruta));
! preferencias.medio := U(to_string(p.medio));
! preferencias.bd_usuario := U(to_string(p.bd_usuario));
! preferencias.bd_password := U(to_string(p.bd_password));
! preferencias.bd_servidor := U(to_string(p.bd_servidor));
! preferencias.bd_puerto := p.bd_puerto;
! preferencias.bd_nombre := U(to_string(p.bd_nombre));
! preferencias.administrador := p.administrador;
end dar;
|
|
From: Cesar P. T. <or...@us...> - 2001-04-30 21:54:28
|
Update of /cvsroot/acdo//acdo/src/test
In directory usw-pr-cvs1:/tmp/cvs-serv23601
Modified Files:
infofich.c prueba_leerdirectorio.adb
Log Message:
cambio sustancial, ahora se hace prácticamente todo desde c. Se pretende con esto que el paso a solaris sea más suave
Index: infofich.c
===================================================================
RCS file: /cvsroot/acdo//acdo/src/test/infofich.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** infofich.c 2001/04/30 14:37:29 1.3
--- infofich.c 2001/04/30 21:54:26 1.4
***************
*** 16,47 ****
#include <stdlib.h>
#include <locale.h>
! char *fichfecha (char *fichero)
! // se le pasa la ruta del archivo y devuelve un string con la fecha
! // FIXME: debería pasar el número de segundos desde 1970?
{
struct stat datos;
! char *c;
char *localizacion;
struct tm *fecha;
- // l10n
localizacion = getenv ("LC_ALL");
! stat (fichero, &datos);
! fecha = localtime (&datos.st_mtime);
! c = (char *) malloc (25);
! strftime (c, 25, "%a %b %d %X %Y", fecha);
!
! return (c);
! }
! int fichtamanyo (char *fichero)
! // se le pasa la ruta del archivo y devuelve el tamaño en bytes
! // del fichero.
{
! struct stat datos;
! stat (fichero, &datos);
! return (datos.st_size);
}
--- 16,98 ----
#include <stdlib.h>
#include <locale.h>
+ #include <dirent.h>
+ #include <sys/types.h>
! struct stDatosFichero {
! char *nombre;
! int tamanyo;
! int directorio;
! char *fecha;
! int final;
! };
!
! static struct stDatosFichero datosFichero;
! static DIR *dirinfo;
! static struct dirent *fichinfo;
!
!
! void abrirdirectorio (char *fichero)
{
+ dirinfo = opendir (fichero);
+ }
+
+ void leerdirectorio (char *fichero)
+ {
struct stat datos;
! char c[300];
char *localizacion;
struct tm *fecha;
+ DIR *dirinfoAux;
+ char tmp[25];
localizacion = getenv ("LC_ALL");
+ setlocale(LC_ALL, localizacion);
+
+ fichinfo = readdir (dirinfo);
+ while (fichinfo != NULL && fichinfo->d_name[0] == '.') {
+ fichinfo = readdir (dirinfo);
+ }
+ if (fichinfo != NULL) {
+ datosFichero.final = 0;
+ sprintf (c, "%s/%s", fichero, fichinfo->d_name);
+ stat (c, &datos);
+ fecha = localtime (&datos.st_mtime);
+ strftime (tmp, 25, "%a %b %d %X %Y", fecha);
! datosFichero.tamanyo = datos.st_size;
! // cosa muy rara!! si no escribimos dos veces el primer
! // string en la primera llamada a este procedimiento
! // no aparece esa cadena en ada
! datosFichero.nombre = strdup (fichinfo->d_name);
! datosFichero.nombre = strdup (fichinfo->d_name);
! datosFichero.fecha = strdup (tmp);
! dirinfoAux = opendir (c);
! if (dirinfoAux == NULL)
! datosFichero.directorio = 0;
! else
! datosFichero.directorio = 1;
! } else
! datosFichero.final = 1;
! }
! int fichfinal ()
{
! return (datosFichero.final);
! }
! char *fichnombre ()
! {
! return (datosFichero.nombre);
! }
! int fichdirectorio ()
! {
! return (datosFichero.directorio);
! }
! char *fichfecha ()
! {
! return (datosFichero.fecha);
! }
! int fichtamanyo ()
! {
! return (datosFichero.tamanyo);
}
Index: prueba_leerdirectorio.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/test/prueba_leerdirectorio.adb,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** prueba_leerdirectorio.adb 2001/04/30 20:10:49 1.5
--- prueba_leerdirectorio.adb 2001/04/30 21:54:26 1.6
***************
*** 53,77 ****
--pragma import( C, get_current_dir_name );
! function opendir(path : string) return System.Address;
! pragma import(C, opendir);
! function readdir( info : System.Address ) return DirEntCPtr;
! pragma import( C, readdir);
! function closedir( info : System.Address) return integer;
! pragma import( C, closedir);
! function fichfecha (fichero : string) return System.Address;
pragma import (C, fichfecha);
! function fichtamanyo ( fichero : string ) return integer;
pragma import ( C, fichtamanyo);
cadena: ustring;
! i: integer;
! csop: CStringPtrs.Object_Pointer;
! DirInfo: DirInfoCPtr;
! DirInfoAux: DirEntPtrs.Object_Pointer;
! direntop : DirEntPtrs.Object_Pointer;
fecha: CStringPtrs.Object_Pointer;
tamanyo: integer;
--- 53,93 ----
--pragma import( C, get_current_dir_name );
! --function opendir(path : string) return System.Address;
! --pragma import(C, opendir);
! --function readdir( info : System.Address ) return DirEntCPtr;
! --pragma import( C, readdir);
! --function closedir( info : System.Address) return integer;
! --pragma import( C, closedir);
! procedure abrirdirectorio (fichero: string);
! pragma import (C, abrirdirectorio);
!
! procedure leerdirectorio (fichero: string);
! pragma import (C, leerdirectorio);
!
! function fichfecha return System.Address;
pragma import (C, fichfecha);
! function fichtamanyo return integer;
pragma import ( C, fichtamanyo);
+ function fichfinal return integer;
+ pragma import ( C, fichfinal);
+
+ function fichnombre return System.Address;
+ pragma import (C, fichnombre);
+
+ function fichdirectorio return integer;
+ pragma import (C, fichdirectorio);
+
cadena: ustring;
! -- i: integer;
! -- csop: CStringPtrs.Object_Pointer;
! -- DirInfo: DirInfoCPtr;
! -- DirInfoAux: DirEntPtrs.Object_Pointer;
! -- direntop : DirEntPtrs.Object_Pointer;
! nombre: CStringPtrs.Object_Pointer;
fecha: CStringPtrs.Object_Pointer;
tamanyo: integer;
***************
*** 84,107 ****
put_line ("Introduzca el directorio que desea analizar");
get_line (cadena);
! DirInfo := OpenDir(ustrings.S(cadena) & ASCII.NUL);
Put_line("El directorio " & ustrings.S(cadena) & " contiene estos ficheros:");
loop
! direntop := To_Pointer( ReadDir( DirInfo ) );
!
! exit when direntop = null;
! Put_line( Head( Direntop.name, Index( Direntop.name, ASCII.NUL & "" )-1 ) );
! fecha := To_Pointer (fichfecha(ustrings.S(cadena) & "/" & Direntop.name & ASCII.NUL));
! tamanyo := fichtamanyo (ustrings.S(cadena) & "/" & Direntop.name & ASCII.NUL);
tamanyo := tamanyo / 1024;
! put_line("Tamaño: " & tamanyo'img & "KB. Fecha: " & head(fecha.all, index(fecha.all, ASCII.NUL & "")));
! DirInfoAux := To_Pointer(OpenDir(ustrings.S(cadena) & "/" & Direntop.name & ASCII.NUL));
! if DirInfoAux = NULL then
! put_line ("No es un directorio");
else
! put_line ("Es un directorio");
end if;
end loop;
- i := closeDir (DirInfo);
exception
--- 100,121 ----
put_line ("Introduzca el directorio que desea analizar");
get_line (cadena);
! abrirdirectorio (ustrings.S(cadena) & ASCII.NUL);
Put_line("El directorio " & ustrings.S(cadena) & " contiene estos ficheros:");
loop
! leerdirectorio (ustrings.S(cadena) & ASCII.NUL);
! exit when fichfinal = 1;
! nombre := To_Pointer (fichnombre);
! fecha := To_Pointer (fichfecha);
! tamanyo := fichtamanyo;
tamanyo := tamanyo / 1024;
! put_line (head(nombre.all, index(nombre.all, ASCII.NUL & "")));
! put("Tamaño: " & tamanyo'img & "KB. Fecha: " & head(fecha.all, index(fecha.all, ASCII.NUL & "")));
! if fichdirectorio = 0 then
! put_line (". No es un directorio");
else
! put_line (". Es un directorio");
end if;
end loop;
exception
|
|
From: Cesar P. T. <or...@us...> - 2001-04-30 20:10:52
|
Update of /cvsroot/acdo//acdo/src/test
In directory usw-pr-cvs1:/tmp/cvs-serv728
Modified Files:
prueba_leerdirectorio.adb
Log Message:
arreglos solaris
Index: prueba_leerdirectorio.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/test/prueba_leerdirectorio.adb,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** prueba_leerdirectorio.adb 2001/04/30 14:37:29 1.4
--- prueba_leerdirectorio.adb 2001/04/30 20:10:49 1.5
***************
*** 49,54 ****
pragma import( C, getcwd );
! function get_current_dir_name return System.Address;
! pragma import( C, get_current_dir_name );
function opendir(path : string) return System.Address;
--- 49,55 ----
pragma import( C, getcwd );
! -- no funciona en solaris
! --function get_current_dir_name return System.Address;
! --pragma import( C, get_current_dir_name );
function opendir(path : string) return System.Address;
***************
*** 77,83 ****
begin
! csop := To_Pointer( get_current_dir_name );
! Put("El directorio actual es:");
! Put_Line( Head( csop.all, Index( csop.all, ASCII.NUL & "" )) );
put_line ("Introduzca el directorio que desea analizar");
get_line (cadena);
--- 78,85 ----
begin
! -- no funciona en solaris
! -- csop := To_Pointer( get_current_dir_name );
! -- Put("El directorio actual es:");
! -- Put_Line( Head( csop.all, Index( csop.all, ASCII.NUL & "" )) );
put_line ("Introduzca el directorio que desea analizar");
get_line (cadena);
|
