From cfe46632f0d23423068570544fae8a76e0810f92 Mon Sep 17 00:00:00 2001
From: Ricardo Markiewicz <gazer.arg@gmail.com>
Date: Wed, 15 Jun 2005 23:52:31 +0000
Subject: [PATCH]  * Agrego un dialogo de seleccion de fecha para mayor
 comodidad y menos validaciones.

---
 demo/glade/agregar_afiliado.glade    | 73 ++++++++++++++++++--------
 demo/glade/ingresar_solicitud.glade  | 78 ++++++++++++++++++++--------
 demo/src/Vistas/CalendarDialog.cs    | 25 +++++++++
 demo/src/Vistas/IngresarSolicitud.cs | 10 ++++
 4 files changed, 142 insertions(+), 44 deletions(-)
 create mode 100644 demo/src/Vistas/CalendarDialog.cs

diff --git a/demo/glade/agregar_afiliado.glade b/demo/glade/agregar_afiliado.glade
index f231a98..ac3c57c 100644
--- a/demo/glade/agregar_afiliado.glade
+++ b/demo/glade/agregar_afiliado.glade
@@ -269,6 +269,7 @@
 
       <child>
 	<widget class="GtkVBox" id="vbox3">
+	  <property name="border_width">12</property>
 	  <property name="visible">True</property>
 	  <property name="homogeneous">False</property>
 	  <property name="spacing">0</property>
@@ -563,27 +564,6 @@
 			</packing>
 		      </child>
 
-		      <child>
-			<widget class="GtkEntry" id="fechaNac">
-			  <property name="visible">True</property>
-			  <property name="can_focus">True</property>
-			  <property name="editable">True</property>
-			  <property name="visibility">True</property>
-			  <property name="max_length">0</property>
-			  <property name="text" translatable="yes"></property>
-			  <property name="has_frame">True</property>
-			  <property name="invisible_char">*</property>
-			  <property name="activates_default">False</property>
-			</widget>
-			<packing>
-			  <property name="left_attach">1</property>
-			  <property name="right_attach">2</property>
-			  <property name="top_attach">5</property>
-			  <property name="bottom_attach">6</property>
-			  <property name="y_options"></property>
-			</packing>
-		      </child>
-
 		      <child>
 			<widget class="GtkHBox" id="hbox3">
 			  <property name="visible">True</property>
@@ -633,6 +613,57 @@ CI</property>
 			  <property name="y_options">fill</property>
 			</packing>
 		      </child>
+
+		      <child>
+			<widget class="GtkHBox" id="hbox4">
+			  <property name="visible">True</property>
+			  <property name="homogeneous">False</property>
+			  <property name="spacing">12</property>
+
+			  <child>
+			    <widget class="GtkEntry" id="fechaNac">
+			      <property name="visible">True</property>
+			      <property name="can_focus">True</property>
+			      <property name="editable">False</property>
+			      <property name="visibility">True</property>
+			      <property name="max_length">0</property>
+			      <property name="text" translatable="yes"></property>
+			      <property name="has_frame">True</property>
+			      <property name="invisible_char">*</property>
+			      <property name="activates_default">False</property>
+			    </widget>
+			    <packing>
+			      <property name="padding">0</property>
+			      <property name="expand">True</property>
+			      <property name="fill">True</property>
+			    </packing>
+			  </child>
+
+			  <child>
+			    <widget class="GtkButton" id="selectFechaNac">
+			      <property name="visible">True</property>
+			      <property name="can_focus">True</property>
+			      <property name="label" translatable="yes">_Seleccionar fecha</property>
+			      <property name="use_underline">True</property>
+			      <property name="relief">GTK_RELIEF_NORMAL</property>
+			      <property name="focus_on_click">True</property>
+			    </widget>
+			    <packing>
+			      <property name="padding">0</property>
+			      <property name="expand">False</property>
+			      <property name="fill">False</property>
+			    </packing>
+			  </child>
+			</widget>
+			<packing>
+			  <property name="left_attach">1</property>
+			  <property name="right_attach">2</property>
+			  <property name="top_attach">5</property>
+			  <property name="bottom_attach">6</property>
+			  <property name="x_options">fill</property>
+			  <property name="y_options">fill</property>
+			</packing>
+		      </child>
 		    </widget>
 		  </child>
 		</widget>
diff --git a/demo/glade/ingresar_solicitud.glade b/demo/glade/ingresar_solicitud.glade
index 7c2dede..b596a94 100644
--- a/demo/glade/ingresar_solicitud.glade
+++ b/demo/glade/ingresar_solicitud.glade
@@ -66,6 +66,7 @@
 
       <child>
 	<widget class="GtkVBox" id="vbox3">
+	  <property name="border_width">12</property>
 	  <property name="visible">True</property>
 	  <property name="homogeneous">False</property>
 	  <property name="spacing">0</property>
@@ -360,27 +361,6 @@
 			</packing>
 		      </child>
 
