Iona Software Demo/MacWin_IonaSoftware_DemoCD.iso/pc/main.dir/00039.ls

Text File | 1996-02-23 | 445 b | 20 lines

on exitFrame
  global lang
  if the mouseDown then
    put the clickOn
    if the clickOn > 2 then
      set map to the clickOn
      set key to the text of cast "country"
      repeat with p = 1 to the number of lines in key
        if word 1 of line p of key = map then
          set lang to word 2 of line p of key
          exit repeat
        end if
      end repeat
      go(the frame + 1)
    end if
  else
    go(the frame)
  end if
end