on couper
  -- menuItem "Couper" of menu "Edition"
  global clipDataType
  if the tool is "browse tool" then
    if the selection is empty then
      doMenu "Cut card"
      put "card" into clipDataType
    else
      doMenu "Cut text"
      put "text" into clipDataType
    end if
    exit couper
  end if
  if the tool is "button tool" then
    doMenu "Cut button"
    put "button" into clipDataType
    exit couper
  end if
  if the tool is "field tool" then
    doMenu "Cut field"
    put "field" into clipDataType
    exit couper
  end if
  -- the tool is a graphic tool
  doMenu "Cut picture"
  put "picture" into clipDataType
end couper