-		      <child>
-			<widget class="GtkEntry" id="fechaNac">
-			  <property name="visible">True</property>
-			  <property name="can_focus">True</property>
-			  <property name="editable">True</property>
-			  <property name="visibility">True</property>
-			  <property name="max_length">0</property>
-			  <property name="text" translatable="yes"></property>
-			  <property name="has_frame">True</property>
-			  <property name="invisible_char">*</property>
-			  <property name="activates_default">False</property>
-			</widget>
-			<packing>
-			  <property name="left_attach">1</property>
-			  <property name="right_attach">2</property>
-			  <property name="top_attach">5</property>
-			  <property name="bottom_attach">6</property>
-			  <property name="y_options"></property>
-			</packing>
-		      </child>
-
 		      <child>
 			<widget class="GtkHBox" id="hbox3">
 			  <property name="visible">True</property>
@@ -430,6 +410,58 @@ CI</property>
 			  <property name="y_options">fill</property>
 			</packing>
 		      </child>
+
+		      <child>
+			<widget class="GtkHBox" id="hbox4">
+			  <property name="visible">True</property>
+			  <property name="homogeneous">False</property>
+			  <property name="spacing">10</property>
+
+			  <child>
+			    <widget class="GtkEntry" id="fechaNac">
+			      <property name="visible">True</property>
+			      <property name="can_focus">True</property>
+			      <property name="editable">False</property>
+			      <property name="visibility">True</property>
+			      <property name="max_length">0</property>
+			      <property name="text" translatable="yes"></property>
+			      <property name="has_frame">True</property>
+			      <property name="invisible_char">*</property>
+			      <property name="activates_default">False</property>
+			    </widget>
+			    <packing>
+			      <property name="padding">0</property>
+			      <property name="expand">True</property>
+			      <property name="fill">True</property>
+			    </packing>
+			  </child>
+
+			  <child>
+			    <widget class="GtkButton" id="seleccionarFecha">
+			      <property name="visible">True</property>
+			      <property name="can_focus">True</property>
+			      <property name="label" translatable="yes">_Seleccionar Fecha</property>
+			      <property name="use_underline">True</property>
+			      <property name="relief">GTK_RELIEF_NORMAL</property>
+			      <property name="focus_on_click">True</property>
+			      <signal name="clicked" handler="OnSeleccionarFechaClicked" last_modification_time="Wed, 15 Jun 2005 23:29:45 GMT"/>
+			    </widget>
+			    <packing>
+			      <property name="padding">0</property>
+			      <property name="expand">False</property>
+			      <property name="fill">False</property>
+			    </packing>
+			  </child>
+			</widget>
+			<packing>
+			  <property name="left_attach">1</property>
+			  <property name="right_attach">2</property>
+			  <property name="top_attach">5</property>
+			  <property name="bottom_attach">6</property>
+			  <property name="x_options">fill</property>
+			  <property name="y_options">fill</property>
+			</packing>
+		      </child>
 		    </widget>
 		  </child>
 		</widget>
@@ -853,8 +885,8 @@ Neuquen</property>
 		      <property name="n_rows">6</property>
 		      <property name="n_columns">2</property>
 		      <property name="homogeneous">False</property>
-		      <property name="row_spacing">0</property>
-		      <property name="column_spacing">0</property>
+		      <property name="row_spacing">8</property>
+		      <property name="column_spacing">8</property>
 
 		      <child>
 			<widget class="GtkLabel" id="label24">
diff --git a/demo/src/Vistas/CalendarDialog.cs b/demo/src/Vistas/CalendarDialog.cs
new file mode 100644
index 0000000..958abca
--- /dev/null
+++ b/demo/src/Vistas/CalendarDialog.cs
@@ -0,0 +1,25 @@
+
+
+using Gtk;
+using System;
+
+public class CalendarDialog : Dialog
+{
+	private Calendar calendar;
+
+	public DateTime Date {
+		get { return calendar.GetDate (); }
+	}
+
+	public CalendarDialog ():base ("Seleccionar Fecha", null, DialogFlags.DestroyWithParent)
+	{
+		calendar = new Calendar ();
+		VBox.PackStart (calendar);
+		calendar.Show ();
+
+		/* Botones */
+		AddButton ("_Close", ResponseType.Close);
+		AddButton ("_Aceptar", ResponseType.Accept);
+	}
+}
+
diff --git a/demo/src/Vistas/IngresarSolicitud.cs b/demo/src/Vistas/IngresarSolicitud.cs
index 384e646..1079641 100644
--- a/demo/src/Vistas/IngresarSolicitud.cs
+++ b/demo/src/Vistas/IngresarSolicitud.cs
@@ -101,6 +101,16 @@ public class VIngresarSolicitud
 		c.Dispose ();
 	}
 
+	public void OnSeleccionarFechaClicked (object o, EventArgs args)
+	{
+		CalendarDialog d = new CalendarDialog ();
+		int response;
+		response = d.Run();
+		if (response == -3)
+			fechaNac.Text = d.Date.ToLongDateString ();
+		d.Destroy ();
+	}
+
 	public void Run ()
 	{
 		Dialog w = (Dialog)xml.GetWidget ("ingresarSolicitud");
-- 
2.43.0