Displaying 1 result from an estimated 1 matches for "initialcolor".
Did you mean:
initialcolour
2005 Sep 05
1
tcltk, X11 protocol error: Bug?
...g
I am doing foolish
let me know, otherwise I will file a bug report.
Nicholas
##### File clrramp2.r ##############
require(tcltk)
clrRamp <- function(n.col, b.color=NULL,e.color=NULL){
B.ChangeColor <- function()
{
b.color <<- tclvalue(tkcmd("tk_chooseColor",initialcolor=e.color,
title="Choose a color"))
if (nchar(b.color)>0){
tkconfigure(canvas.b,bg=b.color)
Rmp.Draw()
}
}
E.ChangeColor <- function()
{
e.color <<- tclvalue(tkcmd("tk_chooseColor",initialc...