Sorry for replying to myself, but:
On Thursday 31 May 2007 12:23:12 Ismail Onur Filiz wrote:
> Hi,
>
> On Wednesday 30 May 2007 14:53:28 Sundar Dorai-Raj wrote:
> > error <- function(...) {
> > msg <- paste(..., sep = "")
> > if(!length(msg)) msg
Hi,
On Wednesday 30 May 2007 14:53:28 Sundar Dorai-Raj wrote:
> 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")
>