TclApps Library Source Code
Check-in [eded3573f8]
Not logged in

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

Overview
Comment:Fix [Bug 2814771]. In color configuration dialog, the wrong row was being given the weight for resize.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: eded3573f8122897e0c50fed85fe2fc4979ebd45
User & Date: eee 2009-08-13 00:57:28.000
Context
2009-09-24
10:40
* tkchat.tcl (::tkchat::Smile): Unset IMGre before reinitializing the emoticons, or it will keep growing. Only reinitialize when it was explicitly asked for (i.e. not on re-logins). check-in: 940345d5fa user: rmax tags: trunk
2009-08-13
00:57
Fix [Bug 2814771]. In color configuration dialog, the wrong row was being given the weight for resize. check-in: eded3573f8 user: eee tags: trunk
2009-08-12
00:51
Minor bugfix in appearance of "User info" dialog. check-in: fb51058b80 user: eee tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to apps/tkchat/ChangeLog.





1
2
3
4
5
6
7





2009-07-02  Pat Thoyts  <[email protected]>

	* tkchat.tcl: Do not post when in lurk mode (handle bindings).

2009-06-02  Reinhard Max  <[email protected]>

	* tkchat.tcl (::tkchat::Progress): Improved progress bar handling.
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2009-08-12  Elchonon Edelson <[email protected]>

	* tkchat.tcl: Fix [Bug 2814771]. In color configuration dialog,
	the wrong row was being given the weight for resize.

2009-07-02  Pat Thoyts  <[email protected]>

	* tkchat.tcl: Do not post when in lurk mode (handle bindings).

2009-06-02  Reinhard Max  <[email protected]>

	* tkchat.tcl (::tkchat::Progress): Improved progress bar handling.
Changes to apps/tkchat/tkchat.tcl.
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
    }
}

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.473 2009/08/12 00:51:05 eee 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." \







|







275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
    }
}

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.474 2009/08/13 00:57:28 eee 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." \
5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
        -command { set ::tkchat::DlgDone cancel}
    pack $t.f2.ok $t.f2.app $t.f2.can -side left -expand 1 -fill none

    grid $t.l1  $t.l2 $t.myclr x -padx 1 -pady 3 -sticky {}
    #grid $t.l3    -       -    - -padx 1 -pady 3 -sticky ew
    grid $t.f     -       -    - -padx 1 -pady 5 -sticky news
    grid $t.f2    -       -    - -padx 1 -pady 10 -sticky news
    grid rowconfigure $t 2 -weight 1
    grid columnconfigure $t 3 -weight 1
    wm resizable $t 0 1
    catch {::tk::PlaceWindow $t widget .}
    wm deiconify $t
    set working 1
    while {$working} {
	vwait ::tkchat::DlgDone







|







5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
        -command { set ::tkchat::DlgDone cancel}
    pack $t.f2.ok $t.f2.app $t.f2.can -side left -expand 1 -fill none

    grid $t.l1  $t.l2 $t.myclr x -padx 1 -pady 3 -sticky {}
    #grid $t.l3    -       -    - -padx 1 -pady 3 -sticky ew
    grid $t.f     -       -    - -padx 1 -pady 5 -sticky news
    grid $t.f2    -       -    - -padx 1 -pady 10 -sticky news
    grid rowconfigure $t 1 -weight 1
    grid columnconfigure $t 3 -weight 1
    wm resizable $t 0 1
    catch {::tk::PlaceWindow $t widget .}
    wm deiconify $t
    set working 1
    while {$working} {
	vwait ::tkchat::DlgDone