equal
deleted
inserted
replaced
1798 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0) |
1798 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0) |
1799 tabable: true |
1799 tabable: true |
1800 menu: menuToolbar |
1800 menu: menuToolbar |
1801 ) |
1801 ) |
1802 (VariableVerticalPanelSpec |
1802 (VariableVerticalPanelSpec |
1803 name: 'VariableVerticalPanel1' |
1803 name: 'mainPanel' |
1804 layout: (LayoutFrame 0 0.0 38 0.0 0 1.0 -26 1.0) |
1804 layout: (LayoutFrame 0 0.0 38 0.0 0 1.0 -26 1.0) |
1805 component: |
1805 component: |
1806 (SpecCollection |
1806 (SpecCollection |
1807 collection: ( |
1807 collection: ( |
1808 (FramedBoxSpec |
1808 (FramedBoxSpec |
2430 "/ ]. |
2430 "/ ]. |
2431 |
2431 |
2432 ! |
2432 ! |
2433 |
2433 |
2434 loadFromClass:aClass andSelector:aSelector |
2434 loadFromClass:aClass andSelector:aSelector |
2435 |
|
2436 |updateBlock cls list| |
2435 |updateBlock cls list| |
2437 |
2436 |
2438 self assert:(aClass isNil or:[aClass isClass]). |
2437 self assert:(aClass isNil or:[aClass isClass]). |
2439 |
2438 |
2440 selectedColumnIndex := 0. |
2439 selectedColumnIndex := 0. |
3000 self canvasHolder value:view |
2999 self canvasHolder value:view |
3001 ! ! |
3000 ! ! |
3002 |
3001 |
3003 !DataSetBuilder methodsFor:'startup & release'! |
3002 !DataSetBuilder methodsFor:'startup & release'! |
3004 |
3003 |
3005 openModal |
3004 commonPostBuild |
3006 "sets the modalOpened flag, so later, |
|
3007 there is no need to ask for saving into a class" |
|
3008 |
|
3009 modalOpened := true. |
|
3010 |
|
3011 super openModal |
|
3012 |
|
3013 |
|
3014 ! |
|
3015 |
|
3016 openModalOnResourceSpec: aListSpec |
|
3017 "sets the modalOpened flag, so later, |
|
3018 there is no need to ask for saving into a class" |
|
3019 |
|
3020 modalOpened := true. |
|
3021 super openModalOnResourceSpec: aListSpec |
|
3022 |
|
3023 |
|
3024 ! |
|
3025 |
|
3026 postBuildWith:builder |
|
3027 |
|
3028 columnView := self componentAt:#columnView. |
3005 columnView := self componentAt:#columnView. |
3029 "/ columnView labelView enabled:false. |
|
3030 |
|
3031 super postBuildWith:builder. |
|
3032 |
3006 |
3033 columns notEmpty ifTrue: [ |
3007 columns notEmpty ifTrue: [ |
3034 self tabModel value: 1. |
3008 self tabModel value: 1. |
3035 self selectedColumnModel value:nil; value:1. "/ toggle to force change |
3009 self selectedColumnModel value:nil; value:1. "/ toggle to force change |
3036 self updateInputFields. |
3010 self updateInputFields. |
3040 |
3014 |
3041 (self componentAt: #labelAndColumns) |
3015 (self componentAt: #labelAndColumns) |
3042 selectConditionBlock: [:i|self askForItemModification]; |
3016 selectConditionBlock: [:i|self askForItemModification]; |
3043 action: [:i|self cancel]; |
3017 action: [:i|self cancel]; |
3044 selection: 1. |
3018 selection: 1. |
|
3019 |
|
3020 "/ using masters infoHolder ? |
|
3021 (builder aspectAt:#useAlienInfoLabelHolder) == true ifTrue:[ |
|
3022 (builder componentAt:#mainPanel) layout bottomOffset:0. |
|
3023 (builder componentAt:#infoBarSubSpec) beInvisible |
|
3024 ] |
|
3025 ! |
|
3026 |
|
3027 openModal |
|
3028 "sets the modalOpened flag, so later, |
|
3029 there is no need to ask for saving into a class" |
|
3030 |
|
3031 modalOpened := true. |
|
3032 |
|
3033 super openModal |
|
3034 |
|
3035 |
|
3036 ! |
|
3037 |
|
3038 openModalOnResourceSpec: aListSpec |
|
3039 "sets the modalOpened flag, so later, |
|
3040 there is no need to ask for saving into a class" |
|
3041 |
|
3042 modalOpened := true. |
|
3043 super openModalOnResourceSpec: aListSpec |
|
3044 |
|
3045 |
3045 ! |
3046 ! |
3046 |
3047 |
3047 postOpenWith:aBuilder |
3048 postOpenWith:aBuilder |
3048 "reset keyboardProcessor for menuBar |
3049 "reset keyboardProcessor for menuBar |
3049 " |
3050 " |