Better Homes & Gardens: …oking for Today - Chicken/Image.iso/pc/personal.dxr/00101_PBACK.PIC.ls

Text File | 1995-11-20 | 972 b | 32 lines

on mouseDown
  global gBackButton
  down(gBackButton)
end

on mouseUp
  global gBackButton, gCurrentRecipeFrame, gCFTBook, gDefaultRecipe, gpersonalliddb, gPersonalBrowser, gCurrentRecipe, gLastCurrentRecipe, gCurrentBook, gLastCurrentBook
  if count(gPersonalIDDB) > 0 then
    set gCurrentBook to "personal"
  else
    set gCurrentBook to gCFTBook
  end if
  if up(gBackButton) then
    loadPersonalIndexes()
    if (gLastCurrentBook = "personal") and (not getOne(gPersonalBrowser, gLastCurrentRecipe) or (count(gPersonalIDDB) = 0) or (count(gPersonalBrowser) = 0)) then
      set gCurrentRecipeFrame to "recipe1"
      if gCFTBook = "Bundle" then
        set gCurrentBook to "Chick"
      else
        set gCurrentBook to gCFTBook
      end if
      set gCurrentRecipe to gDefaultRecipe
    else
      set gCurrentRecipe to gLastCurrentRecipe
      set gCurrentBook to gLastCurrentBook
    end if
    put gDefaultRecipe
    put gCurrentRecipe
    goBack()
  end if
end