Nothing
addSettingGUI <- function(container,width=12){
colorsList <- colors()
if (Sys.info()["user"]!="") assign("owner",Sys.info()["user"],envir=.rqda)
Setting <- list(type = "ggroup",
horizontal = FALSE,
children = list(
list(type="fieldset",
columns = 2,
label = gettext("Settings", domain = "R-RQDA"),
label.pos = "top",
label.font = c(weight="bold"),
children = list(
list(name = "owner",
label = gettext("Name of Coder", domain = "R-RQDA"),
type = "gedit",width=width,
text = .rqda$owner
),
list(name = "encoding",
label = gettext("File Encoding", domain = "R-RQDA"),
type = "gedit",width=width,
text = .rqda$encoding
),
list(name = "fore.col",
label = gettext("Color for Coding", domain = "R-RQDA"),
## type = "gedit",width=width,
## text = .rqda$fore.col
type = "gcombobox",
items=c(.rqda$fore.col,colorsList)
),
list(name = "back.col",
label = gettext("Color for Case", domain = "R-RQDA"),
## type = "gedit",width=width,
## text = .rqda$back.col
type = "gcombobox",
items=c(.rqda$back.col,colorsList)
),
list(name = "codingTable",
label = gettext("Current coding table", domain = "R-RQDA"),
type = "gcombobox",
items=c(.rqda$codingTable,"coding2")
),
list(name = "BOM",
label = gettext("Byte Order Mark", domain = "R-RQDA"),
type = "gcombobox",## width=width,
items = c(FALSE, TRUE)
),
list(name = "SFP",
label = gettext("Show File Property", domain = "R-RQDA"),
type = "gcombobox",## width=width,
items = c(FALSE, TRUE)
),
list(name = "TOR",
type="gcombobox",
label = gettext("Type of Retrieval", domain = "R-RQDA"),
items = c(gettext("unconditional", domain = "R-RQDA"),
gettext("case", domain = "R-RQDA"),
gettext("filecategory", domain = "R-RQDA"),
gettext("both", domain = "R-RQDA"))
)
)
)
)
)
ans <- glabel(gettext("Click to set font", domain = "R-RQDA"),container = container,handler=function(h,...) setFont(default=.rqda$font))## set font for widget
gtkWidgetSetTooltipText(getToolkitWidget(ans), gettext("Set fonts for memo widgets.", domain = "R-RQDA"))
SettingFL <- gformlayout(Setting, container = container, expand=TRUE)
ButtonContainer <- ggroup(container = container) ##, width=100) ## not necessary to set width here
addSpring(ButtonContainer)
resetButton <- gbutton(gettext("Default", domain = "R-RQDA"), container = ButtonContainer)
okButton <- gbutton(gettext("OK", domain = "R-RQDA"), container = ButtonContainer)
addHandlerChanged(okButton, function(h,...) {
out <- svalue(SettingFL)
## Untranslate Type Of Retrieve:
if(out["TOR"] == gettext("unconditional", domain = "R-RQDA"))
out["TOR"] <- "unconditional"
else if(out["TOR"] == gettext("case", domain = "R-RQDA"))
out["TOR"] <- "case"
else if(out["TOR"] == gettext("filecategory", domain = "R-RQDA"))
out["TOR"] <- "filecategory"
else if(out["TOR"] == gettext("both", domain = "R-RQDA"))
out["TOR"] <- "both"
tryCatch(ClearMark(.rqda$.root_edit,0,nchar(svalue(.rqda$.openfile_gui)),TRUE,TRUE),error=function(e){})
for (i in names(out)) assign(i,out[[i]],envir=.rqda)
})
addHandlerChanged(resetButton, function(h,...) {
tryCatch(ClearMark(.rqda$.root_edit,0,nchar(svalue(.rqda$.openfile_gui)),TRUE,TRUE),error=function(e){})
tryCatch(svalue(SettingFL[]$BOM) <- FALSE,error=function(e){})
tryCatch(svalue(SettingFL[]$SFP) <- FALSE,error=function(e){})
tryCatch(svalue(SettingFL[]$encoding) <- "unknown",error=function(e){})
tryCatch(svalue(SettingFL[]$owner) <- "default",error=function(e){})
tryCatch(svalue(SettingFL[]$back.col) <- "gold",error=function(e){})
tryCatch(svalue(SettingFL[]$fore.col) <- "blue",error=function(e){})
tryCatch(svalue(SettingFL[]$codingTable) <- "coding",error=function(e){})
tryCatch(svalue(SettingFL[]$TOR) <- gettext("unconditional", domain = "R-RQDA"),error=function(e){})
assign("BOM",FALSE,envir=.rqda)
assign("SFP",FALSE,envir=.rqda)
assign("encoding","unknown",envir=.rqda)
assign("owner","default",envir=.rqda)
assign("back.col","gold",envir=.rqda)
assign("fore.col","blue",envir=.rqda)
assign("codingTable","coding",envir=.rqda)
assign("TOR", "unconditional",envir=.rqda)
assign("font","Sans 11",envir=.rqda)
})}
setFont <- function(default="Sans 11"){
font <- gtkFontButtonNew()
gtkFontButtonSetFontName(font,default)
g <-glayout(container=gwindow(width=50,height=30,parent=getOption("widgetCoordinate")),homogeneous=TRUE)
g[1,1:2] <- font
g[2,1] <- gbutton("Ok",handler=function(h,...){
ans <- font$GetFontName()
assign("font",ans, envir=.rqda)
dispose(g)
})
g[2,2] <- gbutton("Cancel",handler=function(h,...) dispose(g))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.