-- background: 2699 from stack: in.1
-- bmap block id: 3106
-- flags: 0000
-- background id: 0
-- name: 


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=158 top=66 right=309 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: main
----- HyperTalk script -----
on mouseUp
  global xcpyflag,xtyp,xres
  put item 1 of the rect of field main + 5  into x
  put item 3 of the rect of field main - 25  into z
  put item 2 of the clickloc into y
  set the locktext of field main to false
  click at  x ,y
  click at  z,y with shiftkey
  put the selection into xres
  if xcpyflag is true then set the lockscreen to true
  set the locktext of field main to true
  visual iris open to black
  if xres is empty then
    if xcpyflag is true then
      put "Click on resource in the main field above" into msg
      show the msg
    end if
    exit mouseUp
  else
    find xres in field 2
    click at the loc of field 2
  end if
  if xcpyflag is true then
    put field xtype into xtyp
    go card index
    set the lockscreen to false
    xcopy2
  end if
  put false into xcpyflag
end mouseUp







-- part 1 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=102 top=27 right=55 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: 


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=110 top=316 right=337 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: sorttype