SCClassLibrary/QtCollider/dnd_views.sc

   1 QDragView : QTextField
   2 {
   3   *new { arg parent, bounds; ^super.new(parent,bounds).initQDragView }
   4
   5   initQDragView {
   6     var plt = this.palette;
   7     plt.base = plt.window;
   8     this.palette = plt;
   9     this.setProperty(\readOnly, true);
  10   }
  11
  12   // override QView.mouseDownEvent to initiate drag without keyboard modifier
  13   mouseDownEvent { arg x, y, modifiers, buttonNumber, clickCount;
  14     // Try to get drag obj and start a drag.
  15     // If successful, block further processing of this event.
  16     if( this.beginDrag( x, y ) ) { ^false };
  17
  18     // else continue to handle mouse down event
  19     modifiers = QKeyModifiers.toCocoa(modifiers);
  20     ^this.mouseDown( x, y, modifiers, buttonNumber, clickCount );
  21   }
  22
  23   defaultGetDrag { ^nil }
  24   defaultCanReceiveDrag { ^false }
  25   defaultReceiveDrag { }
  26 }
  27
  28 QDragSource : QDragView
  29 {
  30   defaultGetDrag { ^object }
  31 }
  32
  33 QDragSink : QDragView
  34 {
  35   defaultCanReceiveDrag { ^true }
  36   defaultReceiveDrag { this.object = QView.currentDrag; action.value(this); }
  37 }
  38
  39 QDragBoth : QDragSink
  40 {
  41   defaultGetDrag { ^object }
  42 }