equal
deleted
inserted
replaced
232 "Created: / 23-07-2019 / 10:27:02 / Claus Gittinger" |
232 "Created: / 23-07-2019 / 10:27:02 / Claus Gittinger" |
233 ! ! |
233 ! ! |
234 |
234 |
235 !ShowMeHowItWorks methodsFor:'commands'! |
235 !ShowMeHowItWorks methodsFor:'commands'! |
236 |
236 |
|
237 closeApplication |
|
238 <action> |
|
239 |
|
240 application closeRequest. |
|
241 ! |
|
242 |
237 freezePin:pinName ofStep:stepName with:freezeString |
243 freezePin:pinName ofStep:stepName with:freezeString |
238 <action> |
244 <action> |
239 |
245 |
240 |diagramEditor pinPO| |
246 |diagramEditor pinPO| |
241 |
247 |
449 self assert:(operationsOrNothing isNil or:[operationsOrNothing isSequenceable]). |
455 self assert:(operationsOrNothing isNil or:[operationsOrNothing isSequenceable]). |
450 |
456 |
451 messageView := ActiveHelpView for:xLatedMessage. |
457 messageView := ActiveHelpView for:xLatedMessage. |
452 "/ messageView shapeStyle:#cartoon. |
458 "/ messageView shapeStyle:#cartoon. |
453 [ |
459 [ |
454 messageView origin:(Screen current pointerPosition + (0 @ 20)). |
460 |p top left bot right w h| |
|
461 |
|
462 w := messageView preferredExtent x. |
|
463 h := messageView preferredExtent y. |
|
464 |
|
465 p := Screen current pointerPosition. |
|
466 left := p x. top := p y. |
|
467 bot := top + h. right := left + w. |
|
468 |
|
469 messageView origin:(left @ top). |
455 messageView makeFullyVisible. |
470 messageView makeFullyVisible. |
456 messageView realize. |
471 messageView realize. |
457 |
472 |
458 self talking ifTrue:[ |
473 self talking ifTrue:[ |
459 talkDone := Semaphore new. |
474 talkDone := Semaphore new. |