Feature Request: Ability to Not Have an Action Button in Dialog Box

Question

As it stands, the dialog box requires you to have an "OK" button, and a "Cancel" button (names can be changed...) - both of which will dismiss the dialog box. More buttons than that and you have to define an accessory view or put buttons in the views - all of which is fine, except when a dialog box is used more like an application frame, in which case it would be preferrable if only one button dismissed the dialog box (e.g. 'Done').
Rob

Answer 1

Here's an undocumented way to create a dialog with just a single "Done" button.  Not sure you want to rely on this though :-;
local LrDialogs = import 'LrDialogs'
local LrFunctionContext = import 'LrFunctionContext'
local LrTasks = import 'LrTasks'
local LrView = import 'LrView'
local function findButton (x, label, visited)
    if visited == nil then visited = {} end
    if type (x) ~= "table" or visited [x] then return nil end
    visited [x] = true
    if x._WinClassName == "AgViewWinPushButton" and
       x.title == label then
        return x;
        end
    for k, v in pairs (x) do
        local result = findButton (v, label, visited)
        if result then return result end
        end
    return nil
    end
local f = LrView.osFactory()
local controls = f:column {
    f:static_text {title = "Look Ma! No OK or Cancel!"},
    f:edit_field {value = "fields"},
    f:push_button {title = "Do It"}}
LrTasks.startAsyncTask (function ()
    while true do
        local okButton = findButton (controls, "OK")
        if okButton then
            okButton.enabled = false
            okButton.visible = false
            return
            end
        LrTasks.sleep (0.1)
        end
    end)
LrDialogs.presentModalDialog {
    title = "Test", contents = controls, cancelVerb = "Done"}