Skip to content

Commit

Permalink
Added extension folder sha256c/win32-x86_64 for 64bit Windows
Browse files Browse the repository at this point in the history
Fixed bug with double entry for language "English" in Preferences ->
Display -> Languages radiobutton

Converted Spanish and French characters to \uhhhh description

Commented out debug line in sha256c/critcl.tcl: Extensions are found and
working
  • Loading branch information
zdia committed Dec 29, 2011
1 parent 928c724 commit 4bf8f7f
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 5 deletions.
9 changes: 5 additions & 4 deletions sources/gorilla.tcl
Expand Up @@ -5858,6 +5858,7 @@ proc gorilla::PreferencesDialog {} {
#

set languages [gorilla::getAvailableLanguages]

# format: {en English de Deutsch ...}
# Fehlerabfrage für falschen prefTemp(lang) Eintrag in der gorillarc
if {[lsearch $languages $::gorilla::prefTemp(lang)] == -1} {
Expand All @@ -5879,7 +5880,7 @@ proc gorilla::PreferencesDialog {} {
$m add radio -label $name -variable ::gorilla::prefTemp(lang) -value $lang \
-command "set ::gorilla::fullLangName $name"
}

pack $display.lang.label $display.lang.mb -side left
pack $display.lang -anchor w

Expand Down Expand Up @@ -7153,15 +7154,15 @@ proc gorilla::FindNext {} {

proc gorilla::getAvailableLanguages { } {
set files [glob -tail -path "$::gorillaDir/msgs/" *.msg]
set msgList "en"
set msgList [list ] ;# en.msg exists

foreach file $files {
lappend msgList [lindex [split $file "."] 0]
}

# FIXME: This dictionary of possible languages has to be expanded
set langFullName [list en English de Deutsch fr Français es Español ru Russian it Italiano]
set langFullName [list en English de Deutsch fr Fran\u00e7ais es Espa\u00f1ol ru Russian it Italiano]

# create langList from *.msg pool
set langList {}
foreach lang $msgList {
Expand Down
2 changes: 1 addition & 1 deletion sources/tcllib/sha256c/critcl.tcl
Expand Up @@ -206,7 +206,7 @@ namespace eval ::platform {
set plat tru64
}
}
puts "extension folder: ${plat}-${cpu}"
# puts "extension folder: ${plat}-${cpu}"
return "${plat}-${cpu}"

}
Expand Down
Binary file not shown.

0 comments on commit 4bf8f7f

Please sign in to comment.