MenuEditor.st
changeset 246 81fe65b7bea7
parent 243 ae6608b760bf
child 249 bfa28b62528c
equal deleted inserted replaced
245:d48281345935 246:81fe65b7bea7
   553                  #(#Menu
   553                  #(#Menu
   554                     
   554                     
   555                      #(
   555                      #(
   556                        #(#MenuItem
   556                        #(#MenuItem
   557                           #'label:' 'cut'
   557                           #'label:' 'cut'
       
   558                           #'value:' #doCut
   558                       )
   559                       )
   559                        #(#MenuItem
   560                        #(#MenuItem
   560                           #'label:' '='
   561                           #'label:' '='
   561                       )
   562                       )
   562                        #(#MenuItem
   563                        #(#MenuItem
   563                           #'label:' 'create submenu static'
   564                           #'label:' 'create submenu static'
       
   565                           #'value:' #doCreateMenu
   564                       )
   566                       )
   565                        #(#MenuItem
   567                        #(#MenuItem
   566                           #'label:' 'create summenu dynamic'
   568                           #'label:' 'create summenu dynamic'
       
   569                           #'value:' #doCreateLink
   567                       )
   570                       )
   568                        #(#MenuItem
   571                        #(#MenuItem
   569                           #'label:' '-'
   572                           #'label:' '-'
   570                       )
   573                       )
   571                        #(#MenuItem
   574                        #(#MenuItem
   572                           #'label:' 'create item'
   575                           #'label:' 'create item'
       
   576                           #'value:' #doCreateItem
   573                       )
   577                       )
   574                        #(#MenuItem
   578                        #(#MenuItem
   575                           #'label:' 'create separator'
   579                           #'label:' 'create separator'
       
   580                           #'value:' #doCreateSep
   576                       )
   581                       )
   577                     ) nil
   582                     ) nil
   578                     nil
   583                     nil
   579                 )
   584                 )
   580             )
   585             )
   619             )
   624             )
   620           ) nil
   625           ) nil
   621           nil
   626           nil
   622       )
   627       )
   623 
   628 
   624     "Modified: 28.7.1997 / 10:18:15 / cg"
   629     "Modified: 28.7.1997 / 10:40:15 / cg"
   625 !
   630 !
   626 
   631 
   627 windowSpec
   632 windowSpec
   628     "this window spec was automatically generated by the ST/X UIPainter"
   633     "this window spec was automatically generated by the ST/X UIPainter"
   629 
   634