［資料４］
練習問題を付した講義スタックの
スクリプト

（ａ）スタックスクリプト

on openStack
  global AC_ON
  global saveUserLevel, saveTextArrows
  
  AddColor install
  start using stack "Color Tools" -- ﾆ
  put true into AC_ON
  send "AddColorInit" to stack "Color Tools" -- ﾆ
  reset menubar
  
  start using stack "ResourceForLecture"
  send "startLecture" to stack "ResourceForLecture"
  start using stack "ResourceForQandA"
  send "startQandA" to stack "ResourceForQandA" -- ﾆ
  put the userLevel into saveUserLevel
  put the textArrows into saveTextArrows
  set the textArrows to true
  pass openStack
end openStack
-------------
on closeStack
  global saveUserLevel, saveTextArrows
  
  lock screen 
  set the userLevel to saveUserLevel
  set the textArrows to saveTextArrows
  send "endLecture" to stack "ResourceForLecture"
  send "endQandA" to stack "ResourceForQandA"
  AddColor remove
end closeStack
--------------
on openCard
  Send colorMe to this card
  if the short name of this bkgnd is "Lecutre" then openLecture
  if the short name of this bkgnd is "Question" then openQuestion
  pass openCard
end openCard
------------
on closeCard
  lock screen
  if the short name of this bkgnd is "Lecutre" then closeLecture
  else if the short name of this bkgnd is "Question" then closeQuestion
  pass closeCard
end closeCard
------------
on openBackground
  if the short name of this bkgnd is "Lecture" then openBkgndLecture
  else if the short name of this bkgnd is "Question" then openBkgndQuestion
  pass openBackground
end openBackground
----------
on setMenuBar
  setMenuBarLecture
  setMenuBarQuestion
end setMenuBar
----------
on colorMe
  AddColor colorCard,stamp,30
end colorMe
---------------------------------
-----民法入門1の場合------
on getNextStack
  return("民法入門1A")
end getNextStack
----

（ｂ）バックグランドQuestion のボタン Previous のスクリプト

on mouseUp
  go prev
end mouseUp

（ｃ）バックグランドQuestion のボタン Next のスクリプト

on mouseUp
  goNext
end mouseUp