HierarchicalListEditor.st
changeset 522 06bef91cb861
parent 506 249e94fdeb94
child 529 2e77c060bc12
equal deleted inserted replaced
521:61569efc19f4 522:06bef91cb861
   280                        #(#MenuItem
   280                        #(#MenuItem
   281                           #'label:' 'New'
   281                           #'label:' 'New'
   282                           #'value:' #doNew
   282                           #'value:' #doNew
   283                       )
   283                       )
   284                        #(#MenuItem
   284                        #(#MenuItem
       
   285                           #'label:' '-'
       
   286                       )
       
   287                        #(#MenuItem
   285                           #'label:' 'Reload'
   288                           #'label:' 'Reload'
   286                           #'value:' #doReload
   289                           #'value:' #doReload
   287                       )
   290                       )
   288                        #(#MenuItem
   291                        #(#MenuItem
   289                           #'label:' '-'
   292                           #'label:' '-'
   312                 )
   315                 )
   313             )
   316             )
   314              #(#MenuItem
   317              #(#MenuItem
   315                 #'label:' 'Edit'
   318                 #'label:' 'Edit'
   316                 #'submenuChannel:' #menuEdit
   319                 #'submenuChannel:' #menuEdit
       
   320             )
       
   321              #(#MenuItem
       
   322                 #'label:' 'Add'
       
   323                 #'submenu:' 
       
   324                  #(#Menu
       
   325                     
       
   326                      #(
       
   327                        #(#MenuItem
       
   328                           #'label:' 'Child'
       
   329                           #'value:' #doCreateChild
       
   330                           #'enabled:' #canCreateChildChannel
       
   331                           #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child')
       
   332                       )
       
   333                        #(#MenuItem
       
   334                           #'label:' 'Sister'
       
   335                           #'value:' #doCreateSister
       
   336                           #'enabled:' #canCreateSisterChannel
       
   337                           #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister')
       
   338                       )
       
   339                     ) nil
       
   340                     nil
       
   341                 )
   317             )
   342             )
   318              #(#MenuItem
   343              #(#MenuItem
   319                 #'label:' 'Browse'
   344                 #'label:' 'Browse'
   320                 #'enabled:' #hasValidClass
   345                 #'enabled:' #hasValidClass
   321                 #'submenu:' 
   346                 #'submenu:' 
   378             )
   403             )
   379              #(#MenuItem
   404              #(#MenuItem
   380                 #'label:' 'Paste'
   405                 #'label:' 'Paste'
   381                 #'value:' #doPaste
   406                 #'value:' #doPaste
   382                 #'enabled:' #canPaste
   407                 #'enabled:' #canPaste
   383             )
       
   384              #(#MenuItem
       
   385                 #'label:' '-'
       
   386             )
       
   387              #(#MenuItem
       
   388                 #'label:' 'Create Child'
       
   389                 #'value:' #doCreateChild
       
   390                 #'enabled:' #canCreateChildChannel
       
   391                 #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Create Child')
       
   392             )
       
   393              #(#MenuItem
       
   394                 #'label:' 'Create Sister'
       
   395                 #'value:' #doCreateSister
       
   396                 #'enabled:' #canCreateSisterChannel
       
   397                 #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Create Sister')
       
   398             )
   408             )
   399              #(#MenuItem
   409              #(#MenuItem
   400                 #'label:' '-'
   410                 #'label:' '-'
   401             )
   411             )
   402              #(#MenuItem
   412              #(#MenuItem