require(tcltk) || stop("tcltk support is absent")
RunLimmaGuiTry <- function(expr) 
{
    if (data.class(result<-try(expr,TRUE))=="try-error")
    {
        tkmessageBox(title="An error has occured!",message=as.character(result),icon="error",type="ok")
    } 
    else 
    {
        result
    }
}

RunLimmaGuiTry(library(limmaGUI))
limmaGUI(BigfontsForlimmaGUIpresentation=FALSE)