equal
deleted
inserted
replaced
2499 ! |
2499 ! |
2500 |
2500 |
2501 updateStep |
2501 updateStep |
2502 |timedOut sensor| |
2502 |timedOut sensor| |
2503 |
2503 |
|
2504 Processor yield. |
|
2505 |
2504 sensor := self windowGroup sensor. |
2506 sensor := self windowGroup sensor. |
2505 (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[ |
2507 (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[ |
2506 "/ no update while scrolling |
2508 "/ no update while scrolling |
2507 timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime) ) isNil. |
2509 timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime) ) isNil. |
2508 timedOut ifFalse:[changeSema signal]. |
2510 timedOut ifFalse:[changeSema signal]. |
2529 self updateWithTimeout:timedOut. |
2531 self updateWithTimeout:timedOut. |
2530 ]. |
2532 ]. |
2531 "/ ]. |
2533 "/ ]. |
2532 ]. |
2534 ]. |
2533 |
2535 |
2534 "Modified: / 12-12-2006 / 18:07:42 / cg" |
2536 "Modified: / 02-11-2007 / 13:08:37 / cg" |
2535 ! |
2537 ! |
2536 |
2538 |
2537 updateWithTimeout:timeOut |
2539 updateWithTimeout:timeOut |
2538 |
2540 |
2539 "/ Transcript showCR:'START'. |
2541 "/ Transcript showCR:'START'. |
3261 ! ! |
3263 ! ! |
3262 |
3264 |
3263 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3265 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3264 |
3266 |
3265 version |
3267 version |
3266 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.207 2007-10-01 17:29:45 cg Exp $' |
3268 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.208 2007-11-02 14:17:16 cg Exp $' |
3267 ! ! |
3269 ! ! |