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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2098 - (download) (annotate)
Thu Nov 2 15:53:59 2006 UTC (12 years, 9 months ago) by blume
File size: 465 byte(s)
moved eXene to toplevel
local
  fun main dpy = let
	val root = Widget.mkRoot dpy
	val tm = CMLTraceMenu.mkTraceMenu root ["/"]
	val shell = Shell.mkShell (CMLTraceMenu.widgetOf tm, NONE, {
		win_name = SOME "TraceMenu", icon_name = SOME "TM"
	      })
	in
	  Shell.init shell;
	  CIO.input_line CIO.std_in;
	  Shell.destroy shell;
	  RunCML.shutdown()
	end
in
  fun doit' (flags, dpy) = RunCML.doit (
	fn () => (XDebug.init flags; main dpy),
	SOME 10)
  fun doit dpy = doit'([], dpy)
end;

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