Tools__ProjectDefinitionEditor.st
changeset 2666 316855d0ca7d
parent 2146 a5ce8e00652f
child 2727 e5f434daebb5
equal deleted inserted replaced
2665:b26986ad5ab9 2666:316855d0ca7d
  1075             isVisible: prerequisitesMenuVisibleHolder
  1075             isVisible: prerequisitesMenuVisibleHolder
  1076             submenuChannel: prerequisitesListMenu
  1076             submenuChannel: prerequisitesListMenu
  1077             keepLinkedMenu: true
  1077             keepLinkedMenu: true
  1078           )
  1078           )
  1079          (MenuItem
  1079          (MenuItem
  1080             label: 'Help'
  1080             label: 'MENU_Help'
  1081             translateLabel: true
  1081             translateLabel: true
  1082             startGroup: conditionalRight
  1082             startGroup: conditionalRight
  1083             submenu: 
  1083             submenu: 
  1084            (Menu
  1084            (Menu
  1085               (
  1085               (
  1824         Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
  1824         Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
  1825         Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
  1825         Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
  1826         self startupClassNameHolder value:startupClassName.
  1826         self startupClassNameHolder value:startupClassName.
  1827         self startupSelectorHolder value:startupSelector.
  1827         self startupSelectorHolder value:startupSelector.
  1828 
  1828 
  1829         self iconFileNameHolder value:(definitionClass iconFileName).
  1829         self iconFileNameHolder value:(definitionClass applicationIconFileName).
  1830         self tabList value:(self class tabListForApplication).
  1830         self tabList value:(self class tabListForApplication).
  1831         self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
  1831         self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
  1832     ] ifFalse:[
  1832     ] ifFalse:[
  1833         self tabList value:(self class tabListForLibrary).
  1833         self tabList value:(self class tabListForLibrary).
  1834     ].
  1834     ].
  2263 
  2263 
  2264 !ProjectDefinitionEditor class methodsFor:'documentation'!
  2264 !ProjectDefinitionEditor class methodsFor:'documentation'!
  2265 
  2265 
  2266 version
  2266 version
  2267     ^ '$Header$'
  2267     ^ '$Header$'
       
  2268 !
       
  2269 
       
  2270 version_CVS
       
  2271     ^ '$Header$'
  2268 ! !
  2272 ! !