From 2c18bc9a2ff14080dbca365787921aa48be791f4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Tue, 20 Nov 2018 02:21:00 +0100 Subject: [PATCH] wrong attributub --- RBBGCMuso/R/musoExamples.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/musoExamples.R b/RBBGCMuso/R/musoExamples.R index 5b044cc..4c03f0c 100644 --- a/RBBGCMuso/R/musoExamples.R +++ b/RBBGCMuso/R/musoExamples.R @@ -17,7 +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) + tcl("wm", "attributes", choiceWin, topmost=TRUE) choiceValues <- basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE)) choices <- tcltk::tkwidget(choiceWin,"ComboBox", editable = FALSE, values = choiceValues,