changeset 174 | 0e87610c2768 |
parent 173 | a8468f4e83f0 |
child 176 | a9e5b1615761 |
173:a8468f4e83f0 | 174:0e87610c2768 |
---|---|
1439 ^ self |
1439 ^ self |
1440 ] |
1440 ] |
1441 ]. |
1441 ]. |
1442 |
1442 |
1443 (view := Screen current viewFromUser) notNil ifTrue:[ |
1443 (view := Screen current viewFromUser) notNil ifTrue:[ |
1444 view device == Screen current ifTrue:[ |
1444 view == Screen current rootView ifFalse:[ |
1445 ^ self |
1445 painter := self painter. |
1446 ]. |
1446 spec := UISpecification fromView:view topView. |
1447 |
1447 |
1448 painter := self painter. |
1448 "/ ok, got it |
1449 |
1449 painter setupFromSpec:spec. |
1450 spec := UISpecification fromView:view topView. |
1450 painter className:view class name. |
1451 |
1451 painter methodName:#newSpec. |
1452 "/ ok, got it |
1452 ] |
1453 painter setupFromSpec:spec. |
|
1454 painter className:view class name. |
|
1455 painter methodName:#newSpec. |
|
1456 ] |
1453 ] |
1457 |
|
1458 "Modified: 17.6.1997 / 12:33:23 / cg" |
|
1459 ! |
1454 ! |
1460 |
1455 |
1461 doRaise |
1456 doRaise |
1462 |top x| |
1457 |top x| |
1463 |
1458 |