TclApps Library Source Code
Check-in [cb4e5084cb]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:* tkchat.tcl (::tkchat::DoAnim): Only animate GIF images.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cb4e5084cbdded27ebd46e6908d2777ffd0d09a7
User & Date: rmax 2009-03-10 11:30:45
Context
2009-04-09
00:37
Applied MacOSX patch from Daniel Steffen check-in: d5edbd90fe user: patthoyts tags: trunk
2009-03-10
11:30
* tkchat.tcl (::tkchat::DoAnim): Only animate GIF images. check-in: cb4e5084cb user: rmax tags: trunk
2009-03-04
00:29
[FR 2605849] Explicitly set the application name. check-in: b72f6252ac user: patthoyts tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to apps/tkchat/ChangeLog.





1
2
3
4
5
6
7



2009-03-04  Pat Thoyts  <[email protected]>

	* tkchat.tcl: [FR 2605849] Explicitly set the application name.

2009-03-01  Pat Thoyts  <[email protected]>

	* tkchat.tcl: For tinyurl links add a tooltip that shows the
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
2009-03-10  Reinhard Max  <[email protected]>

	* tkchat.tcl (::tkchat::DoAnim): Only animate GIF images.

2009-03-04  Pat Thoyts  <[email protected]>

	* tkchat.tcl: [FR 2605849] Explicitly set the application name.

2009-03-01  Pat Thoyts  <[email protected]>

	* tkchat.tcl: For tinyurl links add a tooltip that shows the

Changes to apps/tkchat/tkchat.tcl.

254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
....
5656
5657
5658
5659
5660
5661
5662

5663
5664
5665
5666
5667
5668
5669
    }
}

namespace eval ::tkchat {
    variable chatWindowTitle "The Tcler's Chat"

    variable HEADUrl {http://tcllib.cvs.sourceforge.net/*checkout*/tcllib/tclapps/apps/tkchat/tkchat.tcl?revision=HEAD}
    variable rcsid   {$Id: tkchat.tcl,v 1.461 2009/03/04 00:29:37 patthoyts Exp $}

    variable MSGS
    set MSGS(entered) [list \
	    "%user% has entered the chat!" \
	    "Out of a cloud of smoke, %user% appears!" \
	    "%user% saunters in." \
	    "%user% wanders in." \
................................................................................
        font configure FIXED -size $val
    }
}

proc ::tkchat::DoAnim {} {
    if {$::Options(AnimEmoticons)} {
	foreach img [image names] {

	    set name [lindex [split $img :] end]
	    catch {after cancel $::tkchat::img::id($name)}
	    anim $img
	}
    } else {
	foreach {nm id} [array get ::tkchat::img::id] {
	    after cancel $id






|







 







>







254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
....
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
    }
}

namespace eval ::tkchat {
    variable chatWindowTitle "The Tcler's Chat"

    variable HEADUrl {http://tcllib.cvs.sourceforge.net/*checkout*/tcllib/tclapps/apps/tkchat/tkchat.tcl?revision=HEAD}
    variable rcsid   {$Id: tkchat.tcl,v 1.462 2009/03/10 11:30:45 rmax Exp $}

    variable MSGS
    set MSGS(entered) [list \
	    "%user% has entered the chat!" \
	    "Out of a cloud of smoke, %user% appears!" \
	    "%user% saunters in." \
	    "%user% wanders in." \
................................................................................
        font configure FIXED -size $val
    }
}

proc ::tkchat::DoAnim {} {
    if {$::Options(AnimEmoticons)} {
	foreach img [image names] {
	    if {![string match "GIF*" [$img cget -format]]} continue
	    set name [lindex [split $img :] end]
	    catch {after cancel $::tkchat::img::id($name)}
	    anim $img
	}
    } else {
	foreach {nm id} [array get ::tkchat::img::id] {
	    after cancel $id