From 925ae6e6adfae0b8924cfeca2a2b0ac99b042bce Mon Sep 17 00:00:00 2001
From: GinjaNinja32 <ginjaninja32@gmail.com>
Date: Fri, 6 Oct 2017 18:36:42 +0100
Subject: Add color support for input bar

---
 src/perl/textui/TextUI.xs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/perl')

diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs
index 12732e3f..02ef6c73 100644
--- a/src/perl/textui/TextUI.xs
+++ b/src/perl/textui/TextUI.xs
@@ -124,6 +124,14 @@ gui_input_set(str)
 CODE:
 	gui_entry_set_text(active_entry, str);
 
+void
+gui_input_color(pos, len, color)
+	int pos
+	int len
+	int color
+CODE:
+	gui_entry_set_color(active_entry, pos, len, color);
+
 int
 gui_input_get_pos()
 CODE:
-- 
cgit v1.2.3