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/mixer/mixer.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/examples/mixer/mixer.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 47  Line 47 
47            fun quit () = let            fun quit () = let
48                  fun q () = (CML.sync(CML.timeOutEvt pause);                  fun q () = (CML.sync(CML.timeOutEvt pause);
49                              Root.delRoot root;                              Root.delRoot root;
50                              RunCML.shutdown())                              RunCML.shutdown OS.Process.success)
51                  in CML.spawn q; () end                  in CML.spawn q; () end
52    
53            val switch = Toggle.toggleSwitch (root,view,[]) (fn _ => quit ())            val switch = Toggle.toggleSwitch (root,view,[]) (fn _ => quit ())

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