Revision: 42813
http://brlcad.svn.sourceforge.net/brlcad/?rev=42813&view=rev
Author: bob1961
Date: 2011-01-31 23:03:01 +0000 (Mon, 31 Jan 2011)
Log Message:
-----------
Added cadwidgets::Ged::tk_to_rgb
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/Ged.tcl
Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2011-01-31 22:40:01 UTC (rev
42812)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2011-01-31 23:03:01 UTC (rev
42813)
@@ -611,6 +611,7 @@
proc get_rgb_color {_color}
proc get_vdraw_color {_color}
proc rgb_to_tk {_r _g _b}
+ proc tk_to_rgb {_tkcolor}
}
protected {
@@ -3859,6 +3860,14 @@
}
}
+::itcl::body cadwidgets::Ged::tk_to_rgb {_tkcolor} {
+ if {![regexp {^\#([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})$}
$_tkcolor all r g b]} {
+ return {128 128 128}
+ }
+
+ return [list [expr int(0x$r)] [expr int(0x$g)] [expr int(0x$b)]]
+}
+
::itcl::body cadwidgets::Ged::rgb_to_tk {_r _g _b} {
return [format \#%.2x%.2x%.2x $_r $_g $_b]
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)!
Finally, a world-class log management solution at an even better price-free!
Download using promo code Free_Logger_4_Dev2Dev. Offer expires
February 28th, so secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsight-sfd2d
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
