Cocktail Hour/image.iso/COCKTAIL.DIR/00046_Script_46

Text File | 1997-03-05 | 987b | 32 lines

on outOfObjects
  global LastMarker,Choice,RecipeNum,forClear
  put FALSE into forClear
  set x=the number of lines of field "backField"
  put lastMarker into item 1 of  line x+1 of field "backField"
  put "objects" into item 2 of line x+1 of field "backField"
  put choice into item 3 of line x+1 of field "backField"
  put recipeNum into item 4 of  line x+1 of field "backField"
  if line x+1 of field "backField"=line x of field "backField" then
    set the text of field "backField"=line 1 to x of field "backField"
  end if
  clearPuppets
  put TRUE into forClear
end

on ABCSort
  global Current

  set sorted=[:]
  repeat with i=1 to count(current)
    set x=line (getat(current,i)) of field "names"
    --setaProp sorted, getat(current,i), x
    setaProp sorted, x , getat(current,i)
  end repeat
  sort sorted
  repeat with i=1 to count(current)
    set x=getat(sorted, i)
    --set x=getPos(sorted, i)
    setAt current, i, x
  end repeat
end