CVS: sml-dist/src/eXene/widgets/simple button-ctrl.sml,1.2,1.3

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

Modified Files:
	button-ctrl.sml 
Log Message:
merge Kansas changes to eXene into repository

Index: button-ctrl.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/widgets/simple/button-ctrl.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** button-ctrl.sml	1 Jun 2000 18:33:41 -0000	1.2
--- button-ctrl.sml	3 Mar 2006 03:33:16 -0000	1.3
***************
*** 48,52 ****
            in wait(timeOutEvt delay) end
  
!     fun realize {env=inenv, win, sz} (state,(quanta,reqc,evtc,bv)) = let
            open Interact
            val InEnv{m,ci,...} = ignoreKey inenv
--- 48,55 ----
            in wait(timeOutEvt delay) end
  
!     fun realize {env=inenv, win, sz} (state,(quanta,reqc,
!         (* next line type added ddeboer: *)
!         evtc: ButtonType.button_act CML.chan,
!         bv)) = let
            open Interact
            val InEnv{m,ci,...} = ignoreKey inenv
***************
*** 167,178 ****
            val reqc = channel ()
            val quanta = (case getIntOpt(attrs attr_repeatDelay)
! 		of NONE => NONE
! 		 | SOME d => let
                      val i = getInt(attrs attr_repeatInterval)
! 		    val millisecs = Time.fromMilliseconds o Int.toLarge
                      in
! 		      SOME(millisecs d, millisecs i)
! 		    end
! 	       (* end case *))
            val state = mkWState(getBool(attrs attr_isActive),
                                 getBool(attrs attr_isSet))
--- 170,181 ----
            val reqc = channel ()
            val quanta = (case getIntOpt(attrs attr_repeatDelay)
!         of NONE => NONE
!          | SOME d => let
                      val i = getInt(attrs attr_repeatInterval)
!             val millisecs = Time.fromMilliseconds o Int.toLarge
                      in
!               SOME(millisecs d, millisecs i)
!             end
!            (* end case *))
            val state = mkWState(getBool(attrs attr_isActive),
                                 getBool(attrs attr_isSet))
***************
*** 191,195 ****
                },
                rqst = reqc,
!               evt = recvEvt evtc
              }
            end
--- 194,200 ----
                },
                rqst = reqc,
!               (* modified by ddeboer; original: *)
!               (* evt = recvEvt evtc *)
!               evt = (WidgetBase.wrapQueue (recvEvt evtc))
              }
            end



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