Add packages for Christoph Hetz's input fields
This commit is contained in:
parent
445317ca90
commit
82a6492c97
|
@ -383,3 +383,56 @@
|
||||||
(files ncurses
|
(files ncurses
|
||||||
ncurses-constants
|
ncurses-constants
|
||||||
input-buffer))
|
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))
|
||||||
|
|
Loading…
Reference in New Issue