luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

better check for availability of -justify option in listboxes

This commit is contained in:
Stefan Frederik 2022-05-29 00:36:19 +02:00
parent 2f3d6e0c88
commit 4cb0eb0491
4 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/xschem.tcl
View File

@ -2105,10 +2105,12 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
set_ne myload_files2 {} set_ne myload_files2 {}
panedwindow .dialog.l -orient horizontal panedwindow .dialog.l -orient horizontal
frame .dialog.l.paneleft 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 \
eval [subst {listbox .dialog.l.paneleft.list -listvariable myload_files1 -width 20 -height 12 $just \
-yscrollcommand ".dialog.l.paneleft.yscroll set" -selectmode browse \ -yscrollcommand ".dialog.l.paneleft.yscroll set" -selectmode browse \
-xscrollcommand ".dialog.l.paneleft.xscroll set" -exportselection 0}] -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 myload_set_colors1
scrollbar .dialog.l.paneleft.yscroll -command ".dialog.l.paneleft.list yview" scrollbar .dialog.l.paneleft.yscroll -command ".dialog.l.paneleft.list yview"
scrollbar .dialog.l.paneleft.xscroll -command ".dialog.l.paneleft.list xview" -orient horiz scrollbar .dialog.l.paneleft.xscroll -command ".dialog.l.paneleft.list xview" -orient horiz

2
xschem_library/logic/ram.sch
View File

@ -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 { G {
process(data, CEN, OEN) begin process(data, CEN, OEN) begin

5
xschem_library/logic/ram.sym
View File

@ -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 {type=subcircuit G {}
K {type=subcircuit
vhdl_stop=true vhdl_stop=true
verilog_netlist=true verilog_netlist=true
format="@name @pinlist @symname" format="@name @pinlist @symname"

5
xschem_library/logic/ram_tb.sch
View File

@ -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 {} G {}
K {}
V { V {
integer tck = 10000; // 10 ns integer tck = 10000; // 10 ns
@ -27,7 +28,7 @@ end endtask
initial begin initial begin
$dumpfile("dumpfile.vcd"); $dumpfile("dumpfile.vcd");
$dumpvars; $dumpvars(0, ram_tb);
CK = 0; CK = 0;
WEN = 1; WEN = 1;