Tkabber contrib

Check-in [4c40664928]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Get language list when http-connection fail (in loop with sleeping 60 sec)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:4c40664928551c4c5ab05e127a8b7fb39c8c79cd
User & Date: rejjin 2013-02-25 14:02:30
Context
2013-03-12
12:13
Fixed bug with user disconnecting (den_po). check-in: b9d67b41b9 user: rejjin tags: trunk
2013-02-25
14:02
Get language list when http-connection fail (in loop with sleeping 60 sec) check-in: 4c40664928 user: rejjin tags: trunk
2013-02-19
23:50
Translate plugin for yandex service. check-in: d8de67f29f user: rejjin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to translate/translate.tcl.

136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
	}
	
	proc getLanguageList {} {
		variable Urls
		
		if {[catch {set token [::http::geturl $Urls(langList) \
				-command [namespace current]::getLanguageListClbk]}]} {
			return
		}
		
		::http::wait $token
	}
	
	proc getLanguageListClbk {token} {
		variable dLangs







|







136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
	}
	
	proc getLanguageList {} {
		variable Urls
		
		if {[catch {set token [::http::geturl $Urls(langList) \
				-command [namespace current]::getLanguageListClbk]}]} {
			return [after idle [list after 60000 [namespace current]::getLanguageList]]
		}
		
		::http::wait $token
	}
	
	proc getLanguageListClbk {token} {
		variable dLangs