equal
deleted
inserted
replaced
2516 |timedOut sensor| |
2516 |timedOut sensor| |
2517 |
2517 |
2518 "/ Processor yield. |
2518 "/ Processor yield. |
2519 |
2519 |
2520 sensor := self windowGroup sensor. |
2520 sensor := self windowGroup sensor. |
2521 (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[ |
2521 (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[ |
|
2522 Processor yield. |
|
2523 |
2522 "/ no update while scrolling |
2524 "/ no update while scrolling |
2523 timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime) ) isNil. |
2525 timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime) ) isNil. |
2524 timedOut ifFalse:[changeSema signal]. |
2526 timedOut ifFalse:[changeSema signal]. |
2525 ^ self |
2527 ^ self |
2526 ]. |
2528 ]. |
2545 self updateWithTimeout:timedOut. |
2547 self updateWithTimeout:timedOut. |
2546 ]. |
2548 ]. |
2547 "/ ]. |
2549 "/ ]. |
2548 ]. |
2550 ]. |
2549 |
2551 |
2550 "Modified: / 02-11-2007 / 13:08:37 / cg" |
2552 "Modified: / 09-07-2010 / 19:43:12 / cg" |
2551 ! |
2553 ! |
2552 |
2554 |
2553 updateWithTimeout:timeOut |
2555 updateWithTimeout:timeOut |
2554 |
2556 |
2555 "/ Transcript showCR:'START'. |
2557 "/ Transcript showCR:'START'. |
3314 ! ! |
3316 ! ! |
3315 |
3317 |
3316 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3318 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3317 |
3319 |
3318 version |
3320 version |
3319 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.232 2010-02-02 14:20:10 cg Exp $' |
3321 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.233 2010-07-09 18:02:53 cg Exp $' |
3320 ! |
3322 ! |
3321 |
3323 |
3322 version_CVS |
3324 version_CVS |
3323 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.232 2010-02-02 14:20:10 cg Exp $' |
3325 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.233 2010-07-09 18:02:53 cg Exp $' |
3324 ! ! |
3326 ! ! |