Garbo/Garbo.cdr/mac/hypercrd/hc2_x/tongubng.sea/TongueBingo/background_6944.txt

Text File | 1991-08-27 | 3KB | 100 lines

-- background: 6944 from stack: in
-- bmap block id: 7583
-- flags: 4000
-- background id: 0
-- name: Aloitus
----- HyperTalk script -----
on openBackground
  global v,h -- putkahdusvalikon sijainti
  get the rect of bg button 1
  put (last item of it) + top of card window into v
  put (first item of it) + left of card window + 1 into h
end openBackground


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=21 top=87 right=107 bottom=126
-- 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: Choose Tongue
----- HyperTalk script -----
on mouseDown -- putkahdusvalikko
  global v,h, kieli, aValinta
  if the commandKey is down -- jotta pääsee muokkaamaan Kielivalikkoa!
  then show field "Kielivalikko"
else if the optionKey is down then hide field "Kielivalikko"
else -- pelkkä hiiripainike
  get PopUpMenu(field "Kielivalikko",0,h,v)
  if it is empty then exit mouseDown
  put line it of field "Kielivalikko" into kieli
  put 1 into aValinta
  visual effect iris open
  go to card kieli of background "Sanasto"
  -- kunkin kielen ensimmäinen kortti on nimetty kielen mukaan!
  openCard -- go ei riitä avaamaan korttia!!
end if
end mouseDown


-- part 2 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=33 top=107 right=307 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kielivalikko


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=78 right=110 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Avaa ohjeet
----- HyperTalk script -----
on mouseUp
  show card field Ohjeita
  if the commandKey is down -- jotta pääsee muokkaamaan tekstiä!
  then set lockText of cd field Ohjeita to false
else set lockText of cd field Ohjeita to true
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=32 right=64 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kotiin
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp