equal
deleted
inserted
replaced
20 |
20 |
21 DisplayMedium comment:' |
21 DisplayMedium comment:' |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libview/Attic/DisplayMedium.st,v 1.8 1994-11-17 14:24:54 claus Exp $ |
25 $Header: /cvs/stx/stx/libview/Attic/DisplayMedium.st,v 1.9 1995-02-06 00:35:42 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !DisplayMedium class methodsFor:'documentation'! |
28 !DisplayMedium class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libview/Attic/DisplayMedium.st,v 1.8 1994-11-17 14:24:54 claus Exp $ |
46 $Header: /cvs/stx/stx/libview/Attic/DisplayMedium.st,v 1.9 1995-02-06 00:35:42 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
71 width := 0. |
71 width := 0. |
72 height := 0 |
72 height := 0 |
73 ! ! |
73 ! ! |
74 |
74 |
75 !DisplayMedium methodsFor:'accessing'! |
75 !DisplayMedium methodsFor:'accessing'! |
|
76 |
|
77 isView |
|
78 "return true, if the receiver is a view" |
|
79 |
|
80 ^ false |
|
81 ! |
76 |
82 |
77 origin |
83 origin |
78 "return the origin i.e. coordinate of top-left of the receiver" |
84 "return the origin i.e. coordinate of top-left of the receiver" |
79 |
85 |
80 ^ 0 @ 0 |
86 ^ 0 @ 0 |
130 height := anInteger |
136 height := anInteger |
131 ! |
137 ! |
132 |
138 |
133 width:w height:h |
139 width:w height:h |
134 "set both width and height of the receiver" |
140 "set both width and height of the receiver" |
|
141 |
|
142 width := w. |
|
143 height := h |
|
144 ! |
|
145 |
|
146 setWidth:w height:h |
|
147 "set both width and height - not to be redefined" |
135 |
148 |
136 width := w. |
149 width := w. |
137 height := h |
150 height := h |
138 ! |
151 ! |
139 |
152 |