Modal windows

part of darcs patch Wed Sep 21 20:52:34 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>

scheme/nuit-engine.scm

@@ -412,7 +412,14 @@
 	     (completion-selector #f))
 
     (cond
-
+     (maybe-modal-window
+      (if (maybe-modal-window ch)
+          (begin       
+            (paint)
+            (when (current-history-item)
+              (paint-result-window (entry-data (current-history-item)))
+              (refresh-result-window))))
+      (loop (wait-for-input) c-x-pressed? completion-selector))
      ;; Ctrl-x -> wait for next input
      ((= ch key-control-x)
       (loop (wait-for-input) #t completion-selector))
@@ -877,3 +884,4 @@
       ;; #### FIXME we loose a character this way
       (focus-command-buffer!)
       #f))))
+

scheme/nuit-packages.scm

@@ -98,7 +98,9 @@
 	  app-window-y
 	  app-window-height
 	  app-window-width
-	  app-window-curses-win))
+	  app-window-curses-win
+          app-window-init-curses-win!
+          delete-app-window!))
 
 (define-interface nuit-windows-interface
   (export bar-1
@@ -153,6 +155,9 @@
         srfi-8
         srfi-26
 
+        modal-window
+        app-windows
+        objects
         configuration
 	focus-table
 	ncurses
@@ -861,6 +866,19 @@
 	handle-fatal-error)
   (files config))
 
+;;; modal window
+
+(define-interface modal-window-interface
+  (export
+   maybe-modal-window
+   set-modal-window!
+   close-modal-window!))
+
+(define-structure modal-window modal-window-interface
+  (open scheme
+        signals)
+  (files modal-window))
+
 ;;; nuit 
 
 (define-interface nuit-interface
@@ -896,6 +914,7 @@
 	app-windows
 	initial-tty
 	nuit-windows 
+        modal-window
 
 	configuration
 	command-line-parser