<pre>on copier  -- menuItem "Copier" of menu "Edition"  global clipDataType  if the tool is "browse tool" then    if the selection is empty then      doMenu "Copy card"      put "card" into clipDataType    else      doMenu "Copy text"      put "text" into clipDataType    end if    exit copier  end if  if the tool is "button tool" then    doMenu "Copy button"    put "button" into clipDataType    exit copier  end if  if the tool is "field tool" then    doMenu "Copy field"    put "field" into clipDataType    exit copier  end if  -- the tool is a graphic tool  doMenu "Copy picture"  put "picture" into clipDataTypeend copier</pre>