hg/stx-libtool2: comparison ShowMeHowItWorks.st

equal deleted inserted replaced

-:271887d2ed74
+:0e44d27ee647
 "{ NameSpace: Smalltalk }"
 Object subclass:#ShowMeHowItWorks
 	instanceVariableNames:'application opStream lastComponentName lastComponent lastResult
-		voice translate'
+		voice translate language verifying'
 	classVariableNames:'IntroShownCount'
 	poolDictionaries:''
 	category:'Interface-Help'
 !
 )
 ! !
 !ShowMeHowItWorks class methodsFor:'running'!
-do:specArray
+application:anApplicationOrNilForAll do:specArray
 "spec contains a list of action commands (show: / moveTo: etc.)"
-self new do:specArray
+self new
+application:anApplicationOrNilForAll;
+do:specArray
 "
 ShowMeHowItWorks do:
 #(
 (language: de)
 )
 "
 "Created: / 19-07-2019 / 10:52:59 / Claus Gittinger"
 "Modified (comment): / 23-07-2019 / 10:26:42 / Claus Gittinger"
+!
+do:specArray
+"spec contains a list of action commands (show: / moveTo: etc.)"
+self new do:specArray
+"
+ShowMeHowItWorks do:
+#(
+(language: de)
+(show: 'üben üben üben')
+(wait: 0.5)
+(moveTo: NameOfComponent)
+)
+"
+"Created: / 19-07-2019 / 10:52:59 / Claus Gittinger"
+"Modified (comment): / 23-07-2019 / 10:26:42 / Claus Gittinger"
 ! !
 !ShowMeHowItWorks methodsFor:'accessing'!
-application:something
+application:anApplication
-application := something.
+"if set, only that application is presented (widget search is limtied to that one)"
+application := anApplication.
 ! !
 !ShowMeHowItWorks methodsFor:'commands'!
 intro
 <action>
+verifying ifTrue:[^ self].
+IntroShownCount := (IntroShownCount ? 0).
 "/ only say this a few times..
-IntroShownCount := (IntroShownCount ? 0) + 1.
 IntroShownCount > 3 ifTrue:[^ self].
+IntroShownCount := IntroShownCount + 1.
+self language:(Smalltalk language).
 self tell:(self class classResources
 string:'You can stop this show, by pressing the SHIFT key').
 "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger"
 "Modified: / 23-07-2019 / 11:06:13 / Claus Gittinger"
 language:lang
 <action>
 voice := OperatingSystem bestVoiceForLanguage:lang.
 translate := false.
+language := lang.
 "Created: / 23-07-2019 / 10:27:02 / Claus Gittinger"
 !
 pause
 talkDone signal
 ] fork.
 "/
 "/ allow speaker some headoff
-Delay waitForSeconds:(xLatedMessage size / 15)+0.5.
+verifying ifFalse:[
+Delay waitForSeconds:(xLatedMessage size / 15)+0.5.
+].
 ].
 operationsOrNothing notEmptyOrNil ifTrue:[
 self doStream:(operationsOrNothing readStream).
 ].
 !
 wait:seconds
 <action>
+verifying ifTrue:[^ self].
 Delay waitForSeconds:seconds
 "Created: / 19-07-2019 / 15:09:45 / Claus Gittinger"
 ! !
 "
 <action>
 |idx|
+verifying ifTrue:[^ self].
 (lastComponent isKindOf:ComboView) ifTrue:[
 "/ click on the menubutton
 self movePointerToComponent:lastComponent menuButton.
 self click:1 inComponent:lastComponent menuButton.
 Delay waitForSeconds:0.3.
 "
 <action>
 |widget y offset possibleWidgets|
+verifying ifTrue:[^ self].
 (widget := widgetArg) isScrollWrapper ifTrue:[
 widget := widget scrolledView
 ].
 type:aString
 "enter text into the last component"
 <action>
+verifying ifTrue:[^ self].
 lastComponent simulateTextInput:aString at:(lastComponent extent // 2) sendDisplayEvent:false
 "Created: / 19-07-2019 / 15:50:40 / Claus Gittinger"
 ! !
 "Created: / 19-07-2019 / 15:21:29 / Claus Gittinger"
 !
 talking
+verifying ifTrue:[^ false].
 "/ ^ Expecco::ExpeccoPreferences current speechEffectsEnabled
 ^ true
 "Created: / 19-07-2019 / 14:31:14 / Claus Gittinger"
 "Modified (comment): / 23-07-2019 / 09:45:35 / Claus Gittinger"
 randomThankYou
 ^ #(
 'thank you, for watching'
 'thank you for watching'
 'thank you'
+'thanks'
 'have a good day'
+'have a nice day'
 'have fun'
 'have fun with expecco'
 'have fun with expecco, by the way: expecco comes from the latin word: peccare, which means: "to sin"'
 'happy hacking'
 'happy hacking, I hope you liked what you saw'
 'hope you liked it'
 'see you again'
+'be the source with you'
+'be the force with you'
+'may the force be with you'
+'may the source be with you'
 'please give feedback, and let us know, if you liked it'
 'if you have any questions, please contact exept'
 'if you need more information, please take a look at the wiki'
 ) atRandom
 "
+OperatingSystem speak:'may the source be with you'
 OperatingSystem speak:'have fun with expecco'
 OperatingSystem speak:'have fun with expecco, by the way: expecco comes from the latin word: peccare, which means: to sin'
 OperatingSystem speak:'happy hacking, I hope you liked what you saw'
 OperatingSystem speak:'please give feedback, and let us know, if you liked it'
 OperatingSystem speak:'if you have any questions, please contact exept'
 click:buttonNr atPosition:position
 "press-release at position"
 |screen|
+verifying ifTrue:[^ self].
 screen := Screen current.
 screen setPointerPosition:position.
 screen flush.
 candidates size == 1 ifTrue:[
 component := candidates first
 ] ifFalse:[
 candidates notEmpty ifTrue:[
+"/ multiple elements (probably there are multiple topviews open...
+"/ check the current windowGroup
 self error:'multiple components found by name: ',componentName.
 ]
 ].
 ].
 ^ component
 |position|
 aWidgetOrMenuItem isView ifTrue:[
 position := aWidgetOrMenuItem screenBounds center rounded
 ] ifFalse:[
-self halt.
+self error:'not a widget: ',aWidgetOrMenuItem printString.
 ].
 self circlePointerAroundScreenPosition:position
 "Created: / 19-07-2019 / 13:12:35 / Claus Gittinger"
 "Modified: / 23-07-2019 / 09:38:12 / Claus Gittinger"
 circlePointerAroundScreenPosition:position
 "circle around it a few times"
 |screen stepDelayTime numCircles circlingSpeed radius|
