title: Handling long menu in TCL
body: <p>I have an old TCL app that has a menu that isn't displaying all the entries.</p>
  
  <p>How can I create a multi-column menu or a scrolling menu so all menu entries can be seen?</p>
  
  <p>This is TCL v8.0</p>
  
  <p>This is for a gui.</p>
  
  <p>The code fragment I'm looking at is:</p>
  
  <pre><code>#
  # Setup the folder Menu
  #
  menubutton $w.folder -text Folder -menu $w.folder.menu
  menu $w.folder.menu -tearoff 0
  $w.folder.menu add command -label "New"      -command createNewFolder -state disabled
  $w.folder.menu add command -label "Open"     -command openFolder 
  $w.folder.menu add command -label "Delete"   -command deleteFolder -state disabled
  $w.folder.menu add command -label "Printer Setup" -command selectPrinter -state  disabled
  $w.folder.menu add command -label "Quit"     -command xqmQuit 
  $w.folder.menu add separator
  foreach queue $privateGlobals(folderList) {
     $w.folder.menu add command -label "$queue" -command [list openFolder "$queue"]
  }
  </code></pre>
  
  <p>What is happening is that in the foreach loop there are a lot of entries that get created but I can only see about 46 out of 60 or 80.</p>
  
  <p>I haven't done TCL in a long time but I didn't see any obvious options in the menu widget to do what I wanted.</p>