From c02cb068af7805ba93291eb6b15c96edc265d11b Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 16 Jan 2003 12:58:01 +0000 Subject: [PATCH] right-justify ids --- .../surflets/web-server/root/surflets/admin-servlets.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm index aee6ba9..08921ff 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm @@ -185,7 +185,7 @@ (let ((session-id (car session-pair)) (session-entry (cdr session-pair))) `((td ,(session-servlet-name session-entry)) - (td ,session-id)))) + (td (@ (align "right")) ,session-id)))) actions footer) (if (not action) @@ -297,7 +297,7 @@ current-continuations (lambda (continuation-pair) (let ((continuation-id (car continuation-pair))) - `((td ,continuation-id)))) + `((td (@ (align "right")) ,continuation-id)))) actions footer) (if (not action)