equal
deleted
inserted
replaced
2019 |
2019 |
2020 super update:something with:aParameter from:someObject. |
2020 super update:something with:aParameter from:someObject. |
2021 |
2021 |
2022 self columnIsNotEditing value: false |
2022 self columnIsNotEditing value: false |
2023 |
2023 |
|
2024 "Modified: / 27.10.1998 / 14:41:44 / cg" |
2024 ! ! |
2025 ! ! |
2025 |
2026 |
2026 !DataSetBuilder methodsFor:'code generation'! |
2027 !DataSetBuilder methodsFor:'code generation'! |
2027 |
2028 |
2028 compile:aCode forClass:aClass inCategory:aCategory |
2029 compile:aCode forClass:aClass inCategory:aCategory |
2403 |size| |
2404 |size| |
2404 |
2405 |
2405 columnView notNil ifTrue:[ |
2406 columnView notNil ifTrue:[ |
2406 |previewColumns columnItems columnList| |
2407 |previewColumns columnItems columnList| |
2407 columnList := List new. |
2408 columnList := List new. |
2408 previewColumns := columns copy. |
2409 previewColumns := columns deepCopy. |
2409 size := previewColumns size. |
2410 size := previewColumns size. |
2410 |
2411 |
2411 size ~~ 0 ifTrue:[ |
2412 size ~~ 0 ifTrue:[ |
2412 previewColumns keysAndValuesDo:[:anIndex :column| |
2413 previewColumns keysAndValuesDo:[:anIndex :column| |
2413 column readSelector: #at:; |
2414 column readSelector: #at:; |
2432 ]. |
2433 ]. |
2433 columnView list: #(). |
2434 columnView list: #(). |
2434 columnView columnDescriptors: previewColumns. |
2435 columnView columnDescriptors: previewColumns. |
2435 columnView list: columnList. |
2436 columnView list: columnList. |
2436 ] |
2437 ] |
|
2438 |
|
2439 "Modified: / 27.10.1998 / 14:41:16 / cg" |
2437 ! |
2440 ! |
2438 |
2441 |
2439 updateInputFields |
2442 updateInputFields |
2440 "reloads item value into input fields" |
2443 "reloads item value into input fields" |
2441 |
2444 |
2567 "remove all changes and reload selected column values" |
2570 "remove all changes and reload selected column values" |
2568 |
2571 |
2569 self updateInputFields. |
2572 self updateInputFields. |
2570 self valueOfEnablingCommitButtons value:false. |
2573 self valueOfEnablingCommitButtons value:false. |
2571 self columnIsNotEditing value: true. |
2574 self columnIsNotEditing value: true. |
|
2575 |
|
2576 "Modified: / 27.10.1998 / 14:41:41 / cg" |
2572 ! |
2577 ! |
2573 |
2578 |
2574 doBrowseRowClass |
2579 doBrowseRowClass |
2575 "browse class of columns spec" |
2580 "browse class of columns spec" |
2576 |
2581 |