better check for availability of -justify option in listboxes

src/xschem.tcl

@@ -2105,10 +2105,12 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
   set_ne myload_files2 {}
   panedwindow  .dialog.l -orient horizontal
   frame .dialog.l.paneleft
-  if {$tcl_version > 8.5} { set just {-justify right}} else {set just {}}
-  eval [subst {listbox .dialog.l.paneleft.list -listvariable myload_files1 -width 20 -height 12 $just \
+  eval [subst {listbox .dialog.l.paneleft.list -listvariable myload_files1 -width 20 -height 12 \
     -yscrollcommand ".dialog.l.paneleft.yscroll set" -selectmode browse \
     -xscrollcommand ".dialog.l.paneleft.xscroll set" -exportselection 0}]
+  if { ![catch {.dialog.l.paneleft.list cget -justify}]} {
+    .dialog.l.paneleft.list configure -justify right
+  }
   myload_set_colors1
   scrollbar .dialog.l.paneleft.yscroll -command ".dialog.l.paneleft.list yview" 
   scrollbar .dialog.l.paneleft.xscroll -command ".dialog.l.paneleft.list xview" -orient horiz

xschem_library/logic/ram.sch

@@ -1,4 +1,4 @@
-v {xschem version=2.9.9 file_version=1.2 }
+v {xschem version=3.0.0 file_version=1.2 }
 G {
 
     process(data, CEN, OEN) begin

xschem_library/logic/ram.sym

@@ -1,5 +1,6 @@
-v {xschem version=2.9.6 file_version=1.1}
-G {type=subcircuit
+v {xschem version=3.0.0 file_version=1.2 }
+G {}
+K {type=subcircuit
 vhdl_stop=true
 verilog_netlist=true
 format="@name @pinlist @symname"

xschem_library/logic/ram_tb.sch

@@ -1,5 +1,6 @@
-v {xschem version=2.9.6 file_version=1.1}
+v {xschem version=3.0.0 file_version=1.2 }
 G {}
+K {}
 V {
 integer tck = 10000; // 10 ns
 
@@ -27,7 +28,7 @@ end endtask
 
 initial begin
   $dumpfile("dumpfile.vcd");
-  $dumpvars;
+  $dumpvars(0, ram_tb);
 
   CK = 0;
   WEN = 1;