home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 54 / ClassicFond54.iso / games / stars.rar / ted.vol / pinblock.cs < prev    next >
Text File  |  1999-02-19  |  339b  |  10 lines
  1. confirmBox "Pin Block" "This will pin all blocks touched by the selection. Continue?"
  2. if test $dlgResult != [cancel]
  3.     edit2Box "Pin Block" "Fill in the values" "initial Detail level" "Deviation" Ted::iDetail Ted::deviation
  4.  
  5.     if test $dlgResult != [cancel]
  6.        Ted::pinBlock $Ted::iDetail $Ted::deviation
  7.     endif
  8. endif
  9.  
  10.