equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
768 |
766 |
769 maxExtent:max |
767 maxExtent:max |
770 "define the maximum extent the view may have - |
768 "define the maximum extent the view may have - |
771 depends on good-will of window manager" |
769 depends on good-will of window manager" |
772 |
770 |
|
771 |id| |
|
772 |
773 maxExtent ~= max ifTrue:[ |
773 maxExtent ~= max ifTrue:[ |
774 maxExtent := max. |
774 maxExtent := max. |
775 maxExtent x isNil ifTrue:[ |
775 maxExtent x isNil ifTrue:[ |
776 maxExtent := 99999 @ maxExtent y. |
776 maxExtent := 99999 @ maxExtent y. |
777 ]. |
777 ]. |
778 maxExtent y isNil ifTrue:[ |
778 maxExtent y isNil ifTrue:[ |
779 maxExtent := maxExtent x @ 99999. |
779 maxExtent := maxExtent x @ 99999. |
780 ]. |
780 ]. |
781 |
781 |
782 self drawableId notNil ifTrue:[ |
782 (id := self drawableId) notNil ifTrue:[ |
783 self graphicsDevice setWindowMinExtent:nil maxExtent:max in:self drawableId |
783 self graphicsDevice setWindowMinExtent:nil maxExtent:max in:id |
784 ]. |
784 ]. |
785 |
785 |
786 "/ if my current extent is larger than the new |
786 "/ if my current extent is larger than the new |
787 "/ maxExtent, adjust. |
787 "/ maxExtent, adjust. |
788 |
788 |
803 |
803 |
804 minExtent:min |
804 minExtent:min |
805 "define the minimum extent the view may have - |
805 "define the minimum extent the view may have - |
806 depends on good-will of window manager" |
806 depends on good-will of window manager" |
807 |
807 |
|
808 |id| |
|
809 |
808 minExtent ~= min ifTrue:[ |
810 minExtent ~= min ifTrue:[ |
809 minExtent := min. |
811 minExtent := min. |
810 self drawableId notNil ifTrue:[ |
812 (id := self drawableId) notNil ifTrue:[ |
811 self graphicsDevice setWindowMinExtent:min maxExtent:nil in:self drawableId |
813 self graphicsDevice setWindowMinExtent:min maxExtent:nil in:id |
812 ]. |
814 ]. |
813 |
815 |
814 "/ if my current extent is smaller than the new |
816 "/ if my current extent is smaller than the new |
815 "/ minExtent, adjust. |
817 "/ minExtent, adjust. |
816 |
818 |
1715 ! ! |
1717 ! ! |
1716 |
1718 |
1717 !StandardSystemView class methodsFor:'documentation'! |
1719 !StandardSystemView class methodsFor:'documentation'! |
1718 |
1720 |
1719 version |
1721 version |
1720 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.233 2015-05-22 19:16:01 cg Exp $' |
1722 ^ '$Header$' |
1721 ! |
1723 ! |
1722 |
1724 |
1723 version_CVS |
1725 version_CVS |
1724 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.233 2015-05-22 19:16:01 cg Exp $' |
1726 ^ '$Header$' |
1725 ! ! |
1727 ! ! |
1726 |
1728 |
1727 |
1729 |
1728 StandardSystemView initialize! |
1730 StandardSystemView initialize! |