class: UIObjectView
authorStefan Vogel <sv@exept.de>
Fri, 01 Aug 2014 16:39:06 +0200
changeset 3143 0eb6a10e5dc8
parent 3142 908161b62565
child 3144 c43519feada1
class: UIObjectView changed: #handlesOf:do: #isHorizontalResizable: #isVerticalResizable: #layoutType: Access to LineSegmentMorph via Smalltalk>>#classNamed:
UIObjectView.st
--- 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
     ].