Index: library/comm/Connection.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -rdf9b12b3347ec6d0aaab6a080619734cd4c45f34 --- library/comm/Connection.xotcl (.../Connection.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/comm/Connection.xotcl (.../Connection.xotcl) (revision df9b12b3347ec6d0aaab6a080619734cd4c45f34) @@ -5,7 +5,7 @@ package require XOTcl namespace eval ::xotcl::comm::connection { - namespace import ::xotcl::* + xotcl::use xotcl1 Class Connection -parameter {host port req socket handle} @@ -143,12 +143,13 @@ ::puts stderr message=$msg } } + Connection instproc gets {var} { #my showCall upvar [self callinglevel] $var result if {[catch {set n [::gets [my socket] result]} msg]} { my set error $msg - #my showMsg "CONNECTION error" + #my showMsg "CONNECTION error: $msg" return 0 } #my showMsg "n=$n, result=<$result>"