Add "folder" shape.

	- patch provided by: Pander <pander@users.sourceforge.net>

diff --git a/doc/info/shapegen.tcl b/doc/info/shapegen.tcl
index df7379a1d3e2c7e9977086813c8dff33f2661d7c..193fa26812dbb30f310a178c2057d0fbefaedc6b 100755 (executable)
--- a/doc/info/shapegen.tcl
+++ b/doc/info/shapegen.tcl
@@ -31,6 +31,7 @@ set shapes {
        none { }
        note {}
        tab {}
+       folder {}
        box3d {}
        component {}
 }
@@ -63,6 +64,6 @@ foreach {shape attrs} $shapes {
 
        file delete $shape.dot
 }
-       puts $h "  </TR>"
-       puts $h "</TABLE>"
-       close $h
+puts $h "  </TR>"
+puts $h "</TABLE>"
+close $h