script weather bug in DX3
Friday, March 18, 2005 by laurentfr | Discussion: Stardock Support General
I've seen a bug appearing with many weather widgets/dx packs weather config since I'm on DX3.
example :
get sustenance weather dxpack. load it in DX.
try to change the location by pointing on the City name (same bug appear when trying to switch the F/C)
Objet requis: 'DesktopX.ScriptObject(...)'
Line: 13
Code:
(not available)
'Called when the script is executed
Sub Object_OnScriptEnter
End Sub
where the script is
'Called when the script is terminated
Sub Object_OnScriptExit
End Sub
Sub Object_OnStateChange(state)
If state = "Command executed" Then
z = InputBox("Please Enter a Zip Code: " &vbNewLine, "Select Zip Code...", DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipcode"))
If (z = "") Then
Script.MsgBox "No Zip Code Entered. Try Again."
DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipcode") = DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("default")
Else
DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipcode") = z
DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipchange") = True
DesktopX.ScriptObject("XMLweatherbg").LocationChangeEntry("Zip Changed")
End If
End If
End Sub
example :
get sustenance weather dxpack. load it in DX.
try to change the location by pointing on the City name (same bug appear when trying to switch the F/C)
Objet requis: 'DesktopX.ScriptObject(...)'
Line: 13
Code:
(not available)
'Called when the script is executed
Sub Object_OnScriptEnter
End Sub
where the script is
'Called when the script is terminated
Sub Object_OnScriptExit
End Sub
Sub Object_OnStateChange(state)
If state = "Command executed" Then
z = InputBox("Please Enter a Zip Code: " &vbNewLine, "Select Zip Code...", DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipcode"))
If (z = "") Then
Script.MsgBox "No Zip Code Entered. Try Again."
DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipcode") = DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("default")
Else
DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipcode") = z
DesktopX.ScriptObject("XMLweatherbg").Object.PersistStorage("zipchange") = True
DesktopX.ScriptObject("XMLweatherbg").LocationChangeEntry("Zip Changed")
End If
End If
End Sub
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!