/[gcl]/gcl/unixport/tryserv.tcl
ViewVC logotype

Diff of /gcl/unixport/tryserv.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:15 1999 UTC revision 1.2 by camm, Tue Dec 18 18:50:18 2001 UTC
# Line 1  Line 1 
1  catch { close $server }    catch { close $server }  
2  proc jany { args } {  proc jany { args } {
3      global me ;      global me ;
4      set me [lindex $args 0] ;      set me [lindex $args 0] ;
5      fconfigure $me -blocking 0 ;      fconfigure $me -blocking 0 ;
6      fileevent $me readable "joke $me"      fileevent $me readable "joke $me"
7  }  }
8    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26