dialog russel {
title "New Project"
size -1 -1 110 51
option dbu
text "Input:", 1, 5 16 25 8
edit "", 2, 31 15 73 10
box "Russel's Digital Input Only Dialog Thingy!", 3, 1 1 108 32
button "OK!", 4, 72 36 37 12, ok
button "Cancel", 5, 34 36 37 12
}
alias russel dialog -m russel russel
on *:dialog:russel:edit:2: did -ra russel 2 $regsubex($did(russel,2),/^(\d)?.*$/g,\t)
