checking/unchecking menus after a menu with cascading menus

[moe2 at shaw.ca]

i would sure appreciate someone pointing out the script that would correctly
check and uncheck all seven menu items as illustrated in the Documentation

i found this in the Search Documentation by typing in  "menus and the menu
bar"
selecting topic   "About menus and the menu bar"
and in the sixth line of the text, clicking the hotText "submenus"

these are the four menuItems of ONE menu that are displayed,
and Alignment has 3 cascading menuItems: left, center, right

   Format
   Alignment
   Size
   Style

the documentation script to check and uncheck the menu items does not work
(for me) for Size and Style (those menuItems after a cascading menuItem)


here are all of the methods from the documentation:

on menuPick theItem
 put the menuHistory of me into myItemNumber
 if char 1 to 2 of line myItemNumber of me is "!c"
 then delete char 1 to 2 of line myItemNumber of me
 else put "!c" before line myItemNumber of me

 repeat with x = 1 to the number of lines in me
   if char 1 to 2 of line x of me is "!c"
   then delete char 1 to 2 of line x of me
 end repeat
 put "!c" before line myItemNumber of me

 put the currentCheckedLine of me into oldLine
 delete char 1 to 2 of line oldLine of me
 put "!c" before line myItemNumber of me
 set the currentCheckedLine of me to myItemNumber
end menuPick

your help is appreciated

moe