textblock table header colspans

src/bootsupport/modules/punk/lib-0.1.1.tm

@@ -197,6 +197,17 @@ namespace eval punk::lib {
     #[list_begin definitions]
 
 
+    proc dict_getdef {dictValue args} {
+        if {[llength $args] < 1} {
+            error {wrong # args: should be "dict_getdef dictValue ?key ...? key default"}
+        }
+        set keys [lrange $args -1 end-1]
+        if {[dict exists $dictValue {*}$keys]} {
+            return [dict get $dictValue {*}$keys]
+        } else {
+            return [lindex $args end] 
+        }
+    }
 
     #proc sample1 {p1 n args} {
     #    #*** !doctools

src/modules/punk-0.1.tm

@@ -7056,7 +7056,7 @@ namespace eval punk {
            ]
 
            set t [textblock::class::table new -show_seps 0]
-           $t add_column -header "Topic"
+           $t add_column -headers [list "Topic"]
            $t add_column
            foreach {k v}  $topics {
                 $t add_row [list $k $v]
@@ -7216,17 +7216,6 @@ namespace eval punk {
     interp alias {} a?        {} punk::console::code_a?
 
 
-    proc dict_getdef {dictValue args} {
-        if {[llength $args] < 2} {
-            error {wrong # args: should be "dict_getdef dictValue ?key ...? key default"}
-        }
-        set keys [lrange $args 0 end-1]
-        if {[dict exists $dictValue {*}$keys]} {
-            return [dict get $dictValue {*}$keys]
-        } else {
-            return [lindex $args end] 
-        }
-    }
 
 
 

src/modules/punk/lib-999999.0a1.0.tm

@@ -197,6 +197,17 @@ namespace eval punk::lib {
     #[list_begin definitions]
 
 
+    proc dict_getdef {dictValue args} {
+        if {[llength $args] < 1} {
+            error {wrong # args: should be "dict_getdef dictValue ?key ...? key default"}
+        }
+        set keys [lrange $args -1 end-1]
+        if {[dict exists $dictValue {*}$keys]} {
+            return [dict get $dictValue {*}$keys]
+        } else {
+            return [lindex $args end] 
+        }
+    }
 
     #proc sample1 {p1 n args} {
     #    #*** !doctools