Attachment "bwidget.449276.diff" to
ticket [449276ffff]
added by
andreas_kupries
2001-08-09 03:41:04.
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/bwidget/ChangeLog,v
retrieving revision 1.53
diff -u -r1.53 ChangeLog
--- ChangeLog 2001/06/22 01:56:50 1.53
+++ ChangeLog 2001/08/08 20:38:12
@@ -1,3 +1,9 @@
+2001-08-08 Andreas Kupries <[email protected]>
+
+ * color.tcl: Added the missing definition of the main
+ 'SelectColor' procedure. This prevented users from creating
+ these widgets in the documented way. Bug [449276].
+
2001-06-21 eric melski <[email protected]>
* tree.tcl: Corrected keyboard navigation so that open/close
Index: color.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/color.tcl,v
retrieving revision 1.4
diff -u -r1.4 color.tcl
--- color.tcl 2001/06/11 23:58:40 1.4
+++ color.tcl 2001/08/08 20:38:12
@@ -5,6 +5,10 @@
{-color TkResource "" 0 {label -background}}
}
+ proc ::SelectColor { path args } {
+ return [eval SelectColor::dialog $path $args]
+ }
+
variable _baseColors {
\#0000ff \#00ff00 \#00ffff \#ff0000 \#ff00ff \#ffff00
\#000099 \#009900 \#009999 \#990000 \#990099 \#999900
