home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Examples / Remember Pos.as < prev    next >
Encoding:
Text File  |  1997-04-17  |  685 b   |  14 lines  |  [TEXT/ToyS]
  1. property theDialog : {bounds:dd calc dialog bounds [260, 95], contents:[¬
  2.     {class:push button, bounds:[190, 65, 250, 85], name:"OK", enabled:3}, ¬
  3.     {class:push button, bounds:[110, 65, 170, 85], name:"Cancel"}, ¬
  4.     {class:text field, bounds:[10, 36, 250, 36 + 16], name bounds:¬
  5.         [10, 10, 250, 26], name:"?", value:"?"}] ¬
  6.     , name:"?", style:movable modal}
  7.  
  8. repeat with i from 1 to 5
  9.     set name of theDialog to "Remember Window Position " & i
  10.     set name of item 3 of contents of theDialog to "Enter item " & i & " of 5:"
  11.     set dlog to dd auto dialog theDialog
  12.     set bounds of theDialog to last item of dlog
  13.     if item 2 of dlog then exit repeat -- If user clicked Cancel then stop
  14. end repeat