From f0a359e65a23a942f10aa6c79ee62260a47296a5 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 10 Feb 2023 18:08:45 +0100
Subject: [PATCH] better xschem table_read command implementation

---
 src/scheduler.c | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/src/scheduler.c b/src/scheduler.c
index 8ae953e4..539000f6 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -2927,10 +2927,19 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
     case 't': /*----------------------------------------------*/
     if(!strcmp(argv[1], "table_read"))
     {
-      if(argc > 2) {
+      if(sch_waves_loaded() >= 0) {
+        free_rawfile(1);
+        tclsetvar("rawfile_loaded", "0");
+      } else if(argc > 2) {
+        free_rawfile(0);
         table_read(argv[2]);
-        Tcl_ResetResult(interp);
-      }
+        if(sch_waves_loaded() >= 0) {
+          tclsetvar("rawfile_loaded", "1");
+          draw();
+        }
+        else  tclsetvar("rawfile_loaded", "0");
+      } 
+      Tcl_ResetResult(interp);
     }
 
     else if(!strcmp(argv[1], "test"))