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

Diff of /sml/trunk/src/eXene/examples/widgets/label-slider.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 29  Line 29 
29            val slider = Sl.slider (root,view,sArgs)            val slider = Sl.slider (root,view,sArgs)
30            fun set l = Label.setLabel label (Label.Text l)            fun set l = Label.setLabel label (Label.Text l)
31            val evt = Sl.evtOf slider            val evt = Sl.evtOf slider
32            fun loop () = loop (set (makestring (CML.sync evt)))            fun loop () = loop (set (Int.toString (CML.sync evt)))
33            in            in
34              CML.spawn loop;              CML.spawn loop;
35              Box.widgetOf(Box.layout (root,view,[]) (Box.HzCenter [              Box.widgetOf(Box.layout (root,view,[]) (Box.HzCenter [
# Line 41  Line 41 
41            end            end
42    
43      fun tester root = let      fun tester root = let
44            fun quit () = (W.delRoot root; RunCML.shutdown())            fun quit () = (W.delRoot root; RunCML.shutdown OS.Process.success)
45            val style = W.styleFromStrings (root, resources)            val style = W.styleFromStrings (root, resources)
46            val name = Styles.mkView {name = Styles.styleName [],            val name = Styles.mkView {name = Styles.styleName [],
47                                      aliases = [Styles.styleName []]}                                      aliases = [Styles.styleName []]}
# Line 53  Line 53 
53                ])                ])
54            val shell = Shell.shell (root,view,[]) (Box.widgetOf layout)            val shell = Shell.shell (root,view,[]) (Box.widgetOf layout)
55            fun loop () =            fun loop () =
56                  if (CIO.input_line CIO.std_in) = "quit\n"                  if (TextIO.inputLine TextIO.stdIn) = "quit\n"
57                    then quit ()                    then quit ()
58                    else loop ()                    else loop ()
59            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