r语言 - 如何更改' gedit() '或' gcombobox() '输入框的背景/前景色

Question

考虑以下输入框:

w <- gwindow()
g <- ggroup(cont=w, horizontal=F)
ed <- gedit(cont=g)
cbb <- gcombobox(letters, editable=T, use_completion=T, cont=g)

如何使gedit()/gcombobox()输入框的背景为红色，前景(文本本身)为白色，当它包含字符串asdf ?

Answer 1

正如评论中建议的那样，下面可以完成这项工作，您可以将red替换为#FF6666(轻度褪色红色)或任何颜色:

addHandlerKeystroke(ed, function(h,...){
    if(svalue(ed)=="asdf"){ 
        ed$widget$modifyBase(GtkStateType["normal"], "red") 
        ed$widget$modifyText(GtkStateType["normal"], "white") 
    } else {
        ed$widget$modifyBase(GtkStateType["normal"], NULL)
        ed$widget$modifyText(GtkStateType["normal"], NULL) 
    }
})

对于gcombobox()，它略有不同:

addHandlerChanged(cbb, function(h,...){
    if(svalue(cbb)=="asdf"){ 
        cbb$widget$getChildren()[[1]]$modifyBase(GtkStateType["normal"], "red")
        cbb$widget$getChildren()[[1]]$modifyText(GtkStateType["normal"], "white")
    } else {
        cbb$widget$getChildren()[[1]]$modifyBase(GtkStateType["normal"], NULL)
        #cbb$widget$getChildren()[[1]]$modifyText(GtkStateType["normal"], NULL)
    }
})