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

wrong attributub

Browse Source
This commit is contained in:
Roland Hollós 2018-11-20 02:21:00 +01:00
parent 5c4947232a
commit 2c18bc9a2f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/musoExamples.R
View File

@ -17,7 +17,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
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")
tcl("wm", "attributes", base, topmost=TRUE) tcl("wm", "attributes", choiceWin, topmost=TRUE)
choiceValues <- basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE)) choiceValues <- basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE))
choices <- tcltk::tkwidget(choiceWin,"ComboBox", choices <- tcltk::tkwidget(choiceWin,"ComboBox",
editable = FALSE, values = choiceValues, editable = FALSE, values = choiceValues,