annotate 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
rev   line source
kkallio@8 1 class gui t = t -> xbody
kkallio@8 2
kkallio@8 3 fun toXml [t ::: Type] (xmlize : gui t) = xmlize
kkallio@8 4
kkallio@8 5 fun gui_xbody x = x
kkallio@8 6
kkallio@8 7 fun mkGui [t ::: Type] (toXml : t -> xbody) = toXml