MacWorld 1999 April/Macworld (1999-04).dmg/Cool Specials/Al Morale Demo/Al's Stuff/D200.DCR/00010_Enter Name special.ls

Text File | 1999-02-16 | 509 b | 21 lines

on enterFrame
  if the keyPressed = RETURN then
    set NameCheck to the text of member "UserName"
    if NameCheck = "Type your name here" then
      alert("Please personalize your copy of Al Morale by entering your name.")
      go(the frame)
    else
      if length(field "UserName") = 0 then
        alert("Please personalize your copy of Al Morale by entering your name.")
        go(the frame)
      else
        go(the frame + 1)
      end if
    end if
  end if
end

on exitFrame
  go(the frame)
end