diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2005-09-23 14:33:27 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2005-09-23 14:33:27 +0000 |
| commit | 37b27b5f5d8f3ae6865e3437da5ea58cdb83d1e2 (patch) | |
| tree | 67af78b31e5c00e2c290c8b72667ce9fb2403cb6 /wizards/source/tutorials | |
| parent | 7ba37873f16dc010ea24521e6f5ff7da16ae8714 (diff) | |
INTEGRATION: CWS qwizardsbf6 (1.2.138); FILE MERGED
2005/08/17 09:28:41 tv 1.2.138.1: fixed event bindings, crash when ending tutorial and focus problems
Issue number:
Submitted by:
Reviewed by:
Diffstat (limited to 'wizards/source/tutorials')
| -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 |