equal
deleted
inserted
replaced
3244 and:[(sel := aColumn printSelector) notNil |
3244 and:[(sel := aColumn printSelector) notNil |
3245 and:[(aClass includesSelector:sel) not]] |
3245 and:[(aClass includesSelector:sel) not]] |
3246 ) ifTrue:[ |
3246 ) ifTrue:[ |
3247 |numArgs bcode keys| |
3247 |numArgs bcode keys| |
3248 bcode := sel asString. |
3248 bcode := sel asString. |
3249 numArgs := sel numArgs. |
3249 numArgs := sel argumentCount. |
3250 |
3250 |
3251 numArgs ~~ 0 ifTrue:[ |
3251 numArgs ~~ 0 ifTrue:[ |
3252 numArgs == 1 ifTrue:[ |
3252 numArgs == 1 ifTrue:[ |
3253 bcode := bcode, 'aGC' |
3253 bcode := bcode, 'aGC' |
3254 ] ifFalse:[ |
3254 ] ifFalse:[ |
3285 ifTrue: |
3285 ifTrue: |
3286 [ |
3286 [ |
3287 |selName| |
3287 |selName| |
3288 selName := sel asString. |
3288 selName := sel asString. |
3289 |
3289 |
3290 sel numArgs == 0 |
3290 sel argumentCount == 0 |
3291 ifTrue: [bCode := selName, code] |
3291 ifTrue: [bCode := selName, code] |
3292 ifFalse:[bCode := selName, 'anIndex\', code]. |
3292 ifFalse:[bCode := selName, 'anIndex\', code]. |
3293 aColumn rendererType == #CheckToggle |
3293 aColumn rendererType == #CheckToggle |
3294 ifFalse:[bCode := bCode, ' ^ ''', selName, ''''] |
3294 ifFalse:[bCode := bCode, ' ^ ''', selName, ''''] |
3295 ifTrue: [bCode := bCode, ' ^true']. |
3295 ifTrue: [bCode := bCode, ' ^true']. |
3392 , ' "automatically generated by DataSetBuilder ..."\' |
3392 , ' "automatically generated by DataSetBuilder ..."\' |
3393 , '\' |
3393 , '\' |
3394 , ' "set value"\' |
3394 , ' "set value"\' |
3395 . |
3395 . |
3396 |
3396 |
3397 columns do: |
3397 columns do:[:aColumn| |
3398 [:aColumn| |
|
3399 ((sel := aColumn writeSelector) notNil |
3398 ((sel := aColumn writeSelector) notNil |
3400 and:[aColumn editorType ~~ #None |
3399 and:[aColumn editorType ~~ #None |
3401 and:[aColumn canSelect |
3400 and:[aColumn canSelect |
3402 and:[(aClass includesSelector:sel) not]]]) |
3401 and:[(aClass includesSelector:sel) not]]] |
3403 ifTrue: |
3402 ) ifTrue: [ |
3404 [ |
3403 sel argumentCount == 1 ifTrue:[ |
3405 sel numArgs == 1 |
|
3406 ifTrue: |
|
3407 [ |
|
3408 bCode := sel asString |
3404 bCode := sel asString |
3409 ] |
3405 ] ifFalse:[ |
3410 ifFalse: |
|
3411 [ |
|
3412 sz := sel indexOf:$:. |
3406 sz := sel indexOf:$:. |
3413 bCode := sel copyTo:sz. |
3407 bCode := sel copyTo:sz. |
3414 bCode := bCode, 'anIndex ', (sel copyFrom:sz + 1) |
3408 bCode := bCode, 'anIndex ', (sel copyFrom:sz + 1) |
3415 ]. |
3409 ]. |
3416 self compile:(bCode, code) forClass:aClass inCategory:catg |
3410 self compile:(bCode, code) forClass:aClass inCategory:catg |