Revision: 40625
http://brlcad.svn.sourceforge.net/brlcad/?rev=40625&view=rev
Author: bob1961
Date: 2010-09-20 21:45:45 +0000 (Mon, 20 Sep 2010)
Log Message:
-----------
Added a -textColor option to cadwidgets::Legend.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/Legend.tcl
Modified: brlcad/trunk/src/tclscripts/lib/Legend.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Legend.tcl 2010-09-20 21:34:03 UTC (rev
40624)
+++ brlcad/trunk/src/tclscripts/lib/Legend.tcl 2010-09-20 21:45:45 UTC (rev
40625)
@@ -35,6 +35,7 @@
itk_option define -rgbRange rgbRange RgbRange {{255 255 255} {255 0 0}}
itk_option define -slots slots Slots 10
itk_option define -colorFunc colorFunc ColorFunc ""
+ itk_option define -textColor textColor TextColor black
public method drawToCanvas {c x y w h tags}
public method update {}
@@ -210,8 +211,8 @@
$c create rectangle $x1 $y1 $x2 $y2 \
-outline "" -fill $rgb -tags $tags
}
- $c create text $x $y -text $low -anchor s -tags $tags
- $c create text [expr {$w + $x}] $y -text $high -anchor s -tags $tags
+ $c create text $x $y -text $low -anchor s -tags $tags -fill
$itk_option(-textColor)
+ $c create text [expr {$w + $x}] $y -text $high -anchor s -tags $tags -fill
$itk_option(-textColor)
return
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Start uncovering the many advantages of virtual appliances
and start using them to simplify application deployment and
accelerate your shift to cloud computing.
http://p.sf.net/sfu/novell-sfdev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
