sig
val
run :
Widget
.widget
->
unit
end