home *** CD-ROM | disk | FTP | other *** search
/ Freelog 117 / FreelogNo117-OctobreNovembre2013.iso / Theme / 8GadgetPack / 8GadgetPackSetup.msi / Gadgets.7z / Gadgets / MyWeather.gadget / js / alert.vbs next >
Text File  |  2011-07-30  |  203b  |  9 lines
  1. function confirm(prompt)
  2.       dim res
  3.       res = MsgBox (prompt, 48, "Wetter Gadget")
  4.       if res=1 then
  5.           confirm = true
  6.       else
  7.           confirm = false
  8.       end if
  9. end function