Recipe: dialog_resize

created by LociOiling

Profile

• Name: dialog_resize
• ID: 109111
• Shared with: Public
• Parent: None
• Children: None
• Created on: July 23, 2025 at 21:27 PM UTC
• Updated on: July 24, 2025 at 17:29 PM UTC
• Description:

  A quick two-dialog recipe to demonstrate the dialog resize features found in devprev release V48-20250712-f5dce7e391-win_x64-devprev.

Code

crit = {
    "rabbit", 
    "duck", 
    "pig",
    "canary", 
    "cat",
    "skunk",
    "tasmanian devil", 
    "rooster",
    "mouse",
    "coyote",
    "road runner",
    "bear",
    "moose",
    "squirrel",
    "gorilla",
    "barracuda",
    "trigger fish",
    "kangaroo",
    "tiger",
    "monkey",
    "weasel",
    "cheetah",
--    "chimp",
--    "orca",
}
obs = { 
    "penny", 
    "nickel", 
    "dime", 
    "quarter",
    "paper money",
    "rotary phone",
    "touchtone phone", 
    "analog clock",
    "analog TV",
    "newspaper",
    "Time",
    "Life",
    "Newsweek",
    "dial-up modem",
    "VGA",
    "glass TTY",
    "serial port",
    "parallel port",
    "punch cards",
    "paper tape",
    "slide rule",
    "pocket calculator",
    "8-track tape",
    "casette tape",
    "digital audio tape",
    "Scotch tape",
    "fountain pen",
    "floppy disk",
    "zip drive",
    "maps",
    "phonebooks",
    "Betamax",
    "VHS",
    "DVD",
    "Blu-ray",
    "laser disc",
    "fax machines",
    "pay phones",
    "pagers",
    "typewriters",
    "mimeograph",
    "flash bulbs",
    "photo film",
    "Kodachrome",
}
function Obsolete ()

    local dlog = dialog.CreateDialog ( "Obsolete" )
    for ii = 1, #obs do
        dlog [ "obs" .. ii ] = dialog.AddTextbox ( "Obsolete " .. ii, obs [ ii ] )
    end
    dlog.OK = dialog.AddButton ( "OK", 1 )
    local dres = dialog.Show ( dlog ) 
end


    local dlog = dialog.CreateDialog ( "Resize" )
    for ii = 1, #crit do
        dlog [ "crit" .. ii ] = dialog.AddTextbox ( "Critter " .. ii, crit [ ii ] )
    end
    dlog.OK = dialog.AddButton ( "OK", 1 )
    dlog.obs = dialog.AddButton ( "Obsolete", 2 )
    local dres = 0
    repeat
        dres = dialog.Show ( dlog ) 
        if dres == 2 then
            Obsolete ()
        end
    until dres == 1