1023 !DragAndDropManager methodsFor:'drawing'! |
1023 !DragAndDropManager methodsFor:'drawing'! |
1024 |
1024 |
1025 displayObjectFor:anObject on:aDevice |
1025 displayObjectFor:anObject on:aDevice |
1026 "converts an object to a display object |
1026 "converts an object to a display object |
1027 " |
1027 " |
1028 |obj icon s1 s2| |
1028 |obj s1 s2| |
1029 |
1029 |
1030 obj := (anObject respondsTo:#displayObject) ifTrue:[anObject displayObject] |
1030 obj := (anObject respondsTo:#displayObject) ifTrue:[anObject displayObject] |
1031 ifFalse:[anObject]. |
1031 ifFalse:[anObject]. |
1032 |
1032 |
1033 obj isString ifTrue:[ |
1033 obj isString ifTrue:[ |
1034 ^ obj |
1034 ^ obj |
1035 ]. |
1035 ]. |
1036 |
1036 |
1037 obj messageNotUnderstoodSignal handle:[:ex|] do:[ |
1037 obj messageNotUnderstoodSignal handle:[:ex|] do:[ |
1038 obj := obj on:aDevice |
1038 obj := obj onDevice:aDevice |
1039 ]. |
1039 ]. |
1040 |
1040 |
1041 obj isImage ifTrue:[ |
1041 obj isImage ifTrue:[ |
1042 ^ obj clearMaskedPixels |
1042 ^ obj clearMaskedPixels |
1043 ]. |
1043 ]. |
1044 |
1044 |
1045 obj class == LabelAndIcon ifTrue:[ |
1045 obj class == LabelAndIcon ifTrue:[ |
1046 obj image notNil ifTrue:[obj image clearMaskedPixels]. |
1046 obj image notNil ifTrue:[obj image clearMaskedPixels]. |
1047 obj icon notNil ifTrue:[obj icon clearMaskedPixels]. |
1047 obj icon notNil ifTrue:[obj icon clearMaskedPixels]. |
1048 ^ obj |
1048 ^ obj |
1049 ]. |
1049 ]. |
1050 |
1050 |
1051 (obj class == MultiColListEntry) ifFalse:[ |
1051 (obj class == MultiColListEntry) ifFalse:[ |
1052 ^ obj |
1052 ^ obj |
1053 ]. |
1053 ]. |
1054 s1 := obj colAt:1. |
1054 s1 := obj colAt:1. |
1055 s2 := obj colAt:2. |
1055 s2 := obj colAt:2. |
1056 |
1056 |
1057 s1 isImage ifTrue:[ |
1057 s1 isImage ifTrue:[ |
1058 s2 isImage ifTrue:[ ^ self displayObjectFor:(LabelAndIcon form:s1 image:s2) on:aDevice ]. |
1058 s2 isImage ifTrue:[ ^ self displayObjectFor:(LabelAndIcon form:s1 image:s2) on:aDevice ]. |
1059 s2 isString ifTrue:[ ^ self displayObjectFor:(LabelAndIcon icon:s1 string:s2) on:aDevice ]. |
1059 s2 isString ifTrue:[ ^ self displayObjectFor:(LabelAndIcon icon:s1 string:s2) on:aDevice ]. |
1060 ^ (s1 on:aDevice) clearMaskedPixels |
1060 ^ (s1 on:aDevice) clearMaskedPixels |
1061 ]. |
1061 ]. |
1062 |
1062 |
1063 s2 isImage ifTrue:[ |
1063 s2 isImage ifTrue:[ |
1064 s1 isString ifTrue:[ ^ self displayObjectFor:(LabelAndIcon icon:s2 string:s1) on:aDevice ]. |
1064 s1 isString ifTrue:[ ^ self displayObjectFor:(LabelAndIcon icon:s2 string:s1) on:aDevice ]. |
1065 ^ (s2 on:aDevice) clearMaskedPixels |
1065 ^ (s2 on:aDevice) clearMaskedPixels |
1066 ]. |
1066 ]. |
1067 |
1067 |
1068 s1 isString ifTrue:[^ s1]. |
1068 s1 isString ifTrue:[^ s1]. |
1069 s2 isString ifTrue:[^ s2]. |
1069 s2 isString ifTrue:[^ s2]. |
1070 ^ obj |
1070 ^ obj |