Tk Library Source Code

Artifact [eaae6e10fa]
Login

Artifact eaae6e10fa0b71cf044d3c307517a9fb8cc3a40b:

Attachment "PATCH" to ticket [988123ffff] added by andreas_kupries 2004-07-10 11:11:44.
# --------------------------------------------
# 04/07/09	[email protected]	1.179
# Fixed [Tcllib SF Bug 988123], doc generation. Cleanup in loop when encountering a module without documentation.
# --------------------------------------------
#
diff -Nru a/ChangeLog b/ChangeLog
--- a/ChangeLog	Fri Jul  9 21:06:43 2004
+++ b/ChangeLog	Fri Jul  9 21:06:43 2004
@@ -1,3 +1,10 @@
+2004-07-09  Andreas Kupries  <[email protected]>
+
+	* sak.tcl: Fixed [Tcllib SF Bug 988123], which caused the doctools
+	  converter to fail if one run a module without documentation was
+	  followed by a module having documentation. Found by Reinhard Max
+	  <[email protected]>.
+
 2004-07-09  Reinhard Max  <[email protected]>
 
 	* installed_modules.tcl: NEW MODULE: ident
diff -Nru a/sak.tcl b/sak.tcl
--- a/sak.tcl	Fri Jul  9 21:06:43 2004
+++ b/sak.tcl	Fri Jul  9 21:06:43 2004
@@ -212,7 +212,11 @@
 		-module $m
 
 	set fl [glob -nocomplain [file join $distribution modules $m *.man]]
-	if {[llength $fl] == 0} {continue}
+
+	if {[llength $fl] == 0} {
+	    dt destroy
+	    continue
+	}
 
 	foreach f $fl {
 	    if {!$null} {