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:

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>