WindowTitle {Run...}
WindowSize  512 64


Widget 1
Property
 Title {}
 Size 496 24
 Position 8 4
 Flags NoReliefString
 Type TextField
 Value 1
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 2
Property
 Size 70 18
 Position 410 35
 Flags NoReliefString
 Type PushButton
 Title {Execute...}
Main
 Case message of
  SingleClic :
  Begin
    Do {Exec exec sh -c '} (GetTitle 1) {' &}
    Quit
  End
End