TclApps Library Source Code
Check-in [eded3573f8]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: eded3573f8122897e0c50fed85fe2fc4979ebd45
User & Date: eee 2009-08-13 00:57:28
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
Hide Diffs Unified Diffs 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
....
5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
    }
}

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." \
................................................................................
        -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






|







 







|







275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
....
5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
    }
}

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." \
................................................................................
        -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