TclApps Library Source Code
Check-in [8035126812]
Not logged in
Core Home Timeline Branches Tags Tickets Wiki Login

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

Overview
Comment:Remove all babelfish related code
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | emiliano-cleanup
Files: files | file ages | folders
SHA3-256: 803512681288b70eb881cc739540394fea37d3d57ac3b72140e4da79adc87a03
User & Date: emiliano 2023-05-25 03:03:55.096
Context
2023-05-25
03:16
Standard tk widgets are available by default on the ::tk namespace check-in: b33af0a57d user: emiliano tags: emiliano-cleanup
03:03
Remove all babelfish related code check-in: 8035126812 user: emiliano tags: emiliano-cleanup
02:59
We have [lreverse] since ... forever check-in: d640ca3a10 user: emiliano tags: emiliano-cleanup
Changes
Unified Diff Ignore Whitespace Patch
Changes to apps/tkchat/tkchat.tcl.
︙︙
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598

}

# this called on first logon and after a purge
# so not bothering to background it
proc ::tkchat::LoadHistory {} {
    global Options

    #Babelfish was decommissioned by Yahoo in 2012
    if 0 {
    # hook in the translation menu initialization (background function)
    if {$Options(UseBabelfish)} {
	babelfishMenu
    }
    }

    if {$Options(HistoryLines) != 0} {
	set url "$Options(JabberLogs)/?pattern=*.tcl"
	GetHistLogIdx $url
    }
    
    GetTipIndex
    CheckVersion








<
<
<
<
<
<
<
<








577
578
579
580
581
582
583








584
585
586
587
588
589
590

}

# this called on first logon and after a purge
# so not bothering to background it
proc ::tkchat::LoadHistory {} {
    global Options









    if {$Options(HistoryLines) != 0} {
	set url "$Options(JabberLogs)/?pattern=*.tcl"
	GetHistLogIdx $url
    }
    
    GetTipIndex
    CheckVersion
︙︙
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476

    tk::AmpMenuArgs $m add checkbutton \
        -label [mc "&Enable whiteboard"] \
        -variable Options(EnableWhiteboard)
    tk::AmpMenuArgs $m add checkbutton \
        -label [mc "Auto &bookmark"] \
        -variable Options(AutoBookmark)

    #Yahoo decommissioned Babelfish in 2012
    if 0 {
    tk::AmpMenuArgs $m add checkbutton \
        -label [mc "Auto-i&nit Babelfish"] \
        -variable Options(UseBabelfish)
    }

    $m add separator

    tk::AmpMenuArgs $m add command \
        -label [mc "&Colors..."] \
        -command ::tkchat::ChangeColors
    tk::AmpMenuArgs $m add command \
        -label [mc "&Font..."] \








<
<
<
<
<
<
<








2448
2449
2450
2451
2452
2453
2454







2455
2456
2457
2458
2459
2460
2461

    tk::AmpMenuArgs $m add checkbutton \
        -label [mc "&Enable whiteboard"] \
        -variable Options(EnableWhiteboard)
    tk::AmpMenuArgs $m add checkbutton \
        -label [mc "Auto &bookmark"] \
        -variable Options(AutoBookmark)








    $m add separator

    tk::AmpMenuArgs $m add command \
        -label [mc "&Colors..."] \
        -command ::tkchat::ChangeColors
    tk::AmpMenuArgs $m add command \
        -label [mc "&Font..."] \
︙︙
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608

	ChatLogFile ChatLogOff Color,* DisplayUsers ClickFocusEntry ElideTags
	Emoticons EnableWhiteboard EntryMessageColor errLog ExitMessageColor
	Font,* Fullname FunkyTraffic Geometry HistoryLines JabberConference
	JabberPort JabberResource JabberServer Khim HateLolcatz
	LogFile LogLevel LogPrivateChat LogStderr MyColor Nickname
	OneToOne Pane Password ProxyHost ProxyPort ProxyUsername SavePW
	ServerLogging ShowNormalInline Style Subjects Theme Transparency UnifyNicknames
        UseBabelfish UseJabberSSL UseProxy Username UseTkOnly ValidateSSLChain
        Visibility,* RSS,* StartZoomed
    }

    foreach key $keep {
	foreach option [array names Options $key] {
	    if { [info exists tmp($option)] \
                     && [string tolower $Options($option)] \








|








5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593

	ChatLogFile ChatLogOff Color,* DisplayUsers ClickFocusEntry ElideTags
	Emoticons EnableWhiteboard EntryMessageColor errLog ExitMessageColor
	Font,* Fullname FunkyTraffic Geometry HistoryLines JabberConference
	JabberPort JabberResource JabberServer Khim HateLolcatz
	LogFile LogLevel LogPrivateChat LogStderr MyColor Nickname
	OneToOne Pane Password ProxyHost ProxyPort ProxyUsername SavePW
	ServerLogging ShowNormalInline Style Subjects Theme Transparency UnifyNicknames
        UseJabberSSL UseProxy Username UseTkOnly ValidateSSLChain
        Visibility,* RSS,* StartZoomed
    }

    foreach key $keep {
	foreach option [array names Options $key] {
	    if { [info exists tmp($option)] \
                     && [string tolower $Options($option)] \
︙︙
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356

	ShowNormalInline	0
	StoreMessages           1
	Style			any
	Subjects                {}
	Theme			""
	Transparency		100
	UnifyNicknames		1
	UseBabelfish		0
	UseJabberSSL		no
	UseProxy		0
	UseTkOnly		0
	Username		""
	ValidateSSLChain	1
	Visibility,AVAILABILITY	0
	Visibility,ERROR	0








<








6327
6328
6329
6330
6331
6332
6333

6334
6335
6336
6337
6338
6339
6340

	ShowNormalInline	0
	StoreMessages           1
	Style			any
	Subjects                {}
	Theme			""
	Transparency		100
	UnifyNicknames		1

	UseJabberSSL		no
	UseProxy		0
	UseTkOnly		0
	Username		""
	ValidateSSLChain	1
	Visibility,AVAILABILITY	0
	Visibility,ERROR	0
︙︙