diff -ur tablelist5.13.orig/scripts/tablelistConfig.tcl tablelist5.13/scripts/tablelistConfig.tcl
--- tablelist5.13.orig/scripts/tablelistConfig.tcl 2015-01-01 16:07:23.784270154 +0100
+++ tablelist5.13/scripts/tablelistConfig.tcl 2015-06-03 23:52:28.584316642 +0200
@@ -23,6 +23,7 @@
lappend configSpecs(-activestyle) frame
lappend configSpecs(-autoscan) 1
lappend configSpecs(-collapsecommand) {}
+ lappend configSpecs(-colorizecommand) {}
lappend configSpecs(-columns) {}
lappend configSpecs(-columntitles) {}
lappend configSpecs(-customdragsource) 0
@@ -559,6 +560,7 @@
-acceptchildcommand -
-acceptdropcommand -
-collapsecommand -
+ -colorizecommand -
-editendcommand -
-editstartcommand -
-expandcommand -
diff -ur tablelist5.13.orig/scripts/tablelistUtil.tcl tablelist5.13/scripts/tablelistUtil.tcl
--- tablelist5.13.orig/scripts/tablelistUtil.tcl 2015-01-01 20:08:52.271490592 +0100
+++ tablelist5.13/scripts/tablelistUtil.tcl 2015-06-03 23:52:28.584316642 +0200
@@ -3394,6 +3394,13 @@
}
}
}
+ set cmdPre $data(-colorizecommand)
+ if {$cmdPre ne ""} {
+ set tabIdx1 [$w index $textIdx1+1c]
+ lappend cmdPre $win $w $key $row $col \
+ $tabIdx1 $tabIdx2 $inStripe $selected
+ uplevel \#0 $cmdPre
+ }
set textIdx1 $textIdx2
}
diff -ur tablelist5.13.orig/scripts/tablelistWidget.tcl tablelist5.13/scripts/tablelistWidget.tcl
--- tablelist5.13.orig/scripts/tablelistWidget.tcl 2015-01-01 16:08:26.801266763 +0100
+++ tablelist5.13/scripts/tablelistWidget.tcl 2015-06-03 23:52:28.584316642 +0200
@@ -105,6 +105,7 @@
-borderwidth {borderWidth BorderWidth f}
-bd -borderwidth
-collapsecommand {collapseCommand CollapseCommand w}
+ -colorizecommand {colorizeCommand ColorizeCommand w}
-columns {columns Columns w}
-columntitles {columnTitles ColumnTitles w}
-cursor {cursor Cursor c}