equal
deleted
inserted
replaced
14 |
14 |
15 |
15 |
16 |
16 |
17 ResourceSpecEditor subclass:#DataSetBuilder |
17 ResourceSpecEditor subclass:#DataSetBuilder |
18 instanceVariableNames:'rowClass rowSuperClass columnView columns selectedColumnIndex |
18 instanceVariableNames:'rowClass rowSuperClass columnView columns selectedColumnIndex |
19 modalOpened noteBook' |
19 modalOpened noteBook listOfSpecViews' |
20 classVariableNames:'' |
20 classVariableNames:'' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'Interface-UIPainter' |
22 category:'Interface-UIPainter' |
23 ! |
23 ! |
24 |
24 |
2080 self tabModel value: 0. |
2080 self tabModel value: 0. |
2081 self columns removeAll. |
2081 self columns removeAll. |
2082 self seqList removeAll. |
2082 self seqList removeAll. |
2083 self updateColumnView. |
2083 self updateColumnView. |
2084 self updateInfoLabel. |
2084 self updateInfoLabel. |
2085 noteBook client:self spec:nil builder:builder. |
2085 ^ self isColumnSelected value: false. |
2086 self isColumnSelected value: false. |
|
2087 ^self |
|
2088 ]. |
2086 ]. |
2089 |
2087 |
2090 specSelector isNil ifTrue: [updateBlock value. ^self]. |
2088 specSelector isNil ifTrue: [updateBlock value. ^self]. |
2091 |
2089 |
2092 list := nil. |
2090 list := nil. |
2481 super initialize. |
2479 super initialize. |
2482 |
2480 |
2483 selectedColumnIndex := 0. |
2481 selectedColumnIndex := 0. |
2484 columns := OrderedCollection new. |
2482 columns := OrderedCollection new. |
2485 modalOpened := false. |
2483 modalOpened := false. |
2486 noteBook := SubCanvas new. |
2484 noteBook := View new. |
|
2485 |
|
2486 listOfSpecViews := Array new:(1 + self class slices size). |
|
2487 listOfSpecViews at:1 put:(View origin:0.0@0.0 corner:1.0@1.0 in:noteBook). |
2487 |
2488 |
2488 ! ! |
2489 ! ! |
2489 |
2490 |
2490 !DataSetBuilder methodsFor:'private'! |
2491 !DataSetBuilder methodsFor:'private'! |
2491 |
2492 |
2595 ! |
2596 ! |
2596 |
2597 |
2597 tabSelection:something |
2598 tabSelection:something |
2598 "changes selected tab and set corresponding specification" |
2599 "changes selected tab and set corresponding specification" |
2599 |
2600 |
2600 |specSelector| |
2601 |specSelector view spec| |
2601 |
2602 |
2602 something == tabSelection ifTrue:[^self]. |
2603 something == tabSelection ifTrue:[^self]. |
2603 |
2604 |
2604 self selectedColumn isNil ifTrue:[ |
2605 self selectedColumn isNil ifTrue:[ |
2605 tabSelection == 0 ifTrue:[^self]. |
2606 tabSelection == 0 ifTrue:[^self]. |
2606 tabSelection := 0 |
2607 tabSelection := 0 |
2607 ] ifFalse:[ |
2608 ] ifFalse:[ |
2608 (tabSelection := something) ~~ 0 ifTrue:[ |
2609 tabSelection := something. |
2609 specSelector := (self class slices at:tabSelection) last |
|
2610 ] |
|
2611 ]. |
2610 ]. |
2612 noteBook client:self spec:specSelector builder:builder. |
2611 view := listOfSpecViews at:(tabSelection + 1). |
|
2612 |
|
2613 view isNil ifTrue:[ |
|
2614 view := View origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
|
2615 specSelector := (self class slices at:tabSelection) last. |
|
2616 spec := self class interfaceSpecFor:specSelector. |
|
2617 self builder buildFromSpec:spec in:view. |
|
2618 |
|
2619 noteBook realized ifTrue:[ |
|
2620 noteBook realizeAllSubViews |
|
2621 ]. |
|
2622 listOfSpecViews at:(tabSelection + 1) put:view. |
|
2623 ]. |
|
2624 view raise. |
2613 ! ! |
2625 ! ! |
2614 |
2626 |
2615 !DataSetBuilder methodsFor:'startup / release'! |
2627 !DataSetBuilder methodsFor:'startup / release'! |
2616 |
2628 |
2617 openModal |
2629 openModal |