--- a/UIObjectView.st Wed Jul 09 17:04:25 2014 +0200
+++ b/UIObjectView.st Fri Aug 01 16:39:06 2014 +0200
@@ -192,7 +192,7 @@
handlesOf:aViewOrComponent do:aBlock
|type v h|
- (aViewOrComponent isKindOf:LineSegmentMorph) ifTrue:[
+ (aViewOrComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[
aBlock value:(aViewOrComponent startPoint) value:#startPoint.
aBlock value:(aViewOrComponent endPoint) value:#endPoint.
^ self.
@@ -255,7 +255,7 @@
(aComponent isKindOf:Slider) ifTrue:[
^ aComponent orientation == #horizontal
].
- (aComponent isKindOf:LineSegmentMorph) ifTrue:[
+ (aComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[
^ false
].
^ true
@@ -282,7 +282,7 @@
"/ (aComponent isKindOf:Slider) ifTrue:[
"/ ^ aComponent orientation == #vertical
"/ ].
- (aComponent isKindOf:LineSegmentMorph) ifTrue:[
+ (aComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[
^ false
].
^ true
@@ -294,7 +294,7 @@
|layout spec superView|
aViewOrComponent isNil ifTrue:[ ^ nil ].
- (aViewOrComponent isKindOf:LineSegmentMorph) ifTrue:[
+ (aViewOrComponent isKindOf:(Smalltalk classNamed:#LineSegmentMorph)) ifTrue:[
^ nil
].