equal
deleted
inserted
replaced
2523 (cls := self resolveClassNamed) notNil |
2523 (cls := self resolveClassNamed) notNil |
2524 ifTrue: |
2524 ifTrue: |
2525 [ |
2525 [ |
2526 rowSuperClass := cls superclass name asString |
2526 rowSuperClass := cls superclass name asString |
2527 ]. |
2527 ]. |
2528 aspects at:#classNameChannel put:rowClass asValue |
2528 aspects at:#classNameChannel put:(ValueHolder with:rowClass) |
2529 ] |
2529 ] |
2530 ifFalse: |
2530 ifFalse: |
2531 [ |
2531 [ |
2532 aspects at:#classNameChannel put:'DSVRow' asValue |
2532 aspects at:#classNameChannel put:(ValueHolder with:'DSVRow') |
2533 ]. |
2533 ]. |
2534 |
2534 |
2535 rowSuperClass notNil |
2535 rowSuperClass notNil |
2536 ifTrue: [aspects at:#superclassNameChannel put:rowSuperClass asValue] |
2536 ifTrue: [aspects at:#superclassNameChannel put:(ValueHolder with:rowSuperClass)] |
2537 ifFalse:[aspects at:#superclassNameChannel put:'Object' asValue]. |
2537 ifFalse:[aspects at:#superclassNameChannel put:(ValueHolder with:'Object')]. |
2538 |
2538 |
2539 (self openDialogInterface:#defineClassNameSpec withBindings:aspects) |
2539 (self openDialogInterface:#defineClassNameSpec withBindings:aspects) |
2540 ifFalse: |
2540 ifFalse: |
2541 [ |
2541 [ |
2542 rowClass := oldClass. |
2542 rowClass := oldClass. |
2577 |
2577 |
2578 rowSuperClass := cls |
2578 rowSuperClass := cls |
2579 ] |
2579 ] |
2580 ] |
2580 ] |
2581 ] |
2581 ] |
|
2582 |
|
2583 "Modified: / 21.5.1998 / 03:08:42 / cg" |
2582 ! |
2584 ! |
2583 |
2585 |
2584 doDelete |
2586 doDelete |
2585 "remove selected column and put it to the clipboard" |
2587 "remove selected column and put it to the clipboard" |
2586 |
2588 |