MacShell/ImagesFromURL.r

#include "Types.r"
 
resource 'DLOG' (1006) {
    {40, 40, 140, 589},
    dBoxProc,
    visible,
    noGoAway,
    0x0,
    1006,
    "",
    alertPositionMainScreen
};
 
resource 'DITL' (1006) {
    {   /* array DITLarray: 4 elements */
        /* [1] */
        {60, 470, 80, 528},
        Button {
            enabled,
            "OK"
        },
        /* [2] */
        {60, 390, 80, 448},
        Button {
            enabled,
            "Cancel"
        },
        /* [3] */
        {20, 110, 36, 525},
        EditText {
            disabled,
            "http://www.apple.com/quicktime/developers/icefloe/images/writinguin.gif"
        },
        /* [4] */
        {20, 20, 36, 101},
        StaticText {
            disabled,
            "Enter a URL:"
        }
    }
};