1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?> 2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XWindow" script:language="StarBasic"> 4cdf0e10cSrcweir 5cdf0e10cSrcweir 6cdf0e10cSrcweir'************************************************************************* 7cdf0e10cSrcweir' 8*3e6afcd2SAndrew Rist' Licensed to the Apache Software Foundation (ASF) under one 9*3e6afcd2SAndrew Rist' or more contributor license agreements. See the NOTICE file 10*3e6afcd2SAndrew Rist' distributed with this work for additional information 11*3e6afcd2SAndrew Rist' regarding copyright ownership. The ASF licenses this file 12*3e6afcd2SAndrew Rist' to you under the Apache License, Version 2.0 (the 13*3e6afcd2SAndrew Rist' "License"); you may not use this file except in compliance 14*3e6afcd2SAndrew Rist' with the License. You may obtain a copy of the License at 15*3e6afcd2SAndrew Rist' 16*3e6afcd2SAndrew Rist' http://www.apache.org/licenses/LICENSE-2.0 17*3e6afcd2SAndrew Rist' 18*3e6afcd2SAndrew Rist' Unless required by applicable law or agreed to in writing, 19*3e6afcd2SAndrew Rist' software distributed under the License is distributed on an 20*3e6afcd2SAndrew Rist' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21*3e6afcd2SAndrew Rist' KIND, either express or implied. See the License for the 22*3e6afcd2SAndrew Rist' specific language governing permissions and limitations 23*3e6afcd2SAndrew Rist' under the License. 24cdf0e10cSrcweir' 25cdf0e10cSrcweir'************************************************************************* 26cdf0e10cSrcweir 27cdf0e10cSrcweir 28cdf0e10cSrcweir 29*3e6afcd2SAndrew Rist 30*3e6afcd2SAndrew Rist 31cdf0e10cSrcweir' Be sure that all variables are dimensioned: 32cdf0e10cSrcweiroption explicit 33cdf0e10cSrcweir 34cdf0e10cSrcweir'************************************************************************* 35cdf0e10cSrcweir' This Interface/Service test depends on the following GLOBAL variables, 36cdf0e10cSrcweir' which must be specified in the object creation: 37cdf0e10cSrcweir 38cdf0e10cSrcweir 39cdf0e10cSrcweir'************************************************************************* 40cdf0e10cSrcweir' Global oXWindow as Object 41cdf0e10cSrcweir' Global oCtrlShape as Variant (could be NULL) 42cdf0e10cSrcweir 43cdf0e10cSrcweir 44cdf0e10cSrcweirDim bCB1_windowResized As Boolean 45cdf0e10cSrcweirDim bCB2_windowResized As Boolean 46cdf0e10cSrcweirDim bCB1_windowMoved As Boolean 47cdf0e10cSrcweirDim bCB2_windowMoved As Boolean 48cdf0e10cSrcweirDim bCB1_windowHidden As Boolean 49cdf0e10cSrcweirDim bCB2_windowHidden As Boolean 50cdf0e10cSrcweirDim bCB1_windowShown As Boolean 51cdf0e10cSrcweirDim bCB2_windowShown As Boolean 52cdf0e10cSrcweirDim bCB1_disposing As Boolean 53cdf0e10cSrcweirDim bCB2_disposing As Boolean 54cdf0e10cSrcweirDim bCB3_focusGained As Boolean 55cdf0e10cSrcweirDim bCB4_focusGained As Boolean 56cdf0e10cSrcweirDim bCB3_focusLost As Boolean 57cdf0e10cSrcweirDim bCB4_focusLost As Boolean 58cdf0e10cSrcweir 59cdf0e10cSrcweir 60cdf0e10cSrcweirSub RunTest() 61cdf0e10cSrcweir 62cdf0e10cSrcweir'************************************************************************* 63cdf0e10cSrcweir' INTERFACE: 64cdf0e10cSrcweir' com.sun.star.awt.XWindow 65cdf0e10cSrcweir'************************************************************************* 66cdf0e10cSrcweirOn Error Goto ErrHndl 67cdf0e10cSrcweir Dim bOK As Boolean 68cdf0e10cSrcweir 69cdf0e10cSrcweir If isNull(oXWindow) Then 70cdf0e10cSrcweir Out.Log("Could not get relation 'oXWindow' !") 71cdf0e10cSrcweir End If 72cdf0e10cSrcweir Dim oListener1 As Object, oListener2 As Object 73cdf0e10cSrcweir Dim oListener3 As Object, oListener4 As Object 74cdf0e10cSrcweir Dim oListener5 As Object, oListener6 As Object 75cdf0e10cSrcweir Dim oListener7 As Object, oListener8 As Object 76cdf0e10cSrcweir Dim oListener9 As Object, oListener10 As Object 77cdf0e10cSrcweir Dim oListener11 As Object, oListener12 As Object 78cdf0e10cSrcweir Dim size As Variant, pos As Variant 79cdf0e10cSrcweir 80cdf0e10cSrcweir bCB1_windowResized = false 81cdf0e10cSrcweir bCB2_windowResized = false 82cdf0e10cSrcweir bCB1_windowMoved = false 83cdf0e10cSrcweir bCB2_windowMoved = false 84cdf0e10cSrcweir bCB1_windowHidden = false 85cdf0e10cSrcweir bCB2_windowHidden = false 86cdf0e10cSrcweir bCB1_windowShown = false 87cdf0e10cSrcweir bCB2_windowShown = false 88cdf0e10cSrcweir bCB1_disposing = false 89cdf0e10cSrcweir bCB2_disposing = false 90cdf0e10cSrcweir bCB3_focusGained = false 91cdf0e10cSrcweir bCB4_focusLost = false 92cdf0e10cSrcweir bCB3_focusGained = false 93cdf0e10cSrcweir bCB4_focusLost = false 94cdf0e10cSrcweir 95cdf0e10cSrcweir Out.Log("create two com.sun.star.awt.XWindowListener") 96cdf0e10cSrcweir oListener1 = createUNOListener("CB1_", "com.sun.star.awt.XWindowListener") 97cdf0e10cSrcweir oListener2 = createUNOListener("CB2_", "com.sun.star.awt.XWindowListener") 98cdf0e10cSrcweir Out.Log("create two com.sun.star.awt.XFocusListener") 99cdf0e10cSrcweir oListener3 = createUNOListener("CB3_", "com.sun.star.awt.XFocusListener") 100cdf0e10cSrcweir oListener4 = createUNOListener("CB4_", "com.sun.star.awt.XFocusListener") 101cdf0e10cSrcweir Out.Log("create two com.sun.star.awt.XKeyListener") 102cdf0e10cSrcweir oListener5 = createUNOListener("CB5_", "com.sun.star.awt.XKeyListener") 103cdf0e10cSrcweir oListener6 = createUNOListener("CB6_", "com.sun.star.awt.XKeyListener") 104cdf0e10cSrcweir Out.Log("create two com.sun.star.awt.XMouseListener") 105cdf0e10cSrcweir oListener7 = createUNOListener("CB7_", "com.sun.star.awt.XMouseListener") 106cdf0e10cSrcweir oListener8 = createUNOListener("CB8_", "com.sun.star.awt.XMouseListener") 107cdf0e10cSrcweir Out.Log("create two com.sun.star.awt.XMouseMotionListener") 108cdf0e10cSrcweir oListener9 = createUNOListener("CB9_", "com.sun.star.awt.XMouseMotinListener") 109cdf0e10cSrcweir oListener10 = createUNOListener("CB10_", "com.sun.star.awt.XMouseMotinListener") 110cdf0e10cSrcweir Out.Log("create two com.sun.star.awt.XPaintListener") 111cdf0e10cSrcweir oListener11 = createUNOListener("CB11_", "com.sun.star.awt.XPaintListener") 112cdf0e10cSrcweir oListener12 = createUNOListener("CB12_", "com.sun.star.awt.XPaintListener") 113cdf0e10cSrcweir 114cdf0e10cSrcweir Test.StartMethod("setPosSize()") 115cdf0e10cSrcweir bOK = true 116cdf0e10cSrcweir oObj.setPosSize(250,250,250,250,com.sun.star.awt.PosSize.POSSIZE) 117cdf0e10cSrcweir Out.Log("oObj.setPosSize(250,250,250,250,com.sun.star.awt.PosSize.POSSIZE") 118cdf0e10cSrcweir Test.StartMethod("getPosSize()") 119cdf0e10cSrcweir Dim vRectangle As Variant 120cdf0e10cSrcweir vRectangle = oObj.getPosSize() 121cdf0e10cSrcweir Out.Log("Returned Values: X=" + vRectangle.X + " Y=" + vRectangle.Y _ 122cdf0e10cSrcweir + " WIDTH=" + vRectangle.WIDTH + " HEIGTH=" + vRectangle.HEIGHT 123cdf0e10cSrcweir bOK = bOK AND vRectangle.X = 250 124cdf0e10cSrcweir bOK = bOK AND vRectangle.Y = 250 125cdf0e10cSrcweir bOK = bOK AND vRectangle.Width = 250 126cdf0e10cSrcweir bOK = bOK AND vRectangle.Height = 250 127cdf0e10cSrcweir Test.MethodTested("setPosSize()", bOK) 128cdf0e10cSrcweir Test.MethodTested("getPosSize()", bOK) 129cdf0e10cSrcweir 130cdf0e10cSrcweir Test.StartMethod("setVisible()") 131cdf0e10cSrcweir bOK = true 132cdf0e10cSrcweir oObj.setVisible(false) 133cdf0e10cSrcweir oObj.setVisible(true) 134cdf0e10cSrcweir Test.MethodTested("setVisible()", bOK) 135cdf0e10cSrcweir 136cdf0e10cSrcweir Test.StartMethod("setEnable()") 137cdf0e10cSrcweir bOK = true 138cdf0e10cSrcweir oObj.setEnable(false) 139cdf0e10cSrcweir oObj.setEnable(true) 140cdf0e10cSrcweir Test.MethodTested("setEnable()", bOK) 141cdf0e10cSrcweir 142cdf0e10cSrcweir Test.StartMethod("setFocus()") 143cdf0e10cSrcweir bOK = true 144cdf0e10cSrcweir oObj.setFocus() 145cdf0e10cSrcweir oXWindow.setFocus() 146cdf0e10cSrcweir oObj.setFocus() 147cdf0e10cSrcweir Test.MethodTested("setFocus()", bOK) 148cdf0e10cSrcweir 149cdf0e10cSrcweir Test.StartMethod("addWindowListener()") 150cdf0e10cSrcweir bOK = true 151cdf0e10cSrcweir oObj.addWindowListener(oListener1) 152cdf0e10cSrcweir oObj.addWindowListener(oListener2) 153cdf0e10cSrcweir oObj.setVisible(false) 154cdf0e10cSrcweir oObj.setVisible(true) 155cdf0e10cSrcweir if NOT isNull(oCtrlShape) then 156cdf0e10cSrcweir size = oCtrlShape.Size 157cdf0e10cSrcweir size.Width = size.Width + 100 158cdf0e10cSrcweir size.Height = size.Height + 100 159cdf0e10cSrcweir oCtrlShape.Size = size 160cdf0e10cSrcweir 161cdf0e10cSrcweir pos = oCtrlShape.Position 162cdf0e10cSrcweir pos.X = pos.X + 100 163cdf0e10cSrcweir pos.Y = pos.Y + 100 164cdf0e10cSrcweir oCtrlShape.Position = pos 165cdf0e10cSrcweir else 166cdf0e10cSrcweir Out.Log("oObj.setPosSize(300,300,300,300,com.sun.star.awt.PosSize.POSSIZE)") 167cdf0e10cSrcweir oObj.setPosSize(300,300,300,300,com.sun.star.awt.PosSize.POSSIZE) 168cdf0e10cSrcweir end if 169cdf0e10cSrcweir wait(1000) 170cdf0e10cSrcweir bOK = bOK AND bCB1_windowResized AND bCB2_windowResized AND bCB1_windowMoved AND _ 171cdf0e10cSrcweir bCB2_windowMoved AND bCB1_windowHidden AND bCB2_windowHidden AND _ 172cdf0e10cSrcweir bCB1_windowShown AND bCB2_windowShown AND NOT bCB1_disposing AND NOT _ 173cdf0e10cSrcweir bCB2_disposing 174cdf0e10cSrcweir Test.MethodTested("addWindowListener()", bOK) 175cdf0e10cSrcweir 176cdf0e10cSrcweir Test.StartMethod("removeWindowListener()") 177cdf0e10cSrcweir bOK = true 178cdf0e10cSrcweir bCB1_windowResized = false 179cdf0e10cSrcweir bCB2_windowResized = false 180cdf0e10cSrcweir bCB1_windowMoved = false 181cdf0e10cSrcweir bCB2_windowMoved = false 182cdf0e10cSrcweir bCB1_windowHidden = false 183cdf0e10cSrcweir bCB2_windowHidden = false 184cdf0e10cSrcweir bCB1_windowShown = false 185cdf0e10cSrcweir bCB2_windowShown = false 186cdf0e10cSrcweir bCB1_disposing = false 187cdf0e10cSrcweir bCB2_disposing = false 188cdf0e10cSrcweir oObj.removeWindowListener(oListener2) 189cdf0e10cSrcweir oObj.setVisible(false) 190cdf0e10cSrcweir oObj.setVisible(true) 191cdf0e10cSrcweir oObj.setVisible(false) 192cdf0e10cSrcweir oObj.setVisible(true) 193cdf0e10cSrcweir if NOT isNull(oCtrlShape) then 194cdf0e10cSrcweir size = oCtrlShape.Size 195cdf0e10cSrcweir size.Width = size.Width + 100 196cdf0e10cSrcweir size.Height = size.Height + 100 197cdf0e10cSrcweir oCtrlShape.Size = size 198cdf0e10cSrcweir 199cdf0e10cSrcweir pos = oCtrlShape.Position 200cdf0e10cSrcweir pos.X = pos.X + 100 201cdf0e10cSrcweir pos.Y = pos.Y + 100 202cdf0e10cSrcweir oCtrlShape.Position = pos 203cdf0e10cSrcweir else 204cdf0e10cSrcweir Out.Log("oObj.setPosSize(300,300,300,300,com.sun.star.awt.PosSize.POSSIZE)") 205cdf0e10cSrcweir oObj.setPosSize(301,301,301,301,com.sun.star.awt.PosSize.POSSIZE) 206cdf0e10cSrcweir end if 207cdf0e10cSrcweir wait(200) 208cdf0e10cSrcweir bOK = bOK AND bCB1_windowResized AND NOT bCB2_windowResized AND bCB1_windowMoved AND NOT _ 209cdf0e10cSrcweir bCB2_windowMoved AND bCB1_windowHidden AND NOT bCB2_windowHidden AND _ 210cdf0e10cSrcweir bCB1_windowShown AND NOT bCB2_windowShown AND NOT bCB1_disposing AND NOT _ 211cdf0e10cSrcweir bCB2_disposing 212cdf0e10cSrcweir oObj.removeWindowListener(oListener1) 213cdf0e10cSrcweir Test.MethodTested("removeWindowListener()", bOK) 214cdf0e10cSrcweir 215cdf0e10cSrcweir Test.StartMethod("addFocusListener()") 216cdf0e10cSrcweir bOK = true 217cdf0e10cSrcweir oObj.addFocusListener(oListener3) 218cdf0e10cSrcweir oObj.addFocusListener(oListener4) 219cdf0e10cSrcweir oObj.setFocus() 220cdf0e10cSrcweir wait(200) 221cdf0e10cSrcweir oXWindow.setFocus() 222cdf0e10cSrcweir wait(200) 223cdf0e10cSrcweir oObj.setFocus() 224cdf0e10cSrcweir wait(200) 225cdf0e10cSrcweir bOK = bOK AND bCB3_focusGained AND bCB4_focusLost AND bCB3_focusGained AND bCB4_focusLost 226cdf0e10cSrcweir Test.MethodTested("addFocusListener()", bOK) 227cdf0e10cSrcweir 228cdf0e10cSrcweir Test.StartMethod("removeFocusListener()") 229cdf0e10cSrcweir bOK = true 230cdf0e10cSrcweir bCB3_focusGained = false 231cdf0e10cSrcweir bCB4_focusLost = false 232cdf0e10cSrcweir bCB3_focusGained = false 233cdf0e10cSrcweir bCB4_focusLost = false 234cdf0e10cSrcweir oObj.removeFocusListener(oListener4) 235cdf0e10cSrcweir oObj.setFocus() 236cdf0e10cSrcweir wait(200) 237cdf0e10cSrcweir oXWindow.setFocus() 238cdf0e10cSrcweir wait(200) 239cdf0e10cSrcweir oObj.setFocus() 240cdf0e10cSrcweir wait(200) 241cdf0e10cSrcweir bOK = bOK AND bCB3_focusGained AND NOT bCB4_focusLost AND bCB3_focusGained AND NOT bCB4_focusLost 242cdf0e10cSrcweir oObj.removeFocusListener(oListener3) 243cdf0e10cSrcweir Test.MethodTested("removeFocusListener()", bOK) 244cdf0e10cSrcweir 245cdf0e10cSrcweir'*************************************************************************************** 246cdf0e10cSrcweir'* LISTENERS which needs interactions * 247cdf0e10cSrcweir'*************************************************************************************** 248cdf0e10cSrcweir'* 249cdf0e10cSrcweir'* The following listener tests need interactions. That means i.e. a 250cdf0e10cSrcweir'* com.sun.star.awt.XKeyListener needs action from the keyboard. This is not possible in 251cdf0e10cSrcweir'* the automatic API-Testing. To test the listener you can set a breakpoint at the 252cdf0e10cSrcweir'* specific function call. Then do interaction which should call the listener. It must be 253cdf0e10cSrcweir'* pop up a message box. 254cdf0e10cSrcweir'* 255cdf0e10cSrcweir'*************************************************************************************** 256cdf0e10cSrcweir 257cdf0e10cSrcweir Test.StartMethod("addKeyListener()") 258cdf0e10cSrcweir bOK = true 259cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 260cdf0e10cSrcweir oObj.addKeyListener(oListener5) 261cdf0e10cSrcweir oObj.addKeyListener(oListener6) 262cdf0e10cSrcweir bOK = bOK AND true 263cdf0e10cSrcweir Test.MethodTested("addKeyListener()", bOK) 264cdf0e10cSrcweir 265cdf0e10cSrcweir Test.StartMethod("removeKeyListener()") 266cdf0e10cSrcweir bOK = true 267cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 268cdf0e10cSrcweir oObj.removeKeyListener(oListener5) 269cdf0e10cSrcweir bOK = bOK AND true 270cdf0e10cSrcweir oObj.removeKeyListener(oListener6) 271cdf0e10cSrcweir Test.MethodTested("removeKeyListener()", bOK) 272cdf0e10cSrcweir 273cdf0e10cSrcweir Test.StartMethod("addMouseListener()") 274cdf0e10cSrcweir bOK = true 275cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 276cdf0e10cSrcweir oObj.addMouseListener(oListener7) 277cdf0e10cSrcweir oObj.addMouseListener(oListener8) 278cdf0e10cSrcweir bOK = bOK AND true 279cdf0e10cSrcweir Test.MethodTested("addMouseListener()", bOK) 280cdf0e10cSrcweir 281cdf0e10cSrcweir Test.StartMethod("removeMouseListener()") 282cdf0e10cSrcweir bOK = true 283cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 284cdf0e10cSrcweir oObj.removeMouseListener(oListener7) 285cdf0e10cSrcweir bOK = bOK AND true 286cdf0e10cSrcweir oObj.removeMouseListener(oListener8) 287cdf0e10cSrcweir Test.MethodTested("removeMouseListener()", bOK) 288cdf0e10cSrcweir 289cdf0e10cSrcweir Test.StartMethod("addMouseMotionListener()") 290cdf0e10cSrcweir bOK = true 291cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 292cdf0e10cSrcweir oObj.addMouseMotionListener(oListener9) 293cdf0e10cSrcweir oObj.addMouseMotionListener(oListener10) 294cdf0e10cSrcweir bOK = bOK AND true 295cdf0e10cSrcweir Test.MethodTested("addMouseMotionListener()", bOK) 296cdf0e10cSrcweir 297cdf0e10cSrcweir Test.StartMethod("removeMouseMotionListener()") 298cdf0e10cSrcweir bOK = true 299cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 300cdf0e10cSrcweir oObj.removeMouseMotionListener(oListener9) 301cdf0e10cSrcweir bOK = bOK AND true 302cdf0e10cSrcweir oObj.removeMouseMotionListener(oListener10) 303cdf0e10cSrcweir Test.MethodTested("removeMouseMotionListener()", bOK) 304cdf0e10cSrcweir 305cdf0e10cSrcweir Test.StartMethod("addPaintListener()") 306cdf0e10cSrcweir bOK = true 307cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 308cdf0e10cSrcweir oObj.addPaintListener(oListener11) 309cdf0e10cSrcweir oObj.addPaintListener(oListener12) 310cdf0e10cSrcweir bOK = bOK AND true 311cdf0e10cSrcweir Test.MethodTested("addPaintListener()", bOK) 312cdf0e10cSrcweir 313cdf0e10cSrcweir Test.StartMethod("removePaintListener()") 314cdf0e10cSrcweir bOK = true 315cdf0e10cSrcweir Out.Log("Not realy tested! Please see comments in Basic-Source.") 316cdf0e10cSrcweir oObj.removePaintListener(oListener11) 317cdf0e10cSrcweir bOK = bOK AND true 318cdf0e10cSrcweir oObj.removePaintListener(oListener12) 319cdf0e10cSrcweir Test.MethodTested("removePaintListener()", bOK) 320cdf0e10cSrcweir 321cdf0e10cSrcweirExit Sub 322cdf0e10cSrcweirErrHndl: 323cdf0e10cSrcweir Test.Exception() 324cdf0e10cSrcweir bOK = false 325cdf0e10cSrcweir resume next 326cdf0e10cSrcweirEnd Sub 327cdf0e10cSrcweir 328cdf0e10cSrcweir' Listener call backs for com.sun.star.awt.XWindowListener 329cdf0e10cSrcweirSub CB1_windowResized 330cdf0e10cSrcweir Out.Log("CallBack for Listener1 windowResized was called.") 331cdf0e10cSrcweir bCB1_windowResized = true 332cdf0e10cSrcweirEnd Sub 333cdf0e10cSrcweirSub CB2_windowResized 334cdf0e10cSrcweir Out.Log("CallBack for Listener2 windowResized was called.") 335cdf0e10cSrcweir bCB2_windowResized = true 336cdf0e10cSrcweirEnd Sub 337cdf0e10cSrcweirSub CB1_windowMoved 338cdf0e10cSrcweir Out.Log("CallBack for Listener1 windowMoved was called.") 339cdf0e10cSrcweir bCB1_windowMoved = true 340cdf0e10cSrcweirEnd Sub 341cdf0e10cSrcweirSub CB2_windowMoved 342cdf0e10cSrcweir Out.Log("CallBack for Listener2 windowMoved was called.") 343cdf0e10cSrcweir bCB2_windowMoved = true 344cdf0e10cSrcweirEnd Sub 345cdf0e10cSrcweirSub CB1_windowHidden 346cdf0e10cSrcweir Out.Log("CallBack for Listener1 windowHidden was called.") 347cdf0e10cSrcweir bCB1_windowHidden = true 348cdf0e10cSrcweirEnd Sub 349cdf0e10cSrcweirSub CB2_windowHidden 350cdf0e10cSrcweir Out.Log("CallBack for Listener2 windowHidden was called.") 351cdf0e10cSrcweir bCB2_windowHidden = true 352cdf0e10cSrcweirEnd Sub 353cdf0e10cSrcweirSub CB1_windowShown 354cdf0e10cSrcweir Out.Log("CallBack for Listener1 windowShown was called.") 355cdf0e10cSrcweir bCB1_windowShown = true 356cdf0e10cSrcweirEnd Sub 357cdf0e10cSrcweirSub CB2_windowShown 358cdf0e10cSrcweir Out.Log("CallBack for Listener2 windowShown was called.") 359cdf0e10cSrcweir bCB2_windowShown = true 360cdf0e10cSrcweirEnd Sub 361cdf0e10cSrcweirSub CB1_disposing 362cdf0e10cSrcweir Out.Log("CallBack for Listener1 disposing was called") 363cdf0e10cSrcweir bCB1_disposing = true 364cdf0e10cSrcweirEnd Sub 365cdf0e10cSrcweirSub CB2_disposing 366cdf0e10cSrcweir Out.Log("CallBack for Listener2 disposing was called") 367cdf0e10cSrcweir bCB2_disposing = true 368cdf0e10cSrcweirEnd Sub 369cdf0e10cSrcweir 370cdf0e10cSrcweir' Listener call backs for com.sun.star.awt.XFocusListener 371cdf0e10cSrcweirSub CB3_focusGained 372cdf0e10cSrcweir Out.Log("CallBack for Listener3 'focusGained' was called") 373cdf0e10cSrcweir bCB3_focusGained = true 374cdf0e10cSrcweirEnd Sub 375cdf0e10cSrcweirSub CB4_focusGained 376cdf0e10cSrcweir Out.Log("CallBack for Listener4 'focusGained' was called") 377cdf0e10cSrcweir bCB4_focusGained = true 378cdf0e10cSrcweirEnd Sub 379cdf0e10cSrcweirSub CB3_focusLost 380cdf0e10cSrcweir Out.Log("CallBack for Listener3 'focusLost' was called") 381cdf0e10cSrcweir bCB3_focusLost = true 382cdf0e10cSrcweirEnd Sub 383cdf0e10cSrcweirSub CB4_focusLost 384cdf0e10cSrcweir Out.Log("CallBack for Listener4 'focusLost' was called") 385cdf0e10cSrcweir bCB4_focusLost = true 386cdf0e10cSrcweirEnd Sub 387cdf0e10cSrcweirSub CB3_disposing 388cdf0e10cSrcweirEnd Sub 389cdf0e10cSrcweirSub CB4_disposing 390cdf0e10cSrcweirEnd Sub 391cdf0e10cSrcweir 392cdf0e10cSrcweir' Listener call backs for com.sun.star.awt.XKeyListener 393cdf0e10cSrcweir' They will never be called beause of no interaction in API-Testing 394cdf0e10cSrcweirSub CB5_keyPressed 395cdf0e10cSrcweir MsgBox("CallBack for Listener5 'keyPressed' was called") 396cdf0e10cSrcweirEnd Sub 397cdf0e10cSrcweirSub CB6_keyPressed 398cdf0e10cSrcweir MsgBox("CallBack for Listener6 'keyPressed' was called") 399cdf0e10cSrcweirEnd Sub 400cdf0e10cSrcweirSub CB5_keyReleased 401cdf0e10cSrcweir MsgBox("CallBack for Listener5 'keyReleased' was called") 402cdf0e10cSrcweirEnd Sub 403cdf0e10cSrcweirSub CB6_keyReleased 404cdf0e10cSrcweir MsgBox("CallBack for Listener6 'keyReleased' was called") 405cdf0e10cSrcweirEnd Sub 406cdf0e10cSrcweirSub CB5_disposing 407cdf0e10cSrcweirEnd Sub 408cdf0e10cSrcweirSub CB6_disposing 409cdf0e10cSrcweirEnd Sub 410cdf0e10cSrcweir 411cdf0e10cSrcweir 412cdf0e10cSrcweir' Listener call backs for com.sun.star.awt.XMouseListener 413cdf0e10cSrcweir' They will never be called beause of no interaction in API-Testing 414cdf0e10cSrcweirSub CB7_mousePressed 415cdf0e10cSrcweir MsgBox("CallBack for Listener7 'mousePressed' was called") 416cdf0e10cSrcweirEnd Sub 417cdf0e10cSrcweirSub CB8_mousePressed 418cdf0e10cSrcweir MsgBox("CallBack for Listener8 'mousePressed' was called") 419cdf0e10cSrcweirEnd Sub 420cdf0e10cSrcweirSub CB7_mouseReleased 421cdf0e10cSrcweir MsgBox("CallBack for Listener8 'mouseReleased' was called") 422cdf0e10cSrcweirEnd Sub 423cdf0e10cSrcweirSub CB8_mouseReleased 424cdf0e10cSrcweir MsgBox("CallBack for Listener8 'mouseReleased' was called") 425cdf0e10cSrcweirEnd Sub 426cdf0e10cSrcweirSub CB7_mouseEntered 427cdf0e10cSrcweir MsgBox("CallBack for Listener7 'mouseEntered' was called") 428cdf0e10cSrcweirEnd Sub 429cdf0e10cSrcweirSub CB8_mouseEntered 430cdf0e10cSrcweir MsgBox("CallBack for Listener8 'mouseEntered' was called") 431cdf0e10cSrcweirEnd Sub 432cdf0e10cSrcweirSub CB7_mouseExited 433cdf0e10cSrcweir MsgBox("CallBack for Listener7 'mouseExited' was called") 434cdf0e10cSrcweirEnd Sub 435cdf0e10cSrcweirSub CB8_mouseExited 436cdf0e10cSrcweir MsgBox("CallBack for Listener8 'mouseExited' was called") 437cdf0e10cSrcweirEnd Sub 438cdf0e10cSrcweirSub CB7_disposing 439cdf0e10cSrcweirEnd Sub 440cdf0e10cSrcweirSub CB8_disposing 441cdf0e10cSrcweirEnd Sub 442cdf0e10cSrcweir 443cdf0e10cSrcweir 444cdf0e10cSrcweir' Listener call backs for com.sun.star.awt.XMouseMotionListener 445cdf0e10cSrcweir' They will never be called beause of no interaction in API-Testing 446cdf0e10cSrcweirSub CB9_mouseDragged 447cdf0e10cSrcweir MsgBox("CallBack for Listener9 'mouseDragged' was called") 448cdf0e10cSrcweirEnd Sub 449cdf0e10cSrcweirSub CB10_mouseDragged 450cdf0e10cSrcweir MsgBox("CallBack for Listener10 'mouseDragged' was called") 451cdf0e10cSrcweirEnd Sub 452cdf0e10cSrcweirSub CB9_mouseMoved 453cdf0e10cSrcweir MsgBox("CallBack for Listener9 'mouseMoved' was called") 454cdf0e10cSrcweirEnd Sub 455cdf0e10cSrcweirSub CB10_mouseMoved 456cdf0e10cSrcweir MsgBox("CallBack for Listener10 'mouseMoved' was called") 457cdf0e10cSrcweirEnd Sub 458cdf0e10cSrcweirSub CB9_disposing 459cdf0e10cSrcweirEnd Sub 460cdf0e10cSrcweirSub CB10_disposing 461cdf0e10cSrcweirEnd Sub 462cdf0e10cSrcweir 463cdf0e10cSrcweir 464cdf0e10cSrcweir' Listener call backs for com.sun.star.awt.XMouseMotionListener 465cdf0e10cSrcweir' They will never be called beause of no interaction in API-Testing 466cdf0e10cSrcweirSub CB11_windowPaint 467cdf0e10cSrcweir MsgBox("CallBack for Listener11 'windowPaint' was called") 468cdf0e10cSrcweirEnd Sub 469cdf0e10cSrcweirSub CB12_windowPaint 470cdf0e10cSrcweir MsgBox("CallBack for Listener12 'windowPaint' was called") 471cdf0e10cSrcweirEnd Sub 472cdf0e10cSrcweirSub CB11_disposing 473cdf0e10cSrcweirEnd Sub 474cdf0e10cSrcweirSub CB12_disposing 475cdf0e10cSrcweirEnd Sub 476cdf0e10cSrcweir 477cdf0e10cSrcweir</script:module> 478