equal
deleted
inserted
replaced
190 !UIObjectView class methodsFor:'handles'! |
190 !UIObjectView class methodsFor:'handles'! |
191 |
191 |
192 handlesOf:aViewOrComponent do:aBlock |
192 handlesOf:aViewOrComponent do:aBlock |
193 |type v h| |
193 |type v h| |
194 |
194 |
195 (aViewOrComponent isKindOf:LineSegmentMorph) ifTrue:[ |
195 (aViewOrComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[ |
196 aBlock value:(aViewOrComponent startPoint) value:#startPoint. |
196 aBlock value:(aViewOrComponent startPoint) value:#startPoint. |
197 aBlock value:(aViewOrComponent endPoint) value:#endPoint. |
197 aBlock value:(aViewOrComponent endPoint) value:#endPoint. |
198 ^ self. |
198 ^ self. |
199 ]. |
199 ]. |
200 |
200 |
253 ^ aComponent orientation == #horizontal |
253 ^ aComponent orientation == #horizontal |
254 ]. |
254 ]. |
255 (aComponent isKindOf:Slider) ifTrue:[ |
255 (aComponent isKindOf:Slider) ifTrue:[ |
256 ^ aComponent orientation == #horizontal |
256 ^ aComponent orientation == #horizontal |
257 ]. |
257 ]. |
258 (aComponent isKindOf:LineSegmentMorph) ifTrue:[ |
258 (aComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[ |
259 ^ false |
259 ^ false |
260 ]. |
260 ]. |
261 ^ true |
261 ^ true |
262 ! |
262 ! |
263 |
263 |
280 "/ ^ aComponent orientation == #vertical |
280 "/ ^ aComponent orientation == #vertical |
281 "/ ]. |
281 "/ ]. |
282 "/ (aComponent isKindOf:Slider) ifTrue:[ |
282 "/ (aComponent isKindOf:Slider) ifTrue:[ |
283 "/ ^ aComponent orientation == #vertical |
283 "/ ^ aComponent orientation == #vertical |
284 "/ ]. |
284 "/ ]. |
285 (aComponent isKindOf:LineSegmentMorph) ifTrue:[ |
285 (aComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[ |
286 ^ false |
286 ^ false |
287 ]. |
287 ]. |
288 ^ true |
288 ^ true |
289 ! |
289 ! |
290 |
290 |
292 "returns layout type of aView or nil" |
292 "returns layout type of aView or nil" |
293 |
293 |
294 |layout spec superView| |
294 |layout spec superView| |
295 |
295 |
296 aViewOrComponent isNil ifTrue:[ ^ nil ]. |
296 aViewOrComponent isNil ifTrue:[ ^ nil ]. |
297 (aViewOrComponent isKindOf:LineSegmentMorph) ifTrue:[ |
297 (aViewOrComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[ |
298 ^ nil |
298 ^ nil |
299 ]. |
299 ]. |
300 |
300 |
301 layout := aViewOrComponent geometryLayout. |
301 layout := aViewOrComponent geometryLayout. |
302 layout notNil ifTrue:[ |
302 layout notNil ifTrue:[ |