1rem ************************************************************* 2rem 3rem Licensed to the Apache Software Foundation (ASF) under one 4rem or more contributor license agreements. See the NOTICE file 5rem distributed with this work for additional information 6rem regarding copyright ownership. The ASF licenses this file 7rem to you under the Apache License, Version 2.0 (the 8rem "License"); you may not use this file except in compliance 9rem with the License. You may obtain a copy of the License at 10rem 11rem http://www.apache.org/licenses/LICENSE-2.0 12rem 13rem Unless required by applicable law or agreed to in writing, 14rem software distributed under the License is distributed on an 15rem "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16rem KIND, either express or implied. See the License for the 17rem specific language governing permissions and limitations 18rem under the License. 19rem 20rem ************************************************************* 21rem _______________________________________________________________________________________________________________________________________ 22rem Test script for helper class "framework/helper/OComponentAccess and OComponentEnumeration. 23rem These two classes are used for "framework/baeh_services/Desktop::getComponents()" only. 24rem _______________________________________________________________________________________________________________________________________ 25 26 27Sub Main 28 29 rem ___________________________________________________________________________________________________________________________________ 30 rem Get all current components of the frame tree as an enumeration access object. 31 rem The return value must be a valid reference! 32 xComponentAccess = StarDesktop.Components 33 if( isNull(xComponentAccess) = TRUE ) then 34 msgbox "Error: Desktop return null reference as enumeration access to all tree components!" 35 exit Sub 36 endif 37 38 rem ___________________________________________________________________________________________________________________________________ 39 rem Control service specification of helper class "framework/helper/OComponentAccess". 40 rem The follow output must occure: com.sun.star.lang.XTypeProvider 41 rem com.sun.star.container.XEnumerationAccess -> com.sun.star.container.XElementAccess 42 msgbox xComponentAccess.dbg_supportedInterfaces 43 44 rem ___________________________________________________________________________________________________________________________________ 45 rem Test interface XElementAccess of helper OComponentAcces. 46 47 rem Method hasElements() must return TRUE, because if you call this from the basic IDE at least one task must exist ... 48 rem the IDE by himself. Normaly two tasks exist - an empty writer document and a basic frame. 49 rem Attention: Not all tasks or frames must support a full implemented component! 50 if( xComponentAccess.hasElements <> TRUE ) then 51 msgbox "Error: xComponentAccess has no elements - but I can't believe it!" 52 exit Sub 53 endif 54 55 rem Method getElementType() must return the cppu type of XComponent. 56 rem Otherwise something is wrong or implementation has changed. 57 if( xComponentAccess.getElementType.Name <> "com.sun.star.lang.XComponent" ) then 58 msgbox "Error: xComponentAccess return wrong type as element type! - Has implementation changed?" 59 exit Sub 60 endif 61 62 rem ___________________________________________________________________________________________________________________________________ 63 rem Test interface XEnumerationAccess of helper OComponentAcces. 64 rem The return value must be a valid reference! 65 xComponentEnumeration = xComponentAccess.createEnumeration 66 if( isNull(xComponentEnumeration) = TRUE ) then 67 msgbox "Error: Could not create a component enumeration!" 68 exit Sub 69 endif 70 71 rem ___________________________________________________________________________________________________________________________________ 72 rem Control service specification of helper class "framework/helper/OComponentEnumeration". 73 rem The follow output must occure: com.sun.star.lang.XTypeProvider 74 rem com.sun.star.lang.XEventListener 75 rem com.sun.star.container.XEnumeration 76 msgbox xComponentEnumeration.dbg_supportedInterfaces 77 78 rem ___________________________________________________________________________________________________________________________________ 79 rem Test interface XEnumeration of helper OComponentEnumeration. 80 nElementCounter = 0 81 while( xComponentEnumeration.hasMoreElements = TRUE ) 82 xElement = xComponentEnumeration.nextElement 83 if( isNull(xElement) = TRUE ) then 84 msgbox "Error: An empty component in enumeration detected! Whats wrong?" 85 exit Sub 86 endif 87 nElementCounter = nElementCounter + 1 88 wend 89 if( nElementCounter < 1 ) then 90 msgbox "Warning: The enumeration was empty. I think it's wrong ... please check it again." 91 endif 92 msgbox "Info: An enumeration with " + nElementCounter + " element(s) was detected." 93 94 rem ___________________________________________________________________________________________________________________________________ 95 rem If this point arrived our test was successful. 96 msgbox "Test of framework/helper/OComponentAccess & OComponentEnumeration was successful!" 97 98End Sub 99