Block_edit (elm_playground.Block

type dragged =

| Stack of Scratch_blocks.block list
| Reporter of Scratch_blocks.block

val take : 
  Scratch_blocks.script list ->
  Block_layout.path ->
  (dragged * Scratch_blocks.script list) option

val drop : 
  measure:(string -> float) ->
  Scratch_blocks.script list ->
  Scratch_blocks.block list ->
  Block_layout.target ->
  Scratch_blocks.script list

val drop_in_slot : 
  Scratch_blocks.script list ->
  Block_layout.path ->
  Scratch_blocks.block ->
  Scratch_blocks.script list

val alone : 
  Scratch_blocks.script list ->
  (float * float) ->
  Scratch_blocks.block list ->
  Scratch_blocks.script list

val text : Scratch_blocks.script list -> Block_layout.path -> string option

val set_text : 
  Scratch_blocks.script list ->
  Block_layout.path ->
  string ->
  Scratch_blocks.script list