Tcl/tk

Tcl/tk

1. Tcl Developer Xchange

2. Tcl/Tk 系列链接整理

3. Windows11+CGNS4.3.0+HDF51.12.2+源码编译CGNSTOOLS读取HDF5格式文件的问题

original cgnsview.tcl

proc file_stats {} {
  global ProgData
  set ProgData(file,size) "[file size $ProgData(file,name)] bytes"
  set ProgData(file,type) [CGNSfile $ProgData(file)]
  set ProgData(file,vers) [CGIOversion]

modified cgnsview.tcl

proc file_stats {} {
  global ProgData
  set ProgData(file,size) "[file size $ProgData(file,name)] bytes"
  if {[catch {CGIOpen $ProgData(file)} msg]} {
    return $msg
  }
  set ProgData(file,type) [CGNSfile $ProgData(file)]
  set ProgData(file,vers) [CGIOversion]