news
About Elegant Chaos
info
About me and my friends
people
Software from Elegant Chaos
software
Other stuff...
stuff

DL_SetupMenu

Revision 2
Revised on 19/03/95 22:08

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