Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix initialization of the browser list (ferrieux) |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bdd206fbe7ee7dcfdff82340294b4263 |
| User & Date: | patthoyts 2010-01-12 01:45:25 |
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 282 283 284 285 286 287 288 289 .... 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 .... 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 |
}
}
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.477 2009/12/13 01:23:58 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." \
................................................................................
"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 cmd arg} $Browsers {
if {[findExecutable $exe cmd]} {
set Options(Browser) "$cmd $arg"
}
}
}
if {$Options(Browser) eq ""} {
tk_messageBox -icon error -title "No browser defined" \
-message "No web browser could be found. Please go to\
................................................................................
${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
# 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}
|
| | > | > |
275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 .... 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 .... 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 |
}
}
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." \
................................................................................
"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\
................................................................................
${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}
|