2068 |
2068 |
2069 |appClass| |
2069 |appClass| |
2070 |
2070 |
2071 self hasApplicationSelected ifTrue:[ |
2071 self hasApplicationSelected ifTrue:[ |
2072 appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
2072 appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
2073 UserPreferences systemBrowserClass |
2073 SystemBrowser default |
2074 openInClass:appClass class selector:#windowSpec. |
2074 openInClass:appClass class selector:#windowSpec. |
2075 ]. |
2075 ]. |
|
2076 |
|
2077 "Modified: / 01-09-2017 / 14:23:06 / cg" |
2076 ! |
2078 ! |
2077 |
2079 |
2078 doBrowseBuildDirectory |
2080 doBrowseBuildDirectory |
2079 <resource: #uiCallback> |
2081 <resource: #uiCallback> |
2080 |
2082 |
2092 ! |
2094 ! |
2093 |
2095 |
2094 doBrowseProject |
2096 doBrowseProject |
2095 <resource: #uiCallback> |
2097 <resource: #uiCallback> |
2096 |
2098 |
2097 UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package. |
2099 SystemBrowser default openOnPackage:selectedProjectDefinition package. |
|
2100 |
|
2101 "Modified: / 01-09-2017 / 14:23:09 / cg" |
2098 ! |
2102 ! |
2099 |
2103 |
2100 doBrowseProjectDefinitionClass |
2104 doBrowseProjectDefinitionClass |
2101 <resource: #uiCallback> |
2105 <resource: #uiCallback> |
2102 |
2106 |
2103 |defClass| |
2107 |defClass| |
2104 |
2108 |
2105 self hasProjectSelected ifTrue:[ |
2109 self hasProjectSelected ifTrue:[ |
2106 defClass := self selectedProjectDefinition. |
2110 defClass := self selectedProjectDefinition. |
2107 UserPreferences systemBrowserClass |
2111 SystemBrowser default |
2108 openInClass:defClass class selector:#classNamesAndAttributes. |
2112 openInClass:defClass class selector:#classNamesAndAttributes. |
2109 ]. |
2113 ]. |
|
2114 |
|
2115 "Modified: / 01-09-2017 / 14:23:12 / cg" |
2110 ! |
2116 ! |
2111 |
2117 |
2112 doBrowseProjectDefinitionClassForPrereqs |
2118 doBrowseProjectDefinitionClassForPrereqs |
2113 <resource: #uiCallback> |
2119 <resource: #uiCallback> |
2114 |
2120 |
2115 |defClass| |
2121 |defClass| |
2116 |
2122 |
2117 self hasProjectSelected ifTrue:[ |
2123 self hasProjectSelected ifTrue:[ |
2118 defClass := self selectedProjectDefinition. |
2124 defClass := self selectedProjectDefinition. |
2119 UserPreferences systemBrowserClass |
2125 SystemBrowser default |
2120 openInClass:defClass class selector:#referencedPreRequisites "/ #mandatoryPreRequisites. |
2126 openInClass:defClass class selector:#referencedPreRequisites "/ #mandatoryPreRequisites. |
2121 ]. |
2127 ]. |
|
2128 |
|
2129 "Modified: / 01-09-2017 / 14:23:15 / cg" |
2122 ! |
2130 ! |
2123 |
2131 |
2124 doBrowseStartupClass |
2132 doBrowseStartupClass |
2125 <resource: #uiCallback> |
2133 <resource: #uiCallback> |
2126 |
2134 |
2127 |startupClass| |
2135 |startupClass| |
2128 |
2136 |
2129 self hasStartupClassSelected ifTrue:[ |
2137 self hasStartupClassSelected ifTrue:[ |
2130 startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value). |
2138 startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value). |
2131 UserPreferences systemBrowserClass |
2139 SystemBrowser default |
2132 openInClass:startupClass class selector:#main:. |
2140 openInClass:startupClass class selector:#main:. |
2133 ]. |
2141 ]. |
|
2142 |
|
2143 "Modified: / 01-09-2017 / 14:23:18 / cg" |
2134 ! |
2144 ! |
2135 |
2145 |
2136 doCheckin |
2146 doCheckin |
2137 <resource: #uiCallback> |
2147 <resource: #uiCallback> |
2138 |
2148 |