CVS: sml-dist/src/eXene/graph-util bitmap-io.sml,1.3,1.4 get-dpy.sml,1.3,1.4

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

Modified Files:
	bitmap-io.sml get-dpy.sml 
Log Message:
fixed bug in xxxArraySlice.update; pushed Basis changes through

Index: bitmap-io.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/graph-util/bitmap-io.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** bitmap-io.sml	13 Sep 2003 04:44:43 -0000	1.3
--- bitmap-io.sml	7 Nov 2005 23:03:17 -0000	1.4
***************
*** 52,56 ****
  		  | SOME s => s
  		(* end case *))
!           val inputSS = SS.all o inputLine
  	  fun setWid ({wid, ht, x_hot, y_hot}, w) =
  		{wid=SOME w, ht=ht, x_hot=x_hot, y_hot=y_hot}
--- 52,56 ----
  		  | SOME s => s
  		(* end case *))
!           val inputSS = SS.full o inputLine
  	  fun setWid ({wid, ht, x_hot, y_hot}, w) =
  		{wid=SOME w, ht=ht, x_hot=x_hot, y_hot=y_hot}

Index: get-dpy.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/graph-util/get-dpy.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** get-dpy.sml	10 Sep 2003 00:27:29 -0000	1.3
--- get-dpy.sml	7 Nov 2005 23:03:17 -0000	1.4
***************
*** 21,25 ****
      fun parseDisplay "" = {host="",dpy="0",screen="0"}
        | parseDisplay d = let
!           val (host,rest) = SS.splitl (fn c => c <> #":") (SS.all d)
            val (dpy,scr) = SS.splitl (fn c => c <> #".") rest
            in
--- 21,25 ----
      fun parseDisplay "" = {host="",dpy="0",screen="0"}
        | parseDisplay d = let
!           val (host,rest) = SS.splitl (fn c => c <> #":") (SS.full d)
            val (dpy,scr) = SS.splitl (fn c => c <> #".") rest
            in



-------------------------------------------------------
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