The Dynamic Human Version 2.0/DH2_CD2.ISO/pc/files/internet.dxr/Internal_8.ls

Text File | 1997-11-12 | 815 b | 35 lines

on netSetupObject
  global netObject
  set netRegionList to []
  append(netRegionList, getButtonData("chooseDn", "chooseAction"))
  append(netRegionList, getButtonData("goDn", "internetAction"))
  append(netRegionList, getButtonData("returnDn", "returnAction"))
  set netObject to new(script "buttonObject", 5, netRegionList)
end

on chooseAction
  global netProgramName, netInfoFile
  set tempName to netLocateAction(1)
  if tempName = EMPTY then
    return
  end if
  set netProgramName to tempName
  put trimMovieName(netProgramName) into field "browser"
  netSaveInfo(netInfoFile, netProgramName)
end

on updateNetButtons
  global netObject
  updateButton(netObject)
end

on netButtonsMouseUp
  global netObject
  buttonMouseUp(netObject)
end

on returnAction
  global gReturnMovie
  gomovie(gReturnMovie)
end