hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

missing tcltk::

Browse Source
This commit is contained in:
Roland Hollós 2019-01-15 20:59:53 +01:00
parent 50dfa2ab78
commit 2b66f9e1a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RBBGCMuso/R/musoExample.R
View File

@ -10,7 +10,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
WindowsP <- Sys.info()[1] == "Windows" WindowsP <- Sys.info()[1] == "Windows"
chooseExample <- function(){ chooseExample <- function(){
tcltk::choiceWin <- tcltk::tktoplevel() choiceWin <- tcltk::tktoplevel()
tcltk::tclRequire("BWidget") tcltk::tclRequire("BWidget")
tcltk::tktitle(choiceWin) <- "Choose an example!" tcltk::tktitle(choiceWin) <- "Choose an example!"
tcltk::tcl("wm","geometry",choiceWin,"200x50") tcltk::tcl("wm","geometry",choiceWin,"200x50")
@ -22,7 +22,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
tcltk::tkpack(choices) tcltk::tkpack(choices)
choiceValue <- NA choiceValue <- NA
closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){ closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){
choiceValue <<- tcltk::tclvalue(tcl(choices,"get")) choiceValue <<- tcltk::tclvalue(tcltk::tcl(choices,"get"))
tcltk::tkdestroy(choiceWin) tcltk::tkdestroy(choiceWin)
}) })
@ -40,7 +40,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
} }
if(is.null(destination)){ if(is.null(destination)){
destination<-tk_choose.dir(getwd(), "Choose folder to copy the examples!") destination<-tcltk::tk_choose.dir(getwd(), "Choose folder to copy the examples!")
} }
currDir <- getwd() currDir <- getwd()