figure {
    string "Screen shot resolution"
    margin 20
    inherit margin
    hgroup {
        innermargin 5
        halign center
        text { string "Dots per inch" }
        edit { string "" teststring "00000000" tag dpi halign fill }
    }
    hgroup {
        equalwidths yes
        okbutton { halign fill teststring "000000000000 " minsize "100 10" }
        cancelbutton { halign fill teststring "000000000000" minsize "100 10" }
    }
}
