Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix initialization of the browser list (ferrieux) |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bdd206fbe7ee7dcfdff82340294b4263 |
| User & Date: | patthoyts 2010-01-12 01:45:25.000 |
Context
|
2010-01-12
| ||
| 20:30 | Applied patch 2913790 to add an option not to get queried when exiting and enable /quit when not logged in. Provided by Stuart Cassoff. check-in: 546e09da5d user: patthoyts tags: trunk | |
| 01:45 | Fix initialization of the browser list (ferrieux) check-in: bdd206fbe7 user: patthoyts tags: trunk | |
|
2009-12-13
| ||
| 01:23 | [wm state] doesn't support zoomed on x11. changed the web browser handling for unix to look for more recent commands line xdg-open and chrome. Avoid the -remote stuff (can still be set manually) check-in: 634a4cd47c user: patthoyts tags: trunk | |
Changes
Changes to apps/tkchat/ChangeLog.
1 2 3 4 5 6 7 | 2009-12-13 Pat Thoyts <[email protected]> * tkchat.tcl: [wm state] doesn't support zoomed on x11. * tkchat.tcl: change web browser handling to look for a more modern list of commands and avoid the old -remote stuff. 2009-10-15 Pat Thoyts <[email protected]> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2010-01-11 Pat Thoyts <[email protected]> * tkchat.tcl: Fix buggy initialization of the browser list when nothing specified. Problem spotted by ferrieux. 2009-12-13 Pat Thoyts <[email protected]> * tkchat.tcl: [wm state] doesn't support zoomed on x11. * tkchat.tcl: change web browser handling to look for a more modern list of commands and avoid the old -remote stuff. 2009-10-15 Pat Thoyts <[email protected]> |
| ︙ | ︙ |
Changes to apps/tkchat/tkchat.tcl.
| ︙ | ︙ | |||
275 276 277 278 279 280 281 |
}
}
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}
| | | 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.478 2010/01/12 01:45:26 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." \
|
| ︙ | ︙ | |||
1567 1568 1569 1570 1571 1572 1573 |
"Mozilla Firefox" firefox "-new-tab"
"Google Chrome" google-chrome ""
"Opera" opera "-newtab"
"Gnome Web Browser" gnome-www-browser "--new-tab"
}
if {$Options(Browser) eq ""} {
| | > | 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 |
"Mozilla Firefox" firefox "-new-tab"
"Google Chrome" google-chrome ""
"Opera" opera "-newtab"
"Gnome Web Browser" gnome-www-browser "--new-tab"
}
if {$Options(Browser) eq ""} {
foreach {display exe arg} $Browsers {
if {[findExecutable $exe cmd]} {
set Options(Browser) "$cmd $arg"
break
}
}
}
if {$Options(Browser) eq ""} {
tk_messageBox -icon error -title "No browser defined" \
-message "No web browser could be found. Please go to\
|
| ︙ | ︙ | |||
4581 4582 4583 4584 4585 4586 4587 |
${NS}::button .logon.cn \
-text [mc "Cancel"] -width -8 \
-command { set ::tkchat::DlgDone cancel }
tk::AmpWidget ${NS}::button .logon.qu \
-text [mc "&Quit"] -width -8 \
-command [namespace origin quit]
catch {.logon.ok configure -default active}
| | > | 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 |
${NS}::button .logon.cn \
-text [mc "Cancel"] -width -8 \
-command { set ::tkchat::DlgDone cancel }
tk::AmpWidget ${NS}::button .logon.qu \
-text [mc "&Quit"] -width -8 \
-command [namespace origin quit]
catch {.logon.ok configure -default active}
pack .logon.qu .logon.cn .logon.ok \
-in .logon.f -side right -padx 2
# enable the i18n alt key handling for this dialog
bind .logon <Alt-Key> [list tk::AltKeyInDialog .logon %A]
bind .logon.lph <<AltUnderlined>> {focus .logon.eph}
bind .logon.lpan <<AltUnderlined>> {focus .logon.epan}
bind .logon.lpap <<AltUnderlined>> {focus .logon.epap}
|
| ︙ | ︙ |