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-with-menu.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/examples/widgets/simple-with-menu.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 33  Line 33 
33          ]          ]
34    
35      fun goodbye root = let      fun goodbye root = let
36            fun quit () = (W.delRoot root; RunCML.shutdown())            fun quit () = (W.delRoot root; RunCML.shutdown OS.Process.success)
37            val style = W.styleFromStrings (root, resources)            val style = W.styleFromStrings (root, resources)
38            val name = Styles.mkView {name = Styles.styleName [],            val name = Styles.mkView {name = Styles.styleName [],
39                                      aliases = [Styles.styleName []]}                                      aliases = [Styles.styleName []]}
# Line 50  Line 50 
50            fun monitor () = let            fun monitor () = let
51                  val n = CML.sync evt                  val n = CML.sync evt
52                  in                  in
53                    CIO.print("menu choice "^ makestring n ^ "\n");                    TextIO.output (TextIO.stdOut, "menu choice "^ Int.toString n ^ "\n");
54                    monitor ()                    monitor ()
55                  end                  end
56            val shell = Shell.shell (root,view,[]) widget            val shell = Shell.shell (root,view,[]) widget
57            fun loop () =            fun loop () =
58                  if (CIO.input_line CIO.std_in) = "quit\n"                  if (TextIO.inputLine TextIO.stdIn) = "quit\n"
59                    then quit ()                    then quit ()
60                    else loop ()                    else loop ()
61            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