diff gui.ur @ 8:90be8b8917d5

Add a widget that opens and closes a panel.
author Karn Kallio <kkallio@eka>
date Fri, 17 Jun 2011 10:12:05 -0430
parents
children 16447dc6a68c
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gui.ur	Fri Jun 17 10:12:05 2011 -0430
@@ -0,0 +1,7 @@
+class gui t = t -> xbody
+
+fun toXml [t ::: Type] (xmlize : gui t) = xmlize
+
+fun gui_xbody x = x
+
+fun mkGui [t ::: Type] (toXml : t -> xbody) = toXml