toolkit/source/awt/vclxtabpage.cxx

   1 /*************************************************************************
   2  *
   3  *  OpenOffice.org - a multi-platform office productivity suite
   4  *
   5  *  $RCSfile$
   6  *
   7  *  $Revision$
   8  *
   9  *  last change: $Author$ $Date$
  10  *
  11  *  The Contents of this file are made available subject to
  12  *  the terms of GNU Lesser General Public License Version 2.1.
  13  *
  14  *
  15  *    GNU Lesser General Public License Version 2.1
  16  *    =============================================
  17  *    Copyright 2005 by Sun Microsystems, Inc.
  18  *    901 San Antonio Road, Palo Alto, CA 94303, USA
  19  *
  20  *    This library is free software; you can redistribute it and/or
  21  *    modify it under the terms of the GNU Lesser General Public
  22  *    License version 2.1, as published by the Free Software Foundation.
  23  *
  24  *    This library is distributed in the hope that it will be useful,
  25  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  26  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  27  *    Lesser General Public License for more details.
  28  *
  29  *    You should have received a copy of the GNU Lesser General Public
  30  *    License along with this library; if not, write to the Free Software
  31  *    Foundation, Inc., 51 Franklin Street, 5th Floor, Boston,
  32  *    MA  02110-1301  USA
  33  *
  34  ************************************************************************/
  35
  36 #include "vclxtabpage.hxx"
  37 #include "forward.hxx"
  38
  39 #include <com/sun/star/awt/PosSize.hpp>
  40 #include <toolkit/helper/convert.hxx>
  41 #include <vcl/tabpage.hxx>
  42 #include <vcl/tabctrl.hxx>
  43
  44 #if !defined (__GNUC__)
  45 #define __PRETTY_FUNCTION__ __FUNCTION__
  46 #endif /* !__GNUC__ */
  47
  48 namespace layoutimpl
  49 {
  50
  51 using namespace ::com::sun::star;
  52
  53 // XInterface
  54 IMPLEMENT_FORWARD_XINTERFACE2( VCLXTabPage, VCLXWindow, Bin );
  55
  56 // XTypeProvider
  57 IMPLEMENT_FORWARD_XTYPEPROVIDER1( VCLXTabPage, VCLXWindow );
  58
  59 VCLXTabPage::VCLXTabPage( Window *p )
  60     : VCLXWindow()
  61     , Bin()
  62     , bRealized( false )
  63 {
  64     /* FIXME: before Window is set, setLabel, setProperty->setImage
  65      * are silent no-ops.  */
  66     p->SetComponentInterface( this );
  67 }
  68
  69 VCLXTabPage::~VCLXTabPage()
  70 {
  71 }
  72
  73 void SAL_CALL VCLXTabPage::dispose() throw(uno::RuntimeException)
  74 {
  75     {
  76         ::vos::OGuard aGuard( GetMutex() );
  77
  78         lang::EventObject aDisposeEvent;
  79         aDisposeEvent.Source = W3K_EXPLICIT_CAST (*this);
  80     }
  81
  82     VCLXWindow::dispose();
  83 }
  84
  85 void SAL_CALL VCLXTabPage::allocateArea( awt::Rectangle const& area )
  86     throw (uno::RuntimeException)
  87 {
  88     awt::Size currentSize = getSize();
  89     awt::Size requestedSize = getMinimumSize();
  90     requestedSize.Height = getHeightForWidth( area.Width );
  91
  92     if ( currentSize.Width > 0 && currentSize.Height > 0
  93          && requestedSize.Width > currentSize.Width )
  94         requestedSize.Width = currentSize.Width;
  95     if ( currentSize.Width > 0 && currentSize.Height > 0
  96          && requestedSize.Height > currentSize.Height )
  97         requestedSize.Height = currentSize.Height;
  98
  99     // FIXME: missing destructor?
 100     if ( !GetWindow() )
 101         return;
 102
 103     Size windowSize = GetWindow()->GetSizePixel();
 104     Window *parent = GetWindow()->GetParent();
 105     Size parentSize = parent->GetSizePixel();
 106
 107     Point pos = GetWindow()->GetPosPixel();
 108 #ifndef __SUNPRO_CC
 109     OSL_TRACE ("\n%s", __PRETTY_FUNCTION__);
 110     OSL_TRACE ("%s: curpos: %d ,%d", __FUNCTION__, pos.X(), pos.Y() );
 111
 112     OSL_TRACE ("%s: cursize: %d ,%d", __FUNCTION__, currentSize.Width, currentSize.Height );
 113     OSL_TRACE ("%s: area: %d, %d", __FUNCTION__, area.Width, area.Height );
 114     OSL_TRACE ("%s: requestedSize: %d, %d", __FUNCTION__, requestedSize.Width, requestedSize.Height );
 115     OSL_TRACE ("%s: parent: %d, %d", __FUNCTION__, parentSize.Width(), parentSize.Height() );
 116     OSL_TRACE ("%s: window: %d, %d", __FUNCTION__, windowSize.Width(), windowSize.Height() );
 117 #endif
 118
 119 #if 0
 120     if (requestedSize.Width > parentSize.Width ()
 121         || requestedSize.Height > parentSize.Height ())
 122     {
 123 #ifndef __SUNPRO_CC
 124         OSL_TRACE ("%s: ***setting parent: %d, %d", __FUNCTION__, requestedSize.Width, requestedSize.Height );
 125 #endif
 126         parent->SetSizePixel ( Size (requestedSize.Width, requestedSize.Height) );
 127
 128         if (Window *grand_parent = parent->GetParent ())
 129             grand_parent->SetSizePixel ( Size (requestedSize.Width, requestedSize.Height) );
 130     }
 131 #endif
 132
 133     if ( !bRealized )
 134     {
 135         setPosSize( area.X, area.Y, requestedSize.Width, requestedSize.Height, awt::PosSize::SIZE );
 136         bRealized = true;
 137     }
 138     else
 139     {
 140         if ( requestedSize.Width > currentSize.Width + 10)
 141             setPosSize( 0, 0, requestedSize.Width, 0, awt::PosSize::WIDTH );
 142         if ( requestedSize.Height > currentSize.Height + 10)
 143             setPosSize( 0, 0, 0, requestedSize.Height, awt::PosSize::HEIGHT );
 144     }
 145
 146     awt::Size newSize = getSize();
 147 #ifndef __SUNPRO_CC
 148     OSL_TRACE ("%s: newSize: %d, %d", __FUNCTION__, newSize.Width, newSize.Height );
 149 #endif
 150     maAllocation.Width = newSize.Width;
 151     maAllocation.Height = newSize.Height;
 152
 153     Bin::allocateArea( maAllocation );
 154 }
 155
 156 awt::Size SAL_CALL VCLXTabPage::getMinimumSize()
 157     throw(uno::RuntimeException)
 158 {
 159     ::vos::OGuard aGuard( GetMutex() );
 160
 161     return Bin::getMinimumSize();
 162 }
 163
 164 } // namespace layoutimpl