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

Take tcl window to the foreground

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

1
RBBGCMuso/R/musoExamples.R
View File

@ -17,6 +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)
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,