home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / scrnxtra / scrnxtra.dir / 00036_ScreenToMemberButton.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  886 b   |  29 lines
  1. on mouseUp
  2.   set left to the value of field "left"
  3.   set top to the value of field "top"
  4.   set right to the value of field "right"
  5.   set bottom to the value of field "bottom"
  6.   if length(field "membernorn") = 0 then
  7.     ShowRetVals(EMPTY, "You must specify a member number or name")
  8.     return 
  9.   else
  10.     if voidp(value(field "membernorn")) then
  11.       set membernorn to field "membernorn"
  12.     else
  13.       set membernorn to value(field "membernorn")
  14.     end if
  15.   end if
  16.   if length(field "castnorn") = 0 then
  17.     set retVal to ScreenToMember(left, top, right, bottom, membernorn)
  18.   else
  19.     if voidp(value(field "castnorn")) then
  20.       set castnorn to field "castnorn"
  21.     else
  22.       set castnorn to value(field "castnorn")
  23.     end if
  24.     set retVal to ScreenToMember(left, top, right, bottom, membernorn, castnorn)
  25.   end if
  26.   ShowRetVals(retVal, GetMessage(retVal))
  27.   updateStage()
  28. end
  29.