equal
deleted
inserted
replaced
1451 keyPress:key x:x y:y |
1451 keyPress:key x:x y:y |
1452 "handle keyboard input" |
1452 "handle keyboard input" |
1453 |
1453 |
1454 <resource: #keyboard ( #CursorLeft #CursorRight ) > |
1454 <resource: #keyboard ( #CursorLeft #CursorRight ) > |
1455 |
1455 |
1456 |idx node inc end| |
1456 |node| |
1457 |
1457 |
1458 enabled ifFalse:[ |
1458 enabled ifFalse:[ |
1459 ^ self |
1459 ^ self |
1460 ]. |
1460 ]. |
1461 |
1461 |
2367 ] |
2367 ] |
2368 ] |
2368 ] |
2369 ! |
2369 ! |
2370 |
2370 |
2371 selectedNodeBecomeChildOfPrevious |
2371 selectedNodeBecomeChildOfPrevious |
2372 "make the selected node a child of the previous node |
2372 "make the selected node a child of the previous node" |
2373 " |
2373 |
2374 |idx node cprt nprt| |
2374 |idx node cprt nprt| |
2375 |
2375 |
2376 ((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[ |
2376 ((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[ |
2377 idx := cprt indexOfChild:node. |
2377 idx := cprt indexOfChild:node. |
2378 |
2378 |
2439 ifFalse:[model doCollapse:node] |
2439 ifFalse:[model doCollapse:node] |
2440 ] |
2440 ] |
2441 ! |
2441 ! |
2442 |
2442 |
2443 selectedNodesBecomeChildrenOfNext |
2443 selectedNodesBecomeChildrenOfNext |
2444 "make the selected nodes children of the next node |
2444 "make the selected nodes children of the next node" |
2445 " |
2445 |
2446 |indices maxIndex nodes parent newParent| |
2446 |indices maxIndex nodes newParent| |
2447 |
2447 |
2448 nodes := self selectedNodes. |
2448 nodes := self selectedNodes. |
2449 nodes size == 0 ifTrue:[^ self]. |
2449 nodes size == 0 ifTrue:[^ self]. |
2450 |
2450 |
2451 indices := nodes collect:[:eachNode | listOfNodes identityIndexOf:eachNode]. |
2451 indices := nodes collect:[:eachNode | listOfNodes identityIndexOf:eachNode]. |
2502 ! ! |
2502 ! ! |
2503 |
2503 |
2504 !SelectionInTreeView class methodsFor:'documentation'! |
2504 !SelectionInTreeView class methodsFor:'documentation'! |
2505 |
2505 |
2506 version |
2506 version |
2507 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.116 2013-06-25 21:22:30 cg Exp $' |
2507 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.117 2013-06-26 08:20:52 stefan Exp $' |
2508 ! |
2508 ! |
2509 |
2509 |
2510 version_CVS |
2510 version_CVS |
2511 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.116 2013-06-25 21:22:30 cg Exp $' |
2511 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.117 2013-06-26 08:20:52 stefan Exp $' |
2512 ! ! |
2512 ! ! |
2513 |
2513 |