summaryrefslogtreecommitdiff
path: root/basic/source/runtime/inputbox.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'basic/source/runtime/inputbox.cxx')
-rw-r--r--basic/source/runtime/inputbox.cxx196
1 files changed, 0 insertions, 196 deletions
diff --git a/basic/source/runtime/inputbox.cxx b/basic/source/runtime/inputbox.cxx
deleted file mode 100644
index 91616a399a..0000000000
--- a/basic/source/runtime/inputbox.cxx
+++ /dev/null
@@ -1,196 +0,0 @@
-/* -*- 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
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_basic.hxx"
-
-#include <vcl/button.hxx>
-#include <vcl/fixed.hxx>
-#include <vcl/edit.hxx>
-#include <vcl/dialog.hxx>
-#include <vcl/svapp.hxx>
-#include "runtime.hxx"
-#include "stdobj.hxx"
-#include "rtlproto.hxx"
-
-class SvRTLInputBox : public ModalDialog
-{
- Edit aEdit;
- OKButton aOk;
- CancelButton aCancel;
- FixedText aPromptText;
- String aText;
-
- void PositionDialog( long nXTwips, long nYTwips, const Size& rDlgSize );
- void InitButtons( const Size& rDlgSize );
- void PositionEdit( const Size& rDlgSize );
- void PositionPrompt( const String& rPrompt, const Size& rDlgSize );
- DECL_LINK( OkHdl, Button * );
- DECL_LINK( CancelHdl, Button * );
-
-public:
- SvRTLInputBox( Window* pParent, const String& rPrompt, const String& rTitle,
- const String& rDefault, long nXTwips = -1, long nYTwips = -1 );
- String GetText() const { return aText; }
-};
-
-SvRTLInputBox::SvRTLInputBox( Window* pParent, const String& rPrompt,
- const String& rTitle, const String& rDefault,
- long nXTwips, long nYTwips ) :
- ModalDialog( pParent,WB_3DLOOK | WB_MOVEABLE | WB_CLOSEABLE ),
- aEdit( this, WB_LEFT | WB_BORDER ),
- aOk( this ), aCancel( this ), aPromptText( this, WB_WORDBREAK )
-{
- SetMapMode( MapMode( MAP_APPFONT ) );
- Size aDlgSizeApp( 280, 80 );
- PositionDialog( nXTwips, nYTwips, aDlgSizeApp );
- InitButtons( aDlgSizeApp );
- PositionEdit( aDlgSizeApp );
- PositionPrompt( rPrompt, aDlgSizeApp );
- aOk.Show();
- aCancel.Show();
- aEdit.Show();
- aPromptText.Show();
- SetText( rTitle );
- Font aFont( GetFont());
- Color aColor( GetBackground().GetColor() );
- aFont.SetFillColor( aColor );
- aEdit.SetFont( aFont );
- aEdit.SetText( rDefault );
- aEdit.SetSelection( Selection( SELECTION_MIN, SELECTION_MAX ) );
-}
-
-void SvRTLInputBox::InitButtons( const Size& rDlgSize )
-{
- aOk.SetSizePixel( LogicToPixel( Size( 45, 15) ));
- aCancel.SetSizePixel( LogicToPixel( Size( 45, 15) ));
- Point aPos( rDlgSize.Width()-45-10, 5 );
- aOk.SetPosPixel( LogicToPixel( Point(aPos) ));
- aPos.Y() += 16;
- aCancel.SetPosPixel( LogicToPixel( Point(aPos) ));
- aOk.SetClickHdl(LINK(this,SvRTLInputBox, OkHdl));
- aCancel.SetClickHdl(LINK(this,SvRTLInputBox,CancelHdl));
-}
-
-void SvRTLInputBox::PositionDialog(long nXTwips, long nYTwips, const Size& rDlgSize)
-{
- SetSizePixel( LogicToPixel(rDlgSize) );
- if( nXTwips != -1 && nYTwips != -1 )
- {
- Point aDlgPosApp( nXTwips, nYTwips );
- SetPosPixel( LogicToPixel( aDlgPosApp, MAP_TWIP ) );
- }
-}
-
-void SvRTLInputBox::PositionEdit( const Size& rDlgSize )
-{
- aEdit.SetPosPixel( LogicToPixel( Point( 5,rDlgSize.Height()-35)));
- aEdit.SetSizePixel( LogicToPixel( Size(rDlgSize.Width()-15,12)));
-}
-
-
-void SvRTLInputBox::PositionPrompt(const String& rPrompt,const Size& rDlgSize)
-{
- if ( rPrompt.Len() == 0 )
- return;
- String aText_( rPrompt );
- aText_.ConvertLineEnd( LINEEND_CR );
- aPromptText.SetPosPixel( LogicToPixel(Point(5,5)));
- aPromptText.SetText( aText_ );
- Size aSize( rDlgSize );
- aSize.Width() -= 70;
- aSize.Height() -= 50;
- aPromptText.SetSizePixel( LogicToPixel(aSize));
-}
-
-
-IMPL_LINK_INLINE_START( SvRTLInputBox, OkHdl, Button *, pButton )
-{
- (void)pButton;
-
- aText = aEdit.GetText();
- EndDialog( 1 );
- return 0;
-}
-IMPL_LINK_INLINE_END( SvRTLInputBox, OkHdl, Button *, pButton )
-
-IMPL_LINK_INLINE_START( SvRTLInputBox, CancelHdl, Button *, pButton )
-{
- (void)pButton;
-
- aText.Erase();
- EndDialog( 0 );
- return 0;
-}
-IMPL_LINK_INLINE_END( SvRTLInputBox, CancelHdl, Button *, pButton )
-
-
-// *********************************************************************
-// *********************************************************************
-
-// Syntax: String InputBox( Prompt, [Title], [Default] [, nXpos, nYpos ] )
-
-RTLFUNC(InputBox)
-{
- (void)pBasic;
- (void)bWrite;
-
- sal_uIntPtr nArgCount = rPar.Count();
- if ( nArgCount < 2 )
- StarBASIC::Error( SbERR_BAD_ARGUMENT );
- else
- {
- String aTitle;
- String aDefault;
- sal_Int32 nX = -1, nY = -1; // zentrieren
- const String& rPrompt = rPar.Get(1)->GetString();
- if ( nArgCount > 2 && !rPar.Get(2)->IsErr() )
- aTitle = rPar.Get(2)->GetString();
- if ( nArgCount > 3 && !rPar.Get(3)->IsErr() )
- aDefault = rPar.Get(3)->GetString();
- if ( nArgCount > 4 )
- {
- if ( nArgCount != 6 )
- {
- StarBASIC::Error( SbERR_BAD_ARGUMENT );
- return;
- }
- nX = rPar.Get(4)->GetLong();
- nY = rPar.Get(5)->GetLong();
- }
- SvRTLInputBox *pDlg=new SvRTLInputBox(GetpApp()->GetDefDialogParent(),
- rPrompt,aTitle,aDefault,nX,nY);
- pDlg->Execute();
- rPar.Get(0)->PutString( pDlg->GetText() );
- delete pDlg;
- }
-}
-
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */