equal
deleted
inserted
replaced
1242 window: |
1242 window: |
1243 (WindowSpec |
1243 (WindowSpec |
1244 label: 'Project Selection' |
1244 label: 'Project Selection' |
1245 name: 'Project Selection' |
1245 name: 'Project Selection' |
1246 min: (Point 0 0) |
1246 min: (Point 0 0) |
1247 bounds: (Rectangle 0 0 521 472) |
1247 bounds: (Rectangle 0 0 677 472) |
1248 ) |
1248 ) |
1249 component: |
1249 component: |
1250 (SpecCollection |
1250 (SpecCollection |
1251 collection: ( |
1251 collection: ( |
1252 (FramedBoxSpec |
1252 (FramedBoxSpec |
1307 name: 'Button4' |
1307 name: 'Button4' |
1308 visibilityChannel: stopMakeButtonVisible |
1308 visibilityChannel: stopMakeButtonVisible |
1309 translateLabel: true |
1309 translateLabel: true |
1310 model: doStopMake |
1310 model: doStopMake |
1311 extent: (Point 107 22) |
1311 extent: (Point 107 22) |
|
1312 ) |
|
1313 (ViewSpec |
|
1314 name: 'Box2' |
|
1315 extent: (Point 20 10) |
|
1316 ) |
|
1317 (ActionButtonSpec |
|
1318 label: 'Browse Build Directory' |
|
1319 name: 'Button6' |
|
1320 translateLabel: true |
|
1321 model: doBrowseBuildDirectory |
|
1322 extent: (Point 167 22) |
1312 ) |
1323 ) |
1313 ) |
1324 ) |
1314 |
1325 |
1315 ) |
1326 ) |
1316 ) |
1327 ) |
1613 UserPreferences systemBrowserClass |
1624 UserPreferences systemBrowserClass |
1614 openInClass:appClass class selector:#windowSpec. |
1625 openInClass:appClass class selector:#windowSpec. |
1615 ]. |
1626 ]. |
1616 ! |
1627 ! |
1617 |
1628 |
|
1629 doBrowseBuildDirectory |
|
1630 <resource: #uiCallback> |
|
1631 |
|
1632 UserPreferences current fileBrowserClass |
|
1633 openIn:projectBuilder packageBuildDirectory asFilename |
|
1634 "/ projectBuilder packageBuildDirectory asFilename openExplorer |
|
1635 |
|
1636 "Created: / 20-08-2012 / 17:05:54 / cg" |
|
1637 ! |
|
1638 |
1618 doBrowseProject |
1639 doBrowseProject |
1619 <resource: #uiCallback> |
1640 <resource: #uiCallback> |
1620 |
1641 |
1621 UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package. |
1642 UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package. |
1622 ! |
1643 ! |