class Fox::Canvas::ShapeCanvas

# File lib/fox16/canvas.rb, line 406
def initialize(p, tgt=nil, sel=0, opts=FRAME_NORMAL, x=0, y=0, w=0, h=0)
  # Initialize base class
  super(p, tgt, sel, opts, x, y, w, h)

  # Start with an empty group
  @scene = ShapeGroup.new

  # Selection policy
  @selectionPolicy = SingleSelectionPolicy.new(self)

  @flags = 0

  # Map
  FXMAPFUNC(SEL_PAINT, 0, "onPaint")
  FXMAPFUNC(SEL_MOTION, 0, "onMotion")
  FXMAPFUNC(SEL_LEFTBUTTONPRESS, 0, "onLeftBtnPress")
  FXMAPFUNC(SEL_LEFTBUTTONRELEASE, 0, "onLeftBtnRelease")
  FXMAPFUNC(SEL_CLICKED,0,"onClicked")
  FXMAPFUNC(SEL_DOUBLECLICKED,0,"onDoubleClicked")
  FXMAPFUNC(SEL_TRIPLECLICKED,0,"onTripleClicked")
  FXMAPFUNC(SEL_COMMAND,0,"onCommand")
end

# File lib/fox16/canvas.rb, line 480
def deselectShape(shape, notify=false)
  if @scene.include?(shape)
    @selectionPolicy.deselectShape(shape, notify)
  else
    raise CanvasError
  end
end

# File lib/fox16/canvas.rb, line 459
def disableShape(shape)
  if @scene.include?(shape)
    if shape.enabled?
      shape.disable
      updateShape(shape)
    end
  else
    raise CanvasError
  end
end

# File lib/fox16/canvas.rb, line 447
def enableShape(shape)
  if @scene.include?(shape)
    unless shape.enabled?
      shape.enable
      updateShape(shape)
    end
  else
    raise CanvasError
  end
end

# File lib/fox16/canvas.rb, line 430
def findShape(x, y)
  @scene.reverse_each do |shape|
    return shape if shape.hit?(x, y)
  end
  nil
end

# File lib/fox16/canvas.rb, line 489
def killSelection(notify)
  changes = false
  @scene.each do |shape|
    if shape.selected?
      shape.deselect
      updateShape(shape)
      changes = true
      if notify && (target != nil)
        target.handle(self, Fox.MKUINT(message, SEL_DESELECTED), shape)
      end
    end
  end
  changes
end

# File lib/fox16/canvas.rb, line 622
def onClicked(sender, sel, ptr)
  return target && target.handle(self, Fox.MKUINT(message, SEL_CLICKED), ptr)
end

# File lib/fox16/canvas.rb, line 617
def onCommand(sender, sel, ptr)
  return target && target.handle(self, Fox.MKUINT(message, SEL_COMMAND), ptr)
end

# File lib/fox16/canvas.rb, line 627
def onDoubleClicked(sender, sel, ptr)
  return target && target.handle(self, Fox.MKUINT(message, SEL_DOUBLECLICKED), ptr)
end

# File lib/fox16/canvas.rb, line 537
def onLeftBtnPress(sender, sel, evt)
  handle(self, Fox.MKUINT(0, SEL_FOCUS_SELF), evt)
  if enabled?
    grab
    flags &= ~FLAG_UPDATE

    # Give target the first chance at handling this
    return 1 if target && (target.handle(self, Fox.MKUINT(message, SEL_LEFTBUTTONPRESS), evt) != 0)

    # Locate shape
    shape = findShape(evt.win_x, evt.win_y)

    # No shape here
    if shape.nil?
      return 1
    end

    # Change current shape
    @currentShape = shape

    # Change item selection
    if shape.enabled? && !shape.selected?
      selectShape(shape, true)
    end

    # Are we dragging?
    if shape.selected? && shape.draggable?
      flags |= FLAG_TRYDRAG
    end

    flags |= FLAG_PRESSED
    return 1
  end
  return 0
end

# File lib/fox16/canvas.rb, line 574
def onLeftBtnRelease(sender, sel, evt)
  flg = @flags
  if enabled?
    ungrab
    @flags |= FLAG_UPDATE
    @flags &= ~(FLAG_PRESSED|FLAG_TRYDRAG|FLAG_LASSO|FLAG_DODRAG)

    # First chance callback
    return 1 if target && target.handle(self, Fox.MKUINT(message, SEL_LEFTBUTTONRELEASE), evt) != 0

    # Was dragging
    if (flg & FLAG_DODRAG) != 0
      handle(self, Fox.MKUINT(0, SEL_ENDDRAG), evt)
      return 1
    end

    # Must have pressed
    if (flg & FLAG_PRESSED) != 0
      # Change selection
      if @currentShape && @currentShape.enabled?
        deselectShape(@currentShape, true)
      end

      # Generate clicked callbacks
      if evt.click_count == 1
        handle(self, Fox.MKUINT(0, SEL_CLICKED), @currentShape)
      elsif evt.click_count == 2
        handle(self, Fox.MKUINT(0, SEL_DOUBLECLICKED), @currentShape)
      elseif evt.click_count == 3
        handle(self, Fox.MKUINT(0, SEL_TRIPLECLICKED), @currentShape)
      end

      # Generate command callback only when clicked on item
      if @currentShape && @currentShape.enabled?
        handle(self, Fox.MKUINT(0, SEL_COMMAND), @currentShape)
      end
      return 1
    end
    return 0
  end
end

# File lib/fox16/canvas.rb, line 517
def onMotion(sender, sel, evt)
  # Drag and drop mode
  if (@flags & FLAG_DODRAG) != 0
    handle(self, Fox.MKUINT(0, SEL_DRAGGED), evt)
    return 1
  end

  # Tentative drag and drop
  if (@flags & FLAG_TRYDRAG) != 0
    if evt.moved?
      @flags &= ~FLAG_TRYDRAG
      if handle(this, Fox.MKUINT(0, SEL_BEGINDRAG), evt) != 0
        @flags |= FLAG_DODRAG
      end
    end
    return 1
  end
end

# File lib/fox16/canvas.rb, line 505
def onPaint(sender, sel, evt)
  dc = FXDCWindow.new(self, evt)
  dc.foreground = backColor
  dc.fillRectangle(evt.rect.x, evt.rect.y, evt.rect.w, evt.rect.h)
  @scene.each do |shape|
    shape.draw(dc)
  end
  dc.end
  return 1
end

# File lib/fox16/canvas.rb, line 632
def onTripleClicked(sender, sel, ptr)
  return target && target.handle(self, Fox.MKUINT(message, SEL_TRIPLECLICKED), ptr)
end

# File lib/fox16/canvas.rb, line 471
def selectShape(shape, notify=false)
  if @scene.include?(shape)
    @selectionPolicy.selectShape(shape, notify)
  else
    raise CanvasError
  end
end

# File lib/fox16/canvas.rb, line 438
def updateShape(shape)
  if @scene.include?(shape)
    update
  else
    raise CanvasError
  end
end