changed input-fields by needs of command-buffer from commander-s

scheme/ncurses-packages.scm

@@ -339,55 +339,16 @@
           key-resize
           key-event
 
-
-	  buffer-text
-	  set-buffer-text!
-	  buffer-pos-line
-	  set-buffer-pos-line!
-	  buffer-pos-col
-	  set-buffer-pos-col!
-	  buffer-pos-fin-ln
-	  set-buffer-pos-fin-ln!
-	  buffer-pos-y
-	  set-buffer-pos-y!
-	  buffer-pos-x
-	  set-buffer-pos-x!
-	  buffer-num-lines
-	  set-buffer-num-lines!
-	  buffer-num-cols
-	  set-buffer-num-cols!
-	  buffer-can-write
-	  set-buffer-can-write!
-	  buffer-history-pos
-	  set-buffer-history-pos!
-	  make-buffer
-	  buffer-text-current-line
-	  buffer-text-append-new-line!
-	  input
-	  print-command-buffer
-	  cursor-right-pos
-	  make-buffer-welcome
-
 	  get-terminal-window-size
-	  set-terminal-window-size!))
+	  set-terminal-window-size!
 
-(define-structure ncurses ncurses-interface    
+	  ;; input-fields
-  (open scheme-with-scsh
-	srfi-1
-	external-calls
-	define-record-types
-	conditions
-	signals 
-;	tty-debug
-	handle)
-  (files ncurses
-	 ncurses-constants
-	 input-buffer))
 
-(define-interface input-fields-interface
+	  buffer-full?
-  (export make-input-field
+	  make-input-field
 	  install-input-field
 	  make&install-input-field
+	  remove-input-field
 
 	  input-field-refresh
 	  input-field-reset
@@ -399,7 +360,17 @@
 
 	  input-field?
 	  input-field-default-text
+
 	  input-field-text
+	  set-input-field-text!
+
+	  input-field-window-lines
+	  
+	  input-field-prompt
+	  set-input-field-prompt!
+	  
+	  input-field-x-edit-pos
+
 	  input-field-x-location
 	  input-field-y-location
 	  input-field-x-size
@@ -416,23 +387,18 @@
 	  standard-behavior
 	  standard-behavior-pro))
 
-(define-structure input-fields input-fields-interface
+(define-structure ncurses ncurses-interface    
-  (open scheme
+  (open scheme-with-scsh
+	srfi-1
+	external-calls
 	define-record-types
+	conditions
+	signals 
+;	tty-debug
+	handle
 	ascii
-	ncurses
 	(with-prefix (subset util (filter)) util-)
 	weak)
-  (files input-fields))
+  (files ncurses
-
+	 ncurses-constants
-;;; demo and test code for the new input-fields
+	 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))