Back to files

Thu Feb 15 19:34:00 PST 1996

John Brezak (brezak@apollo.hp.com) has done a port of vat and vic to Microsoft's Win95/WinNT. His diffs have been merged into the vat and vic source distributions. Also included are Microsoft Visual C++ 4.0 makefiles (vat.mak and vic.mak).

John also supplied the appended diffs for the tk4.1a2 source release that fix some bugs and add the capability to store XDefaults in the Windows registry. This patch should be applied to the tk4.1a2 release and tk should be rebuilt before building vat or vic.

You will also need to get these files from the Blt distribution:

        bltConfig.h
        bltList.c
        bltList.h
        bltTable.c
        bltUtil.c

The vic.mak file will expect these to be in the ../blt-1.8/src directory. Copy the blt.h.win32 file from the vic source directory to ../blt-1.8/src/blt.h .

Note that these changes have only been tested with Microsoft Visual C++ 4.0 and are for tcl7.5/tk4.1-a2 not tcl7.5/tk4.1-b1. We plan to update vat & vic to tcl7.5/tk4.1-b1 in the near future but the changes are substantial & doing them now would have held up this release.

• Van & Steve

---

*** generic/tkOption.c.orig Wed Feb 07 19:47:12 1996 --- generic/tkOption.c Wed Feb 07 19:54:18 1996

---

*** 16,107 ****

#include "tkPort.h"
#include "tkInt.h"

• /*
• * The option database is stored as one tree for each main window.
• * Each name or class field in an option is associated with a node or
• * leaf of the tree. For example, the options "x.y.z" and "x.y*a"
• * each correspond to three nodes in the tree; they share the nodes
• * "x" and "x.y", but have different leaf nodes. One of the following
• * structures exists for each node or leaf in the option tree. It is
• * actually stored as part of the parent node, and describes a particular
• * child of the parent.
• */ -
• typedef struct Element {
• Tk_Uid nameUid; /* Name or class from one element of
• * an option spec. */
• union {
• struct ElArray arrayPtr; / If this is an intermediate node,
• * a pointer to a structure describing
• * the remaining elements of all
• * options whose prefixes are the
• * same up through this element. */
• Tk_Uid valueUid; /* For leaf nodes, this is the string
• * value of the option. */
• } child;
• int priority; /* Used to select among matching
• * options. Includes both the
• * priority level and a serial #.
• * Greater value means higher
• * priority. Irrelevant except in
• * leaf nodes. */
• int flags; /* OR-ed combination of bits. See
• * below for values. */
• } Element; -
• /*
• * Flags in Element structures:
• *
• * CLASS - Non-zero means this element refers to a class,
• * Zero means this element refers to a name.
• * NODE - Zero means this is a leaf element (the child
• * field is a value, not a pointer to another node).
• * One means this is a node element.
• * WILDCARD - Non-zero means this there was a star in the
• * original specification just before this element.
• * Zero means there was a dot.
• */ -
• #define TYPE_MASK 0x7 -
• #define CLASS 0x1
• #define NODE 0x2
• #define WILDCARD 0x4 -
• #define EXACT_LEAF_NAME 0x0
• #define EXACT_LEAF_CLASS 0x1
• #define EXACT_NODE_NAME 0x2
• #define EXACT_NODE_CLASS 0x3
• #define WILDCARD_LEAF_NAME 0x4
• #define WILDCARD_LEAF_CLASS 0x5
• #define WILDCARD_NODE_NAME 0x6
• #define WILDCARD_NODE_CLASS 0x7 -
• /*
• * The following structure is used to manage a dynamic array of
• * Elements. These structures are used for two purposes: to store
• * the contents of a node in the option tree, and for the option
• * stacks described below.
• */ -
• typedef struct ElArray {
• int arraySize; /* Number of elements actually
• * allocated in the "els" array. */
• int numUsed; /* Number of elements currently in
• * use out of els. */
• Element nextToUse; / Pointer to &els[numUsed]. */
• Element els[1]; /* Array of structures describing
• * children of this node. The
• * array will actually contain enough
• * elements for all of the children
• * (and even a few extras, perhaps).
• * This must be the last field in
• * the structure. */
• } ElArray; -
• #define EL_ARRAY_SIZE(numEls) ((unsigned) (sizeof(ElArray) \
• + ((numEls)-1)*sizeof(Element))) #define INITIAL_SIZE 5

