vcl/qa/cppunit/dndtest.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <unotest/filters-test.hxx>
  21 #include <test/bootstrapfixture.hxx>
  22
  23 #include <vcl/event.hxx>
  24 #include <vcl/svapp.hxx>
  25 #include <vcl/wrkwin.hxx>
  26 #include <vcl/msgbox.hxx>
  27 #include <vcl/lstbox.hxx>
  28
  29 #include <cppuhelper/implbase1.hxx>
  30 #include <cppuhelper/implbase3.hxx>
  31
  32 #include <com/sun/star/lang/XComponent.hpp>
  33 #include <com/sun/star/datatransfer/XTransferable.hpp>
  34 #include <com/sun/star/datatransfer/clipboard/XClipboard.hpp>
  35 #include <com/sun/star/datatransfer/dnd/XDropTarget.hpp>
  36 #include <com/sun/star/datatransfer/dnd/XDragSourceListener.hpp>
  37 #include <com/sun/star/datatransfer/dnd/XDropTargetListener.hpp>
  38 #include <com/sun/star/datatransfer/dnd/XDragGestureRecognizer.hpp>
  39 #include <com/sun/star/datatransfer/dnd/XDragGestureListener.hpp>
  40
  41 using namespace ::com::sun::star::io;
  42 using namespace ::com::sun::star::uno;
  43 using namespace ::com::sun::star::lang;
  44 using namespace ::com::sun::star::datatransfer;
  45 using namespace ::com::sun::star::datatransfer::clipboard;
  46 using namespace ::com::sun::star::datatransfer::dnd;
  47
  48 class MyWin : public WorkWindow
  49 {
  50 public:
  51                 MyWin( vcl::Window* pParent, WinBits nWinStyle );
  52
  53     void        MouseMove( const MouseEvent& rMEvt );
  54     void        MouseButtonDown( const MouseEvent& rMEvt );
  55     void        MouseButtonUp( const MouseEvent& rMEvt );
  56     void        KeyInput( const KeyEvent& rKEvt );
  57     void        KeyUp( const KeyEvent& rKEvt );
  58     void        Paint( const Rectangle& rRect );
  59     void        Resize();
  60 };
  61
  62 class MyDragAndDropListener: public ::cppu::WeakImplHelper3 < XDropTargetListener, XDragGestureListener, XDragSourceListener >
  63 {
  64     vcl::Window * m_pWindow;
  65
  66 public:
  67
  68     MyDragAndDropListener( vcl::Window * pWindow ) : m_pWindow( pWindow ) {};
  69
  70     virtual void SAL_CALL dragGestureRecognized( const DragGestureEvent& dge ) throw(RuntimeException);
  71     virtual void SAL_CALL drop( const DropTargetDropEvent& dtde ) throw(RuntimeException);
  72     virtual void SAL_CALL dragEnter( const DropTargetDragEnterEvent& dtde ) throw(RuntimeException);
  73     virtual void SAL_CALL dragExit( const DropTargetEvent& dte ) throw(RuntimeException);
  74     virtual void SAL_CALL dragOver( const DropTargetDragEvent& dtde ) throw(RuntimeException);
  75     virtual void SAL_CALL dropActionChanged( const DropTargetDragEvent& dtde ) throw(RuntimeException);
  76     virtual void SAL_CALL dragDropEnd( const DragSourceDropEvent& dsde ) throw(RuntimeException);
  77     virtual void SAL_CALL dragEnter( const DragSourceDragEvent& dsdee ) throw(RuntimeException);
  78     virtual void SAL_CALL dragExit( const DragSourceEvent& dse ) throw(RuntimeException);
  79     virtual void SAL_CALL dragOver( const DragSourceDragEvent& dsde ) throw(RuntimeException);
  80     virtual void SAL_CALL dropActionChanged( const DragSourceDragEvent& dsde ) throw(RuntimeException);
  81     virtual void SAL_CALL disposing( const EventObject& eo ) throw(RuntimeException);
  82 };
  83
  84 class MyInfoBox : public InfoBox
  85 {
  86
  87 public:
  88
  89     MyInfoBox( vcl::Window* pParent );
  90 };
  91
  92 class MyListBox : public ListBox
  93 {
  94
  95 public:
  96
  97     MyListBox( vcl::Window* pParent );
  98 };
  99
 100 class StringTransferable : public ::cppu::WeakImplHelper1< XTransferable >
 101 {
 102     const OUString         m_aData;
 103     Sequence< DataFlavor > m_aFlavorList;
 104
 105 public:
 106     StringTransferable( const OUString& rString ) : m_aData( rString ), m_aFlavorList( 1 )
 107     {
 108         DataFlavor df;
 109
 110         df.MimeType = "text/plain;charset=utf-16";
 111         df.DataType = cppu::UnoType<OUString>::get();
 112
 113          m_aFlavorList[0] = df;
 114     };
 115
 116     virtual Any SAL_CALL getTransferData( const DataFlavor& aFlavor ) throw(UnsupportedFlavorException, IOException, RuntimeException);
 117     virtual Sequence< DataFlavor > SAL_CALL getTransferDataFlavors(  ) throw(RuntimeException);
 118     virtual bool SAL_CALL isDataFlavorSupported( const DataFlavor& aFlavor ) throw(RuntimeException);
 119 };
 120
 121 class VclDnDTest : public test::BootstrapFixture
 122 {
 123 public:
 124     VclDnDTest() : BootstrapFixture(true, false) {}
 125
 126     /// Play with drag and drop
 127     void testDnD();
 128
 129     CPPUNIT_TEST_SUITE(VclDnDTest);
 130     CPPUNIT_TEST(testDnD);
 131     CPPUNIT_TEST_SUITE_END();
 132 };
 133
 134 void VclDnDTest::testDnD()
 135 {
 136     MyWin aMainWin( NULL, WB_APP | WB_STDWORK );
 137     aMainWin.SetText( OUString( "Drag And Drop - Workbench"  ) );
 138     aMainWin.Show();
 139
 140     // test the clipboard code
 141     Reference< XClipboard > xClipboard = aMainWin.GetClipboard();
 142     CPPUNIT_ASSERT_MESSAGE("System clipboard not available",
 143                            xClipboard.is());
 144
 145     MyInfoBox aInfoBox( &aMainWin );
 146     aInfoBox.Execute();
 147
 148     MyListBox aListBox( &aMainWin );
 149     aListBox.setPosSizePixel( 10, 10, 100, 100 );
 150     aListBox.InsertEntry( OUString("TestItem"));
 151     aListBox.Show();
 152 }
 153
 154 MyWin::MyWin( vcl::Window* pParent, WinBits nWinStyle ) :
 155     WorkWindow( pParent, nWinStyle )
 156 {
 157     Reference< XDropTargetListener > xListener = new MyDragAndDropListener( this );
 158
 159     Reference< XDropTarget > xDropTarget = GetDropTarget();
 160     if( xDropTarget.is() )
 161     {
 162         xDropTarget->addDropTargetListener( xListener );
 163         xDropTarget->setActive( true );
 164     }
 165
 166     Reference< XDragGestureRecognizer > xRecognizer = GetDragGestureRecognizer();
 167     if( xRecognizer.is() )
 168         xRecognizer->addDragGestureListener( Reference< XDragGestureListener > ( xListener, UNO_QUERY ) );
 169 }
 170
 171 void MyWin::MouseMove( const MouseEvent& rMEvt )
 172 {
 173     WorkWindow::MouseMove( rMEvt );
 174 }
 175
 176 void MyWin::MouseButtonDown( const MouseEvent& rMEvt )
 177 {
 178     WorkWindow::MouseButtonDown( rMEvt );
 179 }
 180
 181 void MyWin::MouseButtonUp( const MouseEvent& rMEvt )
 182 {
 183     WorkWindow::MouseButtonUp( rMEvt );
 184 }
 185
 186 void MyWin::KeyInput( const KeyEvent& rKEvt )
 187 {
 188     WorkWindow::KeyInput( rKEvt );
 189 }
 190
 191 void MyWin::KeyUp( const KeyEvent& rKEvt )
 192 {
 193     WorkWindow::KeyUp( rKEvt );
 194 }
 195
 196 void MyWin::Paint( const Rectangle& rRect )
 197 {
 198     WorkWindow::Paint( rRect );
 199 }
 200
 201 void MyWin::Resize()
 202 {
 203     WorkWindow::Resize();
 204 }
 205
 206 void SAL_CALL MyDragAndDropListener::dragGestureRecognized( const DragGestureEvent& dge ) throw(RuntimeException)
 207 {
 208     Reference< XDragSource > xDragSource( dge.DragSource, UNO_QUERY );
 209     xDragSource->startDrag( dge, -1, 0, 0, new StringTransferable( OUString("TestString") ), this );
 210 }
 211
 212 void SAL_CALL MyDragAndDropListener::drop( const DropTargetDropEvent& dtde ) throw(RuntimeException)
 213 {
 214     dtde.Context->dropComplete( true );
 215 }
 216
 217 void SAL_CALL MyDragAndDropListener::dragEnter( const DropTargetDragEnterEvent& dtdee ) throw(RuntimeException)
 218 {
 219     dtdee.Context->acceptDrag( dtdee.DropAction );
 220 }
 221
 222 void SAL_CALL MyDragAndDropListener::dragExit( const DropTargetEvent& ) throw(RuntimeException)
 223 {
 224 }
 225
 226 void SAL_CALL MyDragAndDropListener::dragOver( const DropTargetDragEvent& dtde ) throw(RuntimeException)
 227 {
 228     dtde.Context->acceptDrag( dtde.DropAction );
 229 }
 230
 231 void SAL_CALL MyDragAndDropListener::dropActionChanged( const DropTargetDragEvent& dtde ) throw(RuntimeException)
 232 {
 233     dtde.Context->acceptDrag( dtde.DropAction );
 234 }
 235
 236 void SAL_CALL MyDragAndDropListener::dragDropEnd( const DragSourceDropEvent& ) throw(RuntimeException)
 237 {
 238 }
 239
 240 void SAL_CALL MyDragAndDropListener::dragEnter( const DragSourceDragEvent& ) throw(RuntimeException)
 241 {
 242 }
 243
 244 void SAL_CALL MyDragAndDropListener::dragExit( const DragSourceEvent& ) throw(RuntimeException)
 245 {
 246 }
 247
 248 void SAL_CALL MyDragAndDropListener::dragOver( const DragSourceDragEvent& ) throw(RuntimeException)
 249 {
 250 }
 251
 252 void SAL_CALL MyDragAndDropListener::dropActionChanged( const DragSourceDragEvent& ) throw(RuntimeException)
 253 {
 254 }
 255
 256 void SAL_CALL MyDragAndDropListener::disposing( const EventObject& ) throw(RuntimeException)
 257 {
 258 }
 259
 260 MyInfoBox::MyInfoBox( vcl::Window* pParent ) : InfoBox( pParent,
 261     OUString("dragging over this box should result in another window id in the drag log.") )
 262 {
 263     Reference< XDropTargetListener > xListener = new MyDragAndDropListener( this );
 264
 265     Reference< XDropTarget > xDropTarget = GetDropTarget();
 266     if( xDropTarget.is() )
 267     {
 268         xDropTarget->addDropTargetListener( xListener );
 269         xDropTarget->setActive( true );
 270     }
 271
 272     Reference< XDragGestureRecognizer > xRecognizer = GetDragGestureRecognizer();
 273     if( xRecognizer.is() )
 274         xRecognizer->addDragGestureListener( Reference< XDragGestureListener > ( xListener, UNO_QUERY ) );
 275 };
 276
 277 MyListBox::MyListBox( vcl::Window* pParent ) : ListBox( pParent )
 278 {
 279     Reference< XDropTargetListener > xListener = new MyDragAndDropListener( this );
 280
 281     Reference< XDropTarget > xDropTarget = GetDropTarget();
 282     if( xDropTarget.is() )
 283     {
 284         xDropTarget->addDropTargetListener( xListener );
 285         xDropTarget->setActive( true );
 286     }
 287
 288     Reference< XDragGestureRecognizer > xRecognizer = GetDragGestureRecognizer();
 289     if( xRecognizer.is() )
 290         xRecognizer->addDragGestureListener( Reference< XDragGestureListener > ( xListener, UNO_QUERY ) );
 291 };
 292
 293 Any SAL_CALL StringTransferable::getTransferData( const DataFlavor& )
 294     throw(UnsupportedFlavorException, IOException, RuntimeException)
 295 {
 296     return makeAny( m_aData );
 297 }
 298
 299 Sequence< DataFlavor > SAL_CALL StringTransferable::getTransferDataFlavors(  )
 300     throw(RuntimeException)
 301 {
 302     return m_aFlavorList;
 303 }
 304
 305 bool SAL_CALL StringTransferable::isDataFlavorSupported( const DataFlavor& )
 306     throw(RuntimeException)
 307 {
 308     return true;
 309 }
 310
 311 CPPUNIT_TEST_SUITE_REGISTRATION(VclDnDTest);
 312
 313 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */