CVS: sml-dist/src/eXene/widgets/text field-edit.sml,1.2,1.3

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

Modified Files:
	field-edit.sml 
Log Message:
merge Kansas changes to eXene into repository

Index: field-edit.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/widgets/text/field-edit.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** field-edit.sml	1 Jun 2000 18:33:42 -0000	1.2
--- field-edit.sml	3 Mar 2006 03:33:16 -0000	1.3
***************
*** 123,127 ****
  
        val (my_inenv, my_outenv) = createWinEnv ()
!       val InEnv{ci=myci,...} = ignoreInput my_inenv
        val router = Router.mkRouter (env, my_outenv, [])
  
--- 123,130 ----
  
        val (my_inenv, my_outenv) = createWinEnv ()
!       (* modified by ddeboer: testing *)
!       (*val InEnv{ci=myci,...} = ignoreInput my_inenv*)
!       val InEnv{ci=myci,m=mym,k=myk,...} = my_inenv
!       (* end modification *)
        val router = Router.mkRouter (env, my_outenv, [])
  
***************
*** 168,175 ****
              end
            | handleC (CO_KillReq, lo) = lo
!   
          fun loop lo =
            loop (select [
              wrap (myci, fn evt => handleCI (msgBodyOf evt,lo)),
              wrap (lco, fn _ => lo),
              wrap (rco, fn _ => lo),
--- 171,194 ----
              end
            | handleC (CO_KillReq, lo) = lo
!         
!         (* added by ddeboer: *)
!         fun handleK ((KEY_Press _),lo) = 
!                 ((TextIO.print " [field-edit received KEY_Press]\n"); lo)
!           | handleK ((_),lo) = lo
!         fun handleM ((MOUSE_Enter _),lo) =
!                 let
!                 val a = grabKeyboard cwin
!                 (* val _ = (TextIO.print (" [field-edit received MOUSE_Enter: "^(Int.toString(a))^"]\n")) *)
!                 in lo end
!           | handleM ((_),lo) = lo
!         (* end addition *)
!         
          fun loop lo =
            loop (select [
              wrap (myci, fn evt => handleCI (msgBodyOf evt,lo)),
+             (* added by ddeboer: *)
+             wrap (myk, fn evt => handleK (msgBodyOf evt,lo)),
+             wrap (mym, fn evt => handleM (msgBodyOf evt,lo)),
+             (* end addition *)
              wrap (lco, fn _ => lo),
              wrap (rco, fn _ => lo),



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642