Example slide

Here we used `Manipulate` directly as a part of presentation

Widget := Manipulate[Plot[1.0 + Sin[w] Sin[x + w],{x,0,5Pi}, Epilog->{
  Red, Point[{8.0, 1.0 + Sin[w] Sin[8.0 + w]}]
}], {w,0,Pi}, ContinuousAction->True, Appearance->None];

.slide
## Interactive content on a slide
Here it works fully offline

<Widget/>

Press f on a slide to go fullscreen