<pre>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 clipDataTypeend couper</pre>