/*
--- 16,23 ----

#include "tkPort.h"
#include "tkInt.h"
+ #include "tkOption.h"

#define INITIAL_SIZE 5

/*

---

*** 140,146 ****

• them; keeping them separate speeds up the searches. */
  • #define NUM_STACKS 8 static ElArray stacks[NUM_STACKS]; static TkWindow cachedWindow = NULL; /* Lowest-level window currently
    • loaded in stacks at present. --- 56,61 ----

      ---

      *** 150,169 ****
    • to the database. */

/
- One of the following structures is used to keep track of each - * level in the stacks.
- */
-
- typedef struct StackLevel {

-     TkWindow winPtr;         / Window corresponding to this stack
-                                * level. */
-     int bases[NUM_STACKS];    /* For each stack, index of first
-                                * element on stack corresponding to
-                                * this level (used to restore "numUsed"
-                                * fields when popping out of a level. */

- } StackLevel;
-
- /*

• Information about all of the stack levels that are currently
• active. This array grows dynamically to become as large as needed. */ --- 65,70 ----

  ---

  *** 195,217 ****
• Forward declarations for procedures defined in this file: */
  • static int AddFromString _ANSI_ARGS_((Tcl_Interp *interp,
  • Tk_Window tkwin, char string, int priority)); static void ClearOptionTree _ANSI_ARGS_((ElArray arrayPtr)); static ElArray * ExtendArray _ANSI_ARGS_((ElArray *arrayPtr,

    Element elPtr)); static void ExtendStacks _ANSI_ARGS_((ElArray arrayPtr,

    int leaf));

  • static int GetDefaultOptions _ANSI_ARGS_((Tcl_Interp *interp,
  • TkWindow winPtr)); static ElArray NewArray _ANSI_ARGS_((int numEls)); static void OptionInit _ANSI_ARGS_((TkMainInfo mainPtr)); static int ParsePriority _ANSI_ARGS_((Tcl_Interp interp,

    char *string));

  • static int ReadOptionFile _ANSI_ARGS_((Tcl_Interp *interp,
  • Tk_Window tkwin, char fileName, int priority)); static void SetupStacks _ANSI_ARGS_((TkWindow winPtr, int leaf));

    ---

    /*

    ---

    * --- 96,113 ----
• Forward declarations for procedures defined in this file: */

  static void           ClearOptionTree _ANSI_ARGS_((ElArray arrayPtr));
  static ElArray       ExtendArray _ANSI_ARGS_((ElArray arrayPtr,
                            Element elPtr));
  static void           ExtendStacks _ANSI_ARGS_((ElArray arrayPtr,
                            int leaf));
  static ElArray       NewArray _ANSI_ARGS_((int numEls));     
  static void           OptionInit _ANSI_ARGS_((TkMainInfo mainPtr));
  static int            ParsePriority _ANSI_ARGS_((Tcl_Interp interp,
                            char string));
  static void           SetupStacks _ANSI_ARGS_((TkWindow winPtr, int leaf));

+

---

/*

---

*

---

*** 550,556 ****

        } else {
            priority = TK_INTERACTIVE_PRIO;
        }
!       return ReadOptionFile(interp, tkwin, argv[2], priority);
      } else {
        Tcl_AppendResult(interp, "bad option \"", argv[1],
                "\": must be add, clear, get, or readfile", (char *) NULL);
--- 446,452 ----
        } else {
            priority = TK_INTERACTIVE_PRIO;
        }
!       return Tk_ReadOptionFile(interp, tkwin, argv[2], priority);
      } else {
        Tcl_AppendResult(interp, "bad option \"", argv[1],
                "\": must be add, clear, get, or readfile", (char *) NULL);

---

*** 682,688 ****

---

*/

! static int
ParsePriority(interp, string)

      Tcl_Interp interp;               / Interpreter to use for error reporting. */
      char string;             / Describes a priority level, either

--- 578,584 ----

---

*/

! int
ParsePriority(interp, string)

      Tcl_Interp interp;               / Interpreter to use for error reporting. */
      char string;             / Describes a priority level, either

---

*** 724,730 ****
/*

---

! AddFromString --

*

• Given a string containing lines in the standard format for
• X resources (see other documentation for details on what this --- 620,626 ---- /*

  ---

  * ! * Tk_AddFromString --

  *

• Given a string containing lines in the standard format for
• X resources (see other documentation for details on what this

  ---

  *** 744,751 ****

  ---

  */

! static int
! AddFromString(interp, tkwin, string, priority)

      Tcl_Interp interp;               / Interpreter to use for reporting results. */
      Tk_Window tkwin;          /* Token for window:  options are entered
                                 * for this window's main window. */

--- 640,647 ----

---

*/

! int
! Tk_AddFromString(interp, tkwin, string, priority)

      Tcl_Interp interp;               / Interpreter to use for reporting results. */
      Tk_Window tkwin;          /* Token for window:  options are entered
                                 * for this window's main window. */

---

*** 871,877 ****
/*

---

! ReadOptionFile --

*

• Read a file of options ("resources" in the old X terminology)
• and load them into the option database. --- 767,773 ---- /*

  ---

  * ! * Tk_ReadOptionFile --

  *

• Read a file of options ("resources" in the old X terminology)
• and load them into the option database.

  ---

  *** 887,894 ****

  ---

  */

! static int
! ReadOptionFile(interp, tkwin, fileName, priority)

      Tcl_Interp interp;               / Interpreter to use for reporting results. */
      Tk_Window tkwin;          /* Token for window:  options are entered
                                 * for this window's main window. */

--- 783,790 ----

---

*/

! int
! Tk_ReadOptionFile(interp, tkwin, fileName, priority)

      Tcl_Interp interp;               / Interpreter to use for reporting results. */
      Tk_Window tkwin;          /* Token for window:  options are entered
                                 * for this window's main window. */

---

*** 929,935 ****

      }
      close(fileId);
      buffer[statBuf.st_size] = 0;
!     result = AddFromString(interp, tkwin, buffer, priority);
      ckfree(buffer);
      return result;

}
--- 825,831 ----

      }
      close(fileId);
      buffer[statBuf.st_size] = 0;
!     result = Tk_AddFromString(interp, tkwin, buffer, priority);
      ckfree(buffer);
      return result;

}

---

*** 1271,1277 ****

      mainPtr->optionRootPtr = NewArray(20);
      interp = Tcl_CreateInterp();
!     (void) GetDefaultOptions(interp, mainPtr->winPtr);
      Tcl_DeleteInterp(interp);

}

---

--- 1167,1173 ----

      mainPtr->optionRootPtr = NewArray(20);
      interp = Tcl_CreateInterp();
!     (void) Tk_GetDefaultOptions(interp, mainPtr->winPtr);
      Tcl_DeleteInterp(interp);

}

---

---

*** 1294,1300 ****

---

*/

! static void
ClearOptionTree(arrayPtr)

      ElArray arrayPtr;                / Array of options;  delete everything
                                 * referred to recursively by this. */

--- 1190,1196 ----

---

*/

! void
ClearOptionTree(arrayPtr)

      ElArray arrayPtr;                / Array of options;  delete everything
                                 * referred to recursively by this. */

---

*** 1311,1384 ****

ckfree((char *) arrayPtr);
}

---

- /*

---

-
- GetDefaultOptions --
-
- This procedure is invoked to load the default set of options - * for a window.
-
- Results:
- * None.
-
- Side effects:
- * Options are added to those for winPtr's main window. If - * there exists a RESOURCE_MANAGER proprety for winPtr's - * display, that is used. Otherwise, the .Xdefaults file in - * the user's home directory is used. - *

---

- */
-
- static int
- GetDefaultOptions(interp, winPtr)

-     Tcl_Interp interp;               / Interpreter to use for error reporting. */
-     TkWindow winPtr;         / Fetch option defaults for main window
-                                * associated with this. */
- {
-     char regProp, home, fileName;
-     int result, actualFormat;
-     unsigned long numItems, bytesAfter;
-     Atom actualType;
- 
-     /
-      * Try the RESOURCE_MANAGER property on the root window first.
-      */
- 
-     regProp = NULL;
-     result = XGetWindowProperty(winPtr->display,
-           RootWindow(winPtr->display, 0),
-           XA_RESOURCE_MANAGER, 0, 100000,
-           False, XA_STRING, &actualType, &actualFormat,
-           &numItems, &bytesAfter, (unsigned char **) &regProp);
- 
-     if ((result == Success) && (actualType == XA_STRING)
-           && (actualFormat == 8)) {
-       result = AddFromString(interp, (Tk_Window) winPtr, regProp,
-               TK_USER_DEFAULT_PRIO);
-       XFree(regProp);
-       return result;
-     }
- 
-     /*
-      * No luck there.  Try a .Xdefaults file in the user's home
-      * directory.
-      */
- 
-     if (regProp != NULL) {
-       XFree(regProp);
-     }
-     home = getenv("HOME");
-     if (home == NULL) {
-       sprintf(interp->result,
-               "no RESOURCE_MANAGER property and no HOME envariable");
-       return TCL_ERROR;
-     }
-     fileName = (char *) ckalloc((unsigned) (strlen(home) + 20));
-     sprintf(fileName, "%s/.Xdefaults", home);
-     result = ReadOptionFile(interp, (Tk_Window) winPtr, fileName,
-           TK_USER_DEFAULT_PRIO);
-     ckfree(fileName);
-     return result;

- }
--- 1207,1209 ----
*** generic/tkOption.h.orig Wed Feb 07 19:56:31 1996 --- generic/tkOption.h Thu Jan 11 12:07:27 1996

---

*** 0 ****
--- 1,123 ----
+ /
+ tkOption.h --
+
+ Copyright (c) 1995 Sun Microsystems, Inc. +
+ See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. +
+ SCCS: @(#) tkOption.h 1.4 95/02/16 14:12:21 */ +
+ #ifndef _TKOPTION
+ #define _TKOPTION
+
+ /
+ The option database is stored as one tree for each main window. + * Each name or class field in an option is associated with a node or + * leaf of the tree. For example, the options "x.y.z" and "x.ya" + each correspond to three nodes in the tree; they share the nodes + * "x" and "x.y", but have different leaf nodes. One of the following + * structures exists for each node or leaf in the option tree. It is + * actually stored as part of the parent node, and describes a particular + * child of the parent.
+ */
+
+ typedef struct Element {

+     Tk_Uid nameUid;                   /* Name or class from one element of
+                                        * an option spec. */
+     union {
+       struct ElArray arrayPtr;       / If this is an intermediate node,
+                                        * a pointer to a structure describing
+                                        * the remaining elements of all
+                                        * options whose prefixes are the
+                                        * same up through this element. */
+       Tk_Uid valueUid;                /* For leaf nodes, this is the string
+                                        * value of the option. */
+     } child;
+     int priority;                     /* Used to select among matching
+                                        * options.  Includes both the
+                                        * priority level and a serial #.
+                                        * Greater value means higher
+                                        * priority.  Irrelevant except in
+                                        * leaf nodes. */
+     int flags;                                /* OR-ed combination of bits.  See
+                                        * below for values. */

+ } Element;
+
+ /
+ Flags in Element structures:
+ *

+  * CLASS -            Non-zero means this element refers to a class,
+  *                    Zero means this element refers to a name.
+  * NODE -             Zero means this is a leaf element (the child
+  *                    field is a value, not a pointer to another node).
+  *                    One means this is a node element.
+  * WILDCARD -         Non-zero means this there was a star in the
+  *                    original specification just before this element.
+  *                    Zero means there was a dot.

+ */
+
+ #define TYPE_MASK 0x7
+

+ #define CLASS                 0x1
+ #define NODE                  0x2
+ #define WILDCARD              0x4
+ 
+ #define EXACT_LEAF_NAME               0x0
+ #define EXACT_LEAF_CLASS      0x1
+ #define EXACT_NODE_NAME               0x2
+ #define EXACT_NODE_CLASS      0x3

+ #define WILDCARD_LEAF_NAME 0x4
+ #define WILDCARD_LEAF_CLASS 0x5
+ #define WILDCARD_NODE_NAME 0x6
+ #define WILDCARD_NODE_CLASS 0x7
+
+ /
+ The following structure is used to manage a dynamic array of + * Elements. These structures are used for two purposes: to store + * the contents of a node in the option tree, and for the option + * stacks described below.
+ */
+
+ typedef struct ElArray {

+     int arraySize;            /* Number of elements actually
+                                * allocated in the "els" array. */
+     int numUsed;              /* Number of elements currently in
+                                * use out of els. */
+     Element nextToUse;               / Pointer to &els[numUsed]. */
+     Element els[1];           /* Array of structures describing
+                                * children of this node.  The
+                                * array will actually contain enough
+                                * elements for all of the children
+                                * (and even a few extras, perhaps).
+                                * This must be the last field in
+                                * the structure. */

+ } ElArray;
+
+ #define EL_ARRAY_SIZE(numEls) ((unsigned) (sizeof(ElArray) \ + + ((numEls)-1)sizeof(Element))) +
+
+ /
+ * One of the following structures is used to keep track of each + * level in the stacks.
+ */
+
+ #define NUM_STACKS 8
+
+ typedef struct StackLevel {

+     TkWindow winPtr;         / Window corresponding to this stack
+                                * level. */
+     int bases[NUM_STACKS];    /* For each stack, index of first
+                                * element on stack corresponding to
+                                * this level (used to restore "numUsed"
+                                * fields when popping out of a level. */

+ } StackLevel;
+

+ int                   Tk_AddFromString _ANSI_ARGS_((Tcl_Interp interp,
+                           Tk_Window tkwin, char string, int priority));
+ int                   Tk_ReadOptionFile _ANSI_ARGS_((Tcl_Interp interp,
+                           Tk_Window tkwin, char fileName, int priority));
+ int                   Tk_GetDefaultOptions _ANSI_ARGS_((Tcl_Interp interp,
+                           TkWindow winPtr)); 
+ #endif
*** unix/Makefile.in.orig       Wed Feb 07 20:29:20 1996

--- unix/Makefile.in Wed Feb 07 20:37:55 1996

---

*** 263,268 ****
--- 263,269 ----

        $(GENERIC_DIR)/tkSquare.c $(GENERIC_DIR)/tkTest.c \
        $(UNIX_DIR)/tkAppInit.c $(UNIX_DIR)/tkUnix.c \
        $(UNIX_DIR)/tkUnixCursor.c $(UNIX_DIR)/tkUnixDraw.c\
+       $(UNIX_DIR)/tkUnixOption.c \
        $(UNIX_DIR)/tkUnixNotify.c $(UNIX_DIR)/tkUnixWm.c

HDRS = bltList.h \
*** unix/tkUnixOption.c.orig Wed Feb 07 20:29:30 1996 --- unix/tkUnixOption.c Wed Feb 07 20:29:06 1996

---

*** 0 ****
--- 1,92 ----
+ /*
+ * tkUnixOption.c --
+
+ This module contains procedures to manage the option + * database, which allows various strings to be associated + * with windows either by name or by class or both. +
+ Copyright (c) 1990-1994 The Regents of the University of California. + * Copyright (c) 1994-1995 Sun Microsystems, Inc. +
+ See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */
+
+ static char sccsid[] = "@(#) tkUnixOption.c 1.42 95/09/27 08:16:45"; +
+ #include "tkPort.h"
+ #include "tkInt.h"
+ #include "tkOption.h"
+ +

---

+ /
+ -------------------------------------------------------------- +
+ Tk_GetDefaultOptions --
+
+ This procedure is invoked to load the default set of options + * for a window.
+
+ Results:
+ * None.
+
+ Side effects:
+ * Options are added to those for winPtr's main window. If + * there exists a RESOURCE_MANAGER proprety for winPtr's + * display, that is used. Otherwise, the .Xdefaults file in + * the user's home directory is used. +
+ -------------------------------------------------------------- + */
+
+ int
+ Tk_GetDefaultOptions(interp, winPtr)

+     Tcl_Interp interp;               / Interpreter to use for error reporting. */
+     TkWindow winPtr;         / Fetch option defaults for main window
+                                * associated with this. */
+ {
+     char regProp, home, fileName;
+     int result, actualFormat;
+     unsigned long numItems, bytesAfter;
+     Atom actualType;
+ 
+     /
+      * Try the RESOURCE_MANAGER property on the root window first.
+      */
+ 
+     regProp = NULL;
+     result = XGetWindowProperty(winPtr->display,
+           RootWindow(winPtr->display, 0),
+           XA_RESOURCE_MANAGER, 0, 100000,
+           False, XA_STRING, &actualType, &actualFormat,
+           &numItems, &bytesAfter, (unsigned char **) &regProp);
+ 
+     if ((result == Success) && (actualType == XA_STRING)
+           && (actualFormat == 8)) {
+       result = Tk_AddFromString(interp, (Tk_Window) winPtr, regProp,
+               TK_USER_DEFAULT_PRIO);
+       XFree(regProp);
+       return result;
+     }
+ 
+     /*
+      * No luck there.  Try a .Xdefaults file in the user's home
+      * directory.
+      */
+ 
+     if (regProp != NULL) {
+       XFree(regProp);
+     }
+     home = getenv("HOME");
+     if (home == NULL) {
+       sprintf(interp->result,
+               "no RESOURCE_MANAGER property and no HOME envariable");
+       return TCL_ERROR;
+     }
+     fileName = (char *) ckalloc((unsigned) (strlen(home) + 20));
+     sprintf(fileName, "%s/.Xdefaults", home);
+     result = Tk_ReadOptionFile(interp, (Tk_Window) winPtr, fileName,
+           TK_USER_DEFAULT_PRIO);
+     ckfree(fileName);
+     return result;
+ }
*** win/makefile.vc.orig        Wed Feb 07 19:46:36 1996
--- win/makefile.vc     Wed Feb 07 20:02:29 1996

---

*** 69,74 ****
--- 69,75 ----

        $(TMPDIR)\tkWinImage.obj \
        $(TMPDIR)\tkWinInit.obj \
        $(TMPDIR)\tkWinKey.obj \
+       $(TMPDIR)\tkWinOption.obj \
        $(TMPDIR)\tkWinPixmap.obj \
        $(TMPDIR)\tkWinPointer.obj \
        $(TMPDIR)\tkWinNotify.obj \
*** win/tkWinDraw.c.orig        Wed Feb 07 19:37:14 1996
--- win/tkWinDraw.c     Wed Feb 07 19:47:21 1996

---

*** 484,489 ****
--- 484,490 ----

• drawable. */ unsigned int width, height; /* Dimensions of subimage. */ { + static DWORD winVersion = -1;

  HDC dc, dcMem; TkWinDCState state; BITMAPINFO infoPtr;

  ---

  ** 529,535 ****
  • just declare the image to be top-down. */

!       if ((GetVersion() & 0x80000000)) {
            int y;
            char srcPtr, dstPtr, *temp;

--- 530,539 ----

• just declare the image to be top-down. */

!       if (winVersion == -1)
!           winVersion = GetVersion();
!       
!       if (!(winVersion < 0x80000000) && (LOBYTE(LOWORD(winVersion))<4)) {
            int y;
            char srcPtr, dstPtr, temp;
  
** win/tkWinImage.c.orig       Wed Feb 07 19:37:02 1996

--- win/tkWinImage.c Wed Feb 07 19:39:04 1996

---

*** 46,51 ****
--- 46,60 ----

return 0;
}

+
+ static void
+ DestroyImage(image)
+ XImage image;
+ {
+ ckfree((char )image);
+ }
+ +

---

/*

---

*

---

*** 111,117 ****

      imagePtr->green_mask = visual->green_mask;
      imagePtr->blue_mask = visual->blue_mask;
      imagePtr->f.create_image = NULL;
!     imagePtr->f.destroy_image = NULL;
      imagePtr->f.get_pixel = NULL;
      imagePtr->f.sub_image = NULL;
      imagePtr->f.add_pixel = NULL;
--- 120,126 ----
      imagePtr->green_mask = visual->green_mask;
      imagePtr->blue_mask = visual->blue_mask;
      imagePtr->f.create_image = NULL;
!     imagePtr->f.destroy_image = DestroyImage;
      imagePtr->f.get_pixel = NULL;
      imagePtr->f.sub_image = NULL;
      imagePtr->f.add_pixel = NULL;
*** win/tkWinOption.c.orig      Wed Feb 07 19:46:14 1996

--- win/tkWinOption.c Wed Feb 07 19:46:28 1996

---

*** 0 ****
--- 1,102 ----
+ /*
+ * tkWinOption.c --
+
+ This module contains procedures to manage the option + * database, which allows various strings to be associated + * with windows either by name or by class or both. +
+ Copyright (c) 1990-1994 The Regents of the University of California. + * Copyright (c) 1994-1995 Sun Microsystems, Inc. +
+ See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */
+
+ static char sccsid[] = "@(#) tkWinOption.c 1.42 95/09/27 08:16:45"; +
+ #include "tkPort.h"
+ #include "tkInt.h"
+ #include "tkWinInt.h"
+ #include "tkOption.h"
+ +

---

+ static void
+ LoadRegistryResources(interp, winPtr, hRoot, path, priority)

+     Tcl_Interp interp;               / Interpreter to use for error reporting. */
+     TkWindow winPtr;
+     HKEY hRoot;
+     CHAR path;
+     int priority;
+ {
+     HKEY hKey;
+     DWORD retCode;
+     DWORD dwType;
+     DWORD i, valueLen, dataLen;
+     CHAR keyValue[MAX_PATH], keyData[MAX_PATH];
+     
+     retCode = RegOpenKeyEx(hRoot, path, 0,
+                          KEY_ENUMERATE_SUB_KEYS | KEY_EXECUTE | KEY_QUERY_VALUE,
+                          &hKey);
+     if (retCode == ERROR_SUCCESS) {
+       for (i = 0; retCode == ERROR_SUCCESS; i++) {
+           valueLen = sizeof(keyValue);
+           dataLen = sizeof(keyData);
+           retCode = RegEnumValue(hKey, i, keyValue, &valueLen, 0,
+                                  &dwType, keyData, &dataLen);
+           if (retCode == ERROR_SUCCESS &&
+               dwType == REG_SZ) {
+               Tk_AddOption((Tk_Window)winPtr, keyValue, keyData, priority);
+           }
+       }
+       RegCloseKey(hKey);
+     }

+ }
+ +

---

+ /
+ -------------------------------------------------------------- +
+ Tk_GetDefaultOptions --
+
+ This procedure is invoked to load the default set of options + * for a window.
+
+ Results:
+ * None.
+
+ Side effects:
+ * Options are added to those for winPtr's main window. If + * there exists a RESOURCE_MANAGER proprety for winPtr's + * display, that is used. Otherwise, the .Xdefaults file in + * the user's home directory is used. +
+ -------------------------------------------------------------- + */
+
+ int
+ Tk_GetDefaultOptions(interp, winPtr)

+     Tcl_Interp interp;               / Interpreter to use for error reporting. */
+     TkWindow winPtr;         / Fetch option defaults for main window
+                                * associated with this. */
+ {
+     CHAR regPath;
+     
+     regPath = ckalloc(16 + strlen(winPtr->classUid) + strlen(winPtr->nameUid));
+     sprintf(regPath, "SOFTWARE\\%s\\%s", winPtr->classUid, winPtr->nameUid);
+ 
+     /
+      * Get LOCAL_MACHINE Resources for application
+      */
+     LoadRegistryResources(interp, winPtr, HKEY_LOCAL_MACHINE,
+                         regPath, TK_STARTUP_FILE_PRIO);
+     
+     /*
+      * Get CURRENT_USER Resources for application
+      */
+     LoadRegistryResources(interp, winPtr, HKEY_CURRENT_USER,
+                         regPath, TK_USER_DEFAULT_PRIO);
+ 
+     ckfree(regPath);
+ 
+     return (TCL_OK);

+ }