// for 8.x/9.x Revert Current Object Bug wrapper.
// info:: http://www.neko.ne.jp/~asagi/P2P/Knowledge931.html

@name "AS_RevertCurrentObject"
@version 2.6
@warnings
@script modeler

main
{
	curObj = Mesh(0);
	if(curObj.filename != nil){
		statMsg = string("Do you want to discard you changes to \"", curObj.name,"\"");
		reqbegin("Revert Current Object(Bug wrapper)");
			ctltext("", statMsg);
		return if !reqpost();
		cmdseq("DeSelectsAll");
		revert();
	}
}