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/smlnj-lib/Controls/control-reps.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Controls/control-reps.sml

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

revision 1632, Mon Sep 27 22:18:07 2004 UTC revision 1633, Tue Sep 28 03:08:33 2004 UTC
# Line 12  Line 12 
12      datatype 'a control = Ctl of {      datatype 'a control = Ctl of {
13          name : Atom.atom,               (* name of the control *)          name : Atom.atom,               (* name of the control *)
14          set : 'a -> unit,               (* function to set the control's value *)          set : 'a -> unit,               (* function to set the control's value *)
15            set' : 'a -> unit -> unit,      (* delayed set (error checking in 1st
16                                             * stage, actual assignment in 2nd) *)
17          get : unit -> 'a,               (* return the control's value *)          get : unit -> 'a,               (* return the control's value *)
18            save'restore: unit -> unit -> unit,
19          priority : priority,            (* control's priority *)          priority : priority,            (* control's priority *)
20          obscurity : int,                (* control's detail level; higher means *)          obscurity : int,                (* control's detail level; higher means *)
21                                          (* more obscure *)                                          (* more obscure *)

Legend:
Removed from v.1632  
changed lines
  Added in v.1633

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