-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 2590
-- card count: 57
-- first card id: 7349
-- list block id: 19797
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 3
-- free size: 13824 bytes
-- total size: 155648 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0xAA55AA55AA55AA55
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- Copyright ©1989,1990,1991 Risto Virtanen
-- FileName XFCN © Steve Maller, Apple Computer
-- NewFileName XFCN © Andrew Gilmartin, Brown University
-- from Developer's Stack 1.2r
-- PopUpMenu 2.0b2 XFCN © 1989 Andrew Gilmartin, Brown University
-- FlushEvents XCMD ©1990 Risto Virtanen & Apple Computer

-- "Growing" new Tongue:
-- • Add Tongue name into "Aloitus"-card "Kielivalikko"-field
-- • Add Card of same name to the end of "Sanasto"-background — Not middle!
-- • Add Card of same name to the end of "Tulos"-background
-- Each Tongue starts with a locked card named after the Tongue!
-- Glossaries for any Tongue must be on consequtive cards.
-- "Tulos"-background {Top 12} has a named card for each Tongue.

on openStack
  if the version < 1.2 then
    answer "This stack requires HyperCard version 1.2.?"
    set lockMessages to TRUE
    go home
  else
    global userHold,Suomesta, kirjasin, ääni, kohtelias, kyrill
    set cursor to watch
    hide menuBar -- kunhan saa luteet litistettyä…
    lock screen
    put false into kyrill
    put true into Suomesta
    put Helvetica into kirjasin
    put the userLevel into userHold
    set the userLevel to 5 -- 2 tai 3 riittää
    set the textArrows to true
    go to card 1 of bg "Sanasto"
    set hilite of bg button "Foreign to Native" to false
    set hilite of bg button "Native to Foreign" to true
    set textFont of field "Muu" to "Geneva"
    go to card "Opetuskortti"
    put true into ääni
    set hilite of bg button "Fanfare" to true
    put false into kohtelias
    set hilite of bg button "Courteous" to false
    go to card Aloitus
  end if
end openStack

on closeStack
  global userHold
  set the userLevel to userHold
  hide message
end closeStack