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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download)

1 : monnier 2 (* images.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 AT&T Research.
4 :     *)
5 :    
6 :     structure Images =
7 :     struct
8 :     val lightGray = EXeneBase.IMAGE{
9 :     sz = Geometry.SIZE{wid=16, ht=16},
10 :     data = [map Byte.stringToBytes [
11 :     "\136\136","\"\"","\^Q\^Q","DD",
12 :     "\136\136","\"\"","\^Q\^Q","DD",
13 :     "\136\136","\"\"","\^Q\^Q","DD",
14 :     "\136\136","\"\"","\^Q\^Q","DD"
15 :     ]]
16 :     }
17 :    
18 :     val gray = EXeneBase.IMAGE{
19 :     sz = Geometry.SIZE{wid=16, ht=16},
20 :     data = [map Byte.stringToBytes [
21 :     "UU","\170\170","UU","\170\170",
22 :     "UU","\170\170","UU","\170\170",
23 :     "UU","\170\170","UU","\170\170",
24 :     "UU","\170\170","UU","\170\170"
25 :     ]]
26 :     }
27 :    
28 :     val darkGray = EXeneBase.IMAGE{
29 :     sz = Geometry.SIZE{wid=16, ht=16},
30 :     data = [map Byte.stringToBytes [
31 :     "\221\221","ww","\221\221","ww",
32 :     "\221\221","ww","\221\221","ww",
33 :     "\221\221","ww","\221\221","ww",
34 :     "\221\221","ww","\221\221","ww"
35 :     ]]
36 :     }
37 :    
38 :     end

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