Displaying 1 result from an estimated 1 matches for "tkmsg".
Did you mean:
kmsg
2007 May 30
5
determining a parent function name
...rapper for stop that produces a popup window using tcltk.
Something like:
error <- function(...) {
msg <- paste(..., sep = "")
if(!length(msg)) msg <- ""
if(require(tcltk, quiet = TRUE)) {
tt <- tktoplevel()
tkwm.title(tt, "Error")
tkmsg <- tktext(tt, bg = "white")
tkinsert(tkmsg, "end", sprintf("Error in %s: %s", "???", msg))
tkconfigure(tkmsg, state = "disabled", font = "Tahoma 12",
width = 50, height = 3)
tkpack(tkmsg, side = "bot...