etktab/eTktab-3.2/eTktab

44             set prefs_filename [file join $env(PREF_FOLDER) eTktab]
48             set prefs_filename [file join $env(HOME) .eTktabrc]
61         set prefs_filename {HKEY_CURRENT_USER\Software\eTktab}
76         set prefs_filename [file join $env(HOME) .eTktabrc]
538     global prefs_filename
545     if { [string first HKEY_ $prefs_filename ] == 0 } {
547         catch { set registry_values [ registry values $prefs_filename ] }
550                 set curr_value [ registry get $prefs_filename $curr_registry ]
556         array set prefs [ read_settings_file $prefs_filename ]
569     global prefs_filename
572     set filename $prefs_filename
573     if { [string first HKEY $prefs_filename ] == 0 } {
576              registry set $prefs_filename $prefs_key $prefs($prefs_key)
583             catch { set prefs_filehandle [open "$prefs_filename" w] }