news

info

people

software

stuff

DL_SetupMenu

Description

Code

on DL_SetupMenu
  if there is not a menu "Æ" then
    create menu "Æ"
  end if
  
  put empty into commands
  put empty into msgs
  put (the stacksInUse contains "Classes Library") into gotClasses
  
  put "Message Crate...,Stack Version...,Show/Hide Invisibles," after commands
  put "DL_Crate,DL_Version,DL_ShowHide," after mesgs
  
  if gotClasses then
    put "Classes...," after commands
    put "CL_ShowClasses," after mesgs
  end if
  
  put "-,Open Last Exit...,-," after commands
  put "-,UL_Help,-," after mesgs
  
  -- put "List Cards,List Bkgnds,List Cd Parts,List Bg Parts,-," into commands
  -- put "DL_ShowCardList,DL_ShowBkgndList," into mesgs
  -- put "DL_ShowPartList,DL_ShowBkgndPartList,-," after mesgs
  
  put "Backup This Stack,Backup Settings...,-," after commands
  put "BL_ToggleBackups,BL_BackupSettings,-," after mesgs
  
  put "Document This Stack's Scripts,Documentation Settings...," after commands
  put "DL_ToggleChecks,DL_CheckSettings," after mesgs
  
  
  put commands into menu "Æ" with menuMsgs mesgs
  set the cmdChar of menuItem "Message Crate..." of menu "Æ" to "K"
  if gotClasses then
    set the cmdChar of menuItem "Classes..." of menu "Æ" to "S"
  end if
end DL_SetupMenu