equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'stx:libtool2' }" |
1 "{ Package: 'stx:libtool2' }" |
4 |
2 |
5 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
6 |
4 |
7 Object subclass:#ShowMeHowItWorks |
5 Object subclass:#ShowMeHowItWorks |
64 |
62 |
65 " |
63 " |
66 ShowMeHowItWorks do: |
64 ShowMeHowItWorks do: |
67 #( |
65 #( |
68 (language: de) |
66 (language: de) |
69 (show: 'üben üben üben') |
67 (show: 'üben üben üben') |
70 (wait: 0.5) |
68 (wait: 0.5) |
71 (moveTo: NameOfComponent) |
69 (moveTo: NameOfComponent) |
72 ) |
70 ) |
73 " |
71 " |
74 |
72 |
83 |
81 |
84 " |
82 " |
85 ShowMeHowItWorks do: |
83 ShowMeHowItWorks do: |
86 #( |
84 #( |
87 (language: de) |
85 (language: de) |
88 (show: 'üben üben üben') |
86 (show: 'üben üben üben') |
89 (wait: 0.5) |
87 (wait: 0.5) |
90 (moveTo: NameOfComponent) |
88 (moveTo: NameOfComponent) |
91 ) |
89 ) |
92 " |
90 " |
93 |
91 |
105 |
103 |
106 " |
104 " |
107 ShowMeHowItWorks |
105 ShowMeHowItWorks |
108 do:#( |
106 do:#( |
109 (language: de) |
107 (language: de) |
110 (show: 'üben üben üben') |
108 (show: 'üben üben üben') |
111 (wait: 0.5) |
109 (wait: 0.5) |
112 (moveTo: NameOfComponent) |
110 (moveTo: NameOfComponent) |
113 ) |
111 ) |
114 withUI:true |
112 withUI:true |
115 " |
113 " |
125 |
123 |
126 " |
124 " |
127 ShowMeHowItWorks |
125 ShowMeHowItWorks |
128 do:#( |
126 do:#( |
129 (language: de) |
127 (language: de) |
130 (show: 'üben üben üben') |
128 (show: 'üben üben üben') |
131 (wait: 0.5) |
129 (wait: 0.5) |
132 (moveTo: NameOfComponent) |
130 (moveTo: NameOfComponent) |
133 ) |
131 ) |
134 withUI:true |
132 withUI:true |
135 " |
133 " |
474 |
472 |
475 where == #topLeft ifTrue:[ |
473 where == #topLeft ifTrue:[ |
476 targetPos := targetComponent topLeft + (1@1). |
474 targetPos := targetComponent topLeft + (1@1). |
477 ] ifFalse:[ |
475 ] ifFalse:[ |
478 where == #topCenter ifTrue:[ |
476 where == #topCenter ifTrue:[ |
479 targetPos := targetComponent topCenter + (0@1). |
477 targetPos := targetComponent topCenter + (0@5). |
480 ] ifFalse:[ |
478 ] ifFalse:[ |
481 where == #center ifTrue:[ |
479 where == #center ifTrue:[ |
482 targetPos := targetComponent center |
480 targetPos := targetComponent center |
483 ] ifFalse:[ |
481 ] ifFalse:[ |
484 where == #bottomCenter ifTrue:[ |
482 where == #bottomCenter ifTrue:[ |
485 targetPos := targetComponent bottomCenter - (0 @ 1) |
483 targetPos := targetComponent bottomCenter - (0 @ 5) |
486 ] ifFalse:[ |
484 ] ifFalse:[ |
487 where == #bottomLeft ifTrue:[ |
485 where == #bottomLeft ifTrue:[ |
488 targetPos := targetComponent bottomLeft + (1 @ -1) |
486 targetPos := targetComponent bottomLeft + (1 @ -5) |
489 ] ifFalse:[ |
487 ] ifFalse:[ |
490 self error:'where is this' |
488 self error:'where is this' |
491 ]. |
489 ]. |
492 ]. |
490 ]. |
493 ]. |
491 ]. |