493 ) |
493 ) |
494 ) |
494 ) |
495 ) |
495 ) |
496 ! |
496 ! |
497 |
497 |
|
498 rightCanvasSpecForPrerequisites |
|
499 "This resource specification was automatically generated |
|
500 by the UIPainter of ST/X." |
|
501 |
|
502 "Do not manually edit this!! If it is corrupted, |
|
503 the UIPainter may not be able to read the specification." |
|
504 |
|
505 " |
|
506 UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisites |
|
507 ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisites |
|
508 " |
|
509 |
|
510 <resource: #canvas> |
|
511 |
|
512 ^ |
|
513 #(#FullSpec |
|
514 #name: #rightCanvasSpecForPrerequisites |
|
515 #window: |
|
516 #(#WindowSpec |
|
517 #label: 'NewApplication' |
|
518 #name: 'NewApplication' |
|
519 #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0) |
|
520 #level: 0 |
|
521 #min: #(#Point 10 10) |
|
522 #max: #(#Point 1280 1024) |
|
523 #bounds: #(#Rectangle 216 173 516 473) |
|
524 #usePreferredExtent: false |
|
525 #returnIsOKInDialog: true |
|
526 #escapeIsCancelInDialog: true |
|
527 ) |
|
528 #component: |
|
529 #(#SpecCollection |
|
530 #collection: #( |
|
531 #(#LabelSpec |
|
532 #label: 'Projects' |
|
533 #name: 'Label1' |
|
534 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
|
535 #translateLabel: true |
|
536 ) |
|
537 #(#SequenceViewSpec |
|
538 #name: 'List1' |
|
539 #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1) |
|
540 #tabable: true |
|
541 #model: #selectedProjectInPrerequisites |
|
542 #hasHorizontalScrollBar: true |
|
543 #hasVerticalScrollBar: true |
|
544 #miniScrollerHorizontal: true |
|
545 #miniScrollerVertical: true |
|
546 #useIndex: false |
|
547 #sequenceList: #listOfAllProjectsInPrerequisites |
|
548 ) |
|
549 #(#LabelSpec |
|
550 #label: 'Prerequisites' |
|
551 #name: 'Label2' |
|
552 #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0) |
|
553 #translateLabel: true |
|
554 ) |
|
555 #(#SequenceViewSpec |
|
556 #name: 'List2' |
|
557 #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1) |
|
558 #tabable: true |
|
559 #model: #selectedRequiredProjectInPrerequisites |
|
560 #hasHorizontalScrollBar: true |
|
561 #hasVerticalScrollBar: true |
|
562 #miniScrollerHorizontal: true |
|
563 #miniScrollerVertical: true |
|
564 #useIndex: false |
|
565 #sequenceList: #listOfRequiredProjectsInPrerequisites |
|
566 ) |
|
567 #(#HorizontalPanelViewSpec |
|
568 #name: 'HorizontalPanel2' |
|
569 #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1) |
|
570 #horizontalLayout: #fitSpace |
|
571 #verticalLayout: #center |
|
572 #horizontalSpace: 3 |
|
573 #verticalSpace: 3 |
|
574 #component: |
|
575 #(#SpecCollection |
|
576 #collection: #( |
|
577 #(#ActionButtonSpec |
|
578 #label: 'Add' |
|
579 #name: 'addButton' |
|
580 #translateLabel: true |
|
581 #resizeForLabel: false |
|
582 #tabable: true |
|
583 #model: #addToPrerequisites |
|
584 #enableChannel: #canAddSelectedProjectToPrerequisites |
|
585 #actionValue: '' |
|
586 #useDefaultExtent: true |
|
587 ) |
|
588 #(#ActionButtonSpec |
|
589 #label: 'Remove' |
|
590 #name: 'removeButton' |
|
591 #translateLabel: true |
|
592 #resizeForLabel: false |
|
593 #tabable: true |
|
594 #model: #removeFromPrerequisites |
|
595 #enableChannel: #canRemoveSelectedProjectFromPrerequisites |
|
596 #actionValue: '' |
|
597 #useDefaultExtent: true |
|
598 ) |
|
599 ) |
|
600 |
|
601 ) |
|
602 ) |
|
603 #(#HorizontalPanelViewSpec |
|
604 #name: 'HorizontalPanel1' |
|
605 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) |
|
606 #horizontalLayout: #fitSpace |
|
607 #verticalLayout: #center |
|
608 #horizontalSpace: 3 |
|
609 #verticalSpace: 3 |
|
610 #component: |
|
611 #(#SpecCollection |
|
612 #collection: #( |
|
613 #(#ActionButtonSpec |
|
614 #label: 'Cancel' |
|
615 #name: 'Button1' |
|
616 #translateLabel: true |
|
617 #tabable: true |
|
618 #model: #cancel |
|
619 #useDefaultExtent: true |
|
620 ) |
|
621 #(#ActionButtonSpec |
|
622 #label: 'OK' |
|
623 #name: 'Button2' |
|
624 #translateLabel: true |
|
625 #tabable: true |
|
626 #model: #accept |
|
627 #useDefaultExtent: true |
|
628 ) |
|
629 ) |
|
630 |
|
631 ) |
|
632 ) |
|
633 ) |
|
634 |
|
635 ) |
|
636 ) |
|
637 ! |
|
638 |
498 rightCanvasSpecForProperties |
639 rightCanvasSpecForProperties |
499 "This resource specification was automatically generated |
640 "This resource specification was automatically generated |
500 by the UIPainter of ST/X." |
641 by the UIPainter of ST/X." |
501 |
642 |
502 "Do not manually edit this!! If it is corrupted, |
643 "Do not manually edit this!! If it is corrupted, |
1143 ) |
1284 ) |
1144 ! ! |
1285 ! ! |
1145 |
1286 |
1146 !ProjectBrowser methodsFor:'aspects'! |
1287 !ProjectBrowser methodsFor:'aspects'! |
1147 |
1288 |
|
1289 canAddSelectedProjectToPrerequisites |
|
1290 |holder| |
|
1291 |
|
1292 (holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[ |
|
1293 holder := BlockValue with:[:m | m notNil] argument:(self selectedProjectInPrerequisites). |
|
1294 builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder. |
|
1295 ]. |
|
1296 ^ holder. |
|
1297 |
|
1298 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1299 ! |
|
1300 |
|
1301 canRemoveSelectedProjectFromPrerequisites |
|
1302 |holder| |
|
1303 |
|
1304 (holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[ |
|
1305 holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites). |
|
1306 builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder. |
|
1307 ]. |
|
1308 ^ holder. |
|
1309 |
|
1310 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1311 ! |
|
1312 |
1148 classList |
1313 classList |
1149 "automatically generated by UIPainter ..." |
1314 "automatically generated by UIPainter ..." |
1150 |
1315 |
1151 "*** the code below creates a default model when invoked." |
1316 "*** the code below creates a default model when invoked." |
1152 "*** (which may not be the one you wanted)" |
1317 "*** (which may not be the one you wanted)" |
1315 ^ holder. |
1480 ^ holder. |
1316 |
1481 |
1317 "Created: / 23.3.1999 / 14:18:05 / cg" |
1482 "Created: / 23.3.1999 / 14:18:05 / cg" |
1318 ! |
1483 ! |
1319 |
1484 |
1320 modifiedChannel |
1485 listOfAllProjectsInPrerequisites |
1321 "automatically generated by UIPainter ..." |
1486 "automatically generated by UIPainter ..." |
1322 |
1487 |
1323 "*** the code below creates a default model when invoked." |
1488 "*** the code below creates a default model when invoked." |
1324 "*** (which may not be the one you wanted)" |
1489 "*** (which may not be the one you wanted)" |
1325 "*** Please change as required and accept in the browser." |
1490 "*** Please change as required and accept in the browser." |
1326 |
1491 |
1327 modifiedChannel isNil ifTrue:[ |
1492 |holder projects| |
1328 modifiedChannel := false asValue. |
1493 |
1329 ]. |
1494 (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[ |
1330 ^ modifiedChannel. |
1495 builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := List new). |
1331 |
1496 projects := Set new. |
1332 ! |
1497 Project allInstancesDo:[:p | |
1333 |
1498 projects add:p name |
1334 patchesList |
1499 ]. |
|
1500 projects := projects asOrderedCollection sort. |
|
1501 holder addAll:projects. |
|
1502 ]. |
|
1503 ^ holder. |
|
1504 |
|
1505 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1506 ! |
|
1507 |
|
1508 listOfRequiredProjectsInPrerequisites |
1335 "automatically generated by UIPainter ..." |
1509 "automatically generated by UIPainter ..." |
1336 |
1510 |
1337 "*** the code below creates a default model when invoked." |
1511 "*** the code below creates a default model when invoked." |
1338 "*** (which may not be the one you wanted)" |
1512 "*** (which may not be the one you wanted)" |
1339 "*** Please change as required and accept in the browser." |
1513 "*** Please change as required and accept in the browser." |
1340 |
1514 |
1341 |holder| |
1515 |holder| |
1342 |
1516 |
1343 (holder := builder bindingAt:#patchesList) isNil ifTrue:[ |
1517 (holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[ |
1344 builder aspectAt:#patchesList put:(holder := List new). |
1518 builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := List new). |
1345 ]. |
1519 ]. |
1346 ^ holder. |
1520 ^ holder. |
1347 ! |
1521 |
1348 |
1522 "Created: / 23.3.1999 / 14:18:05 / cg" |
1349 projectDirectory |
1523 ! |
|
1524 |
|
1525 modifiedChannel |
1350 "automatically generated by UIPainter ..." |
1526 "automatically generated by UIPainter ..." |
1351 |
1527 |
1352 "*** the code below creates a default model when invoked." |
1528 "*** the code below creates a default model when invoked." |
1353 "*** (which may not be the one you wanted)" |
1529 "*** (which may not be the one you wanted)" |
1354 "*** Please change as required and accept in the browser." |
1530 "*** Please change as required and accept in the browser." |
1355 |
1531 |
|
1532 modifiedChannel isNil ifTrue:[ |
|
1533 modifiedChannel := false asValue. |
|
1534 ]. |
|
1535 ^ modifiedChannel. |
|
1536 |
|
1537 ! |
|
1538 |
|
1539 patchesList |
|
1540 "automatically generated by UIPainter ..." |
|
1541 |
|
1542 "*** the code below creates a default model when invoked." |
|
1543 "*** (which may not be the one you wanted)" |
|
1544 "*** Please change as required and accept in the browser." |
|
1545 |
|
1546 |holder| |
|
1547 |
|
1548 (holder := builder bindingAt:#patchesList) isNil ifTrue:[ |
|
1549 builder aspectAt:#patchesList put:(holder := List new). |
|
1550 ]. |
|
1551 ^ holder. |
|
1552 ! |
|
1553 |
|
1554 projectDirectory |
|
1555 "automatically generated by UIPainter ..." |
|
1556 |
|
1557 "*** the code below creates a default model when invoked." |
|
1558 "*** (which may not be the one you wanted)" |
|
1559 "*** Please change as required and accept in the browser." |
|
1560 |
1356 |holder| |
1561 |holder| |
1357 |
1562 |
1358 (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[ |
1563 (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[ |
1359 builder aspectAt:#projectDirectory put:(holder := '.' asValue). |
1564 builder aspectAt:#projectDirectory put:(holder := '.' asValue). |
1360 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1565 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1445 |
1650 |
1446 (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[ |
1651 (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[ |
1447 builder aspectAt:#rightCanvasTextHolder put:(holder := ValueHolder new). |
1652 builder aspectAt:#rightCanvasTextHolder put:(holder := ValueHolder new). |
1448 ]. |
1653 ]. |
1449 ^ holder. |
1654 ^ holder. |
|
1655 ! |
|
1656 |
|
1657 selectedProjectInPrerequisites |
|
1658 "automatically generated by UIPainter ..." |
|
1659 |
|
1660 "*** the code below creates a default model when invoked." |
|
1661 "*** (which may not be the one you wanted)" |
|
1662 "*** Please change as required and accept in the browser." |
|
1663 |
|
1664 |holder| |
|
1665 |
|
1666 (holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[ |
|
1667 builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new). |
|
1668 ]. |
|
1669 ^ holder. |
|
1670 |
|
1671 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1672 ! |
|
1673 |
|
1674 selectedRequiredProjectInPrerequisites |
|
1675 "automatically generated by UIPainter ..." |
|
1676 |
|
1677 "*** the code below creates a default model when invoked." |
|
1678 "*** (which may not be the one you wanted)" |
|
1679 "*** Please change as required and accept in the browser." |
|
1680 |
|
1681 |holder| |
|
1682 |
|
1683 (holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[ |
|
1684 builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new). |
|
1685 ]. |
|
1686 ^ holder. |
|
1687 |
|
1688 "Created: / 23.3.1999 / 14:18:05 / cg" |
1450 ! |
1689 ! |
1451 |
1690 |
1452 selectedTreeNode |
1691 selectedTreeNode |
1453 "automatically generated by UIPainter ..." |
1692 "automatically generated by UIPainter ..." |
1454 |
1693 |
1630 docNode add:(userDocNode := ProjectTreeItem name:'Other'). |
1869 docNode add:(userDocNode := ProjectTreeItem name:'Other'). |
1631 ]. |
1870 ]. |
1632 |
1871 |
1633 prerequisitesNode contents:#prerequisites. |
1872 prerequisitesNode contents:#prerequisites. |
1634 prerequisitesNode icon:(self class prerequisitesIcon). |
1873 prerequisitesNode icon:(self class prerequisitesIcon). |
|
1874 prerequisitesNode spec:(self class rightCanvasSpecForPrerequisites). |
1635 |
1875 |
1636 classesNode contents:#classes. |
1876 classesNode contents:#classes. |
1637 classesNode icon:(self class classesIcon). |
1877 classesNode icon:(self class classesIcon). |
1638 ((aProject classes ? #()) copy sort:[:a :b | a name < b name]) |
1878 ((aProject classes ? #()) copy sort:[:a :b | a name < b name]) |
1639 do:[:aClass | |
1879 do:[:aClass | |
1684 self rightCanvasTextHolder value:p comment. |
1924 self rightCanvasTextHolder value:p comment. |
1685 |
1925 |
1686 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1926 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1687 self projectType value:(p type). |
1927 self projectType value:(p type). |
1688 self projectDirectory value:(p directory). |
1928 self projectDirectory value:(p directory). |
1689 self halt. |
1929 |
1690 self repositoryModule value:(p repositoryModule). |
1930 self repositoryModule value:(p repositoryModule). |
1691 self repositoryDirectory value:(p repositoryDirectory). |
1931 self repositoryDirectory value:(p repositoryDirectory). |
1692 |
1932 |
1693 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
1933 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
1694 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
1934 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |