Commit 23bd8f5c authored by Yong Liu's avatar Yong Liu

Refs #6529

parent cf651dac
......@@ -4852,6 +4852,11 @@ compareDataExport <- function(comparedScript, len, ...){
xname <- getd("activescript.file")
if( nchar(xname) > 0 && xname != "Untitled Script") {
saveScriptToFile(xname)
} else {
saveAsScript()
xname <- getd("activescript.file")
name <- basename(xname)
svalue(leftFrameGroupLabel) <- substr(name, 0, nchar(name) - nchar(".sdcMicroScript"))
}
} else {
gmessage("No active Script found.", title="Information", icon="warning", parent=window)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment