From 82a6492c97d73fc1d9db0051bb4fa6f49543a90e Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Fri, 11 Nov 2005 08:02:16 +0000
Subject: [PATCH] Add packages for Christoph Hetz's input fields

---
 scheme/ncurses-packages.scm | 53 +++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)

diff --git a/scheme/ncurses-packages.scm b/scheme/ncurses-packages.scm
index 55e65ad..8254e16 100644
--- a/scheme/ncurses-packages.scm
+++ b/scheme/ncurses-packages.scm
@@ -383,3 +383,56 @@
   (files ncurses
 	 ncurses-constants
 	 input-buffer))
+
+(define-interface input-fields-interface
+  (export make-input-field
+	  install-input-field
+	  make&install-input-field
+
+	  input-field-refresh
+	  input-field-reset
+	  input-field-clear
+	  input-field-move
+	  input-field-resize
+	  input-field-toggle-x-scroll
+	  input-field-toggle-y-scroll
+
+	  input-field?
+	  input-field-default-text
+	  input-field-text
+	  input-field-x-location
+	  input-field-y-location
+	  input-field-x-size
+	  input-field-y-size
+	  input-field-x-scroll
+	  input-field-y-scroll
+	  input-field-line
+	  input-field-column
+	  input-field-insert
+
+	  cursor-over-input-field?
+	  send-input-field
+
+	  standard-behavior
+	  standard-behavior-pro))
+
+(define-structure input-fields input-fields-interface
+  (open scheme
+	define-record-types
+	ascii
+	ncurses
+	(with-prefix (subset util (filter)) util-)
+	weak)
+  (files input-fields))
+
+;;; demo and test code for the new input-fields
+
+(define-interface input-fields-demo-interface
+  (export demo))
+
+(define-structure input-fields-demo input-fields-demo-interface
+  (open scheme
+	ascii
+	input-fields
+	ncurses)
+  (files demo))