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

Diff of /sml/trunk/src/eXene/examples/widgets/simple.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 17  Line 17 
17        ]        ]
18    
19      fun goodbye root = let      fun goodbye root = let
20            fun quit () = (W.delRoot root; RunCML.shutdown())            fun quit () = (W.delRoot root; RunCML.shutdown OS.Process.success)
21            val style = W.styleFromStrings (root, resources)            val style = W.styleFromStrings (root, resources)
22            val name = Styles.mkView {name = Styles.styleName [],            val name = Styles.mkView {name = Styles.styleName [],
23                                      aliases = [Styles.styleName []]}                                      aliases = [Styles.styleName []]}
# Line 31  Line 31 
31                  ])                  ])
32            val shell = Shell.shell (root,view,[]) (Box.widgetOf layout)            val shell = Shell.shell (root,view,[]) (Box.widgetOf layout)
33            fun loop () =            fun loop () =
34                  if (CIO.input_line CIO.std_in) = "quit\n"                  if (TextIO.inputLine TextIO.stdIn) = "quit\n"
35                    then quit ()                    then quit ()
36                    else loop ()                    else loop ()
37            in            in

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