equal
deleted
inserted
replaced
2061 ! |
2061 ! |
2062 |
2062 |
2063 columnIsNotEditing |
2063 columnIsNotEditing |
2064 "returns a boolean value holder which is set to true if column is not editing" |
2064 "returns a boolean value holder which is set to true if column is not editing" |
2065 |
2065 |
2066 ^builder valueAspectFor:#columnIsNotEditing initialValue: true |
2066 |holder| |
2067 |
2067 |
2068 |
2068 (holder := builder bindingAt:#columnIsNotEditing) isNil ifTrue:[ |
|
2069 holder := BlockValue forLogicalNot:(self modifiedChannel). |
|
2070 builder aspectAt:#columnIsNotEditing put:holder. |
|
2071 ]. |
|
2072 ^ holder |
2069 |
2073 |
2070 ! |
2074 ! |
2071 |
2075 |
2072 editorTypeList |
2076 editorTypeList |
2073 "generate list of supported editor types" |
2077 "generate list of supported editor types" |
2207 self updateInputFields. |
2211 self updateInputFields. |
2208 self updateInfoLabel. |
2212 self updateInfoLabel. |
2209 self updateHistory |
2213 self updateHistory |
2210 ]. |
2214 ]. |
2211 |
2215 |
2212 ! ! |
|
2213 |
|
2214 !DataSetBuilder methodsFor:'change & update'! |
|
2215 |
|
2216 update:something with:aParameter from:someObject |
|
2217 "one of my aspects has changed; update modified channel" |
|
2218 |
|
2219 super update:something with:aParameter from:someObject. |
|
2220 |
|
2221 self columnIsNotEditing value: false |
|
2222 |
|
2223 "Modified: / 27.10.1998 / 14:41:44 / cg" |
|
2224 ! ! |
2216 ! ! |
2225 |
2217 |
2226 !DataSetBuilder methodsFor:'code generation'! |
2218 !DataSetBuilder methodsFor:'code generation'! |
2227 |
2219 |
2228 compile:aCode forClass:aClass inCategory:aCategory |
2220 compile:aCode forClass:aClass inCategory:aCategory |
2651 ] ifFalse:[ |
2643 ] ifFalse:[ |
2652 aspects do:[:anAspect| anAspect value:'' ]. |
2644 aspects do:[:anAspect| anAspect value:'' ]. |
2653 aspects keysAndValuesDo:[:aKey :aModel | |
2645 aspects keysAndValuesDo:[:aKey :aModel | |
2654 aModel value:(column perform:aKey) withoutNotifying: self |
2646 aModel value:(column perform:aKey) withoutNotifying: self |
2655 ]. |
2647 ]. |
|
2648 |
|
2649 "/ REPALCE nil by empty string for specific inputFields without an adapter |
|
2650 #( #labelActionArgument #formatString #id ) do:[:aKey| |model| |
|
2651 model := aspects at:aKey. |
|
2652 model value isNil ifTrue:[model value:'' withoutNotifying: self] |
|
2653 ]. |
|
2654 |
2656 tabSelection == 0 ifTrue:[self tabModel value:1]. |
2655 tabSelection == 0 ifTrue:[self tabModel value:1]. |
2657 ]. |
2656 ]. |
2658 |
2657 |
2659 ! ! |
2658 ! ! |
2660 |
2659 |
2798 cancel |
2797 cancel |
2799 "remove all changes and reload selected column values" |
2798 "remove all changes and reload selected column values" |
2800 |
2799 |
2801 self updateInputFields. |
2800 self updateInputFields. |
2802 self valueOfEnablingCommitButtons value:false. |
2801 self valueOfEnablingCommitButtons value:false. |
2803 self columnIsNotEditing value: true. |
|
2804 self clearModifiedFlag. |
2802 self clearModifiedFlag. |
2805 self valueOfEnablingCommitButtons value:false. |
2803 self valueOfEnablingCommitButtons value:false. |
2806 |
2804 |
2807 "Modified: / 27.10.1998 / 14:41:41 / cg" |
2805 "Modified: / 27.10.1998 / 14:41:41 / cg" |
2808 ! |
2806 ! |