on-choose-directory in name-message%

• (send a-name-message on-choose-directory dir) -> void
     dir : path

  Called when one of the popup menu items is chosen. The argument is a represents the selected directory.