changeset 2704 | 0791984eef02 |
parent 2701 | 5abe05ebb370 |
child 2707 | 6610854318eb |
2703:3ea780aba713 | 2704:0791984eef02 |
---|---|
5974 |
5974 |
5975 self grabScreenImageUsing:[ |
5975 self grabScreenImageUsing:[ |
5976 |v| |
5976 |v| |
5977 |
5977 |
5978 (v := Screen current viewFromUser) notNil ifTrue:[ |
5978 (v := Screen current viewFromUser) notNil ifTrue:[ |
5979 v topView raise. |
|
5980 v topView makeFullyVisible. |
|
5981 Delay waitForSeconds:0.5. "/ give view a chance to redraw itself. |
|
5979 Image fromView:(v topView) |
5982 Image fromView:(v topView) |
5980 ]. |
5983 ]. |
5981 ]. |
5984 ]. |
5982 ! |
5985 ! |
5983 |
5986 |