equal
deleted
inserted
replaced
2213 completionView hasSelection ifTrue:[ |
2213 completionView hasSelection ifTrue:[ |
2214 completionView sensor pushUserEvent:#value for:[ completionView keyPress:key x:0 y:0 ]. |
2214 completionView sensor pushUserEvent:#value for:[ completionView keyPress:key x:0 y:0 ]. |
2215 ^ true. |
2215 ^ true. |
2216 ] |
2216 ] |
2217 ]. |
2217 ]. |
2218 (key == #Control_L or:[ key == #Control_R or:[ key == #Control]]) ifFalse:[ |
2218 (key == #Control_L or:[ key == #Control_R or:[ key == #Control]]) ifTrue:[ |
|
2219 ^ false |
|
2220 ]. |
|
2221 (key == #Escape) ifTrue:[ |
2219 self closeCompletionView. |
2222 self closeCompletionView. |
2220 ]. |
2223 ^ true "/ EAT |
2221 ^ false |
2224 ]. |
|
2225 self closeCompletionView. |
|
2226 ^ false "/ don' eat |
2222 ]. |
2227 ]. |
2223 ]. |
2228 ]. |
2224 |
2229 |
2225 (key == #Escape) ifTrue:[ |
2230 (key == #Escape) ifTrue:[ |
2226 completionView notNil ifTrue:[ |
2231 completionView notNil ifTrue:[ |
2439 ] ifFalse:[ |
2444 ] ifFalse:[ |
2440 (actions at:indexInSuggestions) value |
2445 (actions at:indexInSuggestions) value |
2441 ]. |
2446 ]. |
2442 ]. |
2447 ]. |
2443 ]. |
2448 ]. |
2444 editView sensor |
2449 "/ no, user has chosen; so don't show more suggestions |
2445 pushUserEvent:#value |
2450 "/ editView sensor |
2446 for:[ |
2451 "/ pushUserEvent:#value |
2447 self updateCompletionList |
2452 "/ for:[ |
2448 ] |
2453 "/ self updateCompletionList |
|
2454 "/ ] |
2449 ]. |
2455 ]. |
2450 |
2456 |
2451 (top ~~ v) ifTrue:[ |
2457 (top ~~ v) ifTrue:[ |
2452 top resizeToFit. |
2458 top resizeToFit. |
2453 top bottom > v device usableHeight ifTrue:[ |
2459 top bottom > v device usableHeight ifTrue:[ |
2470 ! ! |
2476 ! ! |
2471 |
2477 |
2472 !Workspace class methodsFor:'documentation'! |
2478 !Workspace class methodsFor:'documentation'! |
2473 |
2479 |
2474 version |
2480 version |
2475 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.283 2013-09-01 12:01:55 cg Exp $' |
2481 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.284 2013-09-02 09:01:14 cg Exp $' |
2476 ! |
2482 ! |
2477 |
2483 |
2478 version_CVS |
2484 version_CVS |
2479 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.283 2013-09-01 12:01:55 cg Exp $' |
2485 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.284 2013-09-02 09:01:14 cg Exp $' |
2480 ! ! |
2486 ! ! |
2481 |
2487 |