initial import

1 files changed, 321 insertions, 0 deletions

diff --git a/basctl/source/basicide/brkdlg.cxx b/basctl/source/basicide/brkdlg.cxx
new file mode 100644
index 000000000000..bfc7bc6ff2c2
--- /dev/null
+++ b/basctl/source/basicide/brkdlg.cxx
@@ -0,0 +1,321 @@
+/*************************************************************************
+ *
+ *  $RCSfile: brkdlg.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2000-09-29 11:02:36 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library 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 for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+
+#pragma hdrstop
+#include <vcl/sound.hxx>
+
+// #define ITEMID_SEARCH SID_SEARCH_ITEM
+#define _SVX_NOIDERESIDS
+#include <basidesh.hrc>
+#include <brkdlg.hxx>
+#include <brkdlg.hrc>
+
+#ifndef _SFXDISPATCH_HXX //autogen
+#include <sfx2/dispatch.hxx>
+#endif
+#include <sfx2/viewfrm.hxx>
+
+
+/**************************
+ Soll-Aufbau des Strings:
+ # <LineNr>
+**************************/
+
+BOOL lcl_ParseText( String aText, USHORT& rLineNr )
+{
+    // Blanks ?
+    aText.EraseLeadingChars( ' ' );
+    if ( !aText.Len() )
+        return FALSE;
+    if ( aText.GetChar( 0 ) != '#' )
+        return FALSE;
+    aText.EraseLeadingChars( ' ' );
+    if ( !aText.Len() )
+        return FALSE;
+
+    rLineNr = (USHORT) aText.ToInt32();
+    return TRUE;
+}
+
+
+
+BreakPointDialog::BreakPointDialog( Window* pParent, BreakPointList& rBrkPntList ) :
+        ModalDialog( pParent, IDEResId( RID_BASICIDE_BREAKPOINTDLG ) ),
+        aComboBox(      this, IDEResId( RID_CB_BRKPOINTS ) ),
+        aOKButton(      this, IDEResId( RID_PB_OK ) ),
+        aCancelButton(  this, IDEResId( RID_PB_CANCEL ) ),
+        aNewButton(     this, IDEResId( RID_PB_NEW ) ),
+        aDelButton(     this, IDEResId( RID_PB_DEL ) ),
+//      aShowButton(    this, IDEResId( RID_PB_SHOW ) ),
+        aCheckBox(      this, IDEResId( RID_CHKB_ACTIVE ) ),
+        aBrkText(       this, IDEResId( RID_FT_BRKPOINTS ) ),
+        aPassText(      this, IDEResId( RID_FT_PASS ) ),
+        aNumericField(  this, IDEResId( RID_FLD_PASS ) ),
+        rBrkPointList( rBrkPntList )
+{
+    FreeResource();
+
+    aComboBox.SetUpdateMode( FALSE );
+    BreakPoint* pBrk = rBrkPointList.First();
+    BreakPoint* pFirstBrk = pBrk;
+    while ( pBrk )
+    {
+        String aEntryStr( RTL_CONSTASCII_USTRINGPARAM( "# " ) );
+        aEntryStr += String::CreateFromInt32( pBrk->nLine );
+        aComboBox.InsertEntry( aEntryStr, COMBOBOX_APPEND );
+        pBrk = rBrkPointList.Next();
+    }
+    aComboBox.SetUpdateMode( TRUE );
+
+    aOKButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) );
+    aNewButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) );
+    aDelButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) );
+//  aShowButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) );
+
+    aCheckBox.SetClickHdl( LINK( this, BreakPointDialog, CheckBoxHdl ) );
+    aComboBox.SetSelectHdl( LINK( this, BreakPointDialog, ComboBoxHighlightHdl ) );
+    aComboBox.SetModifyHdl( LINK( this, BreakPointDialog, EditModifyHdl ) );
+    aComboBox.GrabFocus();
+
+    aNumericField.SetMin( 0 );
+    aNumericField.SetMax( 0x7FFFFFFF );
+    aNumericField.SetSpinSize( 1 );
+    aNumericField.SetStrictFormat( TRUE );
+    aNumericField.SetModifyHdl( LINK( this, BreakPointDialog, EditModifyHdl ) );
+
+    aComboBox.SetText( aComboBox.GetEntry( 0 ) );
+    UpdateFields( pFirstBrk );
+
+    CheckButtons();
+}
+
+void BreakPointDialog::SetCurrentBreakPoint( const BreakPoint& rBrk )
+{
+    String aStr( RTL_CONSTASCII_USTRINGPARAM( "# " ) );
+    aStr += String::CreateFromInt32( rBrk.nLine );
+    aComboBox.SetText( aStr );
+}
+
+void BreakPointDialog::CheckButtons()
+{
+    BOOL bEnableAdd = FALSE;
+
+    String aEditText( aComboBox.GetText() );
+    if ( aEditText.Len() )
+        bEnableAdd = TRUE;  // es besteht die Moeglichkeit.
+
+    for ( USHORT i = 0; i < aComboBox.GetEntryCount(); i++ )
+    {
+        String aStr( aComboBox.GetEntry( i ) );
+        if ( aStr.CompareIgnoreCaseToAscii( aEditText ) == COMPARE_EQUAL )
+        {
+            bEnableAdd = FALSE;
+            break;
+        }
+    }
+
+    if ( bEnableAdd )
+    {
+        aNewButton.Enable();
+        aOKButton.Disable();
+        aDelButton.Disable();
+    }
+    else
+    {
+        aNewButton.Disable();
+        aOKButton.Enable();
+        aDelButton.Enable();
+    }
+}
+
+
+
+IMPL_LINK_INLINE_START( BreakPointDialog, CheckBoxHdl, CheckBox *, pChkBx )
+{
+    BreakPoint* pBrk = GetSelectedBreakPoint();
+    if ( pBrk )
+        pBrk->bEnabled = pChkBx->IsChecked();
+
+    return 0;
+}
+IMPL_LINK_INLINE_END( BreakPointDialog, CheckBoxHdl, CheckBox *, pChkBx )
+
+
+
+IMPL_LINK( BreakPointDialog, ComboBoxHighlightHdl, ComboBox *, pBox )
+{
+    aNewButton.Disable();
+    aOKButton.Enable();
+    aDelButton.Enable();
+
+    USHORT nEntry = pBox->GetEntryPos( pBox->GetText() );
+    BreakPoint* pBrk = rBrkPointList.GetObject( nEntry );
+    DBG_ASSERT( pBrk, "Kein passender Breakpoint zur Liste ?" );
+    UpdateFields( pBrk );
+
+    return 0;
+}
+
+
+
+IMPL_LINK( BreakPointDialog, EditModifyHdl, Edit *, pEdit )
+{
+    if ( pEdit == &aComboBox )
+        CheckButtons();
+    else if ( pEdit == &aNumericField )
+    {
+        BreakPoint* pBrk = GetSelectedBreakPoint();
+        if ( pBrk )
+            pBrk->nStopAfter = pEdit->GetText().ToInt32();
+    }
+    return 0;
+}
+
+
+
+IMPL_LINK( BreakPointDialog, ButtonHdl, Button *, pButton )
+{
+    if ( pButton == &aOKButton )
+        EndDialog( 1 );
+    else if ( pButton == &aNewButton )
+    {
+        // Checkbox beruecksichtigen!
+        String aText( aComboBox.GetText() );
+        USHORT nLine;
+        BOOL bValid = lcl_ParseText( aText, nLine );
+        if ( bValid )
+        {
+            BreakPoint* pBrk = new BreakPoint( nLine );
+            pBrk->bEnabled = aCheckBox.IsChecked();
+            pBrk->nStopAfter = aNumericField.GetValue();
+            rBrkPointList.InsertSorted( pBrk );
+            String aEntryStr( RTL_CONSTASCII_USTRINGPARAM( "# " ) );
+            aEntryStr += String::CreateFromInt32( pBrk->nLine );
+            aComboBox.InsertEntry( aEntryStr, COMBOBOX_APPEND );
+            SfxViewFrame* pCurFrame = SfxViewFrame::Current();
+            DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
+            SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
+            if( pDispatcher )
+            {
+                pDispatcher->Execute( SID_BASICIDE_BRKPNTSCHANGED );
+            }
+        }
+        else
+        {
+            aComboBox.SetText( aText );
+            aComboBox.GrabFocus();
+            Sound::Beep();
+        }
+        CheckButtons();
+    }
+    else if ( pButton == &aDelButton )
+    {
+        USHORT nEntry = aComboBox.GetEntryPos( aComboBox.GetText() );
+        BreakPoint* pBrk = rBrkPointList.GetObject( nEntry );
+        if ( pBrk )
+        {
+            delete rBrkPointList.Remove( pBrk );
+            aComboBox.RemoveEntry( nEntry );
+            if ( nEntry && !( nEntry < aComboBox.GetEntryCount() ) )
+                nEntry--;
+            aComboBox.SetText( aComboBox.GetEntry( nEntry ) );
+            SfxViewFrame* pCurFrame = SfxViewFrame::Current();
+            DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
+            SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
+            if( pDispatcher )
+            {
+                pDispatcher->Execute( SID_BASICIDE_BRKPNTSCHANGED );
+            }
+        }
+        CheckButtons();
+    }
+//  else if ( pButton == &aShowButton )
+//  {
+//      ;
+//  }
+
+    return 0;
+}
+
+
+
+void BreakPointDialog::UpdateFields( BreakPoint* pBrk )
+{
+    if ( pBrk )
+    {
+        aCheckBox.Check( pBrk->bEnabled );
+        aNumericField.SetValue( pBrk->nStopAfter );
+    }
+}
+
+
+
+BreakPoint* BreakPointDialog::GetSelectedBreakPoint()
+{
+    USHORT nEntry = aComboBox.GetEntryPos( aComboBox.GetText() );
+    BreakPoint* pBrk = rBrkPointList.GetObject( nEntry );
+    return pBrk;
+}
+
+
+
+