Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/eXene/widgets/util/images.sml
ViewVC logotype

View of /sml/trunk/src/eXene/widgets/util/images.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (download) (annotate)
Sat Oct 4 23:33:09 1997 UTC (23 years, 9 months ago) by monnier
File size: 1149 byte(s)
Initial revision
(* images.sml
 *
 * COPYRIGHT (c) 1996 AT&T Research.
 *)

structure Images =
  struct
    val lightGray = EXeneBase.IMAGE{
            sz = Geometry.SIZE{wid=16, ht=16},
            data = [map Byte.stringToBytes [
                "\136\136","\"\"","\^Q\^Q","DD",
                "\136\136","\"\"","\^Q\^Q","DD",
                "\136\136","\"\"","\^Q\^Q","DD",
                "\136\136","\"\"","\^Q\^Q","DD"
              ]]
          }

    val gray = EXeneBase.IMAGE{
            sz = Geometry.SIZE{wid=16, ht=16},
            data = [map Byte.stringToBytes [
                "UU","\170\170","UU","\170\170",
                "UU","\170\170","UU","\170\170",
                "UU","\170\170","UU","\170\170",
                "UU","\170\170","UU","\170\170"
              ]]
          }

    val darkGray = EXeneBase.IMAGE{
            sz = Geometry.SIZE{wid=16, ht=16},
            data = [map Byte.stringToBytes [
                "\221\221","ww","\221\221","ww",
                "\221\221","ww","\221\221","ww",
                "\221\221","ww","\221\221","ww",
                "\221\221","ww","\221\221","ww"
              ]]
          }

  end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0