# HG changeset patch # User Claus Gittinger # Date 1566803325 -7200 # Node ID aa07806d6a5a76869961b4562d2b5cae833c1f11 # Parent 92077573d5c48402d26e09e724a768432c0303c2 #BUGFIX by exept class: Tools::ViewTreeInspectorApplication::ViewTreeModel changed: #do: #from:do: #from:to:do: #reverseDo: diff -r 92077573d5c4 -r aa07806d6a5a Tools__ViewTreeApplication.st --- a/Tools__ViewTreeApplication.st Sun Aug 25 14:52:54 2019 +0200 +++ b/Tools__ViewTreeApplication.st Mon Aug 26 09:08:45 2019 +0200 @@ -4413,8 +4413,9 @@ |keptSelection| "/ the selection may change at any time (may it?) - (keptSelection := selection) isNil ifTrue:[^ nil]. - keptSelection do:aOneArgBlock + (keptSelection := selection) notNil ifTrue:[ + keptSelection do:aOneArgBlock + ]. "Modified (format): / 12-02-2017 / 11:53:23 / cg" ! @@ -4425,9 +4426,10 @@ |keptSelection| "/ the selection may change at any time (may it?) - (keptSelection := selection) isNil ifTrue:[^ nil]. - "/ but if so, then start may no longer be valid here?? - keptSelection from:start do:aOneArgBlock + (keptSelection := selection) notNil ifTrue:[ + "/ but if so, then start may no longer be valid here?? + keptSelection from:start do:aOneArgBlock + ]. "Modified (comment): / 12-02-2017 / 11:52:57 / cg" ! @@ -4439,9 +4441,10 @@ |keptSelection| "/ the selection may change at any time (may it?) - (keptSelection := selection) isNil ifTrue:[^ nil]. - "/ but if so, then start and stop may no longer be valid here?? - keptSelection from:start to:stop do:aOneArgBlock + (keptSelection := selection) notNil ifTrue:[ + "/ but if so, then start and stop may no longer be valid here?? + keptSelection from:start to:stop do:aOneArgBlock + ]. "Modified (comment): / 12-02-2017 / 11:52:25 / cg" ! @@ -4452,8 +4455,9 @@ |keptSelection| "/ the selection may change at any time (may it?) - (keptSelection := selection) isNil ifTrue:[^ nil]. - keptSelection reverseDo:aOneArgBlock + (keptSelection := selection) notNil ifTrue:[ + keptSelection reverseDo:aOneArgBlock + ]. "Modified: / 12-02-2017 / 11:50:02 / cg" !