equal
deleted
inserted
replaced
2292 self helpTool helpKey: self helpKey. |
2292 self helpTool helpKey: self helpKey. |
2293 "Next line helps me to preserve myself against unnecessary settings of |
2293 "Next line helps me to preserve myself against unnecessary settings of |
2294 valueOfEnablingCommitButtons to true in the help tool." |
2294 valueOfEnablingCommitButtons to true in the help tool." |
2295 |
2295 |
2296 self valueOfEnablingCommitButtons value: false. |
2296 self valueOfEnablingCommitButtons value: false. |
2297 self clearModifiedFlag. |
2297 self modifiedChannel value: false. |
2298 |
2298 |
2299 slc ~= slices ifTrue:[ |
2299 slc ~= slices ifTrue:[ |
2300 tabSelection ~~ 0 ifTrue:[ |
2300 tabSelection ~~ 0 ifTrue:[ |
2301 old := (slices at:tabSelection) first |
2301 old := (slices at:tabSelection) first |
2302 ]. |
2302 ]. |