From f1e08d7d323c0aab3986dce9840767065fcd35b9 Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sun, 22 Dec 2019 23:01:44 +0100
Subject: [PATCH] add to the source window after 'source' command

---
 src/frontend/inp.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 729102dc9..ba1668117 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -79,6 +79,11 @@ extern bool ft_batchmode;
 extern void exec_controls(wordlist *controls);
 #endif
 
+/* display the source file name in the source window */
+#ifdef HAS_WINGUI
+extern void SetSource(char *Name);
+#endif
+
 /* structure used to save expression parse trees for .model and
  * device instance lines
  */
@@ -1605,6 +1610,10 @@ com_source(wordlist *wl)
     if (ft_nutmeg || substring(INITSTR, owl->wl_word) || substring(ALT_INITSTR, owl->wl_word))
         inp_spsource(fp, TRUE, tempfile ? NULL : wl->wl_word, FALSE);
     else {
+#ifdef HAS_WINGUI
+        /* set the source window */
+        SetSource(wl->wl_word);
+#endif
         /* Save path name for use in XSPICE fopen_with_path() */
         if (Infile_Path)
             tfree(Infile_Path);