equal
deleted
inserted
replaced
1008 " |
1008 " |
1009 |idx| |
1009 |idx| |
1010 |
1010 |
1011 (idx := selectedColumnIndex) ~~ 0 ifTrue:[ |
1011 (idx := selectedColumnIndex) ~~ 0 ifTrue:[ |
1012 self selectedColumnModel value:0. |
1012 self selectedColumnModel value:0. |
|
1013 columns removeIndex:idx. |
1013 self seqList removeIndex:idx. |
1014 self seqList removeIndex:idx. |
|
1015 self updateColumnView. |
1014 ]. |
1016 ]. |
1015 ! |
1017 ! |
1016 |
1018 |
1017 doDefineClass |
1019 doDefineClass |
1018 "launch a dialog to define class and superclass |
1020 "launch a dialog to define class and superclass |