hg/stx-libtool2: comparison ShowMeHowItWorks.st

equal deleted inserted replaced

-:236ce50a9d68
+:18cd7c43d15e
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2018 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 "
 ! !
+!ShowMeHowItWorks class methodsFor:'instance creation'!
+new
+"return an initialized instance"
+^ self basicNew initialize.
+! !
 !ShowMeHowItWorks class methodsFor:'running'!
 application:anApplicationOrNilForAll do:specArray
 "spec contains a list of action commands (show: / moveTo: etc.)"
 "
 ShowMeHowItWorks do:
 #(
 (language: de)
-(show: '�ben �ben �ben')
+(show: 'üben üben üben')
 (wait: 0.5)
 (moveTo: NameOfComponent)
 )
 "
 "
 ShowMeHowItWorks do:
 #(
 (language: de)
-(show: '�ben �ben �ben')
+(show: 'üben üben üben')
 (wait: 0.5)
 (moveTo: NameOfComponent)
 )
 "
 "
 ShowMeHowItWorks do:
 #(
 (language: de)
-(show: '�ben �ben �ben')
+(show: 'üben üben üben')
 (wait: 0.5)
 (moveTo: NameOfComponent)
 )
 "
 "
 ShowMeHowItWorks
 do:#(
 (language: de)
-(show: '�ben �ben �ben')
+(show: 'üben üben üben')
 (wait: 0.5)
 (moveTo: NameOfComponent)
 )
 withUI:true
 "
 "
 ShowMeHowItWorks
 do:#(
 (language: de)
-(show: '�ben �ben �ben')
+(show: 'üben üben üben')
 (wait: 0.5)
 (moveTo: NameOfComponent)
 )
 withUI:true
 "
 (diagramEditor := lastComponent) isScrollWrapper ifTrue:[
 diagramEditor := lastComponent scrolledView
 ].
 pinPO := self pinPOForPin:pinName ofStep:stepName.
+pinPO isNil ifTrue:[
+self error:('No pin named "%1" for step "%2" found in diagram' bindWith:pinName with:stepName).
+^ self.
+].
 diagramEditor selection:{ pinPO }.
 diagramEditor doubleClickOn:pinPO.
 self fastMoveTo:(lastComponentName,'/','EditField').
 self click.
 |newApplication|
 (newApplication := newApplicationOrName) isString ifTrue:[
 newApplication := self findApplication:newApplicationOrName ifMultiple:nil.
-self assert: newApplication notNil.
+newApplication isNil ifTrue:[
+self error:('Could not find an application named "%1" (to switch to)' bindWith:newApplicationOrName).
+].
+"/ self assert: newApplication notNil.
 ].
 applicationStack isNil ifTrue:[applicationStack := OrderedCollection new].
 applicationStack add:application.
 count := 0.
 [
 Delay waitForSeconds:0.1.
 pinPO := self pinPOForPin:pinName ofStep:stepName.
 ] doWhile:[pinPO isNil and:[ (count := count+1) < 20]].
+pinPO isNil ifTrue:[
+self error:('No pin named "%1" for step "%2" found in diagram' bindWith:pinName with:stepName).
+^ self.
+].
 self movePointerToComponent:diagramEditor offset:(pinPO frame center).
 diagramEditor selection:{ pinPO }.
 !
 show:message
 ].
 ].
 (component isKindOf:NoteBookView) ifTrue:[
 (idx := itemsIndexOrLabelOrPattern) isInteger ifFalse:[
-idx := component list
+idx := component tabList
 findFirst:[:eachNotebookTab|
-eachNotebookTab label string = itemsIndexOrLabelOrPattern string
+eachNotebookTab labelString string = itemsIndexOrLabelOrPattern string
-or:[ eachNotebookTab printableLabel string = itemsIndexOrLabelOrPattern string ]
+or:[ (eachNotebookTab printableLabel string = itemsIndexOrLabelOrPattern string)
-].
+or:[ eachNotebookTab label isString not
+and:[eachNotebookTab label label = itemsIndexOrLabelOrPattern string ]]]
+].
+idx == 0 ifTrue:[
+self error:('No tab named "%1" found' with:itemsIndexOrLabelOrPattern string)
+].
 "/ idx := component indexOfTabNamed:itemsIndexOrLabelOrPattern
 ].
 tab := component tabAtIndex:idx.
 self movePointerToComponent:component offset:(tab layout center).
 component selection:idx.
 click:buttonNr inComponent:viewOrMenuItem clickTime:clickTime
 "press-release in a component"
 self withViewAndPositionFor:viewOrMenuItem do:[:viewToClick :clickPos |
+|clickDone|
+clickDone := false.
 Display activePointerGrab == Display rootView ifTrue:[
 |pos|
 pos := Display translatePoint:clickPos fromView:viewToClick toView:nil.
-OperatingSystem isOSXlike ifTrue:[
+Error handle:[:ex |
-OperatingSystem
+] do:[
-generateMouseMoveEventX:pos x y:pos y;
+OperatingSystem isOSXlike ifTrue:[
-generateButtonEvent:buttonNr down:true x:pos x y:pos y;
+OperatingSystem
-yourself.
+generateMouseMoveEventX:pos x y:pos y;
+generateButtonEvent:buttonNr down:true x:pos x y:pos y;
+yourself.
+Delay waitForSeconds:clickTime.
+OperatingSystem
+generateButtonEvent:buttonNr down:false x:pos x y:pos y;
+"/ generateButtonEvent:buttonNr down:true x:pos x y:pos y;
+"/ generateButtonEvent:buttonNr down:false x:pos x y:pos y;
+yourself.
+^ self.
+].
+Display rootView simulateButtonPress:buttonNr at:pos sendDisplayEvent:true.
 Delay waitForSeconds:clickTime.
-OperatingSystem
+Display rootView simulateButtonRelease:buttonNr at:pos sendDisplayEvent:true.
-generateButtonEvent:buttonNr down:false x:pos x y:pos y;
+clickDone := true.
-"/ generateButtonEvent:buttonNr down:true x:pos x y:pos y;
+].
-"/ generateButtonEvent:buttonNr down:false x:pos x y:pos y;
+].
-yourself.
+clickDone ifFalse:[
-^ self.
-].
-Display rootView simulateButtonPress:buttonNr at:pos sendDisplayEvent:true.
-Delay waitForSeconds:clickTime.
-Display rootView simulateButtonRelease:buttonNr at:pos sendDisplayEvent:true.
-] ifFalse:[
 viewToClick simulateButtonPress:buttonNr at:clickPos sendDisplayEvent:false.
 Delay waitForSeconds:clickTime.
 viewToClick simulateButtonRelease:buttonNr at:clickPos sendDisplayEvent:false.
 ].
 ].
 ].
 where == #bottomRight ifTrue:[
 ^ aComponent bottomLeft - (5 @ 5)
 ].
 self error:'where is this'
+! !
+!ShowMeHowItWorks methodsFor:'initialization'!
+initialize
+"Invoked when a new instance is created."
+"/ please change as required (and remove this comment)
+"/ application := nil.
+"/ opStream := nil.
+"/ streamStack := nil.
+"/ lastComponentName := nil.
+"/ lastComponent := nil.
+"/ lastResult := nil.
+"/ voice := nil.
+"/ translate := nil.
+"/ language := nil.
+verifying := false.
+"/ closeApplicationWhenFinished := nil.
+"/ defaultComponentWaitTime := nil.
+"/ ui := nil.
+"/ theShowFile := nil.
+"/ defaultElementTimeout := nil.
+"/ applicationStack := nil.
+"/ pronunciations := nil.
+"/ super initialize.   -- commented since inherited method does nothing
 ! !
 !ShowMeHowItWorks methodsFor:'running'!
 do:specArray

changeset 3859	18cd7c43d15e
parent 3855	0cc52b04a4a5
child 3860	c1824d0bfeb5