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 |
766 |
764 |
767 maxExtent:max |
765 maxExtent:max |
768 "define the maximum extent the view may have - |
766 "define the maximum extent the view may have - |
769 depends on good-will of window manager" |
767 depends on good-will of window manager" |
770 |
768 |
|
769 |id| |
|
770 |
771 maxExtent ~= max ifTrue:[ |
771 maxExtent ~= max ifTrue:[ |
772 maxExtent := max. |
772 maxExtent := max. |
773 maxExtent x isNil ifTrue:[ |
773 maxExtent x isNil ifTrue:[ |
774 maxExtent := 99999 @ maxExtent y. |
774 maxExtent := 99999 @ maxExtent y. |
775 ]. |
775 ]. |
776 maxExtent y isNil ifTrue:[ |
776 maxExtent y isNil ifTrue:[ |
777 maxExtent := maxExtent x @ 99999. |
777 maxExtent := maxExtent x @ 99999. |
778 ]. |
778 ]. |
779 |
779 |
780 self drawableId notNil ifTrue:[ |
780 (id := self drawableId) notNil ifTrue:[ |
781 self graphicsDevice setWindowMinExtent:nil maxExtent:max in:self drawableId |
781 self graphicsDevice setWindowMinExtent:nil maxExtent:max in:id |
782 ]. |
782 ]. |
783 |
783 |
784 "/ if my current extent is larger than the new |
784 "/ if my current extent is larger than the new |
785 "/ maxExtent, adjust. |
785 "/ maxExtent, adjust. |
786 |
786 |
801 |
801 |
802 minExtent:min |
802 minExtent:min |
803 "define the minimum extent the view may have - |
803 "define the minimum extent the view may have - |
804 depends on good-will of window manager" |
804 depends on good-will of window manager" |
805 |
805 |
|
806 |id| |
|
807 |
806 minExtent ~= min ifTrue:[ |
808 minExtent ~= min ifTrue:[ |
807 minExtent := min. |
809 minExtent := min. |
808 self drawableId notNil ifTrue:[ |
810 (id := self drawableId) notNil ifTrue:[ |
809 self graphicsDevice setWindowMinExtent:min maxExtent:nil in:self drawableId |
811 self graphicsDevice setWindowMinExtent:min maxExtent:nil in:id |
810 ]. |
812 ]. |
811 |
813 |
812 "/ if my current extent is smaller than the new |
814 "/ if my current extent is smaller than the new |
813 "/ minExtent, adjust. |
815 "/ minExtent, adjust. |
814 |
816 |
1752 ! ! |
1754 ! ! |
1753 |
1755 |
1754 !StandardSystemView class methodsFor:'documentation'! |
1756 !StandardSystemView class methodsFor:'documentation'! |
1755 |
1757 |
1756 version |
1758 version |
1757 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.233 2015-05-22 19:16:01 cg Exp $' |
1759 ^ '$Header$' |
1758 ! |
1760 ! |
1759 |
1761 |
1760 version_CVS |
1762 version_CVS |
1761 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.233 2015-05-22 19:16:01 cg Exp $' |
1763 ^ '$Header$' |
1762 ! ! |
1764 ! ! |
1763 |
1765 |
1764 |
1766 |
1765 StandardSystemView initialize! |
1767 StandardSystemView initialize! |