-- card: 2460 from stack: in
-- bmap block id: 4270
-- flags: 0000
-- background id: 13313
-- name: 


-- part 5 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=10 top=219 right=271 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 6935 / 6935
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: English/Italian I
----- HyperTalk script -----
on mouseUp
  go stack "English/Italian I 1.05"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=408 top=44 right=74 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CANCEL


-- part 7 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=240 top=44 right=74 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install VocabuLearn/ce
----- HyperTalk script -----
on mouseUp
  answer "Install VocabuLearn/ce to your Home Stack?"  with "Cancel" or "OK"
  if it is "Cancel" then exit mouseUp

  set userlevel to 5
  put word 2 of long name of this stack into thePath
  put empty into first char of thePath
  repeat until last char of thePath is ":"
    put empty into last char of thePath
  end repeat
  put return & thePath & "English/Italian I 1.05" after thePath

  --lock screen to true
  select card button "English/Italian I"
  type "c" with commandKey

  set cursor to 4
  push card
  go to "Home"

  go to card "Stacks"
  put return & thePath after field "paths"
  go to first card

  doMenu "New Field"
  set rect of last cd fld to 130,57,380,90
  set textFont of last cd fld to geneva
  set textStyle of last cd fld to bold
  set textAlign of last cd fld to center
  set style of last cd fld to shadow

  type "v" with commandKey
  choose browse tool

  repeat
    set the loc of last card button to the mouseLoc
    put the mouseLoc into oldLoc

    put "Move the mouse to position the button...then click." into last cd field
    unlock screen

    repeat until the mouseClick
      set the loc of last card button to the mouseLoc
    end repeat


    answer "Is button at the desired location?" with "No" or "Yes"
    if it is "Yes" then
      set cursor to 4
      lock screen
      select last cd fld
      doMenu "Clear Field"
      choose browse tool
      exit repeat
    end if
  end repeat
  getHomeInfo
  pop card
end mouseUp




-- part 9 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=468 top=44 right=74 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=216 right=275 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blank