wireframeOnShaded MEL script

wireframeOnShaded.mel

string $currPanel = `getPanel -withFocus`; // gets current panel with focus
string $panelType = `getPanel -to $currPanel`; // gets the panel type

// this is only applicable to the viewport (modelPanel in MEL's terminology)
if ($panelType == "modelPanel") 
{
    int $wireOn = `modelEditor -q -wireframeOnShaded $currPanel`; // queries wireframeonShaded state
    $wireOn = !$wireOn; // toggles the mode
    modelEditor -e -wireframeOnShaded $wireOn $currPanel; // finally sets the new mode  
} else {
    error "The panel in focus is not a viewport.";
}