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

Parent Directory | Revision Log

---

Revision 2 - (view) (download)

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