equal
deleted
inserted
replaced
480 #(#WindowSpec |
480 #(#WindowSpec |
481 #label: 'Menu Editor' |
481 #label: 'Menu Editor' |
482 #name: 'Menu Editor' |
482 #name: 'Menu Editor' |
483 #min: #(#Point 550 385) |
483 #min: #(#Point 550 385) |
484 #max: #(#Point 1152 900) |
484 #max: #(#Point 1152 900) |
485 #bounds: #(#Rectangle 19 413 595 888) |
485 #bounds: #(#Rectangle 12 22 588 497) |
486 #menu: #menu |
486 #menu: #menu |
487 #returnIsOKInDialog: false |
487 #returnIsOKInDialog: false |
488 #escapeIsCancelInDialog: false |
488 #escapeIsCancelInDialog: false |
489 ) |
489 ) |
490 #component: |
490 #component: |
519 #selectConditionSelector: #canSelect: |
519 #selectConditionSelector: #canSelect: |
520 #showLeftIndicators: false |
520 #showLeftIndicators: false |
521 #indicatorSelector: #indicatorClickedAt: |
521 #indicatorSelector: #indicatorClickedAt: |
522 #properties: |
522 #properties: |
523 #(#PropertyListDictionary |
523 #(#PropertyListDictionary |
524 #enterSelector: #dropEnter: |
524 #dropSelector: #doDrop: |
525 #dragArgument: nil |
525 #dragArgument: nil |
526 #dropObjectSelector: #dropObjects |
526 #dropObjectSelector: #dropObjects |
527 #dropArgument: nil |
527 #dropArgument: nil |
528 #canDropSelector: #canDrop: |
528 #canDropSelector: #canDrop: |
529 #leaveSelector: #dropLeave: |
529 #leaveSelector: #dropLeave: |
|
530 #enterSelector: #dropEnter: |
530 #overSelector: #dropOver: |
531 #overSelector: #dropOver: |
531 #dropSelector: #doDrop: |
|
532 ) |
532 ) |
533 #postBuildCallback: #postBuildListOfItemsView: |
533 #postBuildCallback: #postBuildListOfItemsView: |
534 ) |
534 ) |
535 #(#ViewSpec |
535 #(#ViewSpec |
536 #name: 'Box' |
536 #name: 'Box' |
546 #model: #tabHolder |
546 #model: #tabHolder |
547 #menu: #listOfTabs |
547 #menu: #listOfTabs |
548 #fitLastRow: false |
548 #fitLastRow: false |
549 #canvas: #wizardHolder |
549 #canvas: #wizardHolder |
550 #keepCanvasAlive: true |
550 #keepCanvasAlive: true |
|
551 #postBuildCallback: #postBuildNoteBook: |
551 ) |
552 ) |
552 #(#UISubSpecification |
553 #(#UISubSpecification |
553 #name: 'SubSpecification' |
554 #name: 'SubSpecification' |
554 #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0) |
555 #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0) |
555 #majorKey: #ToolApplicationModel |
556 #majorKey: #ToolApplicationModel |
1665 selection := selectionHolder value. |
1666 selection := selectionHolder value. |
1666 |
1667 |
1667 selection size == 1 ifTrue:[ |
1668 selection size == 1 ifTrue:[ |
1668 selectedSuperItems := selection. |
1669 selectedSuperItems := selection. |
1669 |
1670 |
1670 newTabList := selection first slices collect:[:el| ' ', el first, ' ' ]. |
1671 newTabList := selection first slices collect:[:el| el first ]. |
1671 newTabList = listOfTabs ifFalse:[ |
1672 newTabList = listOfTabs ifFalse:[ |
1672 listOfTabs contents:newTabList. |
1673 listOfTabs contents:newTabList. |
1673 ]. |
1674 ]. |
1674 ] ifFalse:[ |
1675 ] ifFalse:[ |
1675 "must compute selected super items on request |
1676 "must compute selected super items on request |
1690 item := self selectedItem. |
1691 item := self selectedItem. |
1691 item ifNil:[ ^ wizardHolder value:nil ]. |
1692 item ifNil:[ ^ wizardHolder value:nil ]. |
1692 |
1693 |
1693 tab := tabHolder value. |
1694 tab := tabHolder value. |
1694 |
1695 |
1695 tab ifNotNil:[ |
1696 tab notNil ifTrue:[ |
1696 tab := tab withoutSeparators. |
|
1697 tab := item slices detect:[:el| el first = tab ] ifNone:nil. |
1697 tab := item slices detect:[:el| el first = tab ] ifNone:nil. |
1698 ]. |
1698 ]. |
1699 tab ifNil:[ |
1699 tab isNil ifTrue:[ |
1700 ^ tabHolder value:( listOfTabs at:1 ifAbsent:nil ) |
1700 ^ tabHolder value:( listOfTabs at:1 ifAbsent:nil ) |
1701 ]. |
1701 ]. |
1702 selector := tab last. |
1702 selector := tab last. |
1703 |
1703 |
1704 selector == #help ifTrue:[ ^ wizardHolder value:(self helpTool window) ]. |
1704 selector == #help ifTrue:[ ^ wizardHolder value:(self helpTool window) ]. |
2085 self openModalOnResourceSpec:aMenu |
2085 self openModalOnResourceSpec:aMenu |
2086 ! |
2086 ! |
2087 |
2087 |
2088 postBuildListOfItemsView:aSrollableView |
2088 postBuildListOfItemsView:aSrollableView |
2089 listOfItemsView := aSrollableView scrolledView. |
2089 listOfItemsView := aSrollableView scrolledView. |
|
2090 ! |
|
2091 |
|
2092 postBuildNoteBook:aNoteBook |
|
2093 aNoteBook tabLabelInset:16@4. |
2090 ! |
2094 ! |
2091 |
2095 |
2092 postOpenWith:aBuilder |
2096 postOpenWith:aBuilder |
2093 "reset keyboardProcessor for menuBar |
2097 "reset keyboardProcessor for menuBar |
2094 " |
2098 " |