Tk Library Source Code

Artifact e5d43d5300a0591a6dc960f8b6632389fd1fdbeb:

Attachment "time.tcl-patch" to ticket [905132ffff] added by alathar 2004-02-26 22:30:36.

---

*** ntp-p/time.tcl	Fri Dec  5 02:45:30 2003
--- ntp-j/time.tcl	Fri Dec  5 02:46:31 2003
*************** proc ::time::QueryTime {token} {
*** 170,176 ****
          set State(sock) [udp_open]
          udp_conf $State(sock) $State(-timeserver) $State(-port)
      } else {
!         set State(sock) [socket $State(-timeserver) $State(-port)]
      }
  
      # setup the timeout
--- 170,180 ----
          set State(sock) [udp_open]
          udp_conf $State(sock) $State(-timeserver) $State(-port)
      } else {
!         if { [catch { set State(sock) [socket $State(-timeserver) $State(-port)] } sockerror] } {
! 		set State(status) error
! 		set State(error) $sockerror
! 		return $token
! 	}
      }
  
      # setup the timeout