blob: 36fe9226adae9557c1de1854389c6e1e80f11795 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
$Id$
## DraggableHandle(appearance = whatever, behavior = whatever, dragged_position = whatever)
# formulae
drag_behavior = Option( DragBehavior, SimpleDragBehavior,
doc = "our drag behavior (not including a stateref to dragged position)")
state = Option(StateRef, None,
doc = "ref to the position-related state which dragging us should change, according to our drag_behavior") ###k
_value = Highlightable( appearance, drag_behavior = drag_behavior(state) ) ###k
pass
|
