Take tcl window to the foreground

2018-11-20 02:17:53 +01:00 · 2018-11-20 02:17:53 +01:00 · 5c4947232a
commit 5c4947232a
parent e9c5f887ab
1 changed files with 1 additions and 0 deletions
--- a/RBBGCMuso/R/musoExamples.R
+++ b/RBBGCMuso/R/musoExamples.R
@ -17,6 +17,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
            tcltk::tclRequire("BWidget")
            tcltk::tktitle(choiceWin) <- "Choose an example!"
            tcltk::tcl("wm","geometry",choiceWin,"200x50")
+            tcl("wm", "attributes", base, topmost=TRUE)
            choiceValues <-  basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE))
            choices <- tcltk::tkwidget(choiceWin,"ComboBox",
                                       editable = FALSE, values = choiceValues,