[Code] better inputbox() wrapper

[Dan Rathbun]

Here' is my nomination for the "better UI::inputbox() wrapper" contest:

  # This is a wrapper for UI;;inputbox. You call it exactly the same way.
  #   UI;;inputbox will raise an exception if it can't convert the string
  #   entered for one of the values, into the right type.
  #
  # This wrapper method will trap these "type" exceptions and display a
  #   messagebox with the error message.
  #   If the user clicks RETRY, the inputbox is redisplayed using defaults.
  #   If the user clicks CANCEL, another messagebox asks if they wish to
  #   use the defaults values (which are returned,) or cancel (which then
  #   causes false to be returned, as it would have been, had the user
  #   cancelled the inputbox.)
  #
  def inputbox(*args)
    #
    begin
      UI;;inputbox( *args )
    rescue
      retry if UI;;messagebox( $!.message, MB_RETRYCANCEL ) == IDRETRY
      UI;;messagebox( "Use default values ?", MB_OKCANCEL ) == IDOK ? args[1] ; false
    end
    #
  end