#UI_ENHANCEMENT by exept draft
authorClaus Gittinger <cg@exept.de>
Fri, 18 Oct 2019 23:10:44 +0200
changeset 3791 471326a17840
parent 3790 a28f8340a3eb
child 3792 7682b28c1e92
#UI_ENHANCEMENT by exept class: ShowMeHowItWorks changed: #drag:toComponent:dropAt:show:
ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Thu Oct 17 15:47:47 2019 +0200
+++ b/ShowMeHowItWorks.st	Fri Oct 18 23:10:44 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libtool2' }"
 
 "{ NameSpace: Smalltalk }"
@@ -66,7 +64,7 @@
      ShowMeHowItWorks do:
         #(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )    
@@ -85,7 +83,7 @@
      ShowMeHowItWorks do:
         #(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )    
@@ -107,7 +105,7 @@
      ShowMeHowItWorks 
         do:#(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )
@@ -127,7 +125,7 @@
      ShowMeHowItWorks 
         do:#(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )
@@ -476,16 +474,16 @@
         targetPos := targetComponent topLeft + (1@1). 
     ] ifFalse:[
         where == #topCenter ifTrue:[
-            targetPos := targetComponent topCenter + (0@1). 
+            targetPos := targetComponent topCenter + (0@5). 
         ] ifFalse:[
             where == #center ifTrue:[
                 targetPos := targetComponent center
             ] ifFalse:[
                 where == #bottomCenter ifTrue:[
-                    targetPos := targetComponent bottomCenter - (0 @ 1)
+                    targetPos := targetComponent bottomCenter - (0 @ 5)
                 ] ifFalse:[
                     where == #bottomLeft ifTrue:[
-                        targetPos := targetComponent bottomLeft + (1 @ -1)
+                        targetPos := targetComponent bottomLeft + (1 @ -5)
                     ] ifFalse:[
                         self error:'where is this'
                     ].