Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/examples/bounce/ball.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/examples/bounce/ball.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 844, Wed Jun 20 20:39:15 2001 UTC revision 845, Thu Jun 21 16:25:49 2001 UTC
# Line 54  Line 54 
54              end              end
55    
56        val delayEvt =        val delayEvt =
57              CML.timeOutEvt(Time.fromMicroseconds(1000000 div updatesPerSec))              CML.timeOutEvt
58                    (Time.fromMicroseconds(Int32.fromInt
59                                               (1000000 div updatesPerSec)))
60      in      in
61    
62      fun mkBallFn (win, mchan, drawCh) = let      fun mkBallFn (win, mchan, drawCh) = let

Legend:
Removed from v.844  
changed lines
  Added in v.845

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0