equal
deleted
inserted
replaced
372 window: |
372 window: |
373 (WindowSpec |
373 (WindowSpec |
374 label: 'Settings Dialog' |
374 label: 'Settings Dialog' |
375 name: 'Settings Dialog' |
375 name: 'Settings Dialog' |
376 min: (Point 10 10) |
376 min: (Point 10 10) |
377 bounds: (Rectangle 0 0 789 642) |
377 bounds: (Rectangle 0 0 850 656) |
378 menu: mainMenu |
378 menu: mainMenu |
379 icon: defaultIcon |
379 icon: defaultIcon |
380 ) |
380 ) |
381 component: |
381 component: |
382 (SpecCollection |
382 (SpecCollection |
541 model: help |
541 model: help |
542 enableChannel: enableHelp |
542 enableChannel: enableHelp |
543 extent: (Point 161 22) |
543 extent: (Point 161 22) |
544 ) |
544 ) |
545 (ActionButtonSpec |
545 (ActionButtonSpec |
|
546 label: 'Close' |
|
547 name: 'Button4' |
|
548 translateLabel: true |
|
549 model: closeRequest |
|
550 extent: (Point 145 22) |
|
551 isVisible: closeButtonVisible |
|
552 activeHelpKey: closeRequest |
|
553 ) |
|
554 (ActionButtonSpec |
546 label: 'Discard' |
555 label: 'Discard' |
547 name: 'Reload' |
556 name: 'Reload' |
548 activeHelpKey: discardChangedSettings |
557 activeHelpKey: discardChangedSettings |
549 translateLabel: true |
558 translateLabel: true |
550 tabable: true |
559 tabable: true |
1466 applicationList := SettingsDialog::HierarchicalApplicationList new. |
1475 applicationList := SettingsDialog::HierarchicalApplicationList new. |
1467 ]. |
1476 ]. |
1468 ^ applicationList. |
1477 ^ applicationList. |
1469 ! |
1478 ! |
1470 |
1479 |
|
1480 closeButtonVisibleHolder |
|
1481 ^ builder valueAspectFor:#'closeButtonVisibleHolder' initialValue:false |
|
1482 ! |
|
1483 |
1471 enableHelp |
1484 enableHelp |
1472 enableHelp isNil ifTrue:[ |
1485 enableHelp isNil ifTrue:[ |
1473 enableHelp := true asValue. |
1486 enableHelp := true asValue. |
1474 ]. |
1487 ]. |
1475 ^ enableHelp. |
1488 ^ enableHelp. |
1718 "Modified: / 03-11-2007 / 14:22:18 / cg" |
1731 "Modified: / 03-11-2007 / 14:22:18 / cg" |
1719 ! |
1732 ! |
1720 |
1733 |
1721 postBuildSubCanvas:aWidget |
1734 postBuildSubCanvas:aWidget |
1722 aWidget keepClientView:true. |
1735 aWidget keepClientView:true. |
|
1736 ! |
|
1737 |
|
1738 postBuildWith:aBuilder |
|
1739 super postBuildWith:aBuilder. |
|
1740 "/ self window isModal ifFalse:[ |
|
1741 "/ self closeButtonVisibleHolder value:true |
|
1742 "/ ]. |
1723 ! |
1743 ! |
1724 |
1744 |
1725 postOpenWith:aBuilder |
1745 postOpenWith:aBuilder |
1726 |items| |
1746 |items| |
1727 |
1747 |