/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ /************************************************************************* * * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * Copyright 2000, 2010 Oracle and/or its affiliates. * * OpenOffice.org - a multi-platform office productivity suite * * This file is part of OpenOffice.org. * * OpenOffice.org is free software: you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 3 * only, as published by the Free Software Foundation. * * OpenOffice.org is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU Lesser General Public License version 3 for more details * (a copy is included in the LICENSE file that accompanied this code). * * You should have received a copy of the GNU Lesser General Public License * version 3 along with OpenOffice.org. If not, see * * for a copy of the LGPLv3 License. * ************************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_basctl.hxx" #include #define _BASIC_TEXTPORTIONS #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include using namespace ::com::sun::star; using namespace ::com::sun::star::uno; long nVirtToolBoxHeight; // inited in WatchWindow, used in Stackwindow long nHeaderBarHeight; #define SCROLL_LINE 12 #define SCROLL_PAGE 60 #define DWBORDER 3 static const char cSuffixes[] = "%&!#@$"; MapUnit eEditMapUnit = MAP_100TH_MM; /** * Helper functions to get/set text in TextEngine using * the stream interface. * * get/setText() only supports tools Strings limited to 64K). */ ::rtl::OUString getTextEngineText( ExtTextEngine* pEngine ) { SvMemoryStream aMemStream; aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 ); aMemStream.SetLineDelimiter( LINEEND_LF ); pEngine->Write( aMemStream ); sal_uLong nSize = aMemStream.Tell(); ::rtl::OUString aText( (const sal_Char*)aMemStream.GetData(), nSize, RTL_TEXTENCODING_UTF8 ); return aText; } void setTextEngineText( ExtTextEngine* pEngine, const ::rtl::OUString aStr ) { pEngine->SetText( String() ); ::rtl::OString aUTF8Str = ::rtl::OUStringToOString( aStr, RTL_TEXTENCODING_UTF8 ); SvMemoryStream aMemStream( (void*)aUTF8Str.getStr(), aUTF8Str.getLength(), STREAM_READ | STREAM_SEEK_TO_BEGIN ); aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 ); aMemStream.SetLineDelimiter( LINEEND_LF ); pEngine->Read( aMemStream ); } void lcl_DrawIDEWindowFrame( DockingWindow* pWin ) { if ( pWin->IsFloatingMode() ) return; Size aSz = pWin->GetOutputSizePixel(); const Color aOldLineColor( pWin->GetLineColor() ); pWin->SetLineColor( Color( COL_WHITE ) ); // White line on top pWin->DrawLine( Point( 0, 0 ), Point( aSz.Width(), 0 ) ); // Black line at bottom pWin->SetLineColor( Color( COL_BLACK ) ); pWin->DrawLine( Point( 0, aSz.Height() - 1 ), Point( aSz.Width(), aSz.Height() - 1 ) ); pWin->SetLineColor( aOldLineColor ); } void lcl_SeparateNameAndIndex( const String& rVName, String& rVar, String& rIndex ) { rVar = rVName; rIndex.Erase(); sal_uInt16 nIndexStart = rVar.Search( '(' ); if ( nIndexStart != STRING_NOTFOUND ) { sal_uInt16 nIndexEnd = rVar.Search( ')', nIndexStart ); if ( nIndexStart != STRING_NOTFOUND ) { rIndex = rVar.Copy( nIndexStart+1, nIndexEnd-nIndexStart-1 ); rVar.Erase( nIndexStart ); rVar.EraseTrailingChars(); rIndex.EraseLeadingChars(); rIndex.EraseTrailingChars(); } } if ( rVar.Len() ) { sal_uInt16 nLastChar = rVar.Len()-1; if ( strchr( cSuffixes, rVar.GetChar( nLastChar ) ) ) rVar.Erase( nLastChar, 1 ); } if ( rIndex.Len() ) { sal_uInt16 nLastChar = rIndex.Len()-1; if ( strchr( cSuffixes, rIndex.GetChar( nLastChar ) ) ) rIndex.Erase( nLastChar, 1 ); } } EditorWindow::EditorWindow( Window* pParent ) : Window( pParent, WB_BORDER ) { bDoSyntaxHighlight = sal_True; bDelayHighlight = sal_True; pModulWindow = 0; pEditView = 0; pEditEngine = 0; pSourceViewConfig = new utl::SourceViewConfig; bHighlightning = sal_False; pProgress = 0; nCurTextWidth = 0; SetBackground( Wallpaper(GetSettings().GetStyleSettings().GetFieldColor())); SetPointer( Pointer( POINTER_TEXT ) ); SetHelpId( HID_BASICIDE_EDITORWINDOW ); pSourceViewConfig->AddListener(this); } EditorWindow::~EditorWindow() { pSourceViewConfig->RemoveListener(this); delete pSourceViewConfig; aSyntaxIdleTimer.Stop(); if ( pEditEngine ) { EndListening( *pEditEngine ); pEditEngine->RemoveView( pEditView ); delete pEditView; delete pEditEngine; } } String EditorWindow::GetWordAtCursor() { String aWord; if ( pEditView ) { TextEngine* pTextEngine = pEditView->GetTextEngine(); if ( pTextEngine ) { // check first, if the cursor is at a help URL const TextSelection& rSelection = pEditView->GetSelection(); const TextPaM& rSelStart = rSelection.GetStart(); const TextPaM& rSelEnd = rSelection.GetEnd(); String aText = pTextEngine->GetText( rSelEnd.GetPara() ); CharClass aClass( ::comphelper::getProcessServiceFactory() , Application::GetSettings().GetLocale() ); xub_StrLen nSelStart = static_cast< xub_StrLen >( rSelStart.GetIndex() ); xub_StrLen nSelEnd = static_cast< xub_StrLen >( rSelEnd.GetIndex() ); xub_StrLen nLength = static_cast< xub_StrLen >( aText.Len() ); xub_StrLen nStart = 0; xub_StrLen nEnd = nLength; while ( nStart < nLength ) { String aURL( URIHelper::FindFirstURLInText( aText, nStart, nEnd, aClass ) ); INetURLObject aURLObj( aURL ); if ( aURLObj.GetProtocol() == INET_PROT_VND_SUN_STAR_HELP && nSelStart >= nStart && nSelStart <= nEnd && nSelEnd >= nStart && nSelEnd <= nEnd ) { aWord = aURL; break; } nStart = nEnd; nEnd = nLength; } // Not the selected range, but at the CursorPosition, // if a word is partially selected. if ( !aWord.Len() ) aWord = pTextEngine->GetWord( rSelEnd ); // Can be empty when full word selected, as Cursor behing it if ( !aWord.Len() && pEditView->HasSelection() ) aWord = pTextEngine->GetWord( rSelStart ); } } return aWord; } void EditorWindow::RequestHelp( const HelpEvent& rHEvt ) { sal_Bool bDone = sal_False; // Should have been activated at some point if ( pEditEngine ) { if ( rHEvt.GetMode() & HELPMODE_CONTEXT ) { String aKeyword = GetWordAtCursor(); Application::GetHelp()->SearchKeyword( aKeyword ); bDone = sal_True; } else if ( rHEvt.GetMode() & HELPMODE_QUICK ) { String aHelpText; Point aTopLeft; if ( StarBASIC::IsRunning() ) { Point aWindowPos = rHEvt.GetMousePosPixel(); aWindowPos = ScreenToOutputPixel( aWindowPos ); Point aDocPos = GetEditView()->GetDocPos( aWindowPos ); TextPaM aCursor = GetEditView()->GetTextEngine()->GetPaM( aDocPos, sal_False ); TextPaM aStartOfWord; String aWord = GetEditView()->GetTextEngine()->GetWord( aCursor, &aStartOfWord ); if ( aWord.Len() && !ByteString( aWord, RTL_TEXTENCODING_UTF8 ).IsNumericAscii() ) { sal_uInt16 nLastChar =aWord.Len()-1; if ( strchr( cSuffixes, aWord.GetChar( nLastChar ) ) ) aWord.Erase( nLastChar, 1 ); SbxBase* pSBX = StarBASIC::FindSBXInCurrentScope( aWord ); if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) { SbxVariable* pVar = (SbxVariable*)pSBX; SbxDataType eType = pVar->GetType(); if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT ) // Kann zu Absturz, z.B. bei Selections-Objekt fuehren // Type == Object heisst nicht, dass pVar == Object! ; // aHelpText = ((SbxObject*)pVar)->GetClassName(); else if ( eType & SbxARRAY ) ; // aHelpText = "{...}"; else if ( (sal_uInt8)eType != (sal_uInt8)SbxEMPTY ) { aHelpText = pVar->GetName(); if ( !aHelpText.Len() ) // Bei Uebergabeparametern wird der Name nicht kopiert aHelpText = aWord; aHelpText += '='; aHelpText += pVar->GetString(); } } if ( aHelpText.Len() ) { aTopLeft = GetEditView()->GetTextEngine()->PaMtoEditCursor( aStartOfWord ).BottomLeft(); aTopLeft = GetEditView()->GetWindowPos( aTopLeft ); aTopLeft.X() += 5; aTopLeft.Y() += 5; aTopLeft = OutputToScreenPixel( aTopLeft ); } } } Help::ShowQuickHelp( this, Rectangle( aTopLeft, Size( 1, 1 ) ), aHelpText, QUICKHELP_TOP|QUICKHELP_LEFT); bDone = sal_True; } } if ( !bDone ) Window::RequestHelp( rHEvt ); } void EditorWindow::Resize() { // ScrollBars, etc. happens in Adjust... if ( pEditView ) { long nVisY = pEditView->GetStartDocPos().Y(); pEditView->ShowCursor(); Size aOutSz( GetOutputSizePixel() ); long nMaxVisAreaStart = pEditView->GetTextEngine()->GetTextHeight() - aOutSz.Height(); if ( nMaxVisAreaStart < 0 ) nMaxVisAreaStart = 0; if ( pEditView->GetStartDocPos().Y() > nMaxVisAreaStart ) { Point aStartDocPos( pEditView->GetStartDocPos() ); aStartDocPos.Y() = nMaxVisAreaStart; pEditView->SetStartDocPos( aStartDocPos ); pEditView->ShowCursor(); pModulWindow->GetBreakPointWindow().GetCurYOffset() = aStartDocPos.Y(); } InitScrollBars(); if ( nVisY != pEditView->GetStartDocPos().Y() ) Invalidate(); } } void EditorWindow::MouseMove( const MouseEvent &rEvt ) { if ( pEditView ) pEditView->MouseMove( rEvt ); } void EditorWindow::MouseButtonUp( const MouseEvent &rEvt ) { if ( pEditView ) { pEditView->MouseButtonUp( rEvt ); SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); if ( pBindings ) pBindings->Invalidate( SID_BASICIDE_STAT_POS ); } } void EditorWindow::MouseButtonDown( const MouseEvent &rEvt ) { GrabFocus(); if ( pEditView ) { pEditView->MouseButtonDown( rEvt ); } } void EditorWindow::Command( const CommandEvent& rCEvt ) { if ( pEditView ) { pEditView->Command( rCEvt ); if ( ( rCEvt.GetCommand() == COMMAND_WHEEL ) || ( rCEvt.GetCommand() == COMMAND_STARTAUTOSCROLL ) || ( rCEvt.GetCommand() == COMMAND_AUTOSCROLL ) ) { HandleScrollCommand( rCEvt, pModulWindow->GetHScrollBar(), &pModulWindow->GetEditVScrollBar() ); } } } sal_Bool EditorWindow::ImpCanModify() { sal_Bool bCanModify = sal_True; if ( StarBASIC::IsRunning() ) { // If in Trace-mode, abort the trace or refuse input // Remove markers in the modules in Notify at Basic::Stoped if ( QueryBox( 0, WB_OK_CANCEL, String( IDEResId( RID_STR_WILLSTOPPRG ) ) ).Execute() == RET_OK ) { pModulWindow->GetBasicStatus().bIsRunning = sal_False; BasicIDE::StopBasic(); } else bCanModify = sal_False; } return bCanModify; } void EditorWindow::KeyInput( const KeyEvent& rKEvt ) { if ( !pEditView ) // Happens in Win95 return; #if OSL_DEBUG_LEVEL > 1 Range aRange = pModulWindow->GetHScrollBar()->GetRange(); (void)aRange; long nVisSz = pModulWindow->GetHScrollBar()->GetVisibleSize(); (void)nVisSz; long nPapSz = pModulWindow->GetHScrollBar()->GetPageSize(); (void)nPapSz; long nLinSz = pModulWindow->GetHScrollBar()->GetLineSize(); (void)nLinSz; long nThumb = pModulWindow->GetHScrollBar()->GetThumbPos(); (void)nThumb; #endif sal_Bool bDone = sal_False; sal_Bool bWasModified = pEditEngine->IsModified(); if ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify() ) { if ( ( rKEvt.GetKeyCode().GetCode() == KEY_A) && rKEvt.GetKeyCode().IsMod1() ) pEditView->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) ); else if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() ) bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog else { if ( ( rKEvt.GetKeyCode().GetCode() == KEY_TAB ) && !rKEvt.GetKeyCode().IsMod1() && !rKEvt.GetKeyCode().IsMod2() && !GetEditView()->IsReadOnly() ) { TextSelection aSel( pEditView->GetSelection() ); if ( aSel.GetStart().GetPara() != aSel.GetEnd().GetPara() ) { bDelayHighlight = sal_False; if ( !rKEvt.GetKeyCode().IsShift() ) pEditView->IndentBlock(); else pEditView->UnindentBlock(); bDelayHighlight = sal_True; bDone = sal_True; } } if ( !bDone ) bDone = pEditView->KeyInput( rKEvt ); } } if ( !bDone ) { if ( !SfxViewShell::Current()->KeyInput( rKEvt ) ) Window::KeyInput( rKEvt ); } else { SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); if ( pBindings ) { pBindings->Invalidate( SID_BASICIDE_STAT_POS ); if ( rKEvt.GetKeyCode().GetGroup() == KEYGROUP_CURSOR ) pBindings->Update( SID_BASICIDE_STAT_POS ); if ( !bWasModified && pEditEngine->IsModified() ) { pBindings->Invalidate( SID_SAVEDOC ); pBindings->Invalidate( SID_DOC_MODIFIED ); pBindings->Invalidate( SID_UNDO ); } if ( rKEvt.GetKeyCode().GetCode() == KEY_INSERT ) pBindings->Invalidate( SID_ATTR_INSERT ); } } } void EditorWindow::Paint( const Rectangle& rRect ) { if ( !pEditEngine ) // We need it now at latest CreateEditEngine(); pEditView->Paint( rRect ); } void EditorWindow::LoseFocus() { SetSourceInBasic(); Window::LoseFocus(); } sal_Bool EditorWindow::SetSourceInBasic( sal_Bool bQuiet ) { (void)bQuiet; sal_Bool bChanged = sal_False; if ( pEditEngine && pEditEngine->IsModified() && !GetEditView()->IsReadOnly() ) // Added for #i60626, otherwise // any read only bug in the text engine could lead to a crash later { if ( !StarBASIC::IsRunning() ) // Not at runtime! { ::rtl::OUString aModule = getTextEngineText( pEditEngine ); // update module in basic #ifdef DBG_UTIL SbModule* pModule = pModulWindow->GetSbModule(); #endif DBG_ASSERT(pModule, "EditorWindow::SetSourceInBasic: No Module found!"); // update module in module window pModulWindow->SetModule( aModule ); // update module in library ScriptDocument aDocument( pModulWindow->GetDocument() ); String aLibName = pModulWindow->GetLibName(); String aName = pModulWindow->GetName(); OSL_VERIFY( aDocument.updateModule( aLibName, aName, aModule ) ); pEditEngine->SetModified( sal_False ); BasicIDE::MarkDocumentModified( aDocument ); bChanged = sal_True; } } return bChanged; } // Returns the position of the last character of any of the following // EOL char combinations: CR, CR/LF, LF, return -1 if no EOL is found sal_Int32 searchEOL( const ::rtl::OUString& rStr, sal_Int32 fromIndex ) { sal_Int32 iRetPos = -1; sal_Int32 iLF = rStr.indexOf( LINE_SEP, fromIndex ); if( iLF != -1 ) { iRetPos = iLF; } else { iRetPos = rStr.indexOf( LINE_SEP_CR, fromIndex ); } return iRetPos; } void EditorWindow::CreateEditEngine() { if ( pEditEngine ) return; pEditEngine = new ExtTextEngine; pEditView = new ExtTextView( pEditEngine, this ); pEditView->SetAutoIndentMode( sal_True ); pEditEngine->SetUpdateMode( sal_False ); pEditEngine->InsertView( pEditView ); ImplSetFont(); aSyntaxIdleTimer.SetTimeout( 200 ); aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, EditorWindow, SyntaxTimerHdl ) ); aHighlighter.initialize( HIGHLIGHT_BASIC ); sal_Bool bWasDoSyntaxHighlight = bDoSyntaxHighlight; bDoSyntaxHighlight = sal_False; // Bei grossen Texten zu langsam... ::rtl::OUString aOUSource( pModulWindow->GetModule() ); sal_Int32 nLines = 0; sal_Int32 nIndex = -1; do { nLines++; nIndex = searchEOL( aOUSource, nIndex+1 ); } while ( nIndex >= 0 ); // nLines*4: SetText+Formatting+DoHighlight+Formatting // 1 Formatting koennte eingespart werden, aber dann wartet man // bei einem langen Sourcecode noch laenger auf den Text... pProgress = new ProgressInfo( IDE_DLL()->GetShell()->GetViewFrame()->GetObjectShell(), String( IDEResId( RID_STR_GENERATESOURCE ) ), nLines*4 ); setTextEngineText( pEditEngine, aOUSource ); pEditView->SetStartDocPos( Point( 0, 0 ) ); pEditView->SetSelection( TextSelection() ); pModulWindow->GetBreakPointWindow().GetCurYOffset() = 0; pEditEngine->SetUpdateMode( sal_True ); Update(); // Es wurde bei UpdateMode = sal_True nur Invalidiert // Die anderen Fenster auch, damit keine halben Sachen auf dem Bildschirm! pModulWindow->GetLayout()->GetWatchWindow().Update(); pModulWindow->GetLayout()->GetStackWindow().Update(); pModulWindow->GetBreakPointWindow().Update(); pEditView->ShowCursor( sal_True, sal_True ); StartListening( *pEditEngine ); // Das Syntax-Highlightning legt ein rel. groesse VDev an. aSyntaxIdleTimer.Stop(); bDoSyntaxHighlight = bWasDoSyntaxHighlight; for ( sal_uInt16 nLine = 0; nLine < nLines; nLine++ ) aSyntaxLineTable.Insert( nLine, (void*)(sal_uInt16)1 ); ForceSyntaxTimeout(); DELETEZ( pProgress ); pEditView->EraseVirtualDevice(); pEditEngine->SetModified( sal_False ); pEditEngine->EnableUndo( sal_True ); InitScrollBars(); SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); if ( pBindings ) pBindings->Invalidate( SID_BASICIDE_STAT_POS ); DBG_ASSERT( pModulWindow->GetBreakPointWindow().GetCurYOffset() == 0, "CreateEditEngine: Brechpunkte verschoben?" ); // set readonly mode for readonly libraries ScriptDocument aDocument( pModulWindow->GetDocument() ); ::rtl::OUString aOULibName( pModulWindow->GetLibName() ); Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) { pModulWindow->SetReadOnly( sal_True ); } if ( aDocument.isDocument() && aDocument.isReadOnly() ) pModulWindow->SetReadOnly( sal_True ); } // virtual void EditorWindow::DataChanged(DataChangedEvent const & rDCEvt) { Window::DataChanged(rDCEvt); if (rDCEvt.GetType() == DATACHANGED_SETTINGS && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) { Color aColor(GetSettings().GetStyleSettings().GetFieldColor()); if (aColor != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor()) { SetBackground(Wallpaper(aColor)); Invalidate(); } if (pEditEngine != 0) { aColor = GetSettings().GetStyleSettings().GetFieldTextColor(); if (aColor != rDCEvt.GetOldSettings()-> GetStyleSettings().GetFieldTextColor()) { Font aFont(pEditEngine->GetFont()); aFont.SetColor(aColor); pEditEngine->SetFont(aFont); } } } } void EditorWindow::Notify( SfxBroadcaster& /*rBC*/, const SfxHint& rHint ) { if ( rHint.ISA( TextHint ) ) { const TextHint& rTextHint = (const TextHint&)rHint; if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED ) { if ( pModulWindow->GetHScrollBar() ) pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() ); pModulWindow->GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() ); pModulWindow->GetBreakPointWindow().DoScroll ( 0, pModulWindow->GetBreakPointWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() ); } else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED ) { if ( pEditView->GetStartDocPos().Y() ) { long nOutHeight = GetOutputSizePixel().Height(); long nTextHeight = pEditEngine->GetTextHeight(); if ( nTextHeight < nOutHeight ) pEditView->Scroll( 0, pEditView->GetStartDocPos().Y() ); } SetScrollBarRanges(); } else if( rTextHint.GetId() == TEXT_HINT_TEXTFORMATTED ) { if ( pModulWindow->GetHScrollBar() ) { sal_uLong nWidth = pEditEngine->CalcTextWidth(); if ( (long)nWidth != nCurTextWidth ) { nCurTextWidth = nWidth; pModulWindow->GetHScrollBar()->SetRange( Range( 0, (long)nCurTextWidth-1) ); pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() ); } } long nPrevTextWidth = nCurTextWidth; nCurTextWidth = pEditEngine->CalcTextWidth(); if ( nCurTextWidth != nPrevTextWidth ) SetScrollBarRanges(); } else if( rTextHint.GetId() == TEXT_HINT_PARAINSERTED ) { ParagraphInsertedDeleted( rTextHint.GetValue(), sal_True ); DoDelayedSyntaxHighlight( rTextHint.GetValue() ); } else if( rTextHint.GetId() == TEXT_HINT_PARAREMOVED ) { ParagraphInsertedDeleted( rTextHint.GetValue(), sal_False ); } else if( rTextHint.GetId() == TEXT_HINT_PARACONTENTCHANGED ) { DoDelayedSyntaxHighlight( rTextHint.GetValue() ); } } } void EditorWindow::ConfigurationChanged( utl::ConfigurationBroadcaster*, sal_uInt32 ) { ImplSetFont(); } void EditorWindow::SetScrollBarRanges() { // Extra-Methode, nicht InitScrollBars, da auch fuer EditEngine-Events. if ( !pEditEngine ) return; if ( pModulWindow->GetHScrollBar() ) pModulWindow->GetHScrollBar()->SetRange( Range( 0, nCurTextWidth-1 ) ); pModulWindow->GetEditVScrollBar().SetRange( Range( 0, pEditEngine->GetTextHeight()-1 ) ); } void EditorWindow::InitScrollBars() { if ( !pEditEngine ) return; SetScrollBarRanges(); Size aOutSz( GetOutputSizePixel() ); pModulWindow->GetEditVScrollBar().SetVisibleSize( aOutSz.Height() ); pModulWindow->GetEditVScrollBar().SetPageSize( aOutSz.Height() * 8 / 10 ); pModulWindow->GetEditVScrollBar().SetLineSize( GetTextHeight() ); pModulWindow->GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() ); pModulWindow->GetEditVScrollBar().Show(); if ( pModulWindow->GetHScrollBar() ) { pModulWindow->GetHScrollBar()->SetVisibleSize( aOutSz.Width() ); pModulWindow->GetHScrollBar()->SetPageSize( aOutSz.Width() * 8 / 10 ); pModulWindow->GetHScrollBar()->SetLineSize( GetTextWidth( 'x' ) ); pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() ); pModulWindow->GetHScrollBar()->Show(); } } void EditorWindow::ImpDoHighlight( sal_uLong nLine ) { if ( bDoSyntaxHighlight ) { String aLine( pEditEngine->GetText( nLine ) ); Range aChanges = aHighlighter.notifyChange( nLine, 0, &aLine, 1 ); if ( aChanges.Len() ) { for ( long n = aChanges.Min() + 1; n <= aChanges.Max(); n++ ) aSyntaxLineTable.Insert( n, (void*)(sal_uLong)1 ); aSyntaxIdleTimer.Start(); } sal_Bool bWasModified = pEditEngine->IsModified(); pEditEngine->RemoveAttribs( nLine, sal_True ); HighlightPortions aPortions; aHighlighter.getHighlightPortions( nLine, aLine, aPortions ); for ( size_t i = 0; i < aPortions.size(); i++ ) { HighlightPortion& r = aPortions[i]; const Color& rColor = ((ModulWindowLayout*)pModulWindow->GetLayoutWindow())->getSyntaxColor(r.tokenType); pEditEngine->SetAttrib( TextAttribFontColor( rColor ), nLine, r.nBegin, r.nEnd, sal_True ); } // Das Highlighten soll kein Modify setzen pEditEngine->SetModified( bWasModified ); } } void EditorWindow::ImplSetFont() { if ( pSourceViewConfig ) { String sFontName = pSourceViewConfig->GetFontName(); if ( !sFontName.Len() ) { Font aTmpFont( OutputDevice::GetDefaultFont( DEFAULTFONT_FIXED, Application::GetSettings().GetUILanguage(), 0 , this ) ); sFontName = aTmpFont.GetName(); } Size aFontSize( 0, pSourceViewConfig->GetFontHeight() ); Font aFont( sFontName, aFontSize ); aFont.SetColor( GetSettings().GetStyleSettings().GetFieldTextColor() ); SetPointFont( aFont ); aFont = GetFont(); if ( pModulWindow ) pModulWindow->GetBreakPointWindow().SetFont( aFont ); if ( pEditEngine ) { sal_Bool bModified = pEditEngine->IsModified(); pEditEngine->SetFont( aFont ); pEditEngine->SetModified( bModified ); } } } void EditorWindow::DoSyntaxHighlight( sal_uLong nPara ) { // Durch das DelayedSyntaxHighlight kann es passieren, // dass die Zeile nicht mehr existiert! if ( nPara < pEditEngine->GetParagraphCount() ) { // leider weis ich nicht, ob genau diese Zeile Modified() ... if ( pProgress ) pProgress->StepProgress(); ImpDoHighlight( nPara ); } } void EditorWindow::DoDelayedSyntaxHighlight( sal_uLong nPara ) { // Zeile wird nur in 'Liste' aufgenommen, im TimerHdl abgearbeitet. // => Nicht Absaetze manipulieren, waehrend EditEngine formatiert. if ( pProgress ) pProgress->StepProgress(); if ( !bHighlightning && bDoSyntaxHighlight ) { if ( bDelayHighlight ) { aSyntaxLineTable.Insert( nPara, (void*)(sal_uLong)1 ); aSyntaxIdleTimer.Start(); } else DoSyntaxHighlight( nPara ); } } IMPL_LINK( EditorWindow, SyntaxTimerHdl, Timer *, EMPTYARG ) { DBG_ASSERT( pEditView, "Noch keine View, aber Syntax-Highlight ?!" ); sal_Bool bWasModified = pEditEngine->IsModified(); // pEditEngine->SetUpdateMode( sal_False ); bHighlightning = sal_True; sal_uInt16 nLine; void* p = aSyntaxLineTable.First(); while ( p ) { nLine = (sal_uInt16)aSyntaxLineTable.GetCurKey(); DoSyntaxHighlight( nLine ); p = aSyntaxLineTable.Next(); } // #i45572# if ( pEditView ) pEditView->ShowCursor( sal_False, sal_True ); pEditEngine->SetModified( bWasModified ); aSyntaxLineTable.Clear(); bHighlightning = sal_False; return 0; } void EditorWindow::ParagraphInsertedDeleted( sal_uLong nPara, sal_Bool bInserted ) { if ( pProgress ) pProgress->StepProgress(); if ( !bInserted && ( nPara == TEXT_PARA_ALL ) ) { pModulWindow->GetBreakPoints().reset(); pModulWindow->GetBreakPointWindow().Invalidate(); aHighlighter.initialize( HIGHLIGHT_BASIC ); } else { // Brechpunkte Aktualisieren... // keine Sonderbehandlung fuer EditEngine-CTOR ( Erste-Zeile-Problem ), // da in diesem Moment noch keine BreakPoints. // +1: Basic-Zeilen beginnen bei 1! pModulWindow->GetBreakPoints().AdjustBreakPoints( (sal_uInt16)nPara+1, bInserted ); // Im BreakPointWindow invalidieren... long nLineHeight = GetTextHeight(); Size aSz = pModulWindow->GetBreakPointWindow().GetOutputSize(); Rectangle aInvRec( Point( 0, 0 ), aSz ); long nY = nPara*nLineHeight - pModulWindow->GetBreakPointWindow().GetCurYOffset(); aInvRec.Top() = nY; pModulWindow->GetBreakPointWindow().Invalidate( aInvRec ); if ( bDoSyntaxHighlight ) { String aDummy; aHighlighter.notifyChange( nPara, bInserted ? 1 : (-1), &aDummy, 1 ); } } } void EditorWindow::CreateProgress( const String& rText, sal_uLong nRange ) { DBG_ASSERT( !pProgress, "ProgressInfo existiert schon" ); pProgress = new ProgressInfo( IDE_DLL()->GetShell()->GetViewFrame()->GetObjectShell(), rText, nRange ); } void EditorWindow::DestroyProgress() { DELETEZ( pProgress ); } void EditorWindow::ForceSyntaxTimeout() { aSyntaxIdleTimer.Stop(); ((Link&)aSyntaxIdleTimer.GetTimeoutHdl()).Call( &aSyntaxIdleTimer ); } BreakPointWindow::BreakPointWindow( Window* pParent ) : Window( pParent, WB_BORDER ) { pModulWindow = 0; nCurYOffset = 0; setBackgroundColor(GetSettings().GetStyleSettings().GetFieldColor()); nMarkerPos = MARKER_NOMARKER; // nCurYOffset merken und nicht von EditEngine holen. // Falls in EditEngine autom. gescrollt wurde, wuesste ich sonst nicht, // wo ich gerade stehe. SetHelpId( HID_BASICIDE_BREAKPOINTWINDOW ); } BreakPointWindow::~BreakPointWindow() { } void BreakPointWindow::Resize() { /// Invalidate(); } void BreakPointWindow::Paint( const Rectangle& ) { if ( SyncYOffset() ) return; Size aOutSz( GetOutputSize() ); long nLineHeight = GetTextHeight(); Image aBrk1(((ModulWindowLayout *) pModulWindow->GetLayoutWindow())-> getImage(IMGID_BRKENABLED)); Image aBrk0(((ModulWindowLayout *) pModulWindow->GetLayoutWindow())-> getImage(IMGID_BRKDISABLED)); Size aBmpSz( aBrk1.GetSizePixel() ); aBmpSz = PixelToLogic( aBmpSz ); Point aBmpOff( 0, 0 ); aBmpOff.X() = ( aOutSz.Width() - aBmpSz.Width() ) / 2; aBmpOff.Y() = ( nLineHeight - aBmpSz.Height() ) / 2; for ( size_t i = 0, n = GetBreakPoints().size(); i < n ; ++i ) { BreakPoint* pBrk = GetBreakPoints().at( i ); size_t nLine = pBrk->nLine-1; size_t nY = nLine*nLineHeight - nCurYOffset; DrawImage( Point( 0, nY ) + aBmpOff, pBrk->bEnabled ? aBrk1 : aBrk0 ); } ShowMarker( sal_True ); } void BreakPointWindow::DoScroll( long nHorzScroll, long nVertScroll ) { nCurYOffset -= nVertScroll; Window::Scroll( nHorzScroll, nVertScroll ); } void BreakPointWindow::SetMarkerPos( sal_uInt16 nLine, sal_Bool bError ) { if ( SyncYOffset() ) Update(); ShowMarker( sal_False ); // Alten wegzeichen... nMarkerPos = nLine; bErrorMarker = bError; ShowMarker( sal_True ); // Neuen zeichnen... } void BreakPointWindow::ShowMarker( sal_Bool bShow ) { if ( nMarkerPos == MARKER_NOMARKER ) return; Size aOutSz( GetOutputSize() ); long nLineHeight = GetTextHeight(); Image aMarker(((ModulWindowLayout*)pModulWindow->GetLayoutWindow())-> getImage(bErrorMarker ? IMGID_ERRORMARKER : IMGID_STEPMARKER)); Size aMarkerSz( aMarker.GetSizePixel() ); aMarkerSz = PixelToLogic( aMarkerSz ); Point aMarkerOff( 0, 0 ); aMarkerOff.X() = ( aOutSz.Width() - aMarkerSz.Width() ) / 2; aMarkerOff.Y() = ( nLineHeight - aMarkerSz.Height() ) / 2; sal_uLong nY = nMarkerPos*nLineHeight - nCurYOffset; Point aPos( 0, nY ); aPos += aMarkerOff; if ( bShow ) DrawImage( aPos, aMarker ); else Invalidate( Rectangle( aPos, aMarkerSz ) ); } BreakPoint* BreakPointWindow::FindBreakPoint( const Point& rMousePos ) { size_t nLineHeight = GetTextHeight(); size_t nYPos = rMousePos.Y() + nCurYOffset; for ( size_t i = 0, n = GetBreakPoints().size(); i < n ; ++i ) { BreakPoint* pBrk = GetBreakPoints().at( i ); size_t nLine = pBrk->nLine-1; size_t nY = nLine*nLineHeight; if ( ( nYPos > nY ) && ( nYPos < ( nY + nLineHeight ) ) ) return pBrk; } return 0; } void BreakPointWindow::MouseButtonDown( const MouseEvent& rMEvt ) { if ( rMEvt.GetClicks() == 2 ) { Point aMousePos( PixelToLogic( rMEvt.GetPosPixel() ) ); long nLineHeight = GetTextHeight(); long nYPos = aMousePos.Y() + nCurYOffset; long nLine = nYPos / nLineHeight + 1; pModulWindow->ToggleBreakPoint( (sal_uLong)nLine ); // vielleicht mal etwas genauer... Invalidate(); } } void BreakPointWindow::Command( const CommandEvent& rCEvt ) { if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU ) { Point aPos( rCEvt.IsMouseEvent() ? rCEvt.GetMousePosPixel() : Point(1,1) ); Point aEventPos( PixelToLogic( aPos ) ); BreakPoint* pBrk = rCEvt.IsMouseEvent() ? FindBreakPoint( aEventPos ) : 0; if ( pBrk ) { // prueffen, ob Brechpunkt enabled.... PopupMenu aBrkPropMenu( IDEResId( RID_POPUP_BRKPROPS ) ); aBrkPropMenu.CheckItem( RID_ACTIV, pBrk->bEnabled ); switch ( aBrkPropMenu.Execute( this, aPos ) ) { case RID_ACTIV: { pBrk->bEnabled = pBrk->bEnabled ? sal_False : sal_True; pModulWindow->UpdateBreakPoint( *pBrk ); Invalidate(); } break; case RID_BRKPROPS: { BreakPointDialog aBrkDlg( this, GetBreakPoints() ); aBrkDlg.SetCurrentBreakPoint( pBrk ); aBrkDlg.Execute(); Invalidate(); } break; } } else { PopupMenu aBrkListMenu( IDEResId( RID_POPUP_BRKDLG ) ); switch ( aBrkListMenu.Execute( this, aPos ) ) { case RID_BRKDLG: { BreakPointDialog aBrkDlg( this, GetBreakPoints() ); aBrkDlg.Execute(); Invalidate(); } break; } } } } sal_Bool BreakPointWindow::SyncYOffset() { TextView* pView = pModulWindow->GetEditView(); if ( pView ) { long nViewYOffset = pView->GetStartDocPos().Y(); if ( nCurYOffset != nViewYOffset ) { nCurYOffset = nViewYOffset; Invalidate(); return sal_True; } } return sal_False; } // virtual void BreakPointWindow::DataChanged(DataChangedEvent const & rDCEvt) { Window::DataChanged(rDCEvt); if (rDCEvt.GetType() == DATACHANGED_SETTINGS && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) { Color aColor(GetSettings().GetStyleSettings().GetFieldColor()); if (aColor != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor()) { setBackgroundColor(aColor); Invalidate(); } } } void BreakPointWindow::setBackgroundColor(Color aColor) { SetBackground(Wallpaper(aColor)); } const sal_uInt16 ITEM_ID_VARIABLE = 1; const sal_uInt16 ITEM_ID_VALUE = 2; const sal_uInt16 ITEM_ID_TYPE = 3; WatchWindow::WatchWindow( Window* pParent ) : BasicDockingWindow( pParent ), aWatchStr( IDEResId( RID_STR_REMOVEWATCH ) ), aXEdit( this, IDEResId( RID_EDT_WATCHEDIT ) ), aRemoveWatchButton( this, IDEResId( RID_IMGBTN_REMOVEWATCH ) ), aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HASBUTTONS | WB_HASLINES | WB_HSCROLL | WB_TABSTOP | WB_HASLINESATROOT | WB_HASBUTTONSATROOT ), aHeaderBar( this, WB_BUTTONSTYLE | WB_BORDER ) { aXEdit.SetAccessibleName(String(IDEResId( RID_STR_WATCHNAME))); aTreeListBox.SetAccessibleName(String(IDEResId(RID_STR_WATCHNAME))); nVirtToolBoxHeight = aXEdit.GetSizePixel().Height() + 7; nHeaderBarHeight = 16; aTreeListBox.SetHelpId(HID_BASICIDE_WATCHWINDOW_LIST); aTreeListBox.EnableInplaceEditing( sal_True ); aTreeListBox.SetSelectHdl( LINK( this, WatchWindow, TreeListHdl ) ); aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight + nHeaderBarHeight ) ); aTreeListBox.SetHighlightRange( 1, 5 ); Point aPnt( DWBORDER, nVirtToolBoxHeight + 1 ); aHeaderBar.SetPosPixel( aPnt ); aHeaderBar.SetEndDragHdl( LINK( this, WatchWindow, implEndDragHdl ) ); long nVarTabWidth = 220; long nValueTabWidth = 100; long nTypeTabWidth = 1250; aHeaderBar.InsertItem( ITEM_ID_VARIABLE, String( IDEResId( RID_STR_WATCHVARIABLE ) ), nVarTabWidth ); aHeaderBar.InsertItem( ITEM_ID_VALUE, String( IDEResId( RID_STR_WATCHVALUE ) ), nValueTabWidth ); aHeaderBar.InsertItem( ITEM_ID_TYPE, String( IDEResId( RID_STR_WATCHTYPE ) ), nTypeTabWidth ); long tabs[ 4 ]; tabs[ 0 ] = 3; // two tabs tabs[ 1 ] = 0; tabs[ 2 ] = nVarTabWidth; tabs[ 3 ] = nVarTabWidth + nValueTabWidth; aTreeListBox.SvHeaderTabListBox::SetTabs( tabs, MAP_PIXEL ); aTreeListBox.InitHeaderBar( &aHeaderBar ); aTreeListBox.SetNodeDefaultImages( ); aHeaderBar.Show(); aRemoveWatchButton.Disable(); aTreeListBox.Show(); long nTextLen = GetTextWidth( aWatchStr ) + DWBORDER; aXEdit.SetPosPixel( Point( nTextLen, 3 ) ); aXEdit.SetAccHdl( LINK( this, WatchWindow, EditAccHdl ) ); aXEdit.GetAccelerator().InsertItem( 1, KeyCode( KEY_RETURN ) ); aXEdit.GetAccelerator().InsertItem( 2, KeyCode( KEY_ESCAPE ) ); aXEdit.Show(); aRemoveWatchButton.SetClickHdl( LINK( this, WatchWindow, ButtonHdl ) ); aRemoveWatchButton.SetPosPixel( Point( nTextLen + aXEdit.GetSizePixel().Width() + 4, 2 ) ); Size aSz( aRemoveWatchButton.GetModeImage().GetSizePixel() ); aSz.Width() += 6; aSz.Height() += 6; aRemoveWatchButton.SetSizePixel( aSz ); aRemoveWatchButton.Show(); SetText( String( IDEResId( RID_STR_WATCHNAME ) ) ); SetHelpId( HID_BASICIDE_WATCHWINDOW ); // make watch window keyboard accessible GetSystemWindow()->GetTaskPaneList()->AddWindow( this ); } WatchWindow::~WatchWindow() { GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this ); } void WatchWindow::Paint( const Rectangle& ) { DrawText( Point( DWBORDER, 7 ), aWatchStr ); lcl_DrawIDEWindowFrame( this ); } void WatchWindow::Resize() { Size aSz = GetOutputSizePixel(); Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER ); if ( aBoxSz.Width() < 4 ) // < 4, weil noch Border... aBoxSz.Width() = 0; if ( aBoxSz.Height() < 4 ) aBoxSz.Height() = 0; aBoxSz.Height() -= nHeaderBarHeight; aTreeListBox.SetSizePixel( aBoxSz ); aTreeListBox.GetHScroll()->SetPageSize( aTreeListBox.GetHScroll()->GetVisibleSize() ); aBoxSz.Height() = nHeaderBarHeight; aHeaderBar.SetSizePixel( aBoxSz ); Invalidate(); //Wegen DrawLine im Paint... } struct MemberList { String* mpMemberNames; int mnMemberCount; MemberList( void ) : mpMemberNames( NULL ) , mnMemberCount( 0 ) {} ~MemberList() { clear(); } void clear( void ); void allocList( int nCount ); }; void MemberList::clear( void ) { if( mnMemberCount ) { delete[] mpMemberNames; mnMemberCount = 0; } } void MemberList::allocList( int nCount ) { clear(); if( nCount > 0 ) { mnMemberCount = nCount; mpMemberNames = new String[ mnMemberCount ]; } } struct WatchItem { String maName; String maDisplayName; SbxObjectRef mpObject; MemberList maMemberList; SbxDimArrayRef mpArray; int nDimLevel; // 0 = Root int nDimCount; short* pIndices; WatchItem* mpArrayParentItem; WatchItem( void ) : nDimLevel( 0 ) , nDimCount( 0 ) , pIndices( NULL ) , mpArrayParentItem( NULL ) {} ~WatchItem() { clearWatchItem(); } void clearWatchItem( bool bIncludeArrayData=true ) { mpObject = NULL; maMemberList.clear(); if( bIncludeArrayData ) { mpArray = NULL; nDimLevel = 0; nDimCount = 0; delete[] pIndices; pIndices = NULL; } } WatchItem* GetRootItem( void ); SbxDimArray* GetRootArray( void ); }; WatchItem* WatchItem::GetRootItem( void ) { WatchItem* pItem = mpArrayParentItem; while( pItem ) { if( pItem->mpArray.Is() ) break; pItem = pItem->mpArrayParentItem; } return pItem; } SbxDimArray* WatchItem::GetRootArray( void ) { WatchItem* pRootItem = GetRootItem(); SbxDimArray* pRet = NULL; if( pRootItem ) pRet = pRootItem->mpArray; return pRet; } void WatchWindow::AddWatch( const String& rVName ) { WatchItem* pWatchItem = new WatchItem; String aVar, aIndex; lcl_SeparateNameAndIndex( rVName, aVar, aIndex ); pWatchItem->maName = aVar; String aWatchStr_( aVar ); aWatchStr_ += String( RTL_CONSTASCII_USTRINGPARAM( "\t\t" ) ); SvLBoxEntry* pNewEntry = aTreeListBox.InsertEntry( aWatchStr_, 0, sal_True, LIST_APPEND ); pNewEntry->SetUserData( pWatchItem ); aTreeListBox.Select( pNewEntry, sal_True ); aTreeListBox.MakeVisible( pNewEntry ); aRemoveWatchButton.Enable(); } sal_Bool WatchWindow::RemoveSelectedWatch() { SvLBoxEntry* pEntry = aTreeListBox.GetCurEntry(); if ( pEntry ) { aTreeListBox.GetModel()->Remove( pEntry ); pEntry = aTreeListBox.GetCurEntry(); if ( pEntry ) aXEdit.SetText( ((WatchItem*)pEntry->GetUserData())->maName ); else aXEdit.SetText( String() ); if ( !aTreeListBox.GetEntryCount() ) aRemoveWatchButton.Disable(); return sal_True; } else return sal_False; } IMPL_LINK_INLINE_START( WatchWindow, ButtonHdl, ImageButton *, pButton ) { if ( pButton == &aRemoveWatchButton ) { BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; if( pDispatcher ) { pDispatcher->Execute( SID_BASICIDE_REMOVEWATCH ); } } return 0; } IMPL_LINK_INLINE_END( WatchWindow, ButtonHdl, ImageButton *, pButton ) IMPL_LINK_INLINE_START( WatchWindow, TreeListHdl, SvTreeListBox *, EMPTYARG ) { SvLBoxEntry* pCurEntry = aTreeListBox.GetCurEntry(); if ( pCurEntry && pCurEntry->GetUserData() ) aXEdit.SetText( ((WatchItem*)pCurEntry->GetUserData())->maName ); return 0; } IMPL_LINK_INLINE_END( WatchWindow, TreeListHdl, SvTreeListBox *, EMPTYARG ) IMPL_LINK_INLINE_START( WatchWindow, implEndDragHdl, HeaderBar *, pBar ) { (void)pBar; const sal_Int32 TAB_WIDTH_MIN = 10; sal_Int32 nMaxWidth = aHeaderBar.GetSizePixel().getWidth() - 2 * TAB_WIDTH_MIN; sal_Int32 nVariableWith = aHeaderBar.GetItemSize( ITEM_ID_VARIABLE ); if( nVariableWith < TAB_WIDTH_MIN ) aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, TAB_WIDTH_MIN ); else if( nVariableWith > nMaxWidth ) aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, nMaxWidth ); sal_Int32 nValueWith = aHeaderBar.GetItemSize( ITEM_ID_VALUE ); if( nValueWith < TAB_WIDTH_MIN ) aHeaderBar.SetItemSize( ITEM_ID_VALUE, TAB_WIDTH_MIN ); else if( nValueWith > nMaxWidth ) aHeaderBar.SetItemSize( ITEM_ID_VALUE, nMaxWidth ); if (aHeaderBar.GetItemSize( ITEM_ID_TYPE ) < TAB_WIDTH_MIN) aHeaderBar.SetItemSize( ITEM_ID_TYPE, TAB_WIDTH_MIN ); sal_Int32 nPos = 0; sal_uInt16 nTabs = aHeaderBar.GetItemCount(); for( sal_uInt16 i = 1 ; i < nTabs ; ++i ) { nPos += aHeaderBar.GetItemSize( i ); aTreeListBox.SetTab( i, nPos, MAP_PIXEL ); } return 0; } IMPL_LINK_INLINE_END( WatchWindow, implEndDragHdl, HeaderBar *, pBar ) IMPL_LINK( WatchWindow, EditAccHdl, Accelerator *, pAcc ) { switch ( pAcc->GetCurKeyCode().GetCode() ) { case KEY_RETURN: { String aCurText( aXEdit.GetText() ); if ( aCurText.Len() ) { AddWatch( aCurText ); aXEdit.SetSelection( Selection( 0, 0xFFFF ) ); UpdateWatches(); } else Sound::Beep(); } break; case KEY_ESCAPE: { aXEdit.SetText( String() ); } break; } return 0; } void WatchWindow::UpdateWatches( bool bBasicStopped ) { aTreeListBox.UpdateWatches( bBasicStopped ); } StackWindow::StackWindow( Window* pParent ) : BasicDockingWindow( pParent ), aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HSCROLL | WB_TABSTOP ), aStackStr( IDEResId( RID_STR_STACK ) ) { aTreeListBox.SetHelpId(HID_BASICIDE_STACKWINDOW_LIST); aTreeListBox.SetAccessibleName(String( IDEResId(RID_STR_STACKNAME))); aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight ) ); aTreeListBox.SetHighlightRange(); aTreeListBox.SetSelectionMode( NO_SELECTION ); aTreeListBox.InsertEntry( String(), 0, sal_False, LIST_APPEND ); aTreeListBox.Show(); SetText( String( IDEResId( RID_STR_STACKNAME ) ) ); SetHelpId( HID_BASICIDE_STACKWINDOW ); // make stack window keyboard accessible GetSystemWindow()->GetTaskPaneList()->AddWindow( this ); } StackWindow::~StackWindow() { GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this ); } void StackWindow::Paint( const Rectangle& ) { DrawText( Point( DWBORDER, 7 ), aStackStr ); lcl_DrawIDEWindowFrame( this ); } void StackWindow::Resize() { Size aSz = GetOutputSizePixel(); Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER ); if ( aBoxSz.Width() < 4 ) // < 4, weil noch Border... aBoxSz.Width() = 0; if ( aBoxSz.Height() < 4 ) aBoxSz.Height() = 0; aTreeListBox.SetSizePixel( aBoxSz ); Invalidate(); //Wegen DrawLine im Paint... } IMPL_LINK_INLINE_START( StackWindow, ButtonHdl, ImageButton *, pButton ) { return 0; } IMPL_LINK_INLINE_END( StackWindow, ButtonHdl, ImageButton *, pButton ) void StackWindow::UpdateCalls() { aTreeListBox.SetUpdateMode( sal_False ); aTreeListBox.Clear(); if ( StarBASIC::IsRunning() ) { SbxError eOld = SbxBase::GetError(); aTreeListBox.SetSelectionMode( SINGLE_SELECTION ); sal_uInt16 nScope = 0; SbMethod* pMethod = StarBASIC::GetActiveMethod( nScope ); while ( pMethod ) { String aEntry( String::CreateFromInt32(nScope )); if ( aEntry.Len() < 2 ) aEntry.Insert( ' ', 0 ); aEntry += String( RTL_CONSTASCII_USTRINGPARAM( ": " ) ); aEntry += pMethod->GetName(); SbxArray* pParams = pMethod->GetParameters(); SbxInfo* pInfo = pMethod->GetInfo(); if ( pParams ) { aEntry += '('; // 0 ist der Name der Sub... for ( sal_uInt16 nParam = 1; nParam < pParams->Count(); nParam++ ) { SbxVariable* pVar = pParams->Get( nParam ); DBG_ASSERT( pVar, "Parameter?!" ); if ( pVar->GetName().Len() ) aEntry += pVar->GetName(); else if ( pInfo ) { const SbxParamInfo* pParam = pInfo->GetParam( nParam ); if ( pParam ) aEntry += pParam->aName; } aEntry += '='; SbxDataType eType = pVar->GetType(); if( eType & SbxARRAY ) aEntry += String( RTL_CONSTASCII_USTRINGPARAM( "..." ) ); else if( eType != SbxOBJECT ) aEntry += pVar->GetString(); if ( nParam < ( pParams->Count() - 1 ) ) aEntry += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) ); } aEntry += ')'; } aTreeListBox.InsertEntry( aEntry, 0, sal_False, LIST_APPEND ); nScope++; pMethod = StarBASIC::GetActiveMethod( nScope ); } SbxBase::ResetError(); if( eOld != SbxERR_OK ) SbxBase::SetError( eOld ); } else { aTreeListBox.SetSelectionMode( NO_SELECTION ); aTreeListBox.InsertEntry( String(), 0, sal_False, LIST_APPEND ); } aTreeListBox.SetUpdateMode( sal_True ); } ComplexEditorWindow::ComplexEditorWindow( ModulWindow* pParent ) : Window( pParent, WB_3DLOOK | WB_CLIPCHILDREN ), aBrkWindow( this ), aEdtWindow( this ), aEWVScrollBar( this, WB_VSCROLL | WB_DRAG ) { aEdtWindow.SetModulWindow( pParent ); aBrkWindow.SetModulWindow( pParent ); aEdtWindow.Show(); aBrkWindow.Show(); aEWVScrollBar.SetLineSize( SCROLL_LINE ); aEWVScrollBar.SetPageSize( SCROLL_PAGE ); aEWVScrollBar.SetScrollHdl( LINK( this, ComplexEditorWindow, ScrollHdl ) ); aEWVScrollBar.Show(); } void ComplexEditorWindow::Resize() { Size aOutSz = GetOutputSizePixel(); Size aSz( aOutSz ); aSz.Width() -= 2*DWBORDER; aSz.Height() -= 2*DWBORDER; long nBrkWidth = 20; long nSBWidth = aEWVScrollBar.GetSizePixel().Width(); Size aBrkSz( Size( nBrkWidth, aSz.Height() ) ); aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz ); Size aEWSz( Size( aSz.Width() - nBrkWidth - nSBWidth + 2, aSz.Height() ) ); aEdtWindow.SetPosSizePixel( Point( DWBORDER+aBrkSz.Width()-1, DWBORDER ), aEWSz ); aEWVScrollBar.SetPosSizePixel( Point( aOutSz.Width()-DWBORDER-nSBWidth, DWBORDER ), Size( nSBWidth, aSz.Height() ) ); } IMPL_LINK( ComplexEditorWindow, ScrollHdl, ScrollBar *, pCurScrollBar ) { if ( aEdtWindow.GetEditView() ) { DBG_ASSERT( pCurScrollBar == &aEWVScrollBar, "Wer scrollt hier ?" ); long nDiff = aEdtWindow.GetEditView()->GetStartDocPos().Y() - pCurScrollBar->GetThumbPos(); aEdtWindow.GetEditView()->Scroll( 0, nDiff ); aBrkWindow.DoScroll( 0, nDiff ); aEdtWindow.GetEditView()->ShowCursor( sal_False, sal_True ); pCurScrollBar->SetThumbPos( aEdtWindow.GetEditView()->GetStartDocPos().Y() ); } return 0; } void ComplexEditorWindow::DataChanged(DataChangedEvent const & rDCEvt) { Window::DataChanged(rDCEvt); if (rDCEvt.GetType() == DATACHANGED_SETTINGS && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) { Color aColor(GetSettings().GetStyleSettings().GetFaceColor()); if (aColor != rDCEvt.GetOldSettings()->GetStyleSettings().GetFaceColor()) { SetBackground(Wallpaper(aColor)); Invalidate(); } } } uno::Reference< awt::XWindowPeer > EditorWindow::GetComponentInterface(sal_Bool bCreate) { uno::Reference< awt::XWindowPeer > xPeer( Window::GetComponentInterface(false)); if (!xPeer.is() && bCreate) { // Make sure edit engine and view are available: if (!pEditEngine) CreateEditEngine(); xPeer = new ::svt::TextWindowPeer(*GetEditView()); SetComponentInterface(xPeer); } return xPeer; } WatchTreeListBox::WatchTreeListBox( Window* pParent, WinBits nWinBits ) : SvHeaderTabListBox( pParent, nWinBits ) {} WatchTreeListBox::~WatchTreeListBox() { // Destroy user data SvLBoxEntry* pEntry = First(); while ( pEntry ) { delete (WatchItem*)pEntry->GetUserData(); pEntry = Next( pEntry ); } } void WatchTreeListBox::SetTabs() { SvHeaderTabListBox::SetTabs(); sal_uInt16 nTabCount_ = aTabs.Count(); for( sal_uInt16 i = 0 ; i < nTabCount_ ; i++ ) { SvLBoxTab* pTab = (SvLBoxTab*)aTabs.GetObject(i); if( i == 2 ) pTab->nFlags |= SV_LBOXTAB_EDITABLE; else pTab->nFlags &= ~SV_LBOXTAB_EDITABLE; } } void WatchTreeListBox::RequestingChilds( SvLBoxEntry * pParent ) { if( !StarBASIC::IsRunning() ) return; if( GetChildCount( pParent ) > 0 ) return; SvLBoxEntry * pEntry = pParent; WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); SbxDimArray* pArray = pItem->mpArray; SbxDimArray* pRootArray = pItem->GetRootArray(); bool bArrayIsRootArray = false; if( !pArray && pRootArray ) { pArray = pRootArray; bArrayIsRootArray = true; } SbxObject* pObj = pItem->mpObject; if( pObj ) { createAllObjectProperties( pObj ); SbxArray* pProps = pObj->GetProperties(); sal_uInt16 nPropCount = pProps->Count(); pItem->maMemberList.allocList( nPropCount ); for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ ) { SbxVariable* pVar = pProps->Get( i ); String aName( pVar->GetName() ); pItem->maMemberList.mpMemberNames[i] = aName; SvLBoxEntry* pChildEntry = SvTreeListBox::InsertEntry( aName, pEntry ); WatchItem* pChildItem = new WatchItem(); pChildItem->maName = aName; pChildEntry->SetUserData( pChildItem ); } if( nPropCount > 0 ) { UpdateWatches(); } } else if( pArray ) { sal_uInt16 nElementCount = 0; // Loop through indices of current level int nParentLevel = bArrayIsRootArray ? pItem->nDimLevel : 0; int nThisLevel = nParentLevel + 1; sal_Int32 nMin, nMax; pArray->GetDim32( nThisLevel, nMin, nMax ); for( sal_Int32 i = nMin ; i <= nMax ; i++ ) { WatchItem* pChildItem = new WatchItem(); // Copy data and create name String aBaseName( pItem->maName ); pChildItem->maName = aBaseName; String aIndexStr = String( RTL_CONSTASCII_USTRINGPARAM( "(" ) ); pChildItem->mpArrayParentItem = pItem; pChildItem->nDimLevel = nThisLevel; pChildItem->nDimCount = pItem->nDimCount; pChildItem->pIndices = new short[ pChildItem->nDimCount ]; sal_uInt16 j; for( j = 0 ; j < nParentLevel ; j++ ) { short n = pChildItem->pIndices[j] = pItem->pIndices[j]; aIndexStr += String::CreateFromInt32( n ); aIndexStr += String( RTL_CONSTASCII_USTRINGPARAM( "," ) ); } pChildItem->pIndices[ nParentLevel ] = sal::static_int_cast( i ); aIndexStr += String::CreateFromInt32( i ); aIndexStr += String( RTL_CONSTASCII_USTRINGPARAM( ")" ) ); String aDisplayName; WatchItem* pArrayRootItem = pChildItem->GetRootItem(); if( pArrayRootItem && pArrayRootItem->mpArrayParentItem ) aDisplayName = pItem->maDisplayName; else aDisplayName = aBaseName; aDisplayName += aIndexStr; pChildItem->maDisplayName = aDisplayName; SvLBoxEntry* pChildEntry = SvTreeListBox::InsertEntry( aDisplayName, pEntry ); nElementCount++; pChildEntry->SetUserData( pChildItem ); } if( nElementCount > 0 ) { UpdateWatches(); } } } SbxBase* WatchTreeListBox::ImplGetSBXForEntry( SvLBoxEntry* pEntry, bool& rbArrayElement ) { SbxBase* pSBX = NULL; rbArrayElement = false; WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); String aVName( pItem->maName ); SvLBoxEntry* pParentEntry = GetParent( pEntry ); WatchItem* pParentItem = pParentEntry ? (WatchItem*)pParentEntry->GetUserData() : NULL; if( pParentItem ) { SbxObject* pObj = pParentItem->mpObject; SbxDimArray* pArray; if( pObj ) { pSBX = pObj->Find( aVName, SbxCLASS_DONTCARE ); SbxVariable* pVar; if ( pSBX && (pVar = PTR_CAST( SbxVariable, pSBX )) != NULL && !pSBX->ISA( SbxMethod ) ) { // Force getting value SbxValues aRes; aRes.eType = SbxVOID; pVar->Get( aRes ); } } // Array? else if( (pArray = pItem->GetRootArray()) != NULL ) { rbArrayElement = true; if( pParentItem->nDimLevel + 1 == pParentItem->nDimCount ) pSBX = pArray->Get( pItem->pIndices ); } } else { pSBX = StarBASIC::FindSBXInCurrentScope( aVName ); } return pSBX; } sal_Bool WatchTreeListBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) { WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); sal_Bool bEdit = sal_False; if ( StarBASIC::IsRunning() && StarBASIC::GetActiveMethod() && !SbxBase::IsError() ) { // No out of scope entries bool bArrayElement; SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement ); if ( ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) || bArrayElement ) { // Accept no objects and only end nodes of arrays for editing if( !pItem->mpObject && (pItem->mpArray == NULL || pItem->nDimLevel == pItem->nDimCount) ) { aEditingRes = SvHeaderTabListBox::GetEntryText( pEntry, ITEM_ID_VALUE-1 ); aEditingRes.EraseLeadingChars(); aEditingRes.EraseTrailingChars(); bEdit = sal_True; } } } if ( !bEdit ) Sound::Beep(); return bEdit; } sal_Bool WatchTreeListBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ) { WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); String aVName( pItem->maName ); String aResult = rNewText; aResult.EraseLeadingChars(); aResult.EraseTrailingChars(); sal_uInt16 nResultLen = aResult.Len(); sal_Unicode cFirst = aResult.GetChar( 0 ); sal_Unicode cLast = aResult.GetChar( nResultLen - 1 ); if( cFirst == '\"' && cLast == '\"' ) aResult = aResult.Copy( 1, nResultLen - 2 ); sal_Bool bResModified = ( aResult != aEditingRes ) ? sal_True : sal_False; sal_Bool bError = sal_False; if ( !aVName.Len() ) { bError = sal_True; } sal_Bool bRet = sal_False; if ( bError ) { Sound::Beep(); } else if ( bResModified ) { bRet = ImplBasicEntryEdited( pEntry, aResult ); } return bRet; } sal_Bool WatchTreeListBox::ImplBasicEntryEdited( SvLBoxEntry* pEntry, const String& rResult ) { WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); String aVName( pItem->maName ); sal_Bool bError = sal_False; String aResult( rResult ); String aIndex; bool bArrayElement; SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement ); SbxBase* pToBeChanged = NULL; if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) { SbxVariable* pVar = (SbxVariable*)pSBX; SbxDataType eType = pVar->GetType(); if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT ) bError = sal_True; else if ( eType & SbxARRAY ) bError = sal_True; else pToBeChanged = pSBX; } if ( pToBeChanged ) { if ( pToBeChanged->ISA( SbxVariable ) ) { // Wenn der Typ variabel ist, macht die Konvertierung des SBX nichts, // bei festem Typ wird der String konvertiert. ((SbxVariable*)pToBeChanged)->PutStringExt( aResult ); } else bError = sal_True; } // Wenn jemand z.B. einen zu grossen Wert fuer ein Int eingegeben hat, // folgt beim naechsten Step() ein Runtime-Error. if ( SbxBase::IsError() ) { bError = sal_True; SbxBase::ResetError(); } if ( bError ) Sound::Beep(); UpdateWatches(); // The text should never be taken/copied 1:1, // as the UpdateWatches will be lost return sal_False; } static void implCollapseModifiedObjectEntry( SvLBoxEntry* pParent, WatchTreeListBox* pThis ) { pThis->Collapse( pParent ); SvLBoxTreeList* pModel = pThis->GetModel(); SvLBoxEntry* pDeleteEntry; while( (pDeleteEntry = pThis->SvTreeListBox::GetEntry( pParent, 0 )) != NULL ) { implCollapseModifiedObjectEntry( pDeleteEntry, pThis ); WatchItem* pItem = (WatchItem*)pDeleteEntry->GetUserData(); delete pItem; pModel->Remove( pDeleteEntry ); } } static String implCreateTypeStringForDimArray( WatchItem* pItem, SbxDataType eType ) { String aRetStr = getBasicTypeName( eType ); SbxDimArray* pArray = pItem->mpArray; if( !pArray ) pArray = pItem->GetRootArray(); if( pArray ) { int nDimLevel = pItem->nDimLevel; int nDims = pItem->nDimCount; if( nDimLevel < nDims ) { aRetStr += '('; for( int i = nDimLevel ; i < nDims ; i++ ) { short nMin, nMax; pArray->GetDim( sal::static_int_cast( i+1 ), nMin, nMax ); aRetStr += String::CreateFromInt32( nMin ); aRetStr += String( RTL_CONSTASCII_USTRINGPARAM( " to " ) ); aRetStr += String::CreateFromInt32( nMax ); if( i < nDims - 1 ) aRetStr += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) ); } aRetStr += ')'; } } return aRetStr; } void implEnableChildren( SvLBoxEntry* pEntry, bool bEnable ) { if( bEnable ) { pEntry->SetFlags( (pEntry->GetFlags() & ~(SV_ENTRYFLAG_NO_NODEBMP | SV_ENTRYFLAG_HAD_CHILDREN)) | SV_ENTRYFLAG_CHILDS_ON_DEMAND ); } else { pEntry->SetFlags( (pEntry->GetFlags() & ~(SV_ENTRYFLAG_CHILDS_ON_DEMAND)) ); } } void WatchTreeListBox::UpdateWatches( bool bBasicStopped ) { SbMethod* pCurMethod = StarBASIC::GetActiveMethod(); SbxError eOld = SbxBase::GetError(); setBasicWatchMode( true ); SvLBoxEntry* pEntry = First(); while ( pEntry ) { WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); String aVName( pItem->maName ); DBG_ASSERT( aVName.Len(), "Var? - Must not be empty!" ); String aWatchStr; String aTypeStr; if ( pCurMethod ) { bool bArrayElement; SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement ); // Array? If no end node create type string if( bArrayElement && pItem->nDimLevel < pItem->nDimCount ) { SbxDimArray* pRootArray = pItem->GetRootArray(); SbxDataType eType = pRootArray->GetType(); aTypeStr = implCreateTypeStringForDimArray( pItem, eType ); implEnableChildren( pEntry, true ); } bool bCollapse = false; if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) { SbxVariable* pVar = (SbxVariable*)pSBX; // extra treatment of arrays SbxDataType eType = pVar->GetType(); if ( eType & SbxARRAY ) { // Mehrdimensionale Arrays beruecksichtigen! SbxBase* pBase = pVar->GetObject(); if ( pBase && pBase->ISA( SbxDimArray ) ) { SbxDimArray* pNewArray = (SbxDimArray*)pBase; SbxDimArray* pOldArray = pItem->mpArray; bool bArrayChanged = false; if( pNewArray != NULL && pOldArray != NULL ) { // Compare Array dimensions to see if array has changed // Can be a copy, so comparing pointers does not work sal_uInt16 nOldDims = pOldArray->GetDims(); sal_uInt16 nNewDims = pNewArray->GetDims(); if( nOldDims != nNewDims ) { bArrayChanged = true; } else { for( int i = 0 ; i < nOldDims ; i++ ) { short nOldMin, nOldMax; short nNewMin, nNewMax; pOldArray->GetDim( sal::static_int_cast( i+1 ), nOldMin, nOldMax ); pNewArray->GetDim( sal::static_int_cast( i+1 ), nNewMin, nNewMax ); if( nOldMin != nNewMin || nOldMax != nNewMax ) { bArrayChanged = true; break; } } } } else if( pNewArray == NULL || pOldArray == NULL ) bArrayChanged = true; if( pNewArray ) implEnableChildren( pEntry, true ); // #i37227 Clear always and replace array if( pNewArray != pOldArray ) { pItem->clearWatchItem( false ); if( pNewArray ) { implEnableChildren( pEntry, true ); pItem->mpArray = pNewArray; sal_uInt16 nDims = pNewArray->GetDims(); pItem->nDimLevel = 0; pItem->nDimCount = nDims; } } if( bArrayChanged && pOldArray != NULL ) bCollapse = true; aTypeStr = implCreateTypeStringForDimArray( pItem, eType ); } else aWatchStr += String( RTL_CONSTASCII_USTRINGPARAM( "" ) ); } else if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT ) { SbxObject* pObj = NULL; SbxBase* pBase = pVar->GetObject(); if( pBase && pBase->ISA( SbxObject ) ) pObj = (SbxObject*)pBase; if( pObj ) { // Check if member list has changed bool bObjChanged = false; if( pItem->mpObject != NULL && pItem->maMemberList.mpMemberNames != NULL ) { SbxArray* pProps = pObj->GetProperties(); sal_uInt16 nPropCount = pProps->Count(); for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ ) { SbxVariable* pVar_ = pProps->Get( i ); String aName( pVar_->GetName() ); if( pItem->maMemberList.mpMemberNames[i] != aName ) { bObjChanged = true; break; } } if( bObjChanged ) bCollapse = true; } pItem->mpObject = pObj; implEnableChildren( pEntry, true ); aTypeStr = getBasicObjectTypeName( pObj ); } else { aWatchStr = String( RTL_CONSTASCII_USTRINGPARAM( "Null" ) ); if( pItem->mpObject != NULL ) { bCollapse = true; pItem->clearWatchItem( false ); implEnableChildren( pEntry, false ); } } } else { if( pItem->mpObject != NULL ) { bCollapse = true; pItem->clearWatchItem( false ); implEnableChildren( pEntry, false ); } bool bString = ((sal_uInt8)eType == (sal_uInt8)SbxSTRING); String aStrStr( RTL_CONSTASCII_USTRINGPARAM( "\"" ) ); if( bString ) aWatchStr += aStrStr; aWatchStr += pVar->GetString(); if( bString ) aWatchStr += aStrStr; } if( !aTypeStr.Len() ) { if( !pVar->IsFixed() ) aTypeStr = String( RTL_CONSTASCII_USTRINGPARAM( "Variant/" ) ); aTypeStr += getBasicTypeName( pVar->GetType() ); } } else if( !bArrayElement ) aWatchStr += String( RTL_CONSTASCII_USTRINGPARAM( "" ) ); if( bCollapse ) implCollapseModifiedObjectEntry( pEntry, this ); } else if( bBasicStopped ) { if( pItem->mpObject || pItem->mpArray ) { implCollapseModifiedObjectEntry( pEntry, this ); pItem->mpObject = NULL; } } SvHeaderTabListBox::SetEntryText( aWatchStr, pEntry, ITEM_ID_VALUE-1 ); SvHeaderTabListBox::SetEntryText( aTypeStr, pEntry, ITEM_ID_TYPE-1 ); pEntry = Next( pEntry ); } // Force redraw Invalidate(); SbxBase::ResetError(); if( eOld != SbxERR_OK ) SbxBase::SetError( eOld ); setBasicWatchMode( false ); } /* vim:set shiftwidth=4 softtabstop=4 expandtab: */