1162: Script.UnRegisterEvents SDB Not working

[MoDementia]

On one script it will eventually Unregister the events but I have to force it through the code multiple times before it does it.

The other script I cant force it through the same code so it never gets unregisterd.

Last time I know it was working was maybe 1155
[EDIT] Actually I'm not sure it has ever worked the way I have been using it (see code below)

[Teknojnky]

are you using object.onclickfunc ?

see

http://www.mediamonkey.com/forum/viewto ... sterevents

or perhaps ?

http://www.mediamonkey.com/forum/viewto ... sterevents

[MoDementia]

Code: Select all

Sub OnStartup

  Script.RegisterEvent SDB, "OnTrackConverted", "OnConverted"
  If ini.BoolValue("SyncTheSync","WriteTags") = True Then
    Script.RegisterEvent SDB, "OnTrackProperties", "OnProperties"
  End If

End Sub

Sub SaveSyncTheSyncSheet(Sheet1)

  Script.UnRegisterEvents SDB
  Script.RegisterEvent SDB, "OnTrackConverted", "OnConverted"
  If ini.BoolValue("SyncTheSync","ActivateSyncTheSync") = True Then
    If ini.BoolValue("SyncTheSync","WriteTags") = True Then
      Script.RegisterEvent SDB, "OnTrackProperties", "OnProperties"
    End If
  End If

End Sub

[MoDementia]

So always use the new event mechanism where you can. Only for option panels (sheets) this is not yet possible. There you'll need to store values between the main program and the event handlers in SDB.Objects, in the INI or in the Registry.

Will sheets be fixed in a version sometime soon ?

[MoDementia]

If I call a subroutine from within the save sheet to set the events will it work?

Code: Select all

Sub OnStartup

  Script.RegisterEvent SDB, "OnTrackConverted", "OnConverted"
  If ini.BoolValue("SyncTheSync","WriteTags") = True Then
    Script.RegisterEvent SDB, "OnTrackProperties", "OnProperties"
  End If

End Sub

Sub SaveSyncTheSyncSheet(Sheet1)

Call  SetEvents(ini.BoolValue("SyncTheSync","ActivateSyncTheSync"),ini.BoolValue("SyncTheSync","WriteTags"))

End Sub

Sub SetEvents(Activate,WriteTags)

  Script.UnRegisterEvents SDB
  Script.RegisterEvent SDB, "OnTrackConverted", "OnConverted"
  If Activate = True Then
    If WriteTags = True Then
      Script.RegisterEvent SDB, "OnTrackProperties", "OnProperties"
    End If
  End If

End Sub

[MoDementia]

Will sheets be fixed in a version sometime soon ?

[jiri]

Yes, I see the problem with this old way of event handling. We will look into it and will try to fix it for the next version (i.e. 3.1).

Jiri

[MoDementia]

Thanks