tk_getOpenFileの変数ファイルタイプ

Question

ファイル名を取得するためのtclルーチン（tk_getOpenFile）があります。未展開し、変数名に変数名の結果と.TIFF ... .NEFリストを交換

set fileTypes { 
      {"Image Files" { .tiff .TIFF .cr2 .CR2 .nef .NEF }} 
      {"All files" {*} } 
      } 

：許容サフィックスの仕様は、このようなものです。私はむしろ、このサフィックスリストを手続きにハードコードしたくないでしょう。接尾辞（suffixi）のリストを指定する変数を使用する方法はありますか？

Answer 1

あなたはこのようにそれを行うことができます。

set imgFT { .tiff .TIFF .cr2 .CR2 .nef .NEF } 
set fileTypes {} 
lappend fileTypes [list "Image Files" $imgFT] 
lappend fileTypes {"All files" {*}} 

は、リスト内の変数を使用するには、リストを区切るために括弧を使用することはできません。代わりにlistを使用し、結果リスト項目を項目別に構築すると、それは機能します。

ドキュメント： lappend、 list、 set

Answer 2

また、あなたが曲がったブラケットの内側にその値を変数に代入するsubstコマンドを使用することができます。

set imgFT { .tiff .TIFF .cr2 .CR2 .nef .NEF } 
set fileTypes [subst { 
     {"Image Files" {$imgFT}} 
     {"All files" {*} } 
    }] 

Answer 3

これは単なる要素リストです。要素のそれぞれは、それ自身が最初の要素が型名であり、2番目が拡張のリストであるリストです。 （そこには三つ目​​の要素がありますが、古典的なMacOSはサポートしていないので、無視することができます。）したがって、Tclコマンドを使ってリストを構築することができます。ここにはlistコマンドが便利です（lappend）。

set tiffTypes {.tif .tiff} 
lappend tiffTypes .NEF ; # etc. 
set ftlist [list [list "TIFF files" $tiffTypes] {"All files" *}] 

tk_getOpenFile -filetypes $ftlist 

普通のコードです。あなたは読みやすさの理由からいくつかの空白に改行を使用したリストリテラルを見てきました。