From 5c4947232abf1a2de25d2c88bfe28cae19f3da9f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Tue, 20 Nov 2018 02:17:53 +0100 Subject: [PATCH] Take tcl window to the foreground --- RBBGCMuso/R/musoExamples.R | 1 + 1 file changed, 1 insertion(+) diff --git a/RBBGCMuso/R/musoExamples.R b/RBBGCMuso/R/musoExamples.R index e16b722..5b044cc 100644 --- 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,