X-Git-Url: http://nitlanguage.org

diff --git a/lib/gtk/v3_6.nit b/lib/gtk/v3_6.nit
index 036c2bb..be3cd50 100644
--- a/lib/gtk/v3_6.nit
+++ b/lib/gtk/v3_6.nit
@@ -29,3 +29,52 @@ extern class GtkSearchEntry `{GtkSearchEntry *`}
 		return (GtkSearchEntry *)gtk_search_entry_new();
 	`}
 end
+
+redef extern class GtkEntry
+	# Purpose of this text field
+	#
+	# Can be used by on-screen keyboards and other input methods to adjust their behaviour.
+	fun input_purpose: GtkInputPurpose `{
+		return gtk_entry_get_input_purpose(self);
+	`}
+
+	# Input purpose, tweaks the behavior of this widget
+	#
+	# Can be used by on-screen keyboards and other input methods to adjust their behaviour.
+	fun input_purpose=(purpose: GtkInputPurpose) `{
+		gtk_entry_set_input_purpose(self, purpose);
+	`}
+end
+
+# Describe the purpose of an input widget
+extern class GtkInputPurpose `{ GtkInputPurpose `}
+	# Allow any character
+	new free_form `{ return GTK_INPUT_PURPOSE_FREE_FORM; `}
+
+	# Allow only alphabetic characters
+	new alpha `{ return GTK_INPUT_PURPOSE_ALPHA; `}
+
+	# Allow only digits
+	new digits `{ return GTK_INPUT_PURPOSE_DIGITS; `}
+
+	# Edited field expects numbers
+	new number `{ return GTK_INPUT_PURPOSE_NUMBER; `}
+
+	# Edited field expects phone number
+	new phone `{ return GTK_INPUT_PURPOSE_PHONE; `}
+
+	# Edited field expects URL
+	new url `{ return GTK_INPUT_PURPOSE_URL; `}
+
+	# Edited field expects email address
+	new email `{ return GTK_INPUT_PURPOSE_EMAIL; `}
+
+	# Edited field expects the name of a person
+	new name `{ return GTK_INPUT_PURPOSE_NAME; `}
+
+	# Like `free_form`, but characters are hidden
+	new password `{ return GTK_INPUT_PURPOSE_PASSWORD; `}
+
+	# Like `digits`, but characters are hidden
+	new pin `{ return GTK_INPUT_PURPOSE_PIN; `}
+end