Cocktail Hour/image.iso/COCKTAIL.DIR/Internal_46.ls

Text File | 1997-03-05 | 904 b | 29 lines

on outOfObjects
  global LastMarker, Choice, RecipeNum, forClear
  set forClear to 0
  set x to the number of lines in 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" to line 1 to x of field "backField"
  end if
  clearPuppets()
  set forClear to 1
end

on abcSort
  global current
  set sorted to [:]
  repeat with i = 1 to count(current)
    set x to line getAt(current, i) of field "names"
    setaProp(sorted, x, getAt(current, i))
  end repeat
  sort(sorted)
  repeat with i = 1 to count(current)
    set x to getAt(sorted, i)
    setAt(current, i, x)
  end repeat
end