From d53d967e9734ef3939966933bda39a7d4ad615cc Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 9 Dec 2015 17:10:54 +0100
Subject: Make unchecking pathways to sink persistent

Closes #4. This got lost with the GUI overhaul for v0.6.x
---
 inst/GUI/gmkin.R | 1 +
 1 file changed, 1 insertion(+)

(limited to 'inst/GUI')

diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index b58f2e7..ef60139 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -931,6 +931,7 @@ show_m_spec <- function() {
     # Set R and Ext values separately, as multiple selections are not supported
     svalue(m.e.to[[obs.i]]) <<- obs.to_string_R
     m.e.to[[obs.i]]$call_Ext("select", String(obs.to_string_JS))
+    svalue(m.e.sink[[obs.i]]) <<- m.cur$spec[[obs.i]]$sink
   }
 }
 show_m_spec()
-- 
cgit v1.2.1