| blob | 917a5dde246ab4414dad2ecb6d971bfaa252e7a1 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: t_doc1.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-13 10:27:10 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* owner : thorsten.bosbach@sun.com
35 '*
36 '* short description : Global Routines for Document Handling
37 '*
38 '\*************************************************************************************
40 sub hNewDocument ( optional bANewDoc )
41 '/// hNewDocument : open a new document dependent on 'gApplication' ///'
42 dim sTemp as string
43 gApplication = gApplication
45 if IsMissing ( bANewDoc ) <> TRUE then
46 if bANewDoc = TRUE then
47 gNoNewDoc = FALSE
48 else
49 gNoNewDoc = TRUE
50 end if
51 end if
53 select case gApplication
54 case "WRITER"
55 Kontext "DocumentWriter"
56 if gNoNewDoc = TRUE then
57 FileOpen "FileName", "private:factory/swriter", "SynchronMode", TRUE
58 else
59 FileOpen "FileName", "private:factory/swriter", "FrameName", "_default", "SynchronMode", TRUE
60 end if
61 if ( DocumentWriter.IsMax() = false ) then
62 DocumentWriter.Maximize()
63 Wait( 2000 )
64 end if
65 case "CALC"
66 Kontext "DocumentCalc"
67 if gNoNewDoc = TRUE then
68 FileOpen "FileName", "private:factory/scalc", "SynchronMode", TRUE
69 else
70 FileOpen "FileName", "private:factory/scalc", "FrameName", "_default", "SynchronMode", TRUE
71 end if
72 if ( DocumentCalc.IsMax() = false ) then
73 DocumentCalc.Maximize()
74 Wait( 2000 )
75 end if
76 case "IMPRESS"
77 Kontext "DocumentImpress"
78 if gNoNewDoc = TRUE then
79 FileOpen "FileName", "private:factory/simpress", "SynchronMode", TRUE
80 else
81 FileOpen "FileName", "private:factory/simpress", "FrameName", "_default", "SynchronMode", TRUE
82 Kontext "AutoPilotPraesentation1"
83 if AutoPilotPraesentation1.Exists (2) then
84 Printlog "------------------------------The Impress-Autopilot was active------------------"
85 Startwithwizard.Check ' opposite of the checkboxs' title
86 AutoPilotPraesentation1.OK
87 Sleep 2
88 Kontext "SeitenLayout"
89 SeitenLayout.Cancel
90 end if
91 Kontext "DocumentImpress"
92 Sleep 2
93 if ( DocumentImpress.IsMax() = false ) then
94 DocumentImpress.Maximize()
95 Wait( 2000 )
96 end if
97 end if
98 case "DRAW"
99 Kontext "DocumentDraw"
100 if gNoNewDoc = TRUE then
101 FileOpen "FileName", "private:factory/sdraw", "SynchronMode", TRUE
102 else
103 FileOpen "FileName", "private:factory/sdraw", "FrameName", "_default", "SynchronMode", TRUE
104 end if
105 if ( DocumentDraw.IsMax() = false ) then
106 DocumentDraw.Maximize()
107 Wait( 2000 )
108 end if
109 case "MASTERDOCUMENT"
110 Kontext "DocumentMasterDoc"
111 if gNoNewDoc = TRUE then
112 FileOpen "FileName", "private:factory/swriter/GlobalDocument", "SynchronMode", TRUE
113 else
114 FileOpen "FileName", "private:factory/swriter/GlobalDocument", "FrameName", "_default", "SynchronMode", TRUE
115 end if
116 Kontext "Navigator"
117 sleep (1)
118 if Navigator.Exists(5) then Navigator.Close
119 Kontext "DocumentMasterDoc"
120 if ( DocumentMasterDoc.IsMax() = false ) then
121 DocumentMasterDoc.Maximize()
122 Wait( 2000 )
123 end if
124 case "MATH"
125 Kontext "DocumentMath"
126 if gNoNewDoc = TRUE then
127 FileOpen "FileName", "private:factory/smath", "SynchronMode", TRUE
128 else
129 FileOpen "FileName", "private:factory/smath", "FrameName", "_default", "SynchronMode", TRUE
130 end if
131 Kontext "DocumentMath"
132 if ( DocumentMath.IsMax() = false ) then
133 DocumentMath.Maximize()
134 Wait( 2000 )
135 end if
136 case "HTML"
137 Kontext "DocumentWriterWeb"
138 if gNoNewDoc = TRUE then
139 FileOpen "FileName", "private:factory/swriter/web", "SynchronMode", TRUE
140 else
141 FileOpen "FileName", "private:factory/swriter/web", "FrameName", "_default", "SynchronMode", TRUE
142 end if
143 Kontext "DocumentWriterWeb"
144 if ( DocumentWriterWeb.IsMax() = false ) then
145 DocumentWriterWeb.Maximize()
146 Wait( 2000 )
147 end if
148 case "DATABASE"
149 FileOpen "FileName", "private:factory/sdatabase?Interactive", "FrameName", "_default", "SynchronMode", TRUE
150 Kontext "DatabaseWizard"
151 if DatabaseWizard.exists(5) then
152 FinishBtn.click
153 kontext "SpeichernDlg"
154 if SpeichernDlg.exists(5) then
155 if (Dateiname.getSelText = "") then
156 sTemp = convertPath(gOfficePath + "user/work/hNewDocument.odb")
157 if fileExists(sTemp) then
158 app.kill(sTemp)
159 endif
160 qaErrorlog "## lost default filename"
161 Dateiname.setText "hNewDocument"
162 endif
163 Speichern.click
164 Kontext "DATABASE"
165 else
166 warnlog "t_doc1.inc::hNewDocument():: Can't create Database Document 2"
167 endif
168 else
169 warnlog "t_doc1.inc::hNewDocument():: Can't create Database Document 1"
170 endif
171 case "BASIC"
172 ToolsMacroMacro
173 kontext "makro"
174 if makro.exists(5) then
175 MakroAus.typeKeys "<home>"
176 sTemp = ""
177 while (NOT bearbeiten.isEnabled) AND (sTemp <> MakroAus.getSelText)
178 sTemp = MakroAus.getSelText
179 MakroAus.typeKeys "<down>+"
180 wend
181 if (bearbeiten.isEnabled) then
182 bearbeiten.click
183 else
184 qaErrorlog "Can't edit document."
185 endif
186 else
187 warnlog "Can't open Basic IDE."
188 endif
189 case else : WarnLog "hNewDocument: No Applikation named '" + gApplication + "' exists in this routine!"
190 end select
191 Sleep 2
192 end sub
193 '
194 '-------------------------------------------------------------------------------
195 '
196 function hCreateLabels() as Boolean
197 '/// hCreateLabels : open the tab-dialog for making a new lable (file/new/lable) ///'
198 FileOpen "FileName", "private:factory/swriter?slot=21051", "FrameName", "_default", "SynchronMode", TRUE
199 Sleep (2)
200 Kontext
201 Active.Setpage TabEtiketten
202 Kontext "TabEtiketten"
203 if Not TabEtiketten.Exists then
204 Warnlog "Dialog for Labels is not up!"
205 hCreateLabels = False
206 else
207 hCreateLabels = True
208 endif
209 Sleep (2)
210 end function
211 '
212 '-------------------------------------------------------------------------------
213 '
214 function hCreateBusinessCards() as Boolean
215 '/// hCreateBusinessCards : open the tab-dialog for making a new business card (file/new/business cards) ///'
216 FileOpen "FileName", "private:factory/swriter?slot=21052", "FrameName", "_default", "SynchronMode", TRUE
217 Sleep (2)
218 Kontext
219 Active.Setpage TabEtikettenMedium
220 Kontext "TabEtikettenMedium"
221 if Not TabEtikettenMedium.Exists then
222 Warnlog "Dialog for BusinessCards is not up!"
223 hCreateBusinessCards = False
224 else
225 hCreateBusinessCards = True
226 endif
227 Sleep (2)
228 end function
229 '
230 '-------------------------------------------------------------------------------
231 '
232 sub hCloseDocument ( optional bANewDoc )
233 '/// hCloseDocument : close a document without saving ///'
234 '///+ all documents will be closed without saving ///'
235 Dim sFehler$
237 if IsMissing ( bANewDoc ) <> TRUE then
238 if bANewDoc = TRUE then
239 gNoNewDoc = FALSE
240 else
241 gNoNewDoc = TRUE
242 end if
243 end if
245 ' if no new document was created, it isn't closed
246 if gNoNewDoc = TRUE then
247 exit sub
248 end if
250 Sleep 3
251 try
252 FileClose
253 catch
254 Exceptlog
255 exit sub
256 endcatch
258 Sleep 1
259 Kontext "Active"
260 if Active.Exists(2) then
261 try
262 Active.No
263 catch
264 Active.Click ( 202 )
265 endcatch
266 end if
267 Sleep (2)
268 end sub
269 '
270 '-------------------------------------------------------------------------------
271 '
272 sub hCloseAndLooseDocument
273 '/// <i>hCloseAndLooseDocument</i>
274 '///+ Closes a (modified) document and the verify dialog will be answered
275 '///+ with yes. That means you want to loose format information or you want
276 '///+ to loose the document!
277 Dim sFehler$
279 try
280 FileClose
281 catch
282 Exceptlog
283 exit sub
284 endcatch
285 sleep (2)
286 Kontext
287 if Active.Exists(2) then Active.Yes
288 end sub
289 '
290 '-------------------------------------------------------------------------------
291 '
292 sub gMouseClick ( X%, Y%, optional mb% )
293 '/// gMouseClick ( x_Position, y-Position ) : make a mouseclick on the document (dependent on 'gApplication') ///'
294 '/// default left mousebutton will be used otherwise you can optionally give the mousebutton to press
295 '/// 1 = left mouse button
296 '/// 2 = left mouse button
297 '/// 3 = left mouse button
299 gApplication = gApplication
301 if IsMissing(mb%) then mb% = 1
303 select case gApplication
304 case "BACKGROUND"
305 Kontext "BACKGROUND"
306 autoexecute = false
307 Desktop.MouseDown ( X%, Y%, mb% )
308 Desktop.MouseUp ( X%, Y%, mb% )
309 autoexecute = true
310 case "CALC"
311 Kontext "DocumentCalc"
312 autoexecute = false
313 DocumentCalc.MouseDown ( X%, Y%, mb% )
314 DocumentCalc.MouseUp ( X%, Y%, mb% )
315 autoexecute = true
316 case "DRAW"
317 Kontext "DocumentDraw"
318 autoexecute=false
319 DocumentDraw.MouseDown ( X%, Y%, mb% )
320 DocumentDraw.MouseUp ( X%, Y%, mb% )
321 autoexecute=true
322 case "WRITER"
323 Kontext "DocumentWriter"
324 autoexecute=false
325 DocumentWriter.MouseDown ( X%, Y%, mb% )
326 DocumentWriter.MouseUp ( X%, Y%, mb% )
327 autoexecute=true
328 case "HTML"
329 Kontext "DocumentWriterWeb"
330 autoexecute=false
331 DocumentWriterWeb.MouseDown ( X%, Y%, mb% )
332 DocumentWriterWeb.MouseUp ( X%, Y%, mb% )
333 autoexecute=true
334 case "MASTERDOCUMENT"
335 Kontext "DocumentMasterDoc"
336 autoexecute=false
337 DocumentMasterDoc.MouseDown ( X%, Y%, mb% )
338 DocumentMasterDoc.MouseUp ( X%, Y%, mb% )
339 autoexecute=true
340 case "IMPRESS"
341 Kontext "DocumentImpress"
342 autoexecute=false
343 DocumentImpress.MouseDown ( X%, Y%, mb% )
344 DocumentImpress.MouseUp ( X%, Y%, mb% )
345 autoexecute=true
346 case "MATH"
347 Kontext "DocumentMath"
348 autoexecute=false
349 DocumentMath.MouseDown ( X%, Y%, mb% )
350 DocumentMath.MouseDown ( X%, Y%, mb% )
351 autoexecute=true
352 case "CHART"
353 Kontext "DocumentChart"
354 autoexecute=false
355 DocumentChart.MouseDown ( X%, Y%, mb% )
356 DocumentChart.MouseUp ( X%, Y%, mb% )
357 autoexecute=true
358 end select
359 sleep (2)
360 end sub
361 '
362 '-------------------------------------------------------------------------------
363 '
364 sub gMouseDoubleClick ( X%, Y% )
365 '/// gMouseDoubleClick ( x_Position, y-Position ) : make a mouse-doubleclick on the document ( dependent on 'gApplication' ) ///'
366 gApplication = gApplication
368 select case gApplication
369 case "CALC"
370 Kontext "DocumentCalc"
371 DocumentCalc.MouseDoubleClick ( X%, Y% )
372 case "DRAW"
373 Kontext "DocumentDraw"
374 DocumentDraw.MouseDoubleClick ( X%, Y% )
375 case "BACKGROUND"
376 Kontext "BACKGROUND"
377 Desktop.MouseDoubleClick ( X%, Y% )
378 case "WRITER"
379 Kontext "DocumentWriter"
380 DocumentWriter.MouseDoubleClick ( X%, Y% )
381 case "HTML"
382 Kontext "DocumentWriterWeb"
383 DocumentWriterWeb.MouseDoubleClick ( X%, Y% )
384 case "MASTERDOCUMENT"
385 Kontext "DocumentMasterDoc"
386 DocumentMasterDoc.MouseDoubleClick ( X%, Y% )
387 case "IMPRESS"
388 Kontext "DocumentImpress"
389 DocumentImpress.MouseDoubleClick ( X%, Y% )
390 case "MATH"
391 Kontext "DocumentMath"
392 DocumentMath.MouseDoubleClick ( X%, Y% )
393 end select
394 Sleep (2)
395 end sub
396 '
397 '-------------------------------------------------------------------------------
398 '
399 sub gMouseMove ( BeginX%, BeginY%, EndX%, EndY% )
400 '/// gMouseMove ( BeginX, BeginY, EndX, EndY ) : make a mousemove trom Bx,By to Ex,Ey on the document ( dependent on 'gApplication' ) ///'
401 gApplication = gApplication
403 select case gApplication
404 case "CALC"
405 Kontext "DocumentCalc"
406 DocumentCalc.MouseDown ( BeginX%, BeginY% )
407 DocumentCalc.MouseMove ( EndX%, EndY%)
408 DocumentCalc.MouseUp ( EndX%, EndY% )
409 case "DRAW"
410 Kontext "DocumentDraw"
411 DocumentDraw.MouseDown ( BeginX%, BeginY% )
412 DocumentDraw.MouseMove ( EndX%, EndY% )
413 DocumentDraw.MouseUp ( EndX%, EndY% )
414 case "WRITER"
415 Kontext "DocumentWriter"
416 DocumentWriter.MouseDown ( BeginX%, BeginY% )
417 DocumentWriter.MouseMove ( EndX%, EndY%)
418 DocumentWriter.MouseUp ( EndX%, EndY% )
419 case "HTML"
420 Kontext "DocumentWriterWeb"
421 DocumentWriterWeb.MouseDown ( BeginX%, BeginY% )
422 DocumentWriterWeb.MouseMove ( EndX%, EndY%)
423 DocumentWriterWeb.MouseUp ( EndX%, EndY% )
424 case "MASTERDOCUMENT"
425 Kontext "DocumentMasterDoc"
426 DocumentMasterDoc.MouseDown ( BeginX%, BeginY% )
427 DocumentMasterDoc.MouseMove ( EndX%, EndY%)
428 DocumentMasterDoc.MouseUp ( EndX%, EndY% )
429 case "IMPRESS"
430 Kontext "DocumentImpress"
431 DocumentImpress.MouseDown ( BeginX%, BeginY% )
432 DocumentImpress.MouseMove ( EndX%, EndY%)
433 DocumentImpress.MouseUp ( EndX%, EndY% )
434 case "MATH"
435 Kontext "DocumentMath"
436 DocumentMath.MouseDown ( BeginX%, BeginY% )
437 DocumentMath.MouseMove ( EndX%, EndY%)
438 DocumentMath.MouseDown ( EndX%, EndY% )
439 end select
440 Sleep (2)
441 end sub
442 '
443 '-------------------------------------------------------------------------------
444 '
445 sub gMouseDown ( BeginX%, BeginY% )
446 '/// gMouseDown ( x_Position, y-Position ) : make a mousedown on the document (dependent on 'gApplication') ///'
447 '///+ DON'T FORGETT to call gMouseUp ! ///'
448 gApplication = gApplication
450 select case gApplication
451 case "CALC"
452 Kontext "DocumentCalc"
453 DocumentCalc.MouseDown ( BeginX%, BeginY% )
454 case "DRAW"
455 Kontext "DocumentDraw"
456 DocumentDraw.MouseDown ( BeginX%, BeginY% )
457 case "WRITER"
458 Kontext "DocumentWriter"
459 DocumentWriter.MouseDown ( BeginX%, BeginY% )
460 case "HTML"
461 Kontext "DocumentWriterWeb"
462 DocumentWriterWeb.MouseDown ( BeginX%, BeginY% )
463 case "MASTERDOCUMENT"
464 Kontext "DocumentMasterDoc"
465 DocumentMasterDoc.MouseDown ( BeginX%, BeginY% )
466 case "IMPRESS"
467 Kontext "DocumentImpress"
468 DocumentImpress.MouseDown ( BeginX%, BeginY% )
469 case "MATH"
470 Kontext "DocumentMath"
471 DocumentMath.MouseDown ( BeginX%, BeginY% )
472 end select
473 Sleep (2)
474 end sub
475 '
476 '-------------------------------------------------------------------------------
477 '
478 sub gMouseMove2 ( EndX%, EndY% )
479 '/// gMouseMove2 ( x_Position, y-Position ) : move the pointer to position on the document (dependent on 'gApplication') ///'
480 gApplication = gApplication
482 select case gApplication
483 case "CALC"
484 Kontext "DocumentCalc"
485 DocumentCalc.MouseMove ( EndX%, EndY%)
486 case "DRAW"
487 Kontext "DocumentDraw"
488 DocumentDraw.MouseMove ( EndX%, EndY% )
489 case "WRITER"
490 Kontext "DocumentWriter"
491 DocumentWriter.MouseMove ( EndX%, EndY%)
492 case "HTML"
493 Kontext "DocumentWriterWeb"
494 DocumentWriterWeb.MouseMove ( EndX%, EndY%)
495 case "MASTERDOCUMENT"
496 Kontext "DocumentMasterDoc"
497 DocumentMasterDoc.MouseMove ( EndX%, EndY%)
498 case "IMPRESS"
499 Kontext "DocumentImpress"
500 DocumentImpress.MouseMove ( EndX%, EndY%)
501 case "MATH"
502 Kontext "DocumentMath"
503 DocumentMath.MouseMove ( EndX%, EndY%)
504 end select
505 Sleep (2)
506 end sub
507 '
508 '-------------------------------------------------------------------------------
509 '
510 sub gMouseUp ( EndX%, EndY% )
511 '/// gMouseUp ( x_Position, y-Position ) : make a release button on the document (dependent on 'gApplication') ///'
512 gApplication = gApplication
514 select case gApplication
515 case "CALC"
516 Kontext "DocumentCalc"
517 DocumentCalc.MouseUp ( EndX%, EndY% )
518 case "DRAW"
519 Kontext "DocumentDraw"
520 DocumentDraw.MouseUp ( EndX%, EndY% )
521 case "WRITER"
522 Kontext "DocumentWriter"
523 DocumentWriter.MouseUp ( EndX%, EndY% )
524 case "HTML"
525 Kontext "DocumentWriterWeb"
526 DocumentWriterWeb.MouseUp ( EndX%, EndY% )
527 case "MASTERDOCUMENT"
528 Kontext "DocumentMasterDoc"
529 DocumentMasterDoc.MouseUp ( EndX%, EndY% )
530 case "IMPRESS"
531 Kontext "DocumentImpress"
532 DocumentImpress.MouseUp ( EndX%, EndY% )
533 case "MATH"
534 Kontext "DocumentMath"
535 DocumentMath.MouseUp ( EndX%, EndY% )
536 end select
537 Sleep (2)
538 end sub
539 '
540 '-------------------------------------------------------------------------------
541 '
542 sub hTypeKeys ( OutputText , optional iLoop as Integer )
543 '/// hTypeKeys ( OutputText , optional iLoop as Integer ): type the keys in 'outputtext' 'iLoop' times ///'
544 Dim i as integer
546 If IsMissing(iLoop) = True then iLoop = 1
547 For i = 1 to iLoop
548 Select Case Ucase(gApplication)
549 Case "WRITER"
550 Kontext "DocumentWriter"
551 DocumentWriter.TypeKeys OutputText
552 Case "MASTERDOCUMENT"
553 Kontext "DocumentMasterDoc"
554 DocumentMasterDoc.TypeKeys OutputText
555 Case "HTML"
556 Kontext "DocumentWriterWeb"
557 DocumentWriterWeb.TypeKeys OutputText
558 case "CALC"
559 Kontext "DocumentCalc"
560 DocumentCalc.TypeKeys OutputText
561 case "DRAW"
562 Kontext "DocumentDraw"
563 DocumentDraw.TypeKeys OutputText
564 case "IMPRESS"
565 Kontext "DocumentImpress"
566 DocumentImpress.TypeKeys OutputText
567 case "MATH"
568 Kontext "DocumentMath"
569 DocumentMath.TypeKeys OutputText
570 end select
571 wait 500
572 next i
573 end sub
574 '
575 '-------------------------------------------------------------------------------
576 '
577 function hOpenFileAndIgnoreMacroWarning (sDocName as string, optional IgnoreW) as Boolean
578 '/// Loading a (known) document with macro security warning.
579 '/// If the OPTIONAL parameter is used a PRINTLOG will be written into the result file otherwise a wrning.
580 Dim i as integer
582 'ConvertPath: Be sure that the path seperators has been set correctly (/ or \).
583 sDocName = ConvertPath(sDocName)
585 hOpenFileAndIgnoreMacroWarning = FALSE
587 if hFileExists(sDocName) = FALSE then
588 warnlog "global::tools::inc::t_doc1.inc::hOpenFileAndIgnoreMacroWarning: '" & sDocName & "' does not exists!"
589 'Setting the function to FALSE because file has not been found.
590 exit function
591 else
592 FileOpen
593 sleep (1)
594 Kontext "OeffnenDlg"
595 Dateiname.SetText sDocName
596 sleep (3)
597 Oeffnen.Click
598 sleep(2)
599 for i = 1 to 2
600 ' Since SRC680m?? we have TWO Security Warnings for
601 ' StarBasic and JavaScript; So this routine needs to
602 ' run twice.
603 Kontext "SecurityWarning"
604 if SecurityWarning.Exists(2) then
605 if IsMissing(IgnoreW) = FALSE then
606 printLog "global::tools::inc::t_doc1.inc::hOpenFileAndIgnoreMacroWarning: Securitywarning dialog is visible."
607 else
608 warnlog "global::tools::inc::t_doc1.inc::hOpenFileAndIgnoreMacroWarning: Securitywarning dialog is visible"
609 end if
610 SecurityWarning.OK
611 else
612 if i <> 2 then
613 QAErrorLog "global::tools::inc::t_doc1.inc::hOpenFileAndIgnoreMacroWarning: No Security warning dialog occured! Document loading aborted."
614 hOpenFileAndIgnoreMacroWarning = FALSE
615 exit function
616 end if
617 end if
618 next i
619 Kontext "OeffnenDlg"
620 if OeffnenDlg.Exists(1) then
621 OeffnenDlg.Cancel
622 warnlog "global::tools::inc::t_doc1.inc::hOpenFileAndIgnoreMacroWarning: The 'FileOpen'-Dialog is open!"
623 else
624 ' After the external routine IsItLoaded has been run the return value of this function should be set to TRUE.
625 if IsItLoaded = TRUE then
626 hOpenFileAndIgnoreMacroWarning = TRUE
627 end if
628 end if
629 end if
630 end function