20070608-1402

1 files changed, 6 insertions, 2 deletions

diff --git a/appl/acme/wind.b b/appl/acme/wind.b
index 2b97fafa..aa4e1950 100644
--- a/appl/acme/wind.b
+++ b/appl/acme/wind.b
@@ -527,10 +527,14 @@ Window.clean(w : self ref Window, conservative : int, exiting : int) : int	# as
 	return TRUE;
 }
 
-Window.ctlprint(w : self ref Window) : string
+Window.ctlprint(w : self ref Window, fonts : int) : string
 {
-	return sprint("%11d %11d %11d %11d %11d ", w.id, w.tag.file.buf.nc,
+	s := sprint("%11d %11d %11d %11d %11d ", w.id, w.tag.file.buf.nc,
 			w.body.file.buf.nc, w.isdir, w.dirty);
+	if(fonts)
+		return sprint("%s%11d %q %11d ", s, w.body.frame.r.dx(),
+			w.body.reffont.f.name, w.body.frame.maxtab);
+	return s;
 }
 
 Window.event(w : self ref Window, fmt : string)