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

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

Modified Files:
	attrs.sml 
Log Message:
fixed bug in xxxArraySlice.update; pushed Basis changes through

Index: attrs.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/widgets/util/attrs.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** attrs.sml	1 Jun 2000 18:33:42 -0000	1.2
--- attrs.sml	7 Nov 2005 23:03:18 -0000	1.3
***************
*** 131,137 ****
    (* strip leading and trailing whitespace from a string. *)
      fun sstrip s = 
!           SS.dropr Char.isSpace (SS.dropl Char.isSpace (SS.all s))
      fun strip s = SS.string (sstrip s)
!     fun skipWS s = SS.dropl Char.isSpace (SS.all s)
  
      fun cvtBool s = (case (strip s)
--- 131,137 ----
    (* strip leading and trailing whitespace from a string. *)
      fun sstrip s = 
!           SS.dropr Char.isSpace (SS.dropl Char.isSpace (SS.full s))
      fun strip s = SS.string (sstrip s)
!     fun skipWS s = SS.dropl Char.isSpace (SS.full s)
  
      fun cvtBool s = (case (strip s)
***************
*** 142,146 ****
  
      fun cvtInt s = let
! 	  val s = StringCvt.skipWS SS.getc (SS.all s)
  	  val start = if Char.isDigit(SS.sub (s, 0)) then 0 else 1
  	  val rad = if (SS.sub(s, start) = #"0")
--- 142,146 ----
  
      fun cvtInt s = let
! 	  val s = StringCvt.skipWS SS.getc (SS.full s)
  	  val start = if Char.isDigit(SS.sub (s, 0)) then 0 else 1
  	  val rad = if (SS.sub(s, start) = #"0")



-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php