1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_basctl.hxx"
26 
27 #include <vector>
28 #define _BASIC_TEXTPORTIONS
29 #include <basic/sbdef.hxx>
30 #include <ide_pch.hxx>
31 
32 
33 #include <tools/urlobj.hxx>
34 #include <unotools/charclass.hxx>
35 #include <svl/urihelper.hxx>
36 #include <basic/sbx.hxx>
37 #include <vcl/sound.hxx>
38 #include <svtools/xtextedt.hxx>
39 #include <svtools/txtattr.hxx>
40 #include <svtools/textwindowpeer.hxx>
41 #include <basic/sbuno.hxx>
42 
43 #include <helpid.hrc>
44 #include <baside2.hrc>
45 #include <baside2.hxx>
46 #include <brkdlg.hxx>
47 #include <objdlg.hxx>
48 #include <basobj.hxx>
49 #include <iderdll.hxx>
50 #include <iderdll2.hxx>
51 #include <vcl/taskpanelist.hxx>
52 #include <vcl/help.hxx>
53 
54 //#ifndef _SFX_HELP_HXX //autogen
55 //#include <sfx2/sfxhelp.hxx>
56 //#endif
57 #include <unotools/sourceviewconfig.hxx>
58 
59 #ifndef _COM_SUN_STAR_SCRIPT_XLIBRYARYCONTAINER2_HPP_
60 #include <com/sun/star/script/XLibraryContainer2.hpp>
61 #endif
62 #include <comphelper/processfactory.hxx>
63 
64 
65 using namespace ::com::sun::star;
66 using namespace ::com::sun::star::uno;
67 
68 
69 long nVirtToolBoxHeight;	// wird im WatchWindow init., im Stackwindow verw.
70 long nHeaderBarHeight;
71 
72 #define SCROLL_LINE		12
73 #define SCROLL_PAGE		60
74 
75 #define DWBORDER		3
76 
77 static const char cSuffixes[] = "%&!#@$";
78 
79 MapUnit eEditMapUnit = MAP_100TH_MM;
80 
81 
82 // #108672 Helper functions to get/set text in TextEngine
83 // using the stream interface (get/setText() only supports
84 // tools Strings limited to 64K).
getTextEngineText(ExtTextEngine * pEngine)85 ::rtl::OUString getTextEngineText( ExtTextEngine* pEngine )
86 {
87     SvMemoryStream aMemStream;
88     aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 );
89     aMemStream.SetLineDelimiter( LINEEND_LF );
90     pEngine->Write( aMemStream );
91     sal_uLong nSize = aMemStream.Tell();
92     ::rtl::OUString aText( (const sal_Char*)aMemStream.GetData(),
93         nSize, RTL_TEXTENCODING_UTF8 );
94     return aText;
95 }
96 
setTextEngineText(ExtTextEngine * pEngine,const::rtl::OUString aStr)97 void setTextEngineText( ExtTextEngine* pEngine, const ::rtl::OUString aStr )
98 {
99     pEngine->SetText( String() );
100     ::rtl::OString aUTF8Str = ::rtl::OUStringToOString( aStr, RTL_TEXTENCODING_UTF8 );
101 	SvMemoryStream aMemStream( (void*)aUTF8Str.getStr(), aUTF8Str.getLength(),
102         STREAM_READ | STREAM_SEEK_TO_BEGIN );
103     aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 );
104     aMemStream.SetLineDelimiter( LINEEND_LF );
105 	pEngine->Read( aMemStream );
106 }
107 
lcl_DrawIDEWindowFrame(DockingWindow * pWin)108 void lcl_DrawIDEWindowFrame( DockingWindow* pWin )
109 {
110     // The result of using explicit colors here appears to be harmless when
111     // switching to high contrast mode:
112 	if ( !pWin->IsFloatingMode() )
113 	{
114 		Size aSz = pWin->GetOutputSizePixel();
115 		const Color aOldLineColor( pWin->GetLineColor() );
116 		pWin->SetLineColor( Color( COL_WHITE ) );
117 		// oben eine weisse..
118 		pWin->DrawLine( Point( 0, 0 ), Point( aSz.Width(), 0 ) );
119 		// unten eine schwarze...
120 		pWin->SetLineColor( Color( COL_BLACK ) );
121 		pWin->DrawLine( Point( 0, aSz.Height() - 1 ), Point( aSz.Width(), aSz.Height() - 1 ) );
122 		pWin->SetLineColor( aOldLineColor );
123 	}
124 }
125 
lcl_SeparateNameAndIndex(const String & rVName,String & rVar,String & rIndex)126 void lcl_SeparateNameAndIndex( const String& rVName, String& rVar, String& rIndex )
127 {
128 	rVar = rVName;
129 	rIndex.Erase();
130 	sal_uInt16 nIndexStart = rVar.Search( '(' );
131 	if ( nIndexStart != STRING_NOTFOUND )
132 	{
133 		sal_uInt16 nIndexEnd = rVar.Search( ')', nIndexStart );
134 		if ( nIndexStart != STRING_NOTFOUND )
135 		{
136 			rIndex = rVar.Copy( nIndexStart+1, nIndexEnd-nIndexStart-1 );
137 			rVar.Erase( nIndexStart );
138 			rVar.EraseTrailingChars();
139 			rIndex.EraseLeadingChars();
140 			rIndex.EraseTrailingChars();
141 		}
142 	}
143 
144 	if ( rVar.Len() )
145 	{
146 		sal_uInt16 nLastChar = rVar.Len()-1;
147 		if ( strchr( cSuffixes, rVar.GetChar( nLastChar ) ) )
148 			rVar.Erase( nLastChar, 1 );
149 	}
150 	if ( rIndex.Len() )
151 	{
152 		sal_uInt16 nLastChar = rIndex.Len()-1;
153 		if ( strchr( cSuffixes, rIndex.GetChar( nLastChar ) ) )
154 			rIndex.Erase( nLastChar, 1 );
155 	}
156 }
157 
158 
EditorWindow(Window * pParent)159 EditorWindow::EditorWindow( Window* pParent ) :
160 	Window( pParent, WB_BORDER )
161 {
162 	bDoSyntaxHighlight = sal_True;
163 	bDelayHighlight = sal_True;
164 	pModulWindow = 0;
165 	pEditView = 0;
166 	pEditEngine = 0;
167     pSourceViewConfig = new utl::SourceViewConfig;
168 	bHighlightning = sal_False;
169 	pProgress = 0;
170 	nCurTextWidth = 0;
171 	SetBackground(
172         Wallpaper(GetSettings().GetStyleSettings().GetFieldColor()));
173 	SetPointer( Pointer( POINTER_TEXT ) );
174 
175 	SetHelpId( HID_BASICIDE_EDITORWINDOW );
176     pSourceViewConfig->AddListener(this);
177 }
178 
179 
180 
~EditorWindow()181 __EXPORT EditorWindow::~EditorWindow()
182 {
183     pSourceViewConfig->RemoveListener(this);
184     delete pSourceViewConfig;
185 
186 	aSyntaxIdleTimer.Stop();
187 
188 	if ( pEditEngine )
189 	{
190 		EndListening( *pEditEngine );
191 		pEditEngine->RemoveView( pEditView );
192 //		pEditEngine->SetViewWin( 0 );
193 		delete pEditView;
194 		delete pEditEngine;
195 	}
196 }
197 
GetWordAtCursor()198 String EditorWindow::GetWordAtCursor()
199 {
200     String aWord;
201 
202     if ( pEditView )
203     {
204         TextEngine* pTextEngine = pEditView->GetTextEngine();
205         if ( pTextEngine )
206         {
207             // check first, if the cursor is at a help URL
208             const TextSelection& rSelection = pEditView->GetSelection();
209             const TextPaM& rSelStart = rSelection.GetStart();
210             const TextPaM& rSelEnd = rSelection.GetEnd();
211             String aText = pTextEngine->GetText( rSelEnd.GetPara() );
212             CharClass aClass( ::comphelper::getProcessServiceFactory() , Application::GetSettings().GetLocale() );
213             xub_StrLen nSelStart = static_cast< xub_StrLen >( rSelStart.GetIndex() );
214             xub_StrLen nSelEnd = static_cast< xub_StrLen >( rSelEnd.GetIndex() );
215             xub_StrLen nLength = static_cast< xub_StrLen >( aText.Len() );
216             xub_StrLen nStart = 0;
217             xub_StrLen nEnd = nLength;
218             while ( nStart < nLength )
219             {
220                 String aURL( URIHelper::FindFirstURLInText( aText, nStart, nEnd, aClass ) );
221 	            INetURLObject aURLObj( aURL );
222                 if ( aURLObj.GetProtocol() == INET_PROT_VND_SUN_STAR_HELP
223                      && nSelStart >= nStart && nSelStart <= nEnd && nSelEnd >= nStart && nSelEnd <= nEnd )
224                 {
225                     aWord = aURL;
226                     break;
227                 }
228                 nStart = nEnd;
229                 nEnd = nLength;
230             }
231 
232             // Nicht den Selektierten Bereich, sondern an der CursorPosition,
233             // falls Teil eines Worts markiert.
234             if ( !aWord.Len() )
235                 aWord = pTextEngine->GetWord( rSelEnd );
236 
237             // Kann leer sein, wenn komplettes Word markiert, da Cursor dahinter.
238             if ( !aWord.Len() && pEditView->HasSelection() )
239                 aWord = pTextEngine->GetWord( rSelStart );
240         }
241     }
242 
243     return aWord;
244 }
245 
RequestHelp(const HelpEvent & rHEvt)246 void __EXPORT EditorWindow::RequestHelp( const HelpEvent& rHEvt )
247 {
248     sal_Bool bDone = sal_False;
249 
250 	// Sollte eigentlich mal aktiviert werden...
251 	if ( pEditEngine )
252 	{
253         if ( rHEvt.GetMode() & HELPMODE_CONTEXT )
254 		{
255 			String aKeyword = GetWordAtCursor();
256 			Application::GetHelp()->SearchKeyword( aKeyword );
257             bDone = sal_True;
258         }
259 		else if ( rHEvt.GetMode() & HELPMODE_QUICK )
260 		{
261 			String aHelpText;
262 			Point aTopLeft;
263 			if ( StarBASIC::IsRunning() )
264 			{
265 				Point aWindowPos = rHEvt.GetMousePosPixel();
266 				aWindowPos = ScreenToOutputPixel( aWindowPos );
267 				Point aDocPos = GetEditView()->GetDocPos( aWindowPos );
268 				TextPaM aCursor = GetEditView()->GetTextEngine()->GetPaM( aDocPos, sal_False );
269 				TextPaM aStartOfWord;
270 				String aWord = GetEditView()->GetTextEngine()->GetWord( aCursor, &aStartOfWord );
271 				if ( aWord.Len() && !ByteString( aWord, RTL_TEXTENCODING_UTF8 ).IsNumericAscii() )
272 				{
273 					sal_uInt16 nLastChar =aWord.Len()-1;
274 					if ( strchr( cSuffixes, aWord.GetChar( nLastChar ) ) )
275 						aWord.Erase( nLastChar, 1 );
276 					SbxBase* pSBX = StarBASIC::FindSBXInCurrentScope( aWord );
277 					if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) )
278 					{
279 						SbxVariable* pVar = (SbxVariable*)pSBX;
280 						SbxDataType eType = pVar->GetType();
281 						if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
282 							// Kann zu Absturz, z.B. bei Selections-Objekt fuehren
283 							// Type == Object heisst nicht, dass pVar == Object!
284 							; // aHelpText = ((SbxObject*)pVar)->GetClassName();
285 						else if ( eType & SbxARRAY )
286 							; // aHelpText = "{...}";
287 						else if ( (sal_uInt8)eType != (sal_uInt8)SbxEMPTY )
288 						{
289 							aHelpText = pVar->GetName();
290 							if ( !aHelpText.Len() ) 	// Bei Uebergabeparametern wird der Name nicht kopiert
291 								aHelpText = aWord;
292 							aHelpText += '=';
293 							aHelpText += pVar->GetString();
294 						}
295 					}
296 					if ( aHelpText.Len() )
297 					{
298 						aTopLeft = GetEditView()->GetTextEngine()->PaMtoEditCursor( aStartOfWord ).BottomLeft();
299 						aTopLeft = GetEditView()->GetWindowPos( aTopLeft );
300 						aTopLeft.X() += 5;
301 						aTopLeft.Y() += 5;
302 						aTopLeft = OutputToScreenPixel( aTopLeft );
303 					}
304 				}
305 			}
306 			Help::ShowQuickHelp( this, Rectangle( aTopLeft, Size( 1, 1 ) ), aHelpText, QUICKHELP_TOP|QUICKHELP_LEFT);
307             bDone = sal_True;
308 		}
309 	}
310 
311     if ( !bDone )
312         Window::RequestHelp( rHEvt );
313 }
314 
315 
Resize()316 void __EXPORT EditorWindow::Resize()
317 {
318 	// ScrollBars, etc. passiert in Adjust...
319 	if ( pEditView )
320 	{
321 		long nVisY = pEditView->GetStartDocPos().Y();
322 //		pEditView->SetOutputArea( Rectangle( Point( 0, 0 ), GetOutputSize() ) );
323 		pEditView->ShowCursor();
324 		Size aOutSz( GetOutputSizePixel() );
325 		long nMaxVisAreaStart = pEditView->GetTextEngine()->GetTextHeight() - aOutSz.Height();
326 		if ( nMaxVisAreaStart < 0 )
327 			nMaxVisAreaStart = 0;
328 		if ( pEditView->GetStartDocPos().Y() > nMaxVisAreaStart )
329 		{
330 			Point aStartDocPos( pEditView->GetStartDocPos() );
331 			aStartDocPos.Y() = nMaxVisAreaStart;
332 			pEditView->SetStartDocPos( aStartDocPos );
333 			pEditView->ShowCursor();
334 			pModulWindow->GetBreakPointWindow().GetCurYOffset() = aStartDocPos.Y();
335 		}
336 		InitScrollBars();
337 		if ( nVisY != pEditView->GetStartDocPos().Y() )
338 			Invalidate();
339 	}
340 }
341 
342 
343 
MouseMove(const MouseEvent & rEvt)344 void __EXPORT EditorWindow::MouseMove( const MouseEvent &rEvt )
345 {
346 	if ( pEditView )
347 		pEditView->MouseMove( rEvt );
348 }
349 
350 
351 
MouseButtonUp(const MouseEvent & rEvt)352 void __EXPORT EditorWindow::MouseButtonUp( const MouseEvent &rEvt )
353 {
354 	if ( pEditView )
355 	{
356 		pEditView->MouseButtonUp( rEvt );
357         SfxBindings* pBindings = BasicIDE::GetBindingsPtr();
358         if ( pBindings )
359         {
360             pBindings->Invalidate( SID_COPY );
361             pBindings->Invalidate( SID_CUT );
362             pBindings->Invalidate( SID_BASICIDE_STAT_POS );
363         }
364 	}
365 }
366 
MouseButtonDown(const MouseEvent & rEvt)367 void __EXPORT EditorWindow::MouseButtonDown( const MouseEvent &rEvt )
368 {
369 	GrabFocus();
370 	if ( pEditView )
371 	{
372 		pEditView->MouseButtonDown( rEvt );
373 	}
374 }
375 
Command(const CommandEvent & rCEvt)376 void __EXPORT EditorWindow::Command( const CommandEvent& rCEvt )
377 {
378 	if ( pEditView )
379 	{
380 		pEditView->Command( rCEvt );
381 		if ( ( rCEvt.GetCommand() == COMMAND_WHEEL ) ||
382 			 ( rCEvt.GetCommand() == COMMAND_STARTAUTOSCROLL ) ||
383 			 ( rCEvt.GetCommand() == COMMAND_AUTOSCROLL ) )
384 		{
385 			HandleScrollCommand( rCEvt, pModulWindow->GetHScrollBar(), &pModulWindow->GetEditVScrollBar() );
386 		} else if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU ) {
387             BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
388             SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
389             SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
390             if ( pDispatcher )
391             {
392                 pDispatcher->ExecutePopup();
393             }
394         }
395 	}
396 }
397 
ImpCanModify()398 sal_Bool EditorWindow::ImpCanModify()
399 {
400 	sal_Bool bCanModify = sal_True;
401 	if ( StarBASIC::IsRunning() )
402 	{
403 		// Wenn im Trace-Mode, entweder Trace abbrechen oder
404 		// Eingabe verweigern
405 		// Im Notify bei Basic::Stoped die Markierungen in den Modulen
406 		// entfernen!
407 		if ( QueryBox( 0, WB_OK_CANCEL, String( IDEResId( RID_STR_WILLSTOPPRG ) ) ).Execute() == RET_OK )
408 		{
409 			pModulWindow->GetBasicStatus().bIsRunning = sal_False;
410 			BasicIDE::StopBasic();
411 		}
412 		else
413 			bCanModify = sal_False;
414 	}
415 	return bCanModify;
416 }
417 
KeyInput(const KeyEvent & rKEvt)418 void __EXPORT EditorWindow::KeyInput( const KeyEvent& rKEvt )
419 {
420 	if ( !pEditView )	// Passiert unter W95 bei letzte Version, Ctrl-Tab
421 		return;
422 
423 #if OSL_DEBUG_LEVEL > 1
424     Range aRange = pModulWindow->GetHScrollBar()->GetRange(); (void)aRange;
425     long nVisSz = pModulWindow->GetHScrollBar()->GetVisibleSize(); (void)nVisSz;
426     long nPapSz = pModulWindow->GetHScrollBar()->GetPageSize(); (void)nPapSz;
427     long nLinSz = pModulWindow->GetHScrollBar()->GetLineSize(); (void)nLinSz;
428     long nThumb = pModulWindow->GetHScrollBar()->GetThumbPos(); (void)nThumb;
429 #endif
430 	sal_Bool bDone = sal_False;
431 	sal_Bool bWasModified = pEditEngine->IsModified();
432 	if ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify() )
433 	{
434 		if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
435 			bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog
436 		else
437 		{
438 			if ( ( rKEvt.GetKeyCode().GetCode() == KEY_TAB ) && !rKEvt.GetKeyCode().IsMod1() &&
439 				  !rKEvt.GetKeyCode().IsMod2() && !GetEditView()->IsReadOnly() )
440 			{
441 				TextSelection aSel( pEditView->GetSelection() );
442 				if ( aSel.GetStart().GetPara() != aSel.GetEnd().GetPara() )
443 				{
444 					bDelayHighlight = sal_False;
445 					if ( !rKEvt.GetKeyCode().IsShift() )
446 						pEditView->IndentBlock();
447 					else
448 						pEditView->UnindentBlock();
449 					bDelayHighlight = sal_True;
450 					bDone = sal_True;
451 				}
452 			}
453 			if ( !bDone )
454 				bDone = pEditView->KeyInput( rKEvt );
455 		}
456 	}
457 	if ( !bDone )
458 	{
459 		if ( !SfxViewShell::Current()->KeyInput( rKEvt ) )
460 			Window::KeyInput( rKEvt );
461 	}
462 	else
463 	{
464         SfxBindings* pBindings = BasicIDE::GetBindingsPtr();
465         if ( pBindings )
466         {
467             pBindings->Invalidate( SID_CUT );
468             pBindings->Invalidate( SID_COPY );
469             pBindings->Invalidate( SID_BASICIDE_STAT_POS );
470 
471             if ( rKEvt.GetKeyCode().GetGroup() == KEYGROUP_CURSOR )
472                 pBindings->Update( SID_BASICIDE_STAT_POS );
473 
474             if ( !bWasModified && pEditEngine->IsModified() )
475             {
476                 pBindings->Invalidate( SID_SAVEDOC );
477                 pBindings->Invalidate( SID_DOC_MODIFIED );
478                 pBindings->Invalidate( SID_UNDO );
479             }
480 
481             if ( rKEvt.GetKeyCode().GetCode() == KEY_INSERT )
482                 pBindings->Invalidate( SID_ATTR_INSERT );
483         }
484 	}
485 }
486 
Paint(const Rectangle & rRect)487 void __EXPORT EditorWindow::Paint( const Rectangle& rRect )
488 {
489 	if ( !pEditEngine )		// spaetestens jetzt brauche ich sie...
490 		CreateEditEngine();
491 
492 	pEditView->Paint( rRect );
493 }
494 
LoseFocus()495 void __EXPORT EditorWindow::LoseFocus()
496 {
497 	SetSourceInBasic();
498 	Window::LoseFocus();
499 }
500 
SetSourceInBasic(sal_Bool bQuiet)501 sal_Bool EditorWindow::SetSourceInBasic( sal_Bool bQuiet )
502 {
503 	(void)bQuiet;
504 
505 	sal_Bool bChanged = sal_False;
506 	if ( pEditEngine && pEditEngine->IsModified()
507 		&& !GetEditView()->IsReadOnly() )	// Added because of #i60626, otherwise
508 			// any read only bug in the text engine could lead to a crash later
509 	{
510         if ( !StarBASIC::IsRunning() ) // Nicht zur Laufzeit!
511 		{
512             ::rtl::OUString aModule = getTextEngineText( pEditEngine );
513 
514             // update module in basic
515 #ifdef DBG_UTIL
516             SbModule* pModule = pModulWindow->GetSbModule();
517 #endif
518             DBG_ASSERT(pModule, "EditorWindow::SetSourceInBasic: No Module found!");
519 
520             // update module in module window
521             pModulWindow->SetModule( aModule );
522 
523             // update module in library
524             ScriptDocument aDocument( pModulWindow->GetDocument() );
525             String aLibName = pModulWindow->GetLibName();
526 	        String aName = pModulWindow->GetName();
527             OSL_VERIFY( aDocument.updateModule( aLibName, aName, aModule ) );
528 
529             pEditEngine->SetModified( sal_False );
530             BasicIDE::MarkDocumentModified( aDocument );
531             bChanged = sal_True;
532 		}
533 	}
534 	return bChanged;
535 }
536 
537 
538 // Returns the position of the last character of any of the following
539 // EOL char combinations: CR, CR/LF, LF, return -1 if no EOL is found
searchEOL(const::rtl::OUString & rStr,sal_Int32 fromIndex)540 sal_Int32 searchEOL( const ::rtl::OUString& rStr, sal_Int32 fromIndex )
541 {
542 	sal_Int32 iRetPos = -1;
543 
544 	sal_Int32 iLF = rStr.indexOf( LINE_SEP, fromIndex );
545 	if( iLF != -1 )
546 	{
547 		iRetPos = iLF;
548 	}
549 	else
550 	{
551 		iRetPos = rStr.indexOf( LINE_SEP_CR, fromIndex );
552 	}
553 	return iRetPos;
554 }
555 
556 
CreateEditEngine()557 void EditorWindow::CreateEditEngine()
558 {
559 	if ( pEditEngine )
560 		return;
561 
562 	pEditEngine = new ExtTextEngine;
563 	pEditView = new ExtTextView( pEditEngine, this );
564 	pEditView->SetAutoIndentMode( sal_True );
565 	pEditEngine->SetUpdateMode( sal_False );
566 	pEditEngine->InsertView( pEditView );
567 
568 	ImplSetFont();
569 
570 	aSyntaxIdleTimer.SetTimeout( 200 );
571 	aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, EditorWindow, SyntaxTimerHdl ) );
572 
573 	aHighlighter.initialize( HIGHLIGHT_BASIC );
574 
575 	sal_Bool bWasDoSyntaxHighlight = bDoSyntaxHighlight;
576 	bDoSyntaxHighlight = sal_False;	// Bei grossen Texten zu langsam...
577     ::rtl::OUString aOUSource( pModulWindow->GetModule() );
578 	sal_Int32 nLines = 0;
579     sal_Int32 nIndex = -1;
580     do
581     {
582         nLines++;
583 		nIndex = searchEOL( aOUSource, nIndex+1 );
584     }
585     while ( nIndex >= 0 );
586 
587 	// nLines*4: SetText+Formatting+DoHighlight+Formatting
588 	// 1 Formatting koennte eingespart werden, aber dann wartet man
589 	// bei einem langen Sourcecode noch laenger auf den Text...
590 	pProgress = new ProgressInfo( IDE_DLL()->GetShell()->GetViewFrame()->GetObjectShell(), String( IDEResId( RID_STR_GENERATESOURCE ) ), nLines*4 );
591     setTextEngineText( pEditEngine, aOUSource );
592 
593 	pEditView->SetStartDocPos( Point( 0, 0 ) );
594 	pEditView->SetSelection( TextSelection() );
595 	pModulWindow->GetBreakPointWindow().GetCurYOffset() = 0;
596 	pEditEngine->SetUpdateMode( sal_True );
597 	Update();	// Es wurde bei UpdateMode = sal_True nur Invalidiert
598 
599 	// Die anderen Fenster auch, damit keine halben Sachen auf dem Bildschirm!
600 	pModulWindow->GetLayout()->GetWatchWindow().Update();
601 	pModulWindow->GetLayout()->GetStackWindow().Update();
602 	pModulWindow->GetBreakPointWindow().Update();
603 
604 	pEditView->ShowCursor( sal_True, sal_True );
605 
606 	StartListening( *pEditEngine );
607 
608 	// Das Syntax-Highlightning legt ein rel. groesse VDev an.
609 	aSyntaxIdleTimer.Stop();
610 	bDoSyntaxHighlight = bWasDoSyntaxHighlight;
611 
612 
613 	for ( sal_uInt16 nLine = 0; nLine < nLines; nLine++ )
614 		aSyntaxLineTable.Insert( nLine, (void*)(sal_uInt16)1 );
615 	ForceSyntaxTimeout();
616 
617 	DELETEZ( pProgress );
618 
619 	pEditView->EraseVirtualDevice();
620 	pEditEngine->SetModified( sal_False );
621 	pEditEngine->EnableUndo( sal_True );
622 
623 	InitScrollBars();
624 
625     SfxBindings* pBindings = BasicIDE::GetBindingsPtr();
626     if ( pBindings )
627         pBindings->Invalidate( SID_BASICIDE_STAT_POS );
628 
629 	DBG_ASSERT( pModulWindow->GetBreakPointWindow().GetCurYOffset() == 0, "CreateEditEngine: Brechpunkte verschoben?" );
630 
631     // set readonly mode for readonly libraries
632     ScriptDocument aDocument( pModulWindow->GetDocument() );
633     ::rtl::OUString aOULibName( pModulWindow->GetLibName() );
634     Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
635     if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) )
636     {
637         pModulWindow->SetReadOnly( sal_True );
638     }
639 
640     if ( aDocument.isDocument() && aDocument.isReadOnly() )
641 		pModulWindow->SetReadOnly( sal_True );
642 }
643 
644 // virtual
DataChanged(DataChangedEvent const & rDCEvt)645 void EditorWindow::DataChanged(DataChangedEvent const & rDCEvt)
646 {
647     Window::DataChanged(rDCEvt);
648     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
649         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
650     {
651         Color aColor(GetSettings().GetStyleSettings().GetFieldColor());
652         if (aColor
653             != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor())
654         {
655             SetBackground(Wallpaper(aColor));
656             Invalidate();
657         }
658         if (pEditEngine != 0)
659         {
660             aColor = GetSettings().GetStyleSettings().GetFieldTextColor();
661             if (aColor != rDCEvt.GetOldSettings()->
662                 GetStyleSettings().GetFieldTextColor())
663             {
664                 Font aFont(pEditEngine->GetFont());
665                 aFont.SetColor(aColor);
666                 pEditEngine->SetFont(aFont);
667             }
668         }
669     }
670 }
671 
Notify(SfxBroadcaster &,const SfxHint & rHint)672 void EditorWindow::Notify( SfxBroadcaster& /*rBC*/, const SfxHint& rHint )
673 {
674 	if ( rHint.ISA( TextHint ) )
675 	{
676 		const TextHint& rTextHint = (const TextHint&)rHint;
677 		if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED )
678 		{
679 			if ( pModulWindow->GetHScrollBar() )
680 				pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
681 			pModulWindow->GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() );
682 			pModulWindow->GetBreakPointWindow().DoScroll
683 				( 0, pModulWindow->GetBreakPointWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() );
684 		}
685 		else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED )
686 		{
687 			if ( pEditView->GetStartDocPos().Y() )
688 			{
689 				long nOutHeight = GetOutputSizePixel().Height();
690 				long nTextHeight = pEditEngine->GetTextHeight();
691 				if ( nTextHeight < nOutHeight )
692 					pEditView->Scroll( 0, pEditView->GetStartDocPos().Y() );
693 			}
694 
695 			SetScrollBarRanges();
696 		}
697 		else if( rTextHint.GetId() == TEXT_HINT_TEXTFORMATTED )
698 		{
699 			if ( pModulWindow->GetHScrollBar() )
700 			{
701 				sal_uLong nWidth = pEditEngine->CalcTextWidth();
702 				if ( (long)nWidth != nCurTextWidth )
703 				{
704 					nCurTextWidth = nWidth;
705 					pModulWindow->GetHScrollBar()->SetRange( Range( 0, (long)nCurTextWidth-1) );
706 					pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
707 				}
708 			}
709 			long nPrevTextWidth = nCurTextWidth;
710 			nCurTextWidth = pEditEngine->CalcTextWidth();
711 			if ( nCurTextWidth != nPrevTextWidth )
712 				SetScrollBarRanges();
713 		}
714 		else if( rTextHint.GetId() == TEXT_HINT_PARAINSERTED )
715 		{
716 			ParagraphInsertedDeleted( rTextHint.GetValue(), sal_True );
717 			DoDelayedSyntaxHighlight( rTextHint.GetValue() );
718 		}
719 		else if( rTextHint.GetId() == TEXT_HINT_PARAREMOVED )
720 		{
721 			ParagraphInsertedDeleted( rTextHint.GetValue(), sal_False );
722 		}
723 		else if( rTextHint.GetId() == TEXT_HINT_PARACONTENTCHANGED )
724 		{
725 			DoDelayedSyntaxHighlight( rTextHint.GetValue() );
726 		}
727 	}
728 }
729 
ConfigurationChanged(utl::ConfigurationBroadcaster *,sal_uInt32)730 void EditorWindow::ConfigurationChanged( utl::ConfigurationBroadcaster*, sal_uInt32 )
731 {
732     ImplSetFont();
733 }
734 
SetScrollBarRanges()735 void EditorWindow::SetScrollBarRanges()
736 {
737 	// Extra-Methode, nicht InitScrollBars, da auch fuer EditEngine-Events.
738 	if ( !pEditEngine )
739 		return;
740 
741 	if ( pModulWindow->GetHScrollBar() )
742 		pModulWindow->GetHScrollBar()->SetRange( Range( 0, nCurTextWidth-1 ) );
743 
744 	pModulWindow->GetEditVScrollBar().SetRange( Range( 0, pEditEngine->GetTextHeight()-1 ) );
745 }
746 
InitScrollBars()747 void EditorWindow::InitScrollBars()
748 {
749 	if ( !pEditEngine )
750 		return;
751 
752 	SetScrollBarRanges();
753 	Size aOutSz( GetOutputSizePixel() );
754 	pModulWindow->GetEditVScrollBar().SetVisibleSize( aOutSz.Height() );
755 	pModulWindow->GetEditVScrollBar().SetPageSize( aOutSz.Height() * 8 / 10 );
756 	pModulWindow->GetEditVScrollBar().SetLineSize( GetTextHeight() );
757 	pModulWindow->GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() );
758 	pModulWindow->GetEditVScrollBar().Show();
759 
760 	if ( pModulWindow->GetHScrollBar() )
761 	{
762 		pModulWindow->GetHScrollBar()->SetVisibleSize( aOutSz.Width() );
763 		pModulWindow->GetHScrollBar()->SetPageSize( aOutSz.Width() * 8 / 10 );
764 		pModulWindow->GetHScrollBar()->SetLineSize( GetTextWidth( 'x' ) );
765 		pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
766 		pModulWindow->GetHScrollBar()->Show();
767 	}
768 }
769 
ImpDoHighlight(sal_uLong nLine)770 void EditorWindow::ImpDoHighlight( sal_uLong nLine )
771 {
772 	if ( bDoSyntaxHighlight )
773 	{
774 		String aLine( pEditEngine->GetText( nLine ) );
775 		Range aChanges = aHighlighter.notifyChange( nLine, 0, &aLine, 1 );
776 		if ( aChanges.Len() )
777 		{
778 			for ( long n = aChanges.Min() + 1; n <= aChanges.Max(); n++ )
779 				aSyntaxLineTable.Insert( n, (void*)(sal_uLong)1 );
780 			aSyntaxIdleTimer.Start();
781 		}
782 
783 		sal_Bool bWasModified = pEditEngine->IsModified();
784 		pEditEngine->RemoveAttribs( nLine, sal_True );
785 		HighlightPortions aPortions;
786 		aHighlighter.getHighlightPortions( nLine, aLine, aPortions );
787 
788 		for ( size_t i = 0; i < aPortions.size(); i++ )
789 		{
790 			HighlightPortion& r = aPortions[i];
791 			const Color& rColor = ((ModulWindowLayout*)pModulWindow->GetLayoutWindow())->getSyntaxColor(r.tokenType);
792 			pEditEngine->SetAttrib( TextAttribFontColor( rColor ), nLine, r.nBegin, r.nEnd, sal_True );
793 		}
794 
795 		// Das Highlighten soll kein Modify setzen
796 		pEditEngine->SetModified( bWasModified );
797 	}
798 }
799 
ImplSetFont()800 void EditorWindow::ImplSetFont()
801 {
802     if ( pSourceViewConfig )
803 	{
804 		String sFontName = pSourceViewConfig->GetFontName();
805 		if ( !sFontName.Len() )
806 		{
807 			Font aTmpFont( OutputDevice::GetDefaultFont( DEFAULTFONT_FIXED, Application::GetSettings().GetUILanguage(), 0 , this ) );
808 			sFontName = aTmpFont.GetName();
809 		}
810 		Size aFontSize( 0, pSourceViewConfig->GetFontHeight() );
811 		Font aFont( sFontName, aFontSize );
812 		aFont.SetColor( GetSettings().GetStyleSettings().GetFieldTextColor() );
813 		SetPointFont( aFont );
814 		aFont = GetFont();
815 
816 		if ( pModulWindow )
817 			pModulWindow->GetBreakPointWindow().SetFont( aFont );
818 
819 		if ( pEditEngine )
820 		{
821 			sal_Bool bModified = pEditEngine->IsModified();
822 			pEditEngine->SetFont( aFont );
823 			pEditEngine->SetModified( bModified );
824 		}
825 	}
826 }
827 
DoSyntaxHighlight(sal_uLong nPara)828 void EditorWindow::DoSyntaxHighlight( sal_uLong nPara )
829 {
830 	// Durch das DelayedSyntaxHighlight kann es passieren,
831 	// dass die Zeile nicht mehr existiert!
832 	if ( nPara < pEditEngine->GetParagraphCount() )
833 	{
834 		// leider weis ich nicht, ob genau diese Zeile Modified() ...
835 		if ( pProgress )
836 			pProgress->StepProgress();
837 		ImpDoHighlight( nPara );
838 	}
839 }
840 
DoDelayedSyntaxHighlight(sal_uLong nPara)841 void EditorWindow::DoDelayedSyntaxHighlight( sal_uLong nPara )
842 {
843 	// Zeile wird nur in 'Liste' aufgenommen, im TimerHdl abgearbeitet.
844 	// => Nicht Absaetze manipulieren, waehrend EditEngine formatiert.
845 	if ( pProgress )
846 		pProgress->StepProgress();
847 
848 	if ( !bHighlightning && bDoSyntaxHighlight )
849 	{
850 		if ( bDelayHighlight )
851 		{
852 			aSyntaxLineTable.Insert( nPara, (void*)(sal_uLong)1 );
853 			aSyntaxIdleTimer.Start();
854 		}
855 		else
856 			DoSyntaxHighlight( nPara );
857 	}
858 }
859 
IMPL_LINK(EditorWindow,SyntaxTimerHdl,Timer *,EMPTYARG)860 IMPL_LINK( EditorWindow, SyntaxTimerHdl, Timer *, EMPTYARG )
861 {
862 	DBG_ASSERT( pEditView, "Noch keine View, aber Syntax-Highlight ?!" );
863 
864 	sal_Bool bWasModified = pEditEngine->IsModified();
865 	// pEditEngine->SetUpdateMode( sal_False );
866 
867 	bHighlightning = sal_True;
868 	sal_uInt16 nLine;
869 	void* p = aSyntaxLineTable.First();
870 	while ( p )
871 	{
872 		nLine = (sal_uInt16)aSyntaxLineTable.GetCurKey();
873 		DoSyntaxHighlight( nLine );
874 		p = aSyntaxLineTable.Next();
875 	}
876 
877     // MT: Removed, because of idle format now when set/remove attribs...
878     // pEditView->SetAutoScroll( sal_False );  // #101043# Don't scroll because of syntax highlight
879     // pEditEngine->SetUpdateMode( sal_True );
880 	// pEditView->ShowCursor( sal_False, sal_True );
881     // pEditView->SetAutoScroll( sal_True );
882 
883     // #i45572#
884     if ( pEditView )
885         pEditView->ShowCursor( sal_False, sal_True );
886 
887 	pEditEngine->SetModified( bWasModified );
888 
889 	aSyntaxLineTable.Clear();
890 	bHighlightning = sal_False;
891 
892 	return 0;
893 }
894 
ParagraphInsertedDeleted(sal_uLong nPara,sal_Bool bInserted)895 void EditorWindow::ParagraphInsertedDeleted( sal_uLong nPara, sal_Bool bInserted )
896 {
897 	if ( pProgress )
898 		pProgress->StepProgress();
899 
900 	if ( !bInserted && ( nPara == TEXT_PARA_ALL ) )
901 	{
902 		pModulWindow->GetBreakPoints().reset();
903 		pModulWindow->GetBreakPointWindow().Invalidate();
904 		aHighlighter.initialize( HIGHLIGHT_BASIC );
905 	}
906 	else
907 	{
908 		// Brechpunkte Aktualisieren...
909 		// keine Sonderbehandlung fuer EditEngine-CTOR ( Erste-Zeile-Problem ),
910 		// da in diesem Moment noch keine BreakPoints.
911 		// +1: Basic-Zeilen beginnen bei 1!
912 		pModulWindow->GetBreakPoints().AdjustBreakPoints( (sal_uInt16)nPara+1, bInserted );
913 
914 		// Im BreakPointWindow invalidieren...
915 		long nLineHeight = GetTextHeight();
916 		Size aSz = pModulWindow->GetBreakPointWindow().GetOutputSize();
917 		Rectangle aInvRec( Point( 0, 0 ), aSz );
918 		long nY = nPara*nLineHeight - pModulWindow->GetBreakPointWindow().GetCurYOffset();
919 		aInvRec.Top() = nY;
920 		pModulWindow->GetBreakPointWindow().Invalidate( aInvRec );
921 
922 		if ( bDoSyntaxHighlight )
923 		{
924 			String aDummy;
925 			aHighlighter.notifyChange( nPara, bInserted ? 1 : (-1), &aDummy, 1 );
926 		}
927 	}
928 }
929 
CreateProgress(const String & rText,sal_uLong nRange)930 void EditorWindow::CreateProgress( const String& rText, sal_uLong nRange )
931 {
932 	DBG_ASSERT( !pProgress, "ProgressInfo existiert schon" );
933 	pProgress = new ProgressInfo( IDE_DLL()->GetShell()->GetViewFrame()->GetObjectShell(), rText, nRange );
934 }
935 
DestroyProgress()936 void EditorWindow::DestroyProgress()
937 {
938 	DELETEZ( pProgress );
939 }
940 
ForceSyntaxTimeout()941 void EditorWindow::ForceSyntaxTimeout()
942 {
943 	aSyntaxIdleTimer.Stop();
944 	((Link&)aSyntaxIdleTimer.GetTimeoutHdl()).Call( &aSyntaxIdleTimer );
945 }
946 
947 
948 
BreakPointWindow(Window * pParent)949 BreakPointWindow::BreakPointWindow( Window* pParent ) :
950 	Window( pParent, WB_BORDER )
951 {
952 	pModulWindow = 0;
953 	nCurYOffset = 0;
954     setBackgroundColor(GetSettings().GetStyleSettings().GetFieldColor());
955     m_bHighContrastMode = GetSettings().GetStyleSettings().GetHighContrastMode();
956 	nMarkerPos = MARKER_NOMARKER;
957 
958 	// nCurYOffset merken und nicht von EditEngine holen.
959 	// Falls in EditEngine autom. gescrollt wurde, wuesste ich sonst nicht,
960 	// wo ich gerade stehe.
961 
962 	SetHelpId( HID_BASICIDE_BREAKPOINTWINDOW );
963 }
964 
965 
966 
~BreakPointWindow()967 __EXPORT BreakPointWindow::~BreakPointWindow()
968 {
969 }
970 
971 
972 
Resize()973 void __EXPORT BreakPointWindow::Resize()
974 {
975 ///	Invalidate();
976 }
977 
978 
979 
Paint(const Rectangle &)980 void __EXPORT BreakPointWindow::Paint( const Rectangle& )
981 {
982 	if ( SyncYOffset() )
983 		return;
984 
985 	Size aOutSz( GetOutputSize() );
986 	long nLineHeight = GetTextHeight();
987 
988 	Image aBrk1(((ModulWindowLayout *) pModulWindow->GetLayoutWindow())->
989                 getImage(IMGID_BRKENABLED, m_bHighContrastMode));
990 	Image aBrk0(((ModulWindowLayout *) pModulWindow->GetLayoutWindow())->
991                 getImage(IMGID_BRKDISABLED, m_bHighContrastMode));
992 	Size aBmpSz( aBrk1.GetSizePixel() );
993 	aBmpSz = PixelToLogic( aBmpSz );
994 	Point aBmpOff( 0, 0 );
995 	aBmpOff.X() = ( aOutSz.Width() - aBmpSz.Width() ) / 2;
996 	aBmpOff.Y() = ( nLineHeight - aBmpSz.Height() ) / 2;
997 
998 	BreakPoint* pBrk = GetBreakPoints().First();
999 	while ( pBrk )
1000 	{
1001 		sal_uLong nLine = pBrk->nLine-1;
1002 		sal_uLong nY = nLine*nLineHeight - nCurYOffset;
1003 		DrawImage( Point( 0, nY ) + aBmpOff, pBrk->bEnabled ? aBrk1 : aBrk0 );
1004 		pBrk = GetBreakPoints().Next();
1005 	}
1006 	ShowMarker( sal_True );
1007 }
1008 
1009 
1010 
DoScroll(long nHorzScroll,long nVertScroll)1011 void BreakPointWindow::DoScroll( long nHorzScroll, long nVertScroll )
1012 {
1013 	nCurYOffset -= nVertScroll;
1014 	Window::Scroll( nHorzScroll, nVertScroll );
1015 }
1016 
1017 
1018 
SetMarkerPos(sal_uInt16 nLine,sal_Bool bError)1019 void BreakPointWindow::SetMarkerPos( sal_uInt16 nLine, sal_Bool bError )
1020 {
1021 	if ( SyncYOffset() )
1022 		Update();
1023 
1024 	ShowMarker( sal_False );	// Alten wegzeichen...
1025 	nMarkerPos = nLine;
1026 	bErrorMarker = bError;
1027 	ShowMarker( sal_True );		// Neuen zeichnen...
1028 }
1029 
ShowMarker(sal_Bool bShow)1030 void BreakPointWindow::ShowMarker( sal_Bool bShow )
1031 {
1032 	if ( nMarkerPos == MARKER_NOMARKER )
1033 		return;
1034 
1035 	Size aOutSz( GetOutputSize() );
1036 	long nLineHeight = GetTextHeight();
1037 
1038 	Image aMarker(((ModulWindowLayout*)pModulWindow->GetLayoutWindow())->
1039                   getImage(bErrorMarker
1040                            ? IMGID_ERRORMARKER : IMGID_STEPMARKER,
1041                            m_bHighContrastMode));
1042 
1043 	Size aMarkerSz( aMarker.GetSizePixel() );
1044 	aMarkerSz = PixelToLogic( aMarkerSz );
1045 	Point aMarkerOff( 0, 0 );
1046 	aMarkerOff.X() = ( aOutSz.Width() - aMarkerSz.Width() ) / 2;
1047 	aMarkerOff.Y() = ( nLineHeight - aMarkerSz.Height() ) / 2;
1048 
1049 	sal_uLong nY = nMarkerPos*nLineHeight - nCurYOffset;
1050 	Point aPos( 0, nY );
1051 	aPos += aMarkerOff;
1052 	if ( bShow )
1053 		DrawImage( aPos, aMarker );
1054 	else
1055 		Invalidate( Rectangle( aPos, aMarkerSz ) );
1056 }
1057 
1058 
1059 
1060 
FindBreakPoint(const Point & rMousePos)1061 BreakPoint*	BreakPointWindow::FindBreakPoint( const Point& rMousePos )
1062 {
1063 	long nLineHeight = GetTextHeight();
1064 	long nYPos = rMousePos.Y() + nCurYOffset;
1065 //	Image aBrk( ((ModulWindowLayout*)pModulWindow->GetLayoutWindow())->GetImage( IMGID_BRKENABLED ) );
1066 //	Size aBmpSz( aBrk.GetSizePixel() );
1067 //	aBmpSz = PixelToLogic( aBmpSz );
1068 
1069 	BreakPoint* pBrk = GetBreakPoints().First();
1070 	while ( pBrk )
1071 	{
1072 		sal_uLong nLine = pBrk->nLine-1;
1073 		long nY = nLine*nLineHeight;
1074 		if ( ( nYPos > nY ) && ( nYPos < ( nY + nLineHeight ) ) )
1075 			return pBrk;
1076 		pBrk = GetBreakPoints().Next();
1077 	}
1078 	return 0;
1079 }
1080 
MouseButtonDown(const MouseEvent & rMEvt)1081 void __EXPORT BreakPointWindow::MouseButtonDown( const MouseEvent& rMEvt )
1082 {
1083 	if ( rMEvt.GetClicks() == 2 )
1084 	{
1085 		Point aMousePos( PixelToLogic( rMEvt.GetPosPixel() ) );
1086 		long nLineHeight = GetTextHeight();
1087 		long nYPos = aMousePos.Y() + nCurYOffset;
1088 		long nLine = nYPos / nLineHeight + 1;
1089 		pModulWindow->ToggleBreakPoint( (sal_uLong)nLine );
1090 		// vielleicht mal etwas genauer...
1091 		Invalidate();
1092 	}
1093 }
1094 
1095 
1096 
Command(const CommandEvent & rCEvt)1097 void __EXPORT BreakPointWindow::Command( const CommandEvent& rCEvt )
1098 {
1099 	if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU )
1100 	{
1101 		Point aPos( rCEvt.IsMouseEvent() ? rCEvt.GetMousePosPixel() : Point(1,1) );
1102 		Point aEventPos( PixelToLogic( aPos ) );
1103 		BreakPoint* pBrk = rCEvt.IsMouseEvent() ? FindBreakPoint( aEventPos ) : 0;
1104 		if ( pBrk )
1105 		{
1106 			// prueffen, ob Brechpunkt enabled....
1107 			PopupMenu aBrkPropMenu( IDEResId( RID_POPUP_BRKPROPS ) );
1108 			aBrkPropMenu.CheckItem( RID_ACTIV, pBrk->bEnabled );
1109 			switch ( aBrkPropMenu.Execute( this, aPos ) )
1110 			{
1111 				case RID_ACTIV:
1112 				{
1113 					pBrk->bEnabled = pBrk->bEnabled ? sal_False : sal_True;
1114 					pModulWindow->UpdateBreakPoint( *pBrk );
1115 					Invalidate();
1116 				}
1117 				break;
1118 				case RID_BRKPROPS:
1119 				{
1120 					BreakPointDialog aBrkDlg( this, GetBreakPoints() );
1121 					aBrkDlg.SetCurrentBreakPoint( pBrk );
1122 					aBrkDlg.Execute();
1123 					Invalidate();
1124 				}
1125 				break;
1126 			}
1127 		}
1128 		else
1129 		{
1130 			PopupMenu aBrkListMenu( IDEResId( RID_POPUP_BRKDLG ) );
1131 			switch ( aBrkListMenu.Execute( this, aPos ) )
1132 			{
1133 				case RID_BRKDLG:
1134 				{
1135 					BreakPointDialog aBrkDlg( this, GetBreakPoints() );
1136 					aBrkDlg.Execute();
1137 					Invalidate();
1138 				}
1139 				break;
1140 			}
1141 		}
1142 	}
1143 }
1144 
SyncYOffset()1145 sal_Bool BreakPointWindow::SyncYOffset()
1146 {
1147 	TextView* pView = pModulWindow->GetEditView();
1148 	if ( pView )
1149 	{
1150 		long nViewYOffset = pView->GetStartDocPos().Y();
1151 		if ( nCurYOffset != nViewYOffset )
1152 		{
1153 			nCurYOffset = nViewYOffset;
1154 			Invalidate();
1155 			return sal_True;
1156 		}
1157 	}
1158 	return sal_False;
1159 }
1160 
1161 // virtual
DataChanged(DataChangedEvent const & rDCEvt)1162 void BreakPointWindow::DataChanged(DataChangedEvent const & rDCEvt)
1163 {
1164     Window::DataChanged(rDCEvt);
1165     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
1166         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
1167     {
1168         Color aColor(GetSettings().GetStyleSettings().GetFieldColor());
1169         if (aColor
1170             != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor())
1171         {
1172             setBackgroundColor(aColor);
1173             m_bHighContrastMode = GetSettings().GetStyleSettings().GetHighContrastMode();
1174             Invalidate();
1175         }
1176     }
1177 }
1178 
setBackgroundColor(Color aColor)1179 void BreakPointWindow::setBackgroundColor(Color aColor)
1180 {
1181 	SetBackground(Wallpaper(aColor));
1182 }
1183 
1184 
1185 const sal_uInt16 ITEM_ID_VARIABLE = 1;
1186 const sal_uInt16 ITEM_ID_VALUE = 2;
1187 const sal_uInt16 ITEM_ID_TYPE = 3;
1188 
WatchWindow(Window * pParent)1189 WatchWindow::WatchWindow( Window* pParent ) :
1190 	BasicDockingWindow( pParent ),
1191 	aWatchStr( IDEResId( RID_STR_REMOVEWATCH ) ),
1192 	aXEdit( this, IDEResId( RID_EDT_WATCHEDIT ) ),
1193 	aRemoveWatchButton( this, IDEResId( RID_IMGBTN_REMOVEWATCH ) ),
1194 	aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HASBUTTONS | WB_HASLINES | WB_HSCROLL | WB_TABSTOP
1195 								  | WB_HASLINESATROOT | WB_HASBUTTONSATROOT ),
1196 	aHeaderBar( this, WB_BUTTONSTYLE | WB_BORDER )
1197 {
1198 	aXEdit.SetAccessibleName(String(IDEResId( RID_STR_WATCHNAME)));
1199 	aTreeListBox.SetAccessibleName(String(IDEResId(RID_STR_WATCHNAME)));
1200 
1201 	nVirtToolBoxHeight = aXEdit.GetSizePixel().Height() + 7;
1202 	nHeaderBarHeight = 16;
1203 
1204     aTreeListBox.SetHelpId(HID_BASICIDE_WATCHWINDOW_LIST);
1205 	aTreeListBox.EnableInplaceEditing( sal_True );
1206 	aTreeListBox.SetSelectHdl( LINK( this, WatchWindow, TreeListHdl ) );
1207 	aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight + nHeaderBarHeight ) );
1208 	aTreeListBox.SetHighlightRange( 1, 5 );
1209 
1210 	Point aPnt( DWBORDER, nVirtToolBoxHeight + 1 );
1211 	aHeaderBar.SetPosPixel( aPnt );
1212 	aHeaderBar.SetEndDragHdl( LINK( this, WatchWindow, implEndDragHdl ) );
1213 
1214 	long nVarTabWidth = 220;
1215 	long nValueTabWidth = 100;
1216 	long nTypeTabWidth = 1250;
1217     aHeaderBar.InsertItem( ITEM_ID_VARIABLE, String( IDEResId( RID_STR_WATCHVARIABLE ) ), nVarTabWidth );
1218     aHeaderBar.InsertItem( ITEM_ID_VALUE, String( IDEResId( RID_STR_WATCHVALUE ) ), nValueTabWidth );
1219     aHeaderBar.InsertItem( ITEM_ID_TYPE, String( IDEResId( RID_STR_WATCHTYPE ) ), nTypeTabWidth );
1220 
1221     long tabs[ 4 ];
1222     tabs[ 0 ] = 3; // two tabs
1223     tabs[ 1 ] = 0;
1224     tabs[ 2 ] = nVarTabWidth;
1225     tabs[ 3 ] = nVarTabWidth + nValueTabWidth;
1226 	aTreeListBox.SvHeaderTabListBox::SetTabs( tabs, MAP_PIXEL );
1227 	aTreeListBox.InitHeaderBar( &aHeaderBar );
1228 
1229 	aTreeListBox.SetNodeDefaultImages( );
1230 
1231 	aHeaderBar.Show();
1232 
1233 	aRemoveWatchButton.Disable();
1234 
1235 	aTreeListBox.Show();
1236 
1237 	long nTextLen = GetTextWidth( aWatchStr ) + DWBORDER;
1238 	aXEdit.SetPosPixel( Point( nTextLen, 3 ) );
1239 	aXEdit.SetAccHdl( LINK( this, WatchWindow, EditAccHdl ) );
1240 	aXEdit.GetAccelerator().InsertItem( 1, KeyCode( KEY_RETURN ) );
1241 	aXEdit.GetAccelerator().InsertItem( 2, KeyCode( KEY_ESCAPE ) );
1242 	aXEdit.Show();
1243 
1244     aRemoveWatchButton.SetModeImage(Image(IDEResId(RID_IMG_REMOVEWATCH_HC)),
1245                                     BMP_COLOR_HIGHCONTRAST);
1246 	aRemoveWatchButton.SetClickHdl( LINK( this, WatchWindow, ButtonHdl ) );
1247 	aRemoveWatchButton.SetPosPixel( Point( nTextLen + aXEdit.GetSizePixel().Width() + 4, 2 ) );
1248 	Size aSz( aRemoveWatchButton.GetModeImage().GetSizePixel() );
1249 	aSz.Width() += 6;
1250 	aSz.Height() += 6;
1251 	aRemoveWatchButton.SetSizePixel( aSz );
1252 	aRemoveWatchButton.Show();
1253 
1254 	SetText( String( IDEResId( RID_STR_WATCHNAME ) ) );
1255 
1256 	SetHelpId( HID_BASICIDE_WATCHWINDOW );
1257 
1258 	// make watch window keyboard accessible
1259 	GetSystemWindow()->GetTaskPaneList()->AddWindow( this );
1260 }
1261 
1262 
1263 
~WatchWindow()1264 __EXPORT WatchWindow::~WatchWindow()
1265 {
1266 	GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this );
1267 }
1268 
1269 
1270 
Paint(const Rectangle &)1271 void __EXPORT WatchWindow::Paint( const Rectangle& )
1272 {
1273 	DrawText( Point( DWBORDER, 7 ), aWatchStr );
1274 	lcl_DrawIDEWindowFrame( this );
1275 }
1276 
1277 
1278 
Resize()1279 void __EXPORT WatchWindow::Resize()
1280 {
1281 	Size aSz = GetOutputSizePixel();
1282 	Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER );
1283 
1284 	if ( aBoxSz.Width() < 4 )	// < 4, weil noch Border...
1285 		aBoxSz.Width() = 0;
1286 	if ( aBoxSz.Height() < 4 )
1287 		aBoxSz.Height() = 0;
1288 
1289 	aBoxSz.Height() -= nHeaderBarHeight;
1290 	aTreeListBox.SetSizePixel( aBoxSz );
1291     aTreeListBox.GetHScroll()->SetPageSize( aTreeListBox.GetHScroll()->GetVisibleSize() );
1292 
1293 	aBoxSz.Height() = nHeaderBarHeight;
1294 	aHeaderBar.SetSizePixel( aBoxSz );
1295 
1296 	Invalidate();	//Wegen DrawLine im Paint...
1297 }
1298 
1299 struct MemberList
1300 {
1301 	String*			mpMemberNames;
1302 	int				mnMemberCount;
1303 
MemberListMemberList1304 	MemberList( void )
1305 		: mpMemberNames( NULL )
1306 		, mnMemberCount( 0 )
1307 	{}
~MemberListMemberList1308 	~MemberList()
1309 	{
1310 		clear();
1311 	}
1312 
1313 	void clear( void );
1314 	void allocList( int nCount );
1315 };
1316 
clear(void)1317 void MemberList::clear( void )
1318 {
1319 	if( mnMemberCount )
1320 	{
1321 		delete[] mpMemberNames;
1322 		mnMemberCount = 0;
1323 	}
1324 }
1325 
allocList(int nCount)1326 void MemberList::allocList( int nCount )
1327 {
1328 	clear();
1329 	if( nCount > 0 )
1330 	{
1331 		mnMemberCount = nCount;
1332 		mpMemberNames = new String[ mnMemberCount ];
1333 	}
1334 }
1335 
1336 struct WatchItem
1337 {
1338     String          maName;
1339     String          maDisplayName;
1340     SbxObjectRef    mpObject;
1341 	MemberList		maMemberList;
1342 
1343     SbxDimArrayRef	mpArray;
1344 	int				nDimLevel;	// 0 = Root
1345 	int				nDimCount;
1346 	short*			pIndices;
1347 
1348 	WatchItem*		mpArrayParentItem;
1349 
WatchItemWatchItem1350     WatchItem( void )
1351 		: nDimLevel( 0 )
1352 		, nDimCount( 0 )
1353 		, pIndices( NULL )
1354 		, mpArrayParentItem( NULL )
1355     {}
~WatchItemWatchItem1356     ~WatchItem()
1357 		{ clearWatchItem(); }
1358 
clearWatchItemWatchItem1359 	void clearWatchItem( bool bIncludeArrayData=true )
1360 	{
1361 		mpObject = NULL;
1362 		maMemberList.clear();
1363 		if( bIncludeArrayData )
1364 		{
1365 			mpArray = NULL;
1366 			nDimLevel = 0;
1367 			nDimCount = 0;
1368 			delete[] pIndices;
1369 			pIndices = NULL;
1370 		}
1371 	}
1372 
1373 	WatchItem* GetRootItem( void );
1374 	SbxDimArray* GetRootArray( void );
1375 };
1376 
GetRootItem(void)1377 WatchItem* WatchItem::GetRootItem( void )
1378 {
1379 	WatchItem* pItem = mpArrayParentItem;
1380 	while( pItem )
1381 	{
1382 		if( pItem->mpArray.Is() )
1383 			break;
1384 		pItem = pItem->mpArrayParentItem;
1385 	}
1386 	return pItem;
1387 }
1388 
GetRootArray(void)1389 SbxDimArray* WatchItem::GetRootArray( void )
1390 {
1391 	WatchItem* pRootItem = GetRootItem();
1392 	SbxDimArray* pRet = NULL;
1393 	if( pRootItem )
1394 		pRet = pRootItem->mpArray;
1395 	return pRet;
1396 }
1397 
AddWatch(const String & rVName)1398 void WatchWindow::AddWatch( const String& rVName )
1399 {
1400 	WatchItem* pWatchItem = new WatchItem;
1401 	String aVar, aIndex;
1402 	lcl_SeparateNameAndIndex( rVName, aVar, aIndex );
1403 	pWatchItem->maName = aVar;
1404 
1405 	String aWatchStr_( aVar );
1406 	aWatchStr_ += String( RTL_CONSTASCII_USTRINGPARAM( "\t\t" ) );
1407 	SvLBoxEntry* pNewEntry = aTreeListBox.InsertEntry( aWatchStr_, 0, sal_True, LIST_APPEND );
1408 	pNewEntry->SetUserData( pWatchItem );
1409 
1410 	aTreeListBox.Select( pNewEntry, sal_True );
1411 	aTreeListBox.MakeVisible( pNewEntry );
1412 	aRemoveWatchButton.Enable();
1413 }
1414 
RemoveSelectedWatch()1415 sal_Bool WatchWindow::RemoveSelectedWatch()
1416 {
1417 	SvLBoxEntry* pEntry = aTreeListBox.GetCurEntry();
1418 	if ( pEntry )
1419 	{
1420 		aTreeListBox.GetModel()->Remove( pEntry );
1421 		pEntry = aTreeListBox.GetCurEntry();
1422 		if ( pEntry )
1423 			aXEdit.SetText( ((WatchItem*)pEntry->GetUserData())->maName );
1424 		else
1425 			aXEdit.SetText( String() );
1426 		if ( !aTreeListBox.GetEntryCount() )
1427 			aRemoveWatchButton.Disable();
1428 		return sal_True;
1429 	}
1430 	else
1431 		return sal_False;
1432 }
1433 
1434 
IMPL_LINK_INLINE_START(WatchWindow,ButtonHdl,ImageButton *,pButton)1435 IMPL_LINK_INLINE_START( WatchWindow, ButtonHdl, ImageButton *, pButton )
1436 {
1437 	if ( pButton == &aRemoveWatchButton )
1438 	{
1439         BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
1440         SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
1441 	    SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
1442         if( pDispatcher )
1443 		{
1444 			pDispatcher->Execute( SID_BASICIDE_REMOVEWATCH );
1445 		}
1446 	}
1447 	return 0;
1448 }
IMPL_LINK_INLINE_END(WatchWindow,ButtonHdl,ImageButton *,pButton)1449 IMPL_LINK_INLINE_END( WatchWindow, ButtonHdl, ImageButton *, pButton )
1450 
1451 
1452 
1453 IMPL_LINK_INLINE_START( WatchWindow, TreeListHdl, SvTreeListBox *, EMPTYARG )
1454 {
1455 	SvLBoxEntry* pCurEntry = aTreeListBox.GetCurEntry();
1456 	if ( pCurEntry && pCurEntry->GetUserData() )
1457 		aXEdit.SetText( ((WatchItem*)pCurEntry->GetUserData())->maName );
1458 
1459 	return 0;
1460 }
IMPL_LINK_INLINE_END(WatchWindow,TreeListHdl,SvTreeListBox *,EMPTYARG)1461 IMPL_LINK_INLINE_END( WatchWindow, TreeListHdl, SvTreeListBox *, EMPTYARG )
1462 
1463 
1464 IMPL_LINK_INLINE_START( WatchWindow, implEndDragHdl, HeaderBar *, pBar )
1465 {
1466 	(void)pBar;
1467 
1468     const sal_Int32 TAB_WIDTH_MIN = 10;
1469 	sal_Int32 nMaxWidth =
1470         aHeaderBar.GetSizePixel().getWidth() - 2 * TAB_WIDTH_MIN;
1471 
1472     sal_Int32 nVariableWith = aHeaderBar.GetItemSize( ITEM_ID_VARIABLE );
1473     if( nVariableWith < TAB_WIDTH_MIN )
1474         aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, TAB_WIDTH_MIN );
1475     else if( nVariableWith > nMaxWidth )
1476         aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, nMaxWidth );
1477 
1478     sal_Int32 nValueWith = aHeaderBar.GetItemSize( ITEM_ID_VALUE );
1479     if( nValueWith < TAB_WIDTH_MIN )
1480         aHeaderBar.SetItemSize( ITEM_ID_VALUE, TAB_WIDTH_MIN );
1481     else if( nValueWith > nMaxWidth )
1482         aHeaderBar.SetItemSize( ITEM_ID_VALUE, nMaxWidth );
1483 
1484     if (aHeaderBar.GetItemSize( ITEM_ID_TYPE ) < TAB_WIDTH_MIN)
1485         aHeaderBar.SetItemSize( ITEM_ID_TYPE, TAB_WIDTH_MIN );
1486 
1487     sal_Int32 nPos = 0;
1488 	sal_uInt16 nTabs = aHeaderBar.GetItemCount();
1489     // OSL_ASSERT( m_treelb->TabCount() == nTabs );
1490 	for( sal_uInt16 i = 1 ; i < nTabs ; ++i )
1491 	{
1492 		nPos += aHeaderBar.GetItemSize( i );
1493 		aTreeListBox.SetTab( i, nPos, MAP_PIXEL );
1494 	}
1495 	return 0;
1496 }
IMPL_LINK_INLINE_END(WatchWindow,implEndDragHdl,HeaderBar *,pBar)1497 IMPL_LINK_INLINE_END( WatchWindow, implEndDragHdl, HeaderBar *, pBar )
1498 
1499 
1500 IMPL_LINK( WatchWindow, EditAccHdl, Accelerator *, pAcc )
1501 {
1502 	switch ( pAcc->GetCurKeyCode().GetCode() )
1503 	{
1504 		case KEY_RETURN:
1505 		{
1506 			String aCurText( aXEdit.GetText() );
1507 			if ( aCurText.Len() )
1508 			{
1509 				AddWatch( aCurText );
1510 				aXEdit.SetSelection( Selection( 0, 0xFFFF ) );
1511 				UpdateWatches();
1512 			}
1513 			else
1514 				Sound::Beep();
1515 		}
1516 		break;
1517 		case KEY_ESCAPE:
1518 		{
1519 			aXEdit.SetText( String() );
1520 		}
1521 		break;
1522 	}
1523 
1524 	return 0;
1525 }
1526 
UpdateWatches(bool bBasicStopped)1527 void WatchWindow::UpdateWatches( bool bBasicStopped )
1528 {
1529 	aTreeListBox.UpdateWatches( bBasicStopped );
1530 }
1531 
1532 
StackWindow(Window * pParent)1533 StackWindow::StackWindow( Window* pParent ) :
1534 	BasicDockingWindow( pParent ),
1535 	aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HSCROLL | WB_TABSTOP ),
1536 	aGotoCallButton( this, IDEResId( RID_IMGBTN_GOTOCALL ) ),
1537 	aStackStr( IDEResId( RID_STR_STACK ) )
1538 {
1539    	aTreeListBox.SetHelpId(HID_BASICIDE_STACKWINDOW_LIST);
1540 	aTreeListBox.SetAccessibleName(String( IDEResId(RID_STR_STACKNAME)));
1541 	aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight ) );
1542 	aTreeListBox.SetHighlightRange();
1543     aTreeListBox.SetSelectionMode( NO_SELECTION );
1544     aTreeListBox.InsertEntry( String(), 0, sal_False, LIST_APPEND );
1545 	aTreeListBox.Show();
1546 
1547 	SetText( String( IDEResId( RID_STR_STACKNAME ) ) );
1548 
1549 	SetHelpId( HID_BASICIDE_STACKWINDOW );
1550 
1551 	aGotoCallButton.SetClickHdl( LINK( this, StackWindow, ButtonHdl ) );
1552 	aGotoCallButton.SetPosPixel( Point( DWBORDER, 2 ) );
1553 	Size aSz( aGotoCallButton.GetModeImage().GetSizePixel() );
1554 	aSz.Width() += 6;
1555 	aSz.Height() += 6;
1556 	aGotoCallButton.SetSizePixel( aSz );
1557 //	aGotoCallButton.Show();	// wird vom Basic noch nicht unterstuetzt!
1558 	aGotoCallButton.Hide();
1559 
1560 	// make stack window keyboard accessible
1561 	GetSystemWindow()->GetTaskPaneList()->AddWindow( this );
1562 }
1563 
1564 
1565 
~StackWindow()1566 __EXPORT StackWindow::~StackWindow()
1567 {
1568 	GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this );
1569 }
1570 
1571 
1572 
Paint(const Rectangle &)1573 void __EXPORT StackWindow::Paint( const Rectangle& )
1574 {
1575 	DrawText( Point( DWBORDER, 7 ), aStackStr );
1576 	lcl_DrawIDEWindowFrame( this );
1577 }
1578 
1579 
1580 
Resize()1581 void __EXPORT StackWindow::Resize()
1582 {
1583 	Size aSz = GetOutputSizePixel();
1584 	Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER );
1585 
1586 	if ( aBoxSz.Width() < 4 )	// < 4, weil noch Border...
1587 		aBoxSz.Width() = 0;
1588 	if ( aBoxSz.Height() < 4 )
1589 		aBoxSz.Height() = 0;
1590 
1591 	aTreeListBox.SetSizePixel( aBoxSz );
1592 
1593 	Invalidate();	//Wegen DrawLine im Paint...
1594 }
1595 
1596 
1597 
IMPL_LINK_INLINE_START(StackWindow,ButtonHdl,ImageButton *,pButton)1598 IMPL_LINK_INLINE_START( StackWindow, ButtonHdl, ImageButton *, pButton )
1599 {
1600 	if ( pButton == &aGotoCallButton )
1601 	{
1602         BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
1603         SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
1604 	    SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
1605         if( pDispatcher )
1606 		{
1607 			pDispatcher->Execute( SID_BASICIDE_GOTOCALL );
1608 		}
1609 	}
1610 	return 0;
1611 }
IMPL_LINK_INLINE_END(StackWindow,ButtonHdl,ImageButton *,pButton)1612 IMPL_LINK_INLINE_END( StackWindow, ButtonHdl, ImageButton *, pButton )
1613 
1614 
1615 
1616 void __EXPORT StackWindow::UpdateCalls()
1617 {
1618 	aTreeListBox.SetUpdateMode( sal_False );
1619 	aTreeListBox.Clear();
1620 
1621     if ( StarBASIC::IsRunning() )
1622     {
1623 	    SbxError eOld = SbxBase::GetError();
1624         aTreeListBox.SetSelectionMode( SINGLE_SELECTION );
1625 
1626 	    sal_uInt16 nScope = 0;
1627 	    SbMethod* pMethod = StarBASIC::GetActiveMethod( nScope );
1628 	    while ( pMethod )
1629 	    {
1630 		    String aEntry( String::CreateFromInt32(nScope ));
1631 		    if ( aEntry.Len() < 2 )
1632 			    aEntry.Insert( ' ', 0 );
1633 		    aEntry += String( RTL_CONSTASCII_USTRINGPARAM( ": " ) );
1634 		    aEntry += pMethod->GetName();
1635 		    SbxArray* pParams = pMethod->GetParameters();
1636 		    SbxInfo* pInfo = pMethod->GetInfo();
1637 		    if ( pParams )
1638 		    {
1639 			    aEntry += '(';
1640 			    // 0 ist der Name der Sub...
1641 			    for ( sal_uInt16 nParam = 1; nParam < pParams->Count(); nParam++ )
1642 			    {
1643 				    SbxVariable* pVar = pParams->Get( nParam );
1644 				    DBG_ASSERT( pVar, "Parameter?!" );
1645 				    if ( pVar->GetName().Len() )
1646 					    aEntry += pVar->GetName();
1647 				    else if ( pInfo )
1648 				    {
1649 					    const SbxParamInfo* pParam = pInfo->GetParam( nParam );
1650 					    if ( pParam )
1651 						    aEntry += pParam->aName;
1652 				    }
1653 				    aEntry += '=';
1654 					SbxDataType eType = pVar->GetType();
1655 	    			if( eType & SbxARRAY )
1656 					    aEntry += String( RTL_CONSTASCII_USTRINGPARAM( "..." ) );
1657 				    else if( eType != SbxOBJECT )
1658 					    aEntry += pVar->GetString();
1659 				    if ( nParam < ( pParams->Count() - 1 ) )
1660 					    aEntry += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) );
1661 			    }
1662 			    aEntry += ')';
1663 		    }
1664 		    aTreeListBox.InsertEntry( aEntry, 0, sal_False, LIST_APPEND );
1665 		    nScope++;
1666 		    pMethod = StarBASIC::GetActiveMethod( nScope );
1667 	    }
1668 
1669 	    SbxBase::ResetError();
1670 	    if( eOld != SbxERR_OK )
1671 		    SbxBase::SetError( eOld );
1672     }
1673     else
1674     {
1675         aTreeListBox.SetSelectionMode( NO_SELECTION );
1676         aTreeListBox.InsertEntry( String(), 0, sal_False, LIST_APPEND );
1677     }
1678 
1679 	aTreeListBox.SetUpdateMode( sal_True );
1680 }
1681 
1682 
1683 
1684 
ComplexEditorWindow(ModulWindow * pParent)1685 ComplexEditorWindow::ComplexEditorWindow( ModulWindow* pParent ) :
1686 	Window( pParent, WB_3DLOOK | WB_CLIPCHILDREN ),
1687 	aBrkWindow( this ),
1688 	aEdtWindow( this ),
1689 	aEWVScrollBar( this, WB_VSCROLL | WB_DRAG )
1690 {
1691 	aEdtWindow.SetModulWindow( pParent );
1692 	aBrkWindow.SetModulWindow( pParent );
1693 	aEdtWindow.Show();
1694 	aBrkWindow.Show();
1695 
1696 	aEWVScrollBar.SetLineSize( SCROLL_LINE );
1697 	aEWVScrollBar.SetPageSize( SCROLL_PAGE );
1698 	aEWVScrollBar.SetScrollHdl( LINK( this, ComplexEditorWindow, ScrollHdl ) );
1699 	aEWVScrollBar.Show();
1700 }
1701 
1702 
1703 
Resize()1704 void __EXPORT ComplexEditorWindow::Resize()
1705 {
1706 	Size aOutSz = GetOutputSizePixel();
1707 	Size aSz( aOutSz );
1708 	aSz.Width() -= 2*DWBORDER;
1709 	aSz.Height() -= 2*DWBORDER;
1710 	long nBrkWidth = 20;
1711 	long nSBWidth = aEWVScrollBar.GetSizePixel().Width();
1712 
1713 	Size aBrkSz( Size( nBrkWidth, aSz.Height() ) );
1714 	aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz );
1715 
1716     Size aEWSz( Size( aSz.Width() - nBrkWidth - nSBWidth + 2, aSz.Height() ) );
1717 	aEdtWindow.SetPosSizePixel( Point( DWBORDER+aBrkSz.Width()-1, DWBORDER ), aEWSz );
1718 
1719 	aEWVScrollBar.SetPosSizePixel( Point( aOutSz.Width()-DWBORDER-nSBWidth, DWBORDER ), Size( nSBWidth, aSz.Height() ) );
1720 
1721 	// Macht das EditorWindow, ausserdem hier falsch, da Pixel
1722 //	aEWVScrollBar.SetPageSize( aEWSz.Height() * 8 / 10 );
1723 //	aEWVScrollBar.SetVisibleSize( aSz.Height() );
1724 //	Invalidate();
1725 }
1726 
IMPL_LINK(ComplexEditorWindow,ScrollHdl,ScrollBar *,pCurScrollBar)1727 IMPL_LINK( ComplexEditorWindow, ScrollHdl, ScrollBar *, pCurScrollBar )
1728 {
1729 	if ( aEdtWindow.GetEditView() )
1730 	{
1731 		DBG_ASSERT( pCurScrollBar == &aEWVScrollBar, "Wer scrollt hier ?" );
1732 		long nDiff = aEdtWindow.GetEditView()->GetStartDocPos().Y() - pCurScrollBar->GetThumbPos();
1733 		aEdtWindow.GetEditView()->Scroll( 0, nDiff );
1734 		aBrkWindow.DoScroll( 0, nDiff );
1735 		aEdtWindow.GetEditView()->ShowCursor( sal_False, sal_True );
1736 		pCurScrollBar->SetThumbPos( aEdtWindow.GetEditView()->GetStartDocPos().Y() );
1737 	}
1738 
1739 	return 0;
1740 }
1741 
1742 // virtual
DataChanged(DataChangedEvent const & rDCEvt)1743 void ComplexEditorWindow::DataChanged(DataChangedEvent const & rDCEvt)
1744 {
1745     Window::DataChanged(rDCEvt);
1746     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
1747         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
1748     {
1749         Color aColor(GetSettings().GetStyleSettings().GetFaceColor());
1750         if (aColor
1751             != rDCEvt.GetOldSettings()->GetStyleSettings().GetFaceColor())
1752         {
1753             SetBackground(Wallpaper(aColor));
1754             Invalidate();
1755         }
1756     }
1757 }
1758 
1759 // virtual
1760 uno::Reference< awt::XWindowPeer >
GetComponentInterface(sal_Bool bCreate)1761 EditorWindow::GetComponentInterface(sal_Bool bCreate)
1762 {
1763     uno::Reference< awt::XWindowPeer > xPeer(
1764         Window::GetComponentInterface(false));
1765     if (!xPeer.is() && bCreate)
1766     {
1767         // Make sure edit engine and view are available:
1768         if (!pEditEngine)
1769             CreateEditEngine();
1770 
1771         xPeer = new ::svt::TextWindowPeer(*GetEditView());
1772         SetComponentInterface(xPeer);
1773     }
1774     return xPeer;
1775 }
1776 
WatchTreeListBox(Window * pParent,WinBits nWinBits)1777 WatchTreeListBox::WatchTreeListBox( Window* pParent, WinBits nWinBits )
1778 	: SvHeaderTabListBox( pParent, nWinBits )
1779 {}
1780 
~WatchTreeListBox()1781 WatchTreeListBox::~WatchTreeListBox()
1782 {
1783 	// User-Daten zerstoeren...
1784 	SvLBoxEntry* pEntry = First();
1785 	while ( pEntry )
1786 	{
1787 		delete (WatchItem*)pEntry->GetUserData();
1788 		pEntry = Next( pEntry );
1789 	}
1790 }
1791 
SetTabs()1792 void WatchTreeListBox::SetTabs()
1793 {
1794 	SvHeaderTabListBox::SetTabs();
1795 	sal_uInt16 nTabCount_ = aTabs.Count();
1796 	for( sal_uInt16 i = 0 ; i < nTabCount_ ; i++ )
1797 	{
1798 		SvLBoxTab* pTab = (SvLBoxTab*)aTabs.GetObject(i);
1799 		if( i == 2 )
1800 			pTab->nFlags |= SV_LBOXTAB_EDITABLE;
1801 		else
1802 			pTab->nFlags &= ~SV_LBOXTAB_EDITABLE;
1803 	}
1804 }
1805 
RequestingChilds(SvLBoxEntry * pParent)1806 void WatchTreeListBox::RequestingChilds( SvLBoxEntry * pParent )
1807 {
1808 	if( !StarBASIC::IsRunning() )
1809         return;
1810 
1811     if( GetChildCount( pParent ) > 0 )
1812         return;
1813 
1814 	SvLBoxEntry * pEntry = pParent;
1815     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
1816 
1817 	SbxDimArray* pArray = pItem->mpArray;
1818 	SbxDimArray* pRootArray = pItem->GetRootArray();
1819 	bool bArrayIsRootArray = false;
1820 	if( !pArray && pRootArray )
1821 	{
1822 		pArray = pRootArray;
1823 		bArrayIsRootArray = true;
1824 	}
1825 
1826     SbxObject* pObj = pItem->mpObject;
1827     if( pObj )
1828     {
1829 		createAllObjectProperties( pObj );
1830  	    SbxArray* pProps = pObj->GetProperties();
1831 	    sal_uInt16 nPropCount = pProps->Count();
1832 	    if ( nPropCount >= 3 &&
1833 		     pProps->Get( nPropCount -1 )->GetName().EqualsIgnoreCaseAscii( "Dbg_Methods" ) &&
1834 		     pProps->Get( nPropCount -2 )->GetName().EqualsIgnoreCaseAscii( "Dbg_Properties" ) &&
1835 		     pProps->Get( nPropCount -3 )->GetName().EqualsIgnoreCaseAscii( "Dbg_SupportedInterfaces" ) )
1836 		 {
1837 			nPropCount -= 3;
1838 		 }
1839 		pItem->maMemberList.allocList( nPropCount );
1840 
1841 	    for( sal_uInt16 i = 0 ; i < nPropCount ; ++i )
1842 	    {
1843 		    SbxVariable* pVar = pProps->Get( i );
1844 
1845             String aName( pVar->GetName() );
1846 			pItem->maMemberList.mpMemberNames[i] = aName;
1847             SvLBoxEntry* pChildEntry = SvTreeListBox::InsertEntry( aName, pEntry );
1848             WatchItem* pChildItem = new WatchItem();
1849 			pChildItem->maName = aName;
1850 	        pChildEntry->SetUserData( pChildItem );
1851 	    }
1852 		if( nPropCount > 0 )
1853 		{
1854 			UpdateWatches();
1855 		}
1856     }
1857 	else if( pArray )
1858 	{
1859 	    sal_uInt16 nElementCount = 0;
1860 
1861 		// Loop through indices of current level
1862 		int nParentLevel = bArrayIsRootArray ? pItem->nDimLevel : 0;
1863 		int nThisLevel = nParentLevel + 1;
1864 		sal_Int32 nMin, nMax;
1865 		pArray->GetDim32( nThisLevel, nMin, nMax );
1866 		for( sal_Int32 i = nMin ; i <= nMax ; i++ )
1867 		{
1868             WatchItem* pChildItem = new WatchItem();
1869 
1870 			// Copy data and create name
1871             String aBaseName( pItem->maName );
1872 			pChildItem->maName = aBaseName;
1873 
1874 			String aIndexStr = String( RTL_CONSTASCII_USTRINGPARAM( "(" ) );
1875 			// pChildItem->mpArray = pItem->mpArray;
1876 			pChildItem->mpArrayParentItem = pItem;
1877 			pChildItem->nDimLevel = nThisLevel;
1878 			pChildItem->nDimCount = pItem->nDimCount;
1879 			pChildItem->pIndices = new short[ pChildItem->nDimCount ];
1880 			sal_uInt16 j;
1881 			for( j = 0 ; j < nParentLevel ; j++ )
1882 			{
1883 				short n = pChildItem->pIndices[j] = pItem->pIndices[j];
1884 				aIndexStr += String::CreateFromInt32( n );
1885 				aIndexStr += String( RTL_CONSTASCII_USTRINGPARAM( "," ) );
1886 			}
1887 			pChildItem->pIndices[ nParentLevel ] = sal::static_int_cast<short>( i );
1888 			aIndexStr += String::CreateFromInt32( i );
1889 			aIndexStr += String( RTL_CONSTASCII_USTRINGPARAM( ")" ) );
1890 
1891 			String aDisplayName;
1892 			WatchItem* pArrayRootItem = pChildItem->GetRootItem();
1893 			if( pArrayRootItem && pArrayRootItem->mpArrayParentItem )
1894 				aDisplayName = pItem->maDisplayName;
1895 			else
1896 				aDisplayName = aBaseName;
1897 			aDisplayName += aIndexStr;
1898 			pChildItem->maDisplayName = aDisplayName;
1899 
1900             SvLBoxEntry* pChildEntry = SvTreeListBox::InsertEntry( aDisplayName, pEntry );
1901 			nElementCount++;
1902 			pChildEntry->SetUserData( pChildItem );
1903 		}
1904 		if( nElementCount > 0 )
1905 		{
1906 			UpdateWatches();
1907 		}
1908 	}
1909 }
1910 
ImplGetSBXForEntry(SvLBoxEntry * pEntry,bool & rbArrayElement)1911 SbxBase* WatchTreeListBox::ImplGetSBXForEntry( SvLBoxEntry* pEntry, bool& rbArrayElement )
1912 {
1913 	SbxBase* pSBX = NULL;
1914 	rbArrayElement = false;
1915 
1916     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
1917 	String aVName( pItem->maName );
1918 
1919     SvLBoxEntry* pParentEntry = GetParent( pEntry );
1920 	WatchItem* pParentItem = pParentEntry ? (WatchItem*)pParentEntry->GetUserData() : NULL;
1921     if( pParentItem )
1922     {
1923         SbxObject* pObj = pParentItem->mpObject;
1924         SbxDimArray* pArray;
1925         if( pObj )
1926 		{
1927     		pSBX = pObj->Find( aVName, SbxCLASS_DONTCARE );
1928 
1929 			SbxVariable* pVar;
1930 			if ( pSBX && (pVar = PTR_CAST( SbxVariable, pSBX )) != NULL
1931 						&& !pSBX->ISA( SbxMethod ) )
1932 			{
1933 				// Force getting value
1934 				SbxValues aRes;
1935 				aRes.eType = SbxVOID;
1936 				pVar->Get( aRes );
1937 			}
1938 		}
1939 		// Array?
1940 		else if( (pArray = pItem->GetRootArray()) != NULL )
1941 		// else if( (pArray = pItem->mpArray) != NULL )
1942 		{
1943 			rbArrayElement = true;
1944 			if( pParentItem->nDimLevel + 1 == pParentItem->nDimCount )
1945 			// if( pItem->nDimLevel == pItem->nDimCount )
1946 				pSBX = pArray->Get( pItem->pIndices );
1947 			// else
1948 				// pSBX = pArray;
1949 		}
1950     }
1951 	else
1952 	{
1953 		pSBX = StarBASIC::FindSBXInCurrentScope( aVName );
1954 	}
1955 	return pSBX;
1956 }
1957 
EditingEntry(SvLBoxEntry * pEntry,Selection &)1958 sal_Bool __EXPORT WatchTreeListBox::EditingEntry( SvLBoxEntry* pEntry, Selection& )
1959 {
1960     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
1961 
1962 	sal_Bool bEdit = sal_False;
1963 	if ( StarBASIC::IsRunning() && StarBASIC::GetActiveMethod() && !SbxBase::IsError() )
1964 	{
1965 		// No out of scope entries
1966 		bool bArrayElement;
1967 		SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
1968 		if ( ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) || bArrayElement )
1969 		{
1970 			// Accept no objects and only end nodes of arrays for editing
1971 			if( !pItem->mpObject && (pItem->mpArray == NULL || pItem->nDimLevel == pItem->nDimCount) )
1972 			{
1973 				aEditingRes = SvHeaderTabListBox::GetEntryText( pEntry, ITEM_ID_VALUE-1 );
1974 				aEditingRes.EraseLeadingChars();
1975 				aEditingRes.EraseTrailingChars();
1976 				bEdit = sal_True;
1977 			}
1978 		}
1979 	}
1980 
1981 	if ( !bEdit )
1982 		Sound::Beep();
1983 
1984 	return bEdit;
1985 }
1986 
EditedEntry(SvLBoxEntry * pEntry,const String & rNewText)1987 sal_Bool __EXPORT WatchTreeListBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText )
1988 {
1989     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
1990 	String aVName( pItem->maName );
1991 
1992 	String aResult = rNewText;
1993 	aResult.EraseLeadingChars();
1994 	aResult.EraseTrailingChars();
1995 
1996 	sal_uInt16 nResultLen = aResult.Len();
1997 	sal_Unicode cFirst = aResult.GetChar( 0 );
1998 	sal_Unicode cLast  = aResult.GetChar( nResultLen - 1 );
1999 	if( cFirst == '\"' && cLast == '\"' )
2000 		aResult = aResult.Copy( 1, nResultLen - 2 );
2001 
2002 	sal_Bool bResModified = ( aResult != aEditingRes ) ? sal_True : sal_False;
2003 	sal_Bool bError = sal_False;
2004 	if ( !aVName.Len() )
2005 	{
2006 		bError = sal_True;
2007 	}
2008 
2009 	sal_Bool bRet = sal_False;
2010 
2011 	if ( bError )
2012 	{
2013 		Sound::Beep();
2014 	}
2015 	else if ( bResModified )
2016 	{
2017 		bRet = ImplBasicEntryEdited( pEntry, aResult );
2018 	}
2019 
2020 	return bRet;
2021 }
2022 
ImplBasicEntryEdited(SvLBoxEntry * pEntry,const String & rResult)2023 sal_Bool WatchTreeListBox::ImplBasicEntryEdited( SvLBoxEntry* pEntry, const String& rResult )
2024 {
2025     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
2026 	String aVName( pItem->maName );
2027 
2028 	sal_Bool bError = sal_False;
2029 	String aResult( rResult );
2030 	String aIndex;
2031 	bool bArrayElement;
2032 	SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
2033 
2034 	SbxBase* pToBeChanged = NULL;
2035 	if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) )
2036 	{
2037 		SbxVariable* pVar = (SbxVariable*)pSBX;
2038 		SbxDataType eType = pVar->GetType();
2039 		if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
2040 			bError = sal_True;
2041 		else if ( eType & SbxARRAY )
2042 			bError = sal_True;
2043 		else
2044 			pToBeChanged = pSBX;
2045 	}
2046 
2047 	if ( pToBeChanged )
2048 	{
2049 		if ( pToBeChanged->ISA( SbxVariable ) )
2050 		{
2051 			// Wenn der Typ variabel ist, macht die Konvertierung des SBX nichts,
2052 			// bei festem Typ wird der String konvertiert.
2053 			((SbxVariable*)pToBeChanged)->PutStringExt( aResult );
2054 		}
2055 		else
2056 			bError = sal_True;
2057 	}
2058 
2059 	// Wenn jemand z.B. einen zu grossen Wert fuer ein Int eingegeben hat,
2060 	// folgt beim naechsten Step() ein Runtime-Error.
2061 	if ( SbxBase::IsError() )
2062 	{
2063 		bError = sal_True;
2064 		SbxBase::ResetError();
2065 	}
2066 
2067 	if ( bError )
2068 		Sound::Beep();
2069 
2070 	UpdateWatches();
2071 
2072 	// Der Text soll niemals 1-zu-1 uebernommen werden, weil dann das
2073 	// UpdateWatches verlorengeht.
2074 	return sal_False;
2075 }
2076 
2077 
implCollapseModifiedObjectEntry(SvLBoxEntry * pParent,WatchTreeListBox * pThis)2078 static void implCollapseModifiedObjectEntry( SvLBoxEntry* pParent, WatchTreeListBox* pThis )
2079 {
2080 	pThis->Collapse( pParent );
2081 
2082 	SvLBoxTreeList*	pModel = pThis->GetModel();
2083 	SvLBoxEntry* pDeleteEntry;
2084 	while( (pDeleteEntry = pThis->SvTreeListBox::GetEntry( pParent, 0 )) != NULL )
2085 	{
2086 		implCollapseModifiedObjectEntry( pDeleteEntry, pThis );
2087 
2088         WatchItem* pItem = (WatchItem*)pDeleteEntry->GetUserData();
2089 		delete pItem;
2090         pModel->Remove( pDeleteEntry );
2091 	}
2092 }
2093 
implCreateTypeStringForDimArray(WatchItem * pItem,SbxDataType eType)2094 static String implCreateTypeStringForDimArray( WatchItem* pItem, SbxDataType eType )
2095 {
2096 	String aRetStr = getBasicTypeName( eType );
2097 
2098 	SbxDimArray* pArray = pItem->mpArray;
2099 	if( !pArray )
2100 		pArray = pItem->GetRootArray();
2101 	if( pArray )
2102 	{
2103 		int nDimLevel = pItem->nDimLevel;
2104 		int nDims = pItem->nDimCount;
2105 		if( nDimLevel < nDims )
2106 		{
2107 			aRetStr += '(';
2108 			for( int i = nDimLevel ; i < nDims ; i++ )
2109 			{
2110 				short nMin, nMax;
2111 				pArray->GetDim( sal::static_int_cast<short>( i+1 ), nMin, nMax );
2112 				aRetStr += String::CreateFromInt32( nMin );
2113 				aRetStr += String( RTL_CONSTASCII_USTRINGPARAM( " to " ) );
2114 				aRetStr += String::CreateFromInt32( nMax );
2115 				if( i < nDims - 1 )
2116 					aRetStr += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) );
2117 			}
2118 			aRetStr += ')';
2119 		}
2120 	}
2121 	return aRetStr;
2122 }
2123 
2124 
implEnableChildren(SvLBoxEntry * pEntry,bool bEnable)2125 void implEnableChildren( SvLBoxEntry* pEntry, bool bEnable )
2126 // inline void implEnableChildren( SvLBoxEntry* pEntry, bool bEnable )
2127 {
2128 	if( bEnable )
2129 	{
2130 		pEntry->SetFlags(
2131 			(pEntry->GetFlags() &
2132 			~(SV_ENTRYFLAG_NO_NODEBMP | SV_ENTRYFLAG_HAD_CHILDREN))
2133 			| SV_ENTRYFLAG_CHILDS_ON_DEMAND );
2134 	}
2135 	else
2136 	{
2137 		pEntry->SetFlags(
2138 			(pEntry->GetFlags() & ~(SV_ENTRYFLAG_CHILDS_ON_DEMAND)) );
2139 	}
2140 }
2141 
UpdateWatches(bool bBasicStopped)2142 void WatchTreeListBox::UpdateWatches( bool bBasicStopped )
2143 {
2144 	SbMethod* pCurMethod = StarBASIC::GetActiveMethod();
2145 
2146 	SbxError eOld = SbxBase::GetError();
2147 	setBasicWatchMode( true );
2148 
2149 	SvLBoxEntry* pEntry = First();
2150 	while ( pEntry )
2151 	{
2152         WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
2153 		String aVName( pItem->maName );
2154 		DBG_ASSERT( aVName.Len(), "Var? - Darf nicht leer sein!" );
2155 		String aWatchStr;
2156 		String aTypeStr;
2157 		if ( pCurMethod )
2158 		{
2159 			bool bArrayElement;
2160 			SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
2161 
2162 			// Array? If no end node create type string
2163 			if( bArrayElement && pItem->nDimLevel < pItem->nDimCount )
2164 			{
2165 				SbxDimArray* pRootArray = pItem->GetRootArray();
2166 				SbxDataType eType = pRootArray->GetType();
2167 				// SbxDataType eType = pItem->mpArray->GetType();
2168 				aTypeStr = implCreateTypeStringForDimArray( pItem, eType );
2169 				implEnableChildren( pEntry, true );
2170 			}
2171 
2172 			bool bCollapse = false;
2173 			if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) )
2174 			{
2175 				SbxVariable* pVar = (SbxVariable*)pSBX;
2176 				// Sonderbehandlung fuer Arrays:
2177 				SbxDataType eType = pVar->GetType();
2178 				if ( eType & SbxARRAY )
2179 				{
2180 					// Mehrdimensionale Arrays beruecksichtigen!
2181 					SbxBase* pBase = pVar->GetObject();
2182 					if ( pBase && pBase->ISA( SbxDimArray ) )
2183 					{
2184 						SbxDimArray* pNewArray = (SbxDimArray*)pBase;
2185 						SbxDimArray* pOldArray = pItem->mpArray;
2186 
2187 						bool bArrayChanged = false;
2188 						if( pNewArray != NULL && pOldArray != NULL )
2189 						{
2190 							// Compare Array dimensions to see if array has changed
2191 							// Can be a copy, so comparing pointers does not work
2192 							sal_uInt16 nOldDims = pOldArray->GetDims();
2193 							sal_uInt16 nNewDims = pNewArray->GetDims();
2194 							if( nOldDims != nNewDims )
2195 							{
2196 								bArrayChanged = true;
2197 							}
2198 							else
2199 							{
2200 								for( int i = 0 ; i < nOldDims ; i++ )
2201 								{
2202 									short nOldMin, nOldMax;
2203 									short nNewMin, nNewMax;
2204 
2205 									pOldArray->GetDim( sal::static_int_cast<short>( i+1 ), nOldMin, nOldMax );
2206 									pNewArray->GetDim( sal::static_int_cast<short>( i+1 ), nNewMin, nNewMax );
2207 									if( nOldMin != nNewMin || nOldMax != nNewMax )
2208 									{
2209 										bArrayChanged = true;
2210 										break;
2211 									}
2212 								}
2213 							}
2214 						}
2215 						else if( pNewArray == NULL || pOldArray == NULL )
2216 							bArrayChanged = true;
2217 
2218 						if( pNewArray )
2219 							implEnableChildren( pEntry, true );
2220 
2221 						// #i37227 Clear always and replace array
2222 						if( pNewArray != pOldArray )
2223 						{
2224 							pItem->clearWatchItem( false );
2225 							if( pNewArray )
2226 							{
2227 								implEnableChildren( pEntry, true );
2228 
2229 								pItem->mpArray = pNewArray;
2230 								sal_uInt16 nDims = pNewArray->GetDims();
2231 								pItem->nDimLevel = 0;
2232 								pItem->nDimCount = nDims;
2233 							}
2234 						}
2235 						if( bArrayChanged && pOldArray != NULL )
2236 							bCollapse = true;
2237 
2238 						aTypeStr = implCreateTypeStringForDimArray( pItem, eType );
2239 					}
2240 					else
2241 						aWatchStr += String( RTL_CONSTASCII_USTRINGPARAM( "<?>" ) );
2242 				}
2243 				else if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
2244 				{
2245                     SbxObject* pObj = NULL;
2246 			        SbxBase* pBase = pVar->GetObject();
2247 			        if( pBase && pBase->ISA( SbxObject ) )
2248                         pObj = (SbxObject*)pBase;
2249 
2250                     if( pObj )
2251                     {
2252 						// Check if member list has changed
2253 						bool bObjChanged = false;
2254 						if( pItem->mpObject != NULL && pItem->maMemberList.mpMemberNames != NULL )
2255 						{
2256 							SbxArray* pProps = pObj->GetProperties();
2257 							sal_uInt16 nPropCount = pProps->Count();
2258 							for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ )
2259 							{
2260 								SbxVariable* pVar_ = pProps->Get( i );
2261 								String aName( pVar_->GetName() );
2262 								if( pItem->maMemberList.mpMemberNames[i] != aName )
2263 								{
2264 									bObjChanged = true;
2265 									break;
2266 								}
2267 							}
2268 							if( bObjChanged )
2269 								bCollapse = true;
2270 						}
2271 
2272 						pItem->mpObject = pObj;
2273 						implEnableChildren( pEntry, true );
2274 						aTypeStr = getBasicObjectTypeName( pObj );
2275 					}
2276 					else
2277 					{
2278 						aWatchStr = String( RTL_CONSTASCII_USTRINGPARAM( "Null" ) );
2279 						if( pItem->mpObject != NULL )
2280 						{
2281 							bCollapse = true;
2282 							pItem->clearWatchItem( false );
2283 
2284 							implEnableChildren( pEntry, false );
2285 						}
2286 					}
2287 				}
2288 				else
2289 				{
2290 					if( pItem->mpObject != NULL )
2291 					{
2292 						bCollapse = true;
2293 						pItem->clearWatchItem( false );
2294 
2295 						implEnableChildren( pEntry, false );
2296 					}
2297 
2298 					bool bString = ((sal_uInt8)eType == (sal_uInt8)SbxSTRING);
2299 					String aStrStr( RTL_CONSTASCII_USTRINGPARAM( "\"" ) );
2300 					if( bString )
2301 						aWatchStr += aStrStr;
2302 					aWatchStr += pVar->GetString();
2303 					if( bString )
2304 						aWatchStr += aStrStr;
2305 				}
2306 				if( !aTypeStr.Len() )
2307 				{
2308 					if( !pVar->IsFixed() )
2309 						aTypeStr = String( RTL_CONSTASCII_USTRINGPARAM( "Variant/" ) );
2310 					aTypeStr += getBasicTypeName( pVar->GetType() );
2311 				}
2312 			}
2313 			else if( !bArrayElement )
2314 				aWatchStr += String( RTL_CONSTASCII_USTRINGPARAM( "<Out of Scope>" ) );
2315 
2316 			if( bCollapse )
2317 				implCollapseModifiedObjectEntry( pEntry, this );
2318 
2319 		}
2320 		else if( bBasicStopped )
2321 		{
2322             if( pItem->mpObject || pItem->mpArray )
2323 			{
2324 				implCollapseModifiedObjectEntry( pEntry, this );
2325 				pItem->mpObject = NULL;
2326 			}
2327 		}
2328 
2329 		SvHeaderTabListBox::SetEntryText( aWatchStr, pEntry, ITEM_ID_VALUE-1 );
2330 		SvHeaderTabListBox::SetEntryText( aTypeStr, pEntry, ITEM_ID_TYPE-1 );
2331 
2332 		pEntry = Next( pEntry );
2333 	}
2334 
2335 	// Force redraw
2336     Invalidate();
2337 
2338 	SbxBase::ResetError();
2339 	if( eOld != SbxERR_OK )
2340 		SbxBase::SetError( eOld );
2341 	setBasicWatchMode( false );
2342 }
2343 
2344