Fossil

Check-in [e0232ce1]
Login

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

Overview
Comment:Use tcl_platform to determine username, this is platform independent
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e0232ce1a0317187b91df415b5dcd51119680f45
User & Date: mjanssen 2007-09-24 21:05:45
Context
2007-09-24
22:23
Fix the menu of fossil_chat.tcl for mac. check-in: aeb2ac78 user: drh tags: trunk
22:13
Fossil chat client entry widget will not lose focus on Win32 when receiving a message. check-in: 45f9af32 user: mjanssen tags: trunk
21:05
Use tcl_platform to determine username, this is platform independent check-in: e0232ce1 user: mjanssen tags: trunk
21:03
Fossil chat client (Initial commit) check-in: e202319e user: mjanssen tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/fossil_chat.tcl.

77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
  catch {after cancel $TIMER}
  set TIMER [after 300000 keep_alive]
  catch {puts $SOCKET noop; flush $SOCKET}
}

# Connect to the server
proc connect {} {
  global SOCKET env
  catch {close $SOCKET}
  if {[catch {
    set SOCKET [socket $::SERVERHOST $::SERVERPORT]
    fconfigure $SOCKET -translation binary -blocking 0
    puts $SOCKET [list login $env(USER) fact,fuzz]
    flush $SOCKET
    fileevent $SOCKET readable handle_input
    keep_alive
  } errmsg]} {
    if {[tk_messageBox -icon error -type yesno -parent . -message \
           "Unable to connect to server.  $errmsg.\n\nTry again?"]=="yes"} {
      after 100 connect







|




|







77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
  catch {after cancel $TIMER}
  set TIMER [after 300000 keep_alive]
  catch {puts $SOCKET noop; flush $SOCKET}
}

# Connect to the server
proc connect {} {
  global SOCKET tcl_platform
  catch {close $SOCKET}
  if {[catch {
    set SOCKET [socket $::SERVERHOST $::SERVERPORT]
    fconfigure $SOCKET -translation binary -blocking 0
    puts $SOCKET [list login $tcl_platform(user) fact,fuzz]
    flush $SOCKET
    fileevent $SOCKET readable handle_input
    keep_alive
  } errmsg]} {
    if {[tk_messageBox -icon error -type yesno -parent . -message \
           "Unable to connect to server.  $errmsg.\n\nTry again?"]=="yes"} {
      after 100 connect