# HG changeset patch # User Stefan Vogel # Date 1033402637 -7200 # Node ID 65cec3d10fb1ed2419a8db142204d77bc20a2dac # Parent 8e2b53ecd71bdb030f7a9f2d4152bc27b6710137 Change sends to obsolete methods diff -r 8e2b53ecd71b -r 65cec3d10fb1 HierarchicalList.st --- a/HierarchicalList.st Sat Sep 28 08:24:24 2002 +0200 +++ b/HierarchicalList.st Mon Sep 30 18:17:17 2002 +0200 @@ -307,7 +307,7 @@ monitoringTask := nil. Object errorSignal handle:[:ex|]do:[ - task terminateWithAllSubprocesses. + task terminateWithAllSubprocessesInGroup. task waitUntilTerminated. ] ] @@ -363,5 +363,5 @@ !HierarchicalList class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.12 2002-09-26 18:49:13 penk Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.13 2002-09-30 16:17:17 stefan Exp $' ! ! diff -r 8e2b53ecd71b -r 65cec3d10fb1 MenuPanel.st --- a/MenuPanel.st Sat Sep 28 08:24:24 2002 +0200 +++ b/MenuPanel.st Mon Sep 30 18:17:17 2002 +0200 @@ -7242,21 +7242,21 @@ |task resp| activeMenu isNil ifTrue:[ - ^ false + ^ false ]. semaLock critical:[ - resp := activeMenu notNil. - - (task := scrollTask) notNil ifTrue:[ - scrollTask := nil. - - Error handle:[:ex| - ] do:[ - task terminateWithAllSubprocesses. - task waitUntilTerminated. - ]. - ]. - activeMenu := direction := nil. + resp := activeMenu notNil. + + (task := scrollTask) notNil ifTrue:[ + scrollTask := nil. + + Error handle:[:ex| + ] do:[ + task terminateWithAllSubprocessesInGroup. + task waitUntilTerminated. + ]. + ]. + activeMenu := direction := nil. ]. ^ resp ! ! @@ -7264,7 +7264,7 @@ !MenuPanel class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.328 2002-09-26 07:38:41 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.329 2002-09-30 16:17:03 stefan Exp $' ! ! MenuPanel initialize!