Listing 1.  Script for Information Screen (Page 2)


on PageOpen
begin

  ' Activate default Select button
  click on button id 36

end


on PageClose
begin
  global BrushDir, Day1ABr, Day2ABr, Day3ABr, Day4ABr, Day5ABr

  ' Put directory and filenames into global variables for use by page 1
  put strdir(object "Select an AnimBrush") into BrushDir
  put textfield "Day1AnimBrush" into Day1ABr
  put textfield "Day2AnimBrush" into Day2ABr
  put textfield "Day3AnimBrush" into Day3ABr
  put textfield "Day4AnimBrush" into Day4ABr
  put textfield "Day5AnimBrush" into Day5ABr

  'Create an array of day names
  put "SUN, MON, TUE, WED, THU, FRI, SAT" into NameOfDays

  'Initialize current day - add one because selector returns 0-6
  put (selector "The Five Days")+1 into CurDay

  'Loop 5 times, inserting day names, and high and low temps on page 1
  for i = 1 to 5 begin
    put "Day"&i&"High" into FirstName
    put "Day"&i&"Low" into SecondName
    put textfield FirstName into textfield FirstName of page 1
    put textfield SecondName into textfield SecondName of page 1
    put item CurDay of NameOfDays into textfield ("DayName"&i) of page 1
    put CurDay%7+1 into CurDay
  end

end