From b30eda3bb0683c63c44affef97e0d9493d9f11c3 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 28 Apr 2023 17:58:35 +0200
Subject: [PATCH] remove unused file

---
 src/paste.c                        |  3 ++-
 src/xschem.tcl                     | 12 +++++++-----
 xschem_library/generators/gen1.awk | 18 ------------------
 3 files changed, 9 insertions(+), 24 deletions(-)
 delete mode 100755 xschem_library/generators/gen1.awk

diff --git a/src/paste.c b/src/paste.c
index 8c969687..0ce2dce2 100644
--- a/src/paste.c
+++ b/src/paste.c
@@ -312,7 +312,8 @@ void merge_file(int selection_load, const char ext[])
     if(selection_load==0)
     {
      if(!strcmp(ext,"")) {
-       my_snprintf(tmp, S(tmp), "load_file_dialog {Merge file} *.\\{sch,sym\\} INITIALLOADDIR");
+       /* my_snprintf(tmp, S(tmp), "load_file_dialog {Merge file} *.\\{sch,sym\\} INITIALLOADDIR"); */
+       my_snprintf(tmp, S(tmp), "load_file_dialog {Merge file} {} INITIALLOADDIR");
        tcleval(tmp);
        if(!strcmp(tclresult(),"")) return;
        my_strncpy(name, (char *)tclresult(), S(name));
diff --git a/src/xschem.tcl b/src/xschem.tcl
index 4d3b5847..7bbccae1 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2700,8 +2700,8 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
     .load.buttons_bot.cancel invoke
   }
   set myload_loadfile $loadfile
-  set myload_ext $ext
-  set myload_globfilter $ext
+  if {$ext ne {}} {set myload_ext $ext}
+  set myload_globfilter $myload_ext
   set myload_save_initialfile $initialf
   set myload_retval {} 
   upvar #0 $global_initdir initdir
@@ -2805,11 +2805,11 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
     }
   }
   radiobutton .load.buttons_bot.all -text All -variable myload_globfilter -value {*} \
-     -command { setglob $myload_dir1 }
+     -command { set myload_ext $myload_globfilter; setglob $myload_dir1 }
   radiobutton .load.buttons_bot.sym -text .sym -variable myload_globfilter -value {*.sym} \
-     -command { setglob $myload_dir1 }
+     -command { set myload_ext $myload_globfilter; setglob $myload_dir1 }
   radiobutton .load.buttons_bot.sch -text .sch -variable myload_globfilter -value {*.sch} \
-     -command { setglob $myload_dir1 }
+     -command { set myload_ext $myload_globfilter; setglob $myload_dir1 }
   button .load.buttons.up -width 5 -text Up -command {load_file_dialog_up  $myload_dir1}
   label .load.buttons.mkdirlab -text { New dir: } -fg blue
   entry .load.buttons.newdir -width 16
@@ -6521,6 +6521,8 @@ set_ne tabbed_interface 0
 ## case insensitive symbol lookup (on case insensitive filesystems only!)
 set_ne case_insensitive 0
 
+set_ne myload_ext {*}
+
 ## remember edit_prop widget size
 set_ne edit_prop_size 80x12
 set_ne text_line_default_geometry 80x12
diff --git a/xschem_library/generators/gen1.awk b/xschem_library/generators/gen1.awk
deleted file mode 100755
index ff215735..00000000
--- a/xschem_library/generators/gen1.awk
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/awk -f
-
-BEGIN{
- header()
- print "L 6 0 0 100 100 {" ARGV[1] " " ARGV[2] "}"
-}
-
-
-function header()
-{
-  print "v {xschem version=3.1.0 file_version=1.2}"
-  print "G {}"
-  print "K {}"
-  print "V {}"
-  print "S {}"
-  print "E {}"
-}
-