Index: lihata_format/comm_concrete.lht
===================================================================
--- lihata_format/comm_concrete.lht	(revision 4290)
+++ lihata_format/comm_concrete.lht	(revision 4291)
@@ -14,6 +14,7 @@
 				type=li
 				desc { List of child objects }
 				li:children {
+					sy:line.ID    = {/lht_tree_doc/comm/line.ID}
 					ha:obj.ID     = { valtype=none;    desc={list of any concrete object }}
 				}
 			}
@@ -46,4 +47,19 @@
 			sy:attrib@dup   = {/lht_tree_doc/comm/attrib}
 		}
 	}
+
+	ha:line.ID {
+		type=ha
+		desc { Drawing object: straight line }
+		li:children {
+			ha:x1      = { valtype=coord;    desc={start point, x coord }}
+			ha:y1      = { valtype=coord;    desc={start point, y coord }}
+			ha:x2      = { valtype=coord;    desc={end point, x coord }}
+			ha:y2      = { valtype=coord;    desc={end point, y coord }}
+			ha:stroke  = { valtype=pen;      desc={pen to use }}
+			ha:lock    = { valtype=bool;     desc={object is locked }}
+			ha:floater = { valtype=bool;     desc={"group lock" doesn't apply }}
+		}
+	}
+
 }}
Index: lihata_format/types.lht
===================================================================
--- lihata_format/types.lht	(revision 4290)
+++ lihata_format/types.lht	(revision 4291)
@@ -23,6 +23,10 @@
  Single digit boolean value: 0 means false, 1 means true.
 }
 
+pen {
+ Name of a pen defined in a parent group.
+}
+
 minuid {
  An unique ID as generated by libminuid (24 ASCII characters).
 }