Freezing Non Current Layers

This script is just a little help to my friend Harold Rinck (Titane from ScriptSpot), who want to keep unfreezed the current layer only while freeze the rest. Get Version 0.1 (MS) or Version 0.2 (MCR). Second version allow switching on/off the function callback.