/[tcldrop]/tcldrop/modules/idx.tcl
ViewVC logotype

Diff of /tcldrop/modules/idx.tcl

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

revision 1.5 by fireegl, Tue May 27 15:32:09 2003 UTC revision 1.6 by fireegl, Wed Jun 4 21:02:38 2003 UTC
# Line 3  Line 3 
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  #  #
# Line 130  proc ::tcldrop::idx::valididx {idx} { Line 130  proc ::tcldrop::idx::valididx {idx} {
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    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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