+verifying ifTrue:[^ self].
 screen := Screen current.
 circlingSpeed := self circlingSpeed.    "/ time per round
 numCircles := self circlingCount.
 |position|
 aWidgetOrMenuItem isView ifTrue:[
 position := aWidgetOrMenuItem screenBounds center rounded
 ] ifFalse:[
-self halt.
+self error:'not a widget: ',aWidgetOrMenuItem printString.
 ].
 self movePointerToScreenPosition:position speed:pixelsPerSecond.
 "Created: / 20-07-2019 / 08:12:49 / Claus Gittinger"
 "Modified: / 23-07-2019 / 09:37:27 / Claus Gittinger"
 movePointerToScreenPosition:newPosition speed:pixelsPerSecond
 "move the mouse to newPosition, which is a screen position"
 |screen distance start numSteps moveTime stepDelayTime delta|
+verifying ifTrue:[^ self].
 screen := Screen current.
 start := screen pointerPosition.
 distance := start dist:newPosition.
 !
 click:buttonNr inComponent:component clickTime:clickTime
 "press-release in a component"
+self assert:component notNil.
+verifying ifTrue:[^ self].
 component simulateButtonPress:buttonNr at:(component extent // 2) sendDisplayEvent:false.
 Delay waitForSeconds:clickTime.
 component simulateButtonRelease:buttonNr at:(component extent // 2) sendDisplayEvent:false.
 "/    self click:buttonNr atPosition:(component extent // 2)
 press:buttonNr
 "press at the current position"
 |position screen x y|
+verifying ifTrue:[^ self].
 screen := Screen current.
 position := screen pointerPosition.
 x := position x.
 y := position y.
 release:buttonNr
 "press-release at the current position"
 |position screen x y|
+verifying ifTrue:[^ self].
 screen := Screen current.
 position := screen pointerPosition.
 x := position x.
 y := position y.
 do:specArray
 "must run as a separate process;
 otherwise - if started by the app itself -
 no events will be processed while running"
-self language:(Smalltalk language).
+|wasActive|
+(wasActive := ActiveHelp isActive) ifTrue:[
+ActiveHelp stop.
+].
+language isNil ifTrue:[
+self language:(Smalltalk language).
+].
 translate := false.
 application isNil ifTrue:[
 application := WindowGroup activeMainApplication.
 ].
+"/ run in verifying mode
+verifying := true.
 [
 Error handle:[:ex |
-Dialog warn:(self class classResources stringWithCRs:'An error was encountered in the show:\\%1' with:ex description)
+(Dialog confirm:(self class classResources stringWithCRs:'Error encountered while verifying:\\%1\\Debug?' with:ex description))
+ifTrue:[ex reject].
 ] do:[
 self doStream:(specArray readStream)
+].
+] ensure:[
+verifying := false.
+wasActive ifTrue:[ActiveHelp start].
+].
+[
+ActiveHelp stop.
+[
+Error handle:[:ex |
+Dialog warn:(self class classResources stringWithCRs:'An error was encountered in the show:\\%1' with:ex description)
+] do:[
+self doStream:(specArray readStream)
+].
+] ensure:[
+wasActive ifTrue:[ActiveHelp start].
 ].
 ] fork.
 "
 ShowMeHowItWorks do:
 )
 "
 "Created: / 23-07-2019 / 10:24:53 / Claus Gittinger"
 "Modified: / 25-07-2019 / 11:48:53 / Claus Gittinger"
-!
+! !
+!ShowMeHowItWorks methodsFor:'running - private'!
 doCommand:op
 "execute a single command"
 |numArgs sel args method|

changeset 3775	0e44d27ee647
parent 3739	9c7040099cfe
child 3776	371ad059085a