From 42a415484fd632116e6fd19a00761e9142240706 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 9 Nov 2013 17:57:35 +0000
Subject: GUI: Fixed a bug that occurred when deleting the last fit from the
 fit list

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@149 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 inst/GUI/mkinGUI.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inst/GUI/mkinGUI.R b/inst/GUI/mkinGUI.R
index 0bfe175..fb8f22a 100644
--- a/inst/GUI/mkinGUI.R
+++ b/inst/GUI/mkinGUI.R
@@ -694,7 +694,7 @@ delete.fit.gb <- gbutton("Delete", handler = function(h, ...) {
             f[[f.cur]] <<- NULL
             s[[f.cur]] <<- NULL
           }
-          if(length(f) > 1) {
+          if (length(f) > 0) {
             names(f) <<- as.character(1:length(f))
             names(s) <<- as.character(1:length(f))
             update_f.df()
-- 
cgit v1.2.1