From 41d8a6b2e28dda097fa91c14c10d17abd339c058 Mon Sep 17 00:00:00 2001
From: Diomidis Spinellis <dds@aueb.gr>
Date: Tue, 10 Feb 2009 10:12:05 +0000
Subject: [PATCH] Sequence diagrams provide an option to specify whether
 objects are underlined or not.

---
 doc/seq-var.xml | 1 +
 doc/ver.xml     | 3 +++
 sequence.pic    | 5 +++--
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/doc/seq-var.xml b/doc/seq-var.xml
index 0278ce3..fb383a9 100644
--- a/doc/seq-var.xml
+++ b/doc/seq-var.xml
@@ -24,5 +24,6 @@ a drawing.
 <tr><td>dashwid</td><td>0.05</td><td>Interval for dashed lines</td></tr>
 <tr><td>maxpswid</td><td>11</td><td>Maximum width of picture</td></tr>
 <tr><td>maxpsht</td><td>11</td><td>Maximum height of picture</td></tr>
+<tr><td>underline</td><td>1</td><td>Underline the name of objects</td></tr>
 </table>
 </notes>
diff --git a/doc/ver.xml b/doc/ver.xml
index 81b81b1..fef03b2 100644
--- a/doc/ver.xml
+++ b/doc/ver.xml
@@ -4,6 +4,9 @@
 <dl>
 
 <dt>Version 5.3 Under development </dt><dd>
+<ul>
+<li>Sequence diagrams provide an option to specify whether objects are
+underlined or not.</li>
 </dd>
 
 <dt>Version 5.2 2008-12-03</dt><dd>
diff --git a/sequence.pic b/sequence.pic
index 91ec8da..35e443e 100644
--- a/sequence.pic
+++ b/sequence.pic
@@ -34,13 +34,14 @@ define comment_default_move {up 0.25 right 0.25};
 comment_default_ht=0.5;
 # Comment width
 comment_default_wid=1;
-
+# Underline object name
+underline=1;
 
 # Create a new object(name,label)
 define object {
 	$1: box $2; move;
 	# Could also underline text with \mk\ul\ul\ul...\rt
-	{
+	if (underline) then {
 		line from $1.w + (.1, -.07) to $1.e + (-.1, -.07);
 	}
 	move to $1.e;