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