Possible change of script of button 2 which probably will be faster (didn't test it yet)

button 2:

on mouseUp
  if field "Test Results" is "" then
    answer "Use button 1 first please :^)"
    exit to top
  end if
  put line 1 of field "Test Results" into x
  put "" into tList
  put the cardids of stack x into a
  repeat for each line i in a
    if the mark of card id i of stack x then
      put "card id" && i & cr after tList
      unmark card id i of stack x
    end if
  end repeat
  if tList = "" then put "no marked cards" into tList
  put  cr & tList  after  field "Test Results"
end mouseUp


on mouseUp
  if field "Test Results" is "" then
    answer "Use button 1 first please :^)"
    exit to top
  end if
  put line 1 of field "Test Results" into x
  repeat with i = 1 to the number of marked cards in stack x
    put the id of marked card i of stack x & cr after tList
  end repeat
  repeat for each line i in tList
    unmark card id i of stack x
  end repeat
  if tList = "" then put "no marked cards" into tList
  put  cr & tList  after fld 1
end mouseUp

Greetings,
WA

_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to