diff options
| -rw-r--r-- | wizards/source/tutorials/Functions.xba | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/tutorials/Functions.xba b/wizards/source/tutorials/Functions.xba index 652663124fcc..55420d860a5b 100644 --- a/wizards/source/tutorials/Functions.xba +++ b/wizards/source/tutorials/Functions.xba @@ -127,12 +127,12 @@ Sub InitRoadMap() End Sub Sub Destroy() - myDialog.dispose + 'myDialog.dispose wait 1000 ShowInfoDialog.DisposeIDialog() ' HIER WIRD DAS DOCUMENT GESCHLOSSEN!!!!!!!! GPF - 'thisComponent.CurrentController.Frame.close(True) + thisComponent.CurrentController.Frame.close(True) End Sub @@ -285,7 +285,7 @@ Sub CheckForStepNextButtonStatus() End Sub Sub Show(aEvent) - ShowInfoMain() + 'ShowInfoMain() If( myDialog.model.show.Label = "Tutorials") Then oOpenDialogFlag = True DialogVisible = False @@ -313,8 +313,8 @@ End Sub Function MousePoints(aEvent) Dim position(1) As Integer - position(0) = myDialog.getControl("show").AccessibleContext.LocationOnScreen.X + aEvent.X - position(1) = myDialog.getControl("show").AccessibleContext.LocationOnScreen.Y + aEvent.Y + position(0) = myDialog.getControl("show").AccessibleContext.LocationOnScreen.X + aEvent.Source.Model.PositionX + position(1) = myDialog.getControl("show").AccessibleContext.LocationOnScreen.Y + aEvent.Source.Model.PositionY MousePoints = position() End Function @@ -367,4 +367,4 @@ Sub ExitTutorial() msgBox "Error! Cannot close document." End If End Sub -</script:module> +</script:module>
\ No newline at end of file |