# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.106 1998-06-10 13:22:47 adam
+# Revision 1.107 1999-02-11 11:30:08 adam
+# Updated for WIN32.
+#
+# Revision 1.106 1998/06/10 13:22:47 adam
# Minor changes.
#
# Revision 1.105 1998/06/10 13:00:45 adam
# to a default value or to the value in windowGeometry(.)
toplevelG .init
place-force .init .
-message .init.top -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
-text .init.msg -width 30 -height 4
+message .init.top -aspect 500 -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
+text .init.msg -width 40 -height 4
pack .init.top -side top -fill x -expand yes
pack .init.msg -side bottom -fill both -expand yes
wm iconify .
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: ir-tcl.c,v $
- * Revision 1.110 1998-10-20 15:15:31 adam
+ * Revision 1.111 1999-02-11 11:30:09 adam
+ * Updated for WIN32.
+ *
+ * Revision 1.110 1998/10/20 15:15:31 adam
* Changed scan response handler.
*
* Revision 1.109 1998/10/13 21:23:26 adam
#include <stdlib.h>
#include <stdio.h>
-#ifdef WINDOWS
+#ifdef WIN32
#else
#include <unistd.h>
* OF THIS SOFTWARE.
*
* $Log: ir-tcl.h,v $
- * Revision 1.16 1997-04-13 18:57:28 adam
+ * Revision 1.17 1999-02-11 11:30:11 adam
+ * Updated for WIN32.
+ *
+ * Revision 1.16 1997/04/13 18:57:28 adam
* Better error reporting and aligned with Tcl/Tk style.
* Rework of notifier code with Tcl_File handles.
*
#ifndef IR_TCL_H
#define IR_TCL_H
-#ifndef WINDOWS
+#ifndef WIN32
int Irtcl_Init (Tcl_Interp *interp);
#endif
set profile(BIBSYS,targetInfoName) {}
set profile(BIBSYS,timeDefine) 878567355
set profile(BIBSYS,timeLastExplain) {}
-set profile(BIBSYS,timeLastInit) 887288330
+set profile(BIBSYS,timeLastInit) 918732216
set profile(BIBSYS,welcomeMessage) {}
set profile(BIBSYS,windowNumber) 3
set {profile(Bell Laboratories Library Network,authentication)} {}
set profile(LOC,targetMaxTerms) {}
set profile(LOC,timeDefine) 878567355
set profile(LOC,timeLastExplain) {}
-set profile(LOC,timeLastInit) 897485131
+set profile(LOC,timeLastInit) 918732361
set profile(LOC,welcomeMessage) {}
set profile(LOC,windowNumber) 12
set {profile(OCLC FirstSearch,authentication)} {}
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: select.c,v $
- * Revision 1.5 1997-09-09 10:19:55 adam
+ * Revision 1.6 1999-02-11 11:30:13 adam
+ * Updated for WIN32.
+ *
+ * Revision 1.5 1997/09/09 10:19:55 adam
* New MSV5.0 port with fewer warnings.
*
* Revision 1.4 1997/08/28 20:20:48 adam
*sp = ir_tcl_malloc (sizeof(**sp));
(*sp)->next = NULL;
(*sp)->fd = fd;
-#if WINDOWS
+#if WIN32
(*sp)->tcl_File = Tcl_GetFile ((ClientData) fd, TCL_WIN_SOCKET);
#else
(*sp)->tcl_File = Tcl_GetFile ((ClientData) fd, TCL_UNIX_FD);