wrapper.tcl (xcircuit-3.10.25.tgz) | : | wrapper.tcl (xcircuit-3.10.26.tgz) | ||
---|---|---|---|---|
skipping to change at line 1855 | skipping to change at line 1855 | |||
xcircuit::addtechlist .filelist "Replace from: " {(user) all none} | xcircuit::addtechlist .filelist "Replace from: " {(user) all none} | |||
xcircuit::addliblist .filelist "Target library: " | xcircuit::addliblist .filelist "Target library: " | |||
} | } | |||
#---------------------------------------------------------------------- | #---------------------------------------------------------------------- | |||
proc xcircuit::promptimportspice {} { | proc xcircuit::promptimportspice {} { | |||
.filelist.bbar.okay configure -command \ | .filelist.bbar.okay configure -command \ | |||
{xcircuit::page import spice \ | {xcircuit::page import spice \ | |||
[.filelist.textent.txt get]; wm withdraw .filelist} | [.filelist.textent.txt get]; wm withdraw .filelist} | |||
.filelist.listwin.win configure -data "spice spc ckt sp" | .filelist.listwin.win configure -data "spice spc spi ckt sp" | |||
.filelist.textent.title.field configure -text "Select SPICE file to import:" | .filelist.textent.title.field configure -text "Select SPICE file to import:" | |||
.filelist.textent.txt delete 0 end | .filelist.textent.txt delete 0 end | |||
xcircuit::popupfilelist | xcircuit::popupfilelist | |||
} | } | |||
#---------------------------------------------------------------------- | #---------------------------------------------------------------------- | |||
proc xcircuit::promptimportfile {} { | proc xcircuit::promptimportfile {} { | |||
.filelist.bbar.okay configure -command \ | .filelist.bbar.okay configure -command \ | |||
{xcircuit::page import xcircuit \ | {xcircuit::page import xcircuit \ | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |