equal
deleted
inserted
replaced
3337 |
3337 |
3338 ((v := self detectViewAt:aPoint ignoreInvisible:true) notNil |
3338 ((v := self detectViewAt:aPoint ignoreInvisible:true) notNil |
3339 and:[v ~~ self]) |
3339 and:[v ~~ self]) |
3340 ifTrue:[ |
3340 ifTrue:[ |
3341 p := device translatePoint:aPoint fromView:self toView:v. |
3341 p := device translatePoint:aPoint fromView:self toView:v. |
3342 |
3342 "/ simulate clicking into the editor |
3343 self sensor pushEvent:(WindowEvent buttonEvent |
3343 self sensor pushEvent:(WindowEvent buttonPress:#select x:p x y:p y view:v) |
3344 for:v |
|
3345 type:#buttonPress:x:y: |
|
3346 arguments:(Array with:#select with:p x with:p y) |
|
3347 ) |
|
3348 ]. |
3344 ]. |
3349 ! |
3345 ! |
3350 |
3346 |
3351 selectRowIndex:something |
3347 selectRowIndex:something |
3352 "set selection of rows |
3348 "set selection of rows |
3630 ! ! |
3626 ! ! |
3631 |
3627 |
3632 !DSVColumnView class methodsFor:'documentation'! |
3628 !DSVColumnView class methodsFor:'documentation'! |
3633 |
3629 |
3634 version |
3630 version |
3635 ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.138 2002-05-07 14:07:09 penk Exp $' |
3631 ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.139 2002-08-02 12:00:55 ca Exp $' |
3636 ! ! |
3632 ! ! |