equal
deleted
inserted
replaced
5602 |
5602 |
5603 extentUsed := self canvas extent. |
5603 extentUsed := self canvas extent. |
5604 (extentUsed > (1024 @ 768)) ifTrue:[ |
5604 (extentUsed > (1024 @ 768)) ifTrue:[ |
5605 Dialog |
5605 Dialog |
5606 warn:(resources |
5606 warn:(resources |
5607 stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too small on some displays - if required, resize and save again.' |
5607 stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too large for some displays - if required, resize and save again.' |
5608 with:extentUsed printString allBold) |
5608 with:extentUsed printString allBold) |
5609 ]. |
5609 ]. |
5610 (self canvas maxExtent notNil |
5610 (self canvas maxExtent notNil |
5611 and:[ extentUsed > self canvas maxExtent ]) ifTrue:[ |
5611 and:[ extentUsed > self canvas maxExtent ]) ifTrue:[ |
5612 Dialog |
5612 Dialog |