Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /eXene/trunk/contrib/test-trace-menu.sml
ViewVC logotype

Annotation of /eXene/trunk/contrib/test-trace-menu.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download)
Original Path: sml/trunk/src/eXene/contrib/test-trace-menu.sml

1 : monnier 2 local
2 :     fun main dpy = let
3 :     val root = Widget.mkRoot dpy
4 :     val tm = CMLTraceMenu.mkTraceMenu root ["/"]
5 :     val shell = Shell.mkShell (CMLTraceMenu.widgetOf tm, NONE, {
6 :     win_name = SOME "TraceMenu", icon_name = SOME "TM"
7 :     })
8 :     in
9 :     Shell.init shell;
10 :     CIO.input_line CIO.std_in;
11 :     Shell.destroy shell;
12 :     RunCML.shutdown()
13 :     end
14 :     in
15 :     fun doit' (flags, dpy) = RunCML.doit (
16 :     fn () => (XDebug.init flags; main dpy),
17 :     SOME 10)
18 :     fun doit dpy = doit'([], dpy)
19 :     end;

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