
Hi,

We are trying to write control messages (errors, warnings, ...) to a tktable while the program is running. Until now we only managed to write all the messages at once at the end of execution. How can we refresh the window in order to show the tclArray content?

 

--------------------------------------------------------

      ...

      options(show.error.messages = FALSE, warn=1)
      base <- try(suppressWarnings(DesenhoRegisto(regiao,ano,trimestre)))
      if (class(base) == "try-error")
      {
          msg <- paste("Desenho de registo:",as.character(base),sep=" ")
          msg <- sub("\n","",msg)
          return(list(tabela=NULL,msg=msg))
      }
      msg <- "Desenho de Registo...Ok"
      print(msg)
      tclArray1[[1,0]]<<-as.tclObj(msg, drop=TRUE)
      tkactivate(table1, "1,1")
      tksee(table1, "1,1")
      
      message("testing")
      
      aloj <- data.frame(base[2])
      base <- data.frame(base[1])
      
      base <- try(suppressWarnings(VariaveisAuxiliares(base,ano,trimestre)))
      if (class(base) == "try-error")
      {
          msg <- paste("Variáveis auxiliares:",as.character(base),sep=" ")
          msg <- sub("\n","",msg)
          return(list(tabela=NULL,msg=msg))
      }
      msg <- "Variáveis Auxiliares...Ok"
      tkinsert(table1,"rows","end",1)
      tclArray1[[2,0]]<<-as.tclObj(msg, drop=TRUE)
      tkactivate(table1, "2,1")
      tksee(table1, "2,1")

      ...

--------------------------------------------------------



Thank you all,

SRPD



_________________________________________________________________


	[[alternative HTML version deleted]]

