equal
deleted
inserted
replaced
7240 "stop scrolling; returns true if the scrolling was activated otherwise false |
7240 "stop scrolling; returns true if the scrolling was activated otherwise false |
7241 " |
7241 " |
7242 |task resp| |
7242 |task resp| |
7243 |
7243 |
7244 activeMenu isNil ifTrue:[ |
7244 activeMenu isNil ifTrue:[ |
7245 ^ false |
7245 ^ false |
7246 ]. |
7246 ]. |
7247 semaLock critical:[ |
7247 semaLock critical:[ |
7248 resp := activeMenu notNil. |
7248 resp := activeMenu notNil. |
7249 |
7249 |
7250 (task := scrollTask) notNil ifTrue:[ |
7250 (task := scrollTask) notNil ifTrue:[ |
7251 scrollTask := nil. |
7251 scrollTask := nil. |
7252 |
7252 |
7253 Error handle:[:ex| |
7253 Error handle:[:ex| |
7254 ] do:[ |
7254 ] do:[ |
7255 task terminateWithAllSubprocesses. |
7255 task terminateWithAllSubprocessesInGroup. |
7256 task waitUntilTerminated. |
7256 task waitUntilTerminated. |
7257 ]. |
7257 ]. |
7258 ]. |
7258 ]. |
7259 activeMenu := direction := nil. |
7259 activeMenu := direction := nil. |
7260 ]. |
7260 ]. |
7261 ^ resp |
7261 ^ resp |
7262 ! ! |
7262 ! ! |
7263 |
7263 |
7264 !MenuPanel class methodsFor:'documentation'! |
7264 !MenuPanel class methodsFor:'documentation'! |
7265 |
7265 |
7266 version |
7266 version |
7267 ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.328 2002-09-26 07:38:41 cg Exp $' |
7267 ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.329 2002-09-30 16:17:03 stefan Exp $' |
7268 ! ! |
7268 ! ! |
7269 |
7269 |
7270 MenuPanel initialize! |
7270 MenuPanel initialize! |