CVS: sml-dist/src/eXene/widgets/util attrs.sml,1.3,1.4

Update of /cvsroot/smlnj/sml-dist/src/eXene/widgets/util
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31409/src/eXene/widgets/util

Modified Files:
	attrs.sml 
Log Message:
freeze for 110.59

Index: attrs.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/widgets/util/attrs.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** attrs.sml	7 Nov 2005 23:03:18 -0000	1.3
--- attrs.sml	17 May 2006 18:49:08 -0000	1.4
***************
*** 4,7 ****
--- 4,9 ----
   *
   * Types to add: FontList, Atom
+  *
+  * Alley Stoughton, April 2006: added shifting when forming CMS_RGB values
   *)
  
***************
*** 166,174 ****
  		fun extract i =
                        #1(valOf(Word.scan StringCvt.HEX SS.getc (SS.slice(s, i, SOME n))))
  		in
  		  EXeneBase.CMS_RGB{
! 		      red = extract 1,
! 		      green = extract(1+n),
! 		      blue = extract(1+n+n)
  		    }
  		end
--- 168,178 ----
  		fun extract i =
                        #1(valOf(Word.scan StringCvt.HEX SS.getc (SS.slice(s, i, SOME n))))
+                 (* Alley: shift originally was missing *)
+                 fun shift m = Word.<<(m, Word.fromInt(16 - n * 4))
  		in
  		  EXeneBase.CMS_RGB{
! 		      red = shift(extract 1),
! 		      green = shift(extract(1+n)),
! 		      blue = shift(extract(1+n+n))
  		    }
  		end



-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642