Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |