Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Minor bugfix in appearance of "User info" dialog. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fb51058b80f20099ce1616a59649b29a |
| User & Date: | eee 2009-08-12 00:51:05 |
Context
|
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 | |
|
2009-07-02
| ||
| 21:59 | Avoid posting when in lurk mode (handle the bindings too) check-in: 0b2a63e2e3 user: patthoyts tags: trunk | |
Changes
Changes to apps/tkchat/tkchat.tcl.
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
....
6604
6605
6606
6607
6608
6609
6610
6611
6612
6613
6614
6615
6616
6617
6618
|
}
}
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.472 2009/07/02 21:59:29 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." \
................................................................................
catch {$et insert 0.0 $UI(DESC)}
grid configure $et $es -sticky news
grid rowconfigure $e 0 -weight 1
grid columnconfigure $e 0 -weight 1
grid configure $l $e -sticky news -padx 1 -pady 1
grid columnconfigure $f 1 -weight 1
grid rowconfigure $f 8 -weight 1
set btns [${NS}::frame $dlg.buttons]
if {!$useTile} { $dlg.buttons configure -bd 1 }
${NS}::button $btns.photo -text "Photo" -width 10 -state disabled \
-command [list [namespace origin UserInfoPhotoDialog] $dlg $uivar]
${NS}::button $btns.ok -text Save -width 10 -state disabled \
-command [list set [namespace current]::$id 1]
|
|
|
|
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
....
6604
6605
6606
6607
6608
6609
6610
6611
6612
6613
6614
6615
6616
6617
6618
|
}
}
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." \
................................................................................
catch {$et insert 0.0 $UI(DESC)}
grid configure $et $es -sticky news
grid rowconfigure $e 0 -weight 1
grid columnconfigure $e 0 -weight 1
grid configure $l $e -sticky news -padx 1 -pady 1
grid columnconfigure $f 1 -weight 1
grid rowconfigure $f 7 -weight 1
set btns [${NS}::frame $dlg.buttons]
if {!$useTile} { $dlg.buttons configure -bd 1 }
${NS}::button $btns.photo -text "Photo" -width 10 -state disabled \
-command [list [namespace origin UserInfoPhotoDialog] $dlg $uivar]
${NS}::button $btns.ok -text Save -width 10 -state disabled \
-command [list set [namespace current]::$id 1]
|