equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
63 |
65 |
64 ! ! |
66 ! ! |
65 |
67 |
66 !VisualPart methodsFor:'accessing'! |
68 !VisualPart methodsFor:'accessing'! |
67 |
69 |
|
70 beInvisible |
|
71 self visibilityHolder value:false |
|
72 |
|
73 "Created: / 31-10-2018 / 12:37:46 / Claus Gittinger" |
|
74 ! |
|
75 |
|
76 beVisible |
|
77 self visibilityHolder value:true |
|
78 |
|
79 "Created: / 31-10-2018 / 12:37:39 / Claus Gittinger" |
|
80 ! |
|
81 |
68 container |
82 container |
69 "return my container" |
83 "return my container" |
70 |
84 |
71 ^ container |
85 ^ container |
72 |
86 |
78 "set container" |
92 "set container" |
79 |
93 |
80 container := something. |
94 container := something. |
81 |
95 |
82 "Created: 9.5.1996 / 00:31:41 / cg" |
96 "Created: 9.5.1996 / 00:31:41 / cg" |
|
97 ! |
|
98 |
|
99 drawableId |
|
100 "return the drawableId of where I am in" |
|
101 |
|
102 ^ container drawableId |
|
103 |
|
104 "Created: / 31-10-2018 / 12:36:40 / Claus Gittinger" |
83 ! |
105 ! |
84 |
106 |
85 extentHolder |
107 extentHolder |
86 ^ extentHolder |
108 ^ extentHolder |
87 ! |
109 ! |
91 extentHolder := something. |
113 extentHolder := something. |
92 extentHolder notNil ifTrue:[ extentHolder addDependent:self]. |
114 extentHolder notNil ifTrue:[ extentHolder addDependent:self]. |
93 ! |
115 ! |
94 |
116 |
95 graphicsContext |
117 graphicsContext |
96 "return the graphicsContext" |
118 "return the graphicsContext of where I am in" |
97 |
119 |
98 ^ container graphicsContext |
120 ^ container graphicsContext |
99 |
121 |
100 "Created: 9.5.1996 / 00:32:12 / cg" |
122 "Created: / 09-05-1996 / 00:32:12 / cg" |
101 "Modified: 9.5.1996 / 01:37:10 / cg" |
123 "Modified: / 09-05-1996 / 01:37:10 / cg" |
|
124 "Modified (comment): / 31-10-2018 / 12:36:48 / Claus Gittinger" |
102 ! |
125 ! |
103 |
126 |
104 graphicsDevice |
127 graphicsDevice |
105 "return the graphicsContext" |
128 "return the graphicsContext" |
106 |
129 |
146 "Created: 4.6.1996 / 21:32:34 / cg" |
169 "Created: 4.6.1996 / 21:32:34 / cg" |
147 "Modified: 5.6.1996 / 01:20:13 / cg" |
170 "Modified: 5.6.1996 / 01:20:13 / cg" |
148 ! |
171 ! |
149 |
172 |
150 visibilityHolder |
173 visibilityHolder |
|
174 visibilityHolder isNil ifTrue:[ |
|
175 visibilityHolder := true asValue. |
|
176 visibilityHolder addDependent:self. |
|
177 ]. |
151 ^ visibilityHolder |
178 ^ visibilityHolder |
152 ! |
179 |
153 |
180 "Modified: / 31-10-2018 / 12:38:51 / Claus Gittinger" |
154 visibilityHolder:something |
181 ! |
155 visibilityHolder removeDependent:self. |
182 |
156 visibilityHolder := something. |
183 visibilityHolder:newHolder |
|
184 visibilityHolder notNil ifTrue:[visibilityHolder removeDependent:self]. |
|
185 visibilityHolder := newHolder. |
157 visibilityHolder notNil ifTrue:[ visibilityHolder addDependent:self]. |
186 visibilityHolder notNil ifTrue:[ visibilityHolder addDependent:self]. |
|
187 |
|
188 "Modified: / 31-10-2018 / 12:38:17 / Claus Gittinger" |
158 ! ! |
189 ! ! |
159 |
190 |
160 !VisualPart methodsFor:'accessing-channels'! |
191 !VisualPart methodsFor:'accessing-channels'! |
161 |
192 |
162 visibilityChannel |
193 visibilityChannel |