diff options
| author | Miroslav Grepl <mgrepl@redhat.com> | 2014-04-11 09:54:44 +0200 |
|---|---|---|
| committer | Miroslav Grepl <mgrepl@redhat.com> | 2014-04-11 09:54:44 +0200 |
| commit | 0ce79dd3761d52f34e370f573cd750ae7a578089 (patch) | |
| tree | 6e1937c3f2634c2e2d2bccec9bf15cfadd1a5423 /apol/top.tcl | |
| parent | 47be9ff57e72906660bb62a515222f482131e1fb (diff) | |
| download | setools-0ce79dd3761d52f34e370f573cd750ae7a578089.tar.gz setools-0ce79dd3761d52f34e370f573cd750ae7a578089.tar.xz setools-0ce79dd3761d52f34e370f573cd750ae7a578089.zip | |
Merge 3.3.8 upstream setools
Diffstat (limited to 'apol/top.tcl')
| -rw-r--r-- | apol/top.tcl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/apol/top.tcl b/apol/top.tcl index e0f87a3..f930318 100644 --- a/apol/top.tcl +++ b/apol/top.tcl @@ -618,9 +618,7 @@ proc ApolTop::_goto {} { } proc ApolTop::_open_query_file {} { - set types { - {"Query files" {$ApolTop::query_file_ext}} - } + set types " {\"Query files\" { $ApolTop::query_file_ext }} " set query_file [tk_getOpenFile -filetypes $types -title "Open Apol Query" \ -defaultextension $ApolTop::query_file_ext -parent .] if {$query_file != {}} { @@ -657,9 +655,7 @@ proc ApolTop::_open_query_file {} { } proc ApolTop::_save_query_file {} { - set types { - {"Query files" {$ApolTop::query_file_ext}} - } + set types " {\"Query files\" {$ApolTop::query_file_ext}} " set query_file [tk_getSaveFile -title "Save Apol Query" \ -defaultextension $ApolTop::query_file_ext \ -filetypes $types -parent .] |