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/releases/release-110.78/contrib/test-trace-menu.sml
ViewVC logotype

View of /eXene/releases/release-110.78/contrib/test-trace-menu.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4013 - (download) (annotate)
Sat Dec 20 20:16:03 2014 UTC (4 years, 5 months ago) by jhr
File size: 465 byte(s)
Release 110.78
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