sig
  val create :
    parent:'a Widget.widget ->
    variable:Textvariable.textVariable ->
    ?name:string ->
    string list ->
    Widget.menubutton Widget.widget * Widget.menu Widget.widget
end