Function GetPresentationController
  GetPresentationController = ThisComponent.getPresentation().getController()
End Function


Sub GoToSlideByIndex(n As Long)
  GetPresentationController.gotoSlideIndex(n)
End Sub


Sub GoToNextSlide
  GetPresentationController.gotoNextSlide()
End Sub

Sub GoToLastSlideViewed

  mytools_SlideShowPageNumber_A = mytools_SlideShowPageNumber_B
  mytools_SlideShowPageNumber_B = mytools_SlideShowPageNumber_C
  mytools_SlideShowPageNumber_C = mytools_SlideShowPageNumber_D
  mytools_SlideShowPageNumber_D = mytools_SlideShowPageNumber_E

    Print " ABCDE= " & mytools_SlideShowPageNumber_A & " " & mytools_SlideShowPageNumber_B & " " & mytools_SlideShowPageNumber_C & " " & mytools_SlideShowPageNumber_D & " " & mytools_SlideShowPageNumber_E

  GoToSlideByIndex(mytools_SlideShowPageNumber_A)
End Sub


Function GetCurrentSlideIndex As Long
  GetCurrentSlideIndex = GetPresentationController.getCurrentSlideIndex()
End Function


Sub SlideShow_paused()
End Sub
Sub SlideShow_resumed()
End Sub
Sub SlideShow_slideTransitionStarted()
  n = GetCurrentSlideIndex()

  If n <> mytools_SlideShowPageNumber_A Then

      mytools_SlideShowPageNumber_E = mytools_SlideShowPageNumber_D
      mytools_SlideShowPageNumber_D = mytools_SlideShowPageNumber_C
      mytools_SlideShowPageNumber_C = mytools_SlideShowPageNumber_B
      mytools_SlideShowPageNumber_B = mytools_SlideShowPageNumber_A
      mytools_SlideShowPageNumber_A = n

      'Print "n = " & n & " ABCDE= " & mytools_SlideShowPageNumber_A & " " & mytools_SlideShowPageNumber_B & " " & mytools_SlideShowPageNumber_C & " " & mytools_SlideShowPageNumber_D & " " & mytools_SlideShowPageNumber_E

  End if


End Sub
Sub SlideShow_slideTransitionEnded()
End Sub
Sub SlideShow_slideAnimationsEnded()
End Sub
Sub SlideShow_slideEnded()
'  mytools_SlideShowPageNumber_A = 0
'  mytools_SlideShowPageNumber_B = 0
'  mytools_SlideShowPageNumber_C = 0
'  mytools_SlideShowPageNumber_D = 0
'  mytools_SlideShowPageNumber_E = 0
End Sub
Sub SlideShow_hyperLinkClicked(hyperLink)
End Sub
Sub SlideShow_beginEvent(node)
End Sub
Sub SlideShow_endEvent(node)
End Sub
Sub SlideShow_repeat(node, repeat)
End Sub
Sub SlideShow_disposing(ev)
End Sub