From 75930fb753413c63d37934abafe6fe81512e6b28 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Wed, 18 May 2005 15:25:16 +0000
Subject: [PATCH] use the tty-debug package

---
 scheme/nuit-engine.scm   | 5 +++++
 scheme/nuit-packages.scm | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index 36717be..88876d7 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -212,6 +212,10 @@
       
 ;;start the whole thing
 (define (nuit)
+  (let ((tty-name (init-tty-debug-output!)))
+    (display "Debug messages will be on ")
+    (display tty-name)
+    (newline))
   (with-inspecting-handler
    8888
    (lambda (condition)
@@ -453,6 +457,7 @@
   (wrefresh (app-window-curses-win result-window)))
 
 (define (paint)
+  (debug-message "paint called")
   (init-windows!)
   (paint-bar-1)
   (paint-bar-2)
diff --git a/scheme/nuit-packages.scm b/scheme/nuit-packages.scm
index faa3845..4991ab8 100644
--- a/scheme/nuit-packages.scm
+++ b/scheme/nuit-packages.scm
@@ -10,8 +10,10 @@
 	handle
 	ncurses
 	srfi-6
+	debugging
 	inspect-exception
-	rt-modules)
+	rt-modules
+	tty-debug)
   (files nuit-engine
 	 handle-fatal-error
 	 directory-files