3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.Tk> |
# Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.Tk> |
6 |
# |
# |
7 |
# This program is free software; you can redistribute it and/or |
# This program is free software; you can redistribute it and/or |
8 |
# modify it under the terms of the GNU General Public License |
# modify it under the terms of the GNU General Public License |
9 |
# as published by the Free Software Foundation; either version 2 |
# as published by the Free Software Foundation; either version 2 |
10 |
# of the License, or (at your option) any later version. |
# of the License, or (at your option) any later version. |
11 |
# |
# |
12 |
# This program is distributed in the hope that it will be useful, |
# This program is distributed in the hope that it will be useful, |
13 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
15 |
# GNU General Public License for more details. |
# GNU General Public License for more details. |
16 |
# |
# |
17 |
# You should have received a copy of the GNU General Public License |
# You should have received a copy of the GNU General Public License |
18 |
# along with this program (see gpl.txt); if not, write to the |
# along with this program (see gpl.txt); if not, write to the |
19 |
# Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
# Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
20 |
# Or visit http://www.GNU.Org/licenses/gpl.html |
# Or visit http://www.GNU.Org/licenses/gpl.html |
21 |
# |
# |
22 |
# The author of this project can be reached at FireEgl@Tcldrop.Tk |
# The author of this project can be reached at FireEgl@Tcldrop.Tk |
23 |
# Or can be found on IRC (EFNet or FreeNode) as FireEgl. |
# Or can be found on IRC (EFNet or FreeNode) as FireEgl. |
24 |
# |
# |
130 |
proc ::tcldrop::idx::putidx {idx text} { |
proc ::tcldrop::idx::putidx {idx text} { |
131 |
foreach {a d} [Info $idx] { |
foreach {a d} [Info $idx] { |
132 |
array set idxinfo $d |
array set idxinfo $d |
133 |
if {[catch { puts $idxinfo(sock) $text }]} { return 0 } else { return 1 } |
if {[catch { puts $idxinfo(sock) $text }]} { return 0 } else { |
134 |
|
flush $idxinfo(sock) |
135 |
|
return 1 |
136 |
|
} |
137 |
} |
} |
138 |
} |
} |
139 |
|
|