1 files changed, 56 insertions, 0 deletions
diff --git a/ipl/mprocs/typebind.icn b/ipl/mprocs/typebind.icn
new file mode 100644
index 0000000..84bf9ec
--- /dev/null
+++ b/ipl/mprocs/typebind.icn
@@ -0,0 +1,56 @@
+############################################################################
+#
+#	File:     typebind.icn
+#
+#	Subject:  Procedures to produce table of graphic contexts for type
+#
+#	Author:   Ralph E. Griswold and Clinton L. Jeffery
+#
+#	Date:     March 4, 1997
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  typebind(window, codes, opts) returns a table of graphic contexts bound to 
+#  window with foreground colors keyed by type in the string of event codes.
+#
+#  Codes for which there is no corresponding color are ignored.
+#
+#  Note:  Event monitoring global identifiers must be linked by the program
+#  that uses this procedure.
+#
+############################################################################
+#
+#  Links: colormap
+#
+############################################################################
+#
+#  Requires: Version 9 graphics
+#
+############################################################################
+
+link colormap
+
+procedure typebind(window, codes, opts)
+   local code, context
+   static contexts, color
+
+   initial {
+      contexts := table()
+      if /opts then color := colormap("standard")
+      else color := colormap(opts["p"])
+      }
+
+   if /contexts[window] := table() then {
+      context := contexts[window]
+      every code := !codes do
+         context[code] := Clone(window, , "fg=" || \color[code])
+      }
+   contexts[window]["bg"] := Clone(window, "fg=" || WAttrib(window,"bg"))
+   return contexts[window]
+
+end
+