Displaying 1 result from an estimated 1 matches for "okcancelhelp".
2004 Jun 09
1
Using macros
...formals(ff) <- a
## create a fake source attribute
mm <- match.call()
mm$expr <- NULL
mm[[1]] <- as.name("macro")
attr(ff, "source") <- c(deparse(mm), deparse(expr))
## return the macro
ff
}
OKCancelHelp <- defmacro(window=top, OKbutton=OKbutton, onOK=onOK,
cancelButton=cancelButton, onCancel=onCancel,
helpButton=helpButton, onHelp=onHelp, helpSubject,
expr={
OKbutton <- tkbutton(window, text="OK", fg="darkgreen",
width="12",...