hg/stx-libtool2: comparison ShowMeHowItWorks.st

equal deleted inserted replaced

-:036d0b8499cb
+:6faffd2a64a3
 ! !
 !ShowMeHowItWorks class methodsFor:'running'!
 do:specArray
-self doStream:specArray readStream
-"Created: / 19-07-2019 / 10:52:59 / Claus Gittinger"
-"Modified: / 19-07-2019 / 14:30:43 / Claus Gittinger"
-!
-doStream:specStream
 "must run as a separate process;
 otherwise - if started by the app itself -
 no events will be processed while running"
 |appWhichStartedMe|
 appWhichStartedMe := WindowGroup activeMainApplication.
 [
-self new
+Error handle:[:ex |
-application:appWhichStartedMe;
+Dialog warn:(self classResources stringWithCRs:'An error was encountered in the show:\\%1' with:ex description)
-doStream:specStream
+] do:[
+self new
+application:appWhichStartedMe;
+doStream:(specArray readStream)
+].
 ] fork.
-"Created: / 19-07-2019 / 10:53:07 / Claus Gittinger"
+"
-"Modified: / 19-07-2019 / 16:44:02 / Claus Gittinger"
+ShowMeHowItWorks do:
+#(
+(show: 'bla bla')
+(moveTo: NameOfComponent)
+)
+"
+"Created: / 19-07-2019 / 10:52:59 / Claus Gittinger"
+"Modified: / 23-07-2019 / 09:19:40 / Claus Gittinger"
 ! !
 !ShowMeHowItWorks methodsFor:'accessing'!
 application:something
 |component|
 component := self componentNamed:componentName.
 self movePointerToComponent:component speed:(self pointerMoveSpeedFast).
+"
+ShowMeHowItWorks basicNew fastMoveTo:'Classes'
+ShowMeHowItWorks basicNew fastMoveTo:'Klassen'
+"
 "Created: / 19-07-2019 / 15:39:23 / Claus Gittinger"
 "Modified: / 20-07-2019 / 08:14:16 / Claus Gittinger"
+"Modified (comment): / 23-07-2019 / 09:33:31 / Claus Gittinger"
 !
 moveTo:componentName
 "move the mouse to componentName,
 then circle around it a few times"
 "Created: / 19-07-2019 / 15:21:29 / Claus Gittinger"
 !
 talking
+"/ ^ Expecco::ExpeccoPreferences current speechEffectsEnabled
 ^ true
 "Created: / 19-07-2019 / 14:31:14 / Claus Gittinger"
+"Modified (comment): / 23-07-2019 / 09:45:35 / Claus Gittinger"
 ! !
 !ShowMeHowItWorks methodsFor:'helper'!
+randomThankYou
+^ #(
+'thank you, for watching'
+'thank you for watching'
+'thank you'
+'have a good 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'
+'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:'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'
+OperatingSystem speak:'if you need more information, please take a look at the wiki'
+"
+"Created: / 19-07-2019 / 21:39:18 / Claus Gittinger"
+!
+tell:message
+self talking ifTrue:[
+OperatingSystem speak:message.
+].
+"Created: / 19-07-2019 / 14:57:50 / Claus Gittinger"
+! !
+!ShowMeHowItWorks methodsFor:'helpers - broken'!
+click:buttonNr atPosition:position
+"press-release at position"
+|screen|
+screen := Screen current.
+screen setPointerPosition:position.
+screen flush.
+self click:buttonNr
+"Created: / 19-07-2019 / 13:14:51 / Claus Gittinger"
+! !
+!ShowMeHowItWorks methodsFor:'helpers - component search'!
 componentNamed:componentName
-"retrieve a component by name or report an error if not found"
+"retrieve a component by name or report an error if not found.
+Can return either a view or a menu item"
 |component|
 lastComponentName := componentName.
 ].
 lastComponent := component.
 ^ component
 "Created: / 19-07-2019 / 15:37:35 / Claus Gittinger"
+"Modified (comment): / 23-07-2019 / 09:31:53 / Claus Gittinger"
 !
 findComponent:componentName
-"find a component by name - in the active and possibly in any app"
+"find a component by name - in the active and possibly in any app.
+Can return either a view or a menu item"
 |component candidates|
 application notNil ifTrue:[
 component := self findComponent:componentName in:application.
 ]
 ].
 ].
 ^ component
+"
+ShowMeHowItWorks basicNew findComponent:'Classes'
+ShowMeHowItWorks basicNew findComponent:'Klassen'
+"
 "Created: / 19-07-2019 / 12:02:30 / Claus Gittinger"
 "Modified: / 19-07-2019 / 16:44:30 / Claus Gittinger"
-!
+"Modified (comment): / 23-07-2019 / 09:32:44 / Claus Gittinger"
+!
-findComponent:componentName in:anApplication
-|component componentNameSymbol foundByName foundByTitle foundByLabel|
+findComponent:componentName in:anApplicationOrView
+"find a component by name inside an app.
-(component := anApplication componentAt:componentName) notNil ifTrue:[^ component].
+Uses the NameKey of the spec, and optionally the label or modelKey.
-(componentNameSymbol := componentName asSymbolIfInterned) notNil ifTrue:[
+Can return either a view or a menu item"
-(component := anApplication componentAt:componentNameSymbol) notNil ifTrue:[^ component].
-].
+|app window component componentNameSymbol foundByName foundByTitle foundByLabel item|
+(app := anApplicationOrView) isView ifTrue:[
+window := anApplicationOrView.
+app := anApplicationOrView application
+].
+app notNil ifTrue:[
+(component := app componentAt:componentName) notNil ifTrue:[^ component].
+(componentNameSymbol := componentName asSymbolIfInterned) notNil ifTrue:[
+(component := app componentAt:componentNameSymbol) notNil ifTrue:[^ component].
+].
+window := app window.
+].
 "/ mhmh - search through all widgets of anApplication;
 "/ maybe it was not created via the builder/spec,
 "/ or it has changed its name.
 "/ look for: widget's name, widget's title, widget's label
 foundByName := OrderedCollection new.
 foundByTitle := OrderedCollection new.
 foundByLabel := OrderedCollection new.
-anApplication window allSubViewsDo:[:each |
+window allSubViewsDo:[:each |
+|foundIt|
+foundIt := false.
 [
-each name = componentName ifTrue:[ foundByName add:each ].
+each name = componentName ifTrue:[ foundByName add:each. foundIt := true ].
 ] on:MessageNotUnderstood do:[:ex | ].
-[
+foundIt ifFalse:[
-each title = componentName ifTrue:[ foundByTitle add:each ].
+[
-] on:MessageNotUnderstood do:[:ex | ].
+each title = componentName ifTrue:[ foundByTitle add:each. foundIt := true ].
-[
+] on:MessageNotUnderstood do:[:ex | ].
-each label = componentName ifTrue:[ foundByLabel add:each ].
+foundIt ifFalse:[
-] on:MessageNotUnderstood do:[:ex | ].
+[
-].
+each label = componentName ifTrue:[ foundByLabel add:each. foundIt := true ].
+] on:MessageNotUnderstood do:[:ex | ].
+foundIt ifFalse:[
+each isMenu ifTrue:[
+(item := each detectItemForNameKey:componentName) notNil ifTrue:[
+foundByName add:item. foundIt := true
+].
+foundIt ifFalse:[
+(item := each detectItemForKey:componentName) notNil ifTrue:[
+foundByName add:item. foundIt := true
+].
+foundIt ifFalse:[
+(item := each detectItemForLabel:componentName) notNil ifTrue:[
+foundByLabel add:item. foundIt := true
+].
+].
+].
+].
+].
+]
+].
+].
 foundByName notEmpty ifTrue:[
 self assert:(foundByName size == 1) message:'multiple components found by name'.
 ^ foundByName first.
 ].
 foundByTitle notEmpty ifTrue:[
 self assert:(foundByLabel size == 1) message:'multiple components found by label'.
 ^ foundByLabel first.
 ].
 ^ component
+"
+self basicNew findComponent:'Klassen' in:(Transcript topView)
+"
 "Created: / 19-07-2019 / 11:36:21 / Claus Gittinger"
-!
+"Modified (comment): / 23-07-2019 / 09:31:34 / Claus Gittinger"
-randomThankYou
-^ #(
-'thank you, for watching'
-'thank you for watching'
-'thank you'
-'have a good 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'
-'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:'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'
-OperatingSystem speak:'if you need more information, please take a look at the wiki'
-"
-"Created: / 19-07-2019 / 21:39:18 / Claus Gittinger"
-!
-tell:message
-self talking ifTrue:[
-OperatingSystem speak:message.
-].
-"Created: / 19-07-2019 / 14:57:50 / Claus Gittinger"
-! !
-!ShowMeHowItWorks methodsFor:'helpers - broken'!
-click:buttonNr atPosition:position
-"press-release at position"
-|screen|
-screen := Screen current.
-screen setPointerPosition:position.
-screen flush.
-self click:buttonNr
-"Created: / 19-07-2019 / 13:14:51 / Claus Gittinger"
 ! !
 !ShowMeHowItWorks methodsFor:'helpers - mouse movement'!
-circlePointerAroundComponent:component
+circlePointerAroundComponent:aWidgetOrMenuItem
 "circle around it a few times"
-self circlePointerAroundPosition:(component screenBounds center rounded)
+|position|
+aWidgetOrMenuItem isView ifTrue:[
+position := aWidgetOrMenuItem screenBounds center rounded
+] ifFalse:[
+self halt.
+].
+self circlePointerAroundScreenPosition:position
 "Created: / 19-07-2019 / 13:12:35 / Claus Gittinger"
-!
+"Modified: / 23-07-2019 / 09:38:12 / Claus Gittinger"
+!
-circlePointerAroundPosition:position
+circlePointerAroundScreenPosition:position
 "circle around it a few times"
 |screen stepDelayTime numCircles circlingSpeed radius|
 screen := Screen current.
 screen setPointerPosition:position rounded.
 screen flush.
 Delay waitFor:stepDelayTime.
 ].
-"Created: / 19-07-2019 / 13:12:40 / Claus Gittinger"
+"Created: / 23-07-2019 / 09:37:46 / Claus Gittinger"
+!
+fastMovePointerToScreenPosition:position
+self movePointerToScreenPosition:position speed:(self pointerMoveSpeedFast).
+"Created: / 23-07-2019 / 09:36:20 / Claus Gittinger"
 !
 movePointerToComponent:aWidget
 "move the mouse to aWidget's center"
-self movePointerToPosition:(aWidget screenBounds center rounded).
+self movePointerToScreenPosition:(aWidget screenBounds center rounded).
 "Created: / 19-07-2019 / 13:11:33 / Claus Gittinger"
+"Modified: / 23-07-2019 / 09:37:01 / Claus Gittinger"
 !
 movePointerToComponent:aWidget offset:offset
 "move the mouse to position inside aWidget's"
-self movePointerToPosition:(aWidget screenBounds origin + offset) rounded.
+self movePointerToScreenPosition:(aWidget screenBounds origin + offset) rounded.
 "Created: / 19-07-2019 / 16:18:58 / Claus Gittinger"
-!
+"Modified: / 23-07-2019 / 09:36:57 / Claus Gittinger"
+!
-movePointerToComponent:aWidget speed:pixelsPerSecond
+movePointerToComponent:aWidgetOrMenuItem speed:pixelsPerSecond
 "move the mouse to aWidget's center"
-self movePointerToPosition:(aWidget screenBounds center rounded) speed:pixelsPerSecond.
+|position|
+aWidgetOrMenuItem isView ifTrue:[
+position := aWidgetOrMenuItem screenBounds center rounded
+] ifFalse:[
+self halt.
+].
+self movePointerToScreenPosition:position speed:pixelsPerSecond.
 "Created: / 20-07-2019 / 08:12:49 / Claus Gittinger"
-!
+"Modified: / 23-07-2019 / 09:37:27 / Claus Gittinger"
+!
-movePointerToPosition:newPosition
+movePointerToScreenPosition:newPosition
 "move the mouse to newPosition"
-self movePointerToPosition:newPosition speed:self pointerMoveSpeed
+self movePointerToScreenPosition:newPosition speed:(self pointerMoveSpeed)
-"Created: / 19-07-2019 / 12:57:30 / Claus Gittinger"
+"Created: / 23-07-2019 / 09:36:39 / Claus Gittinger"
-"Modified: / 20-07-2019 / 08:12:34 / Claus Gittinger"
+!
-!
+movePointerToScreenPosition:newPosition speed:pixelsPerSecond
-movePointerToPosition:newPosition speed:pixelsPerSecond
+"move the mouse to newPosition, which is a screen position"
-"move the mouse to newPosition"
 |screen distance start numSteps moveTime stepDelayTime delta|
 screen := Screen current.
 start := screen pointerPosition.
 screen setPointerPosition:p.
 screen flush.
 Delay waitFor:stepDelayTime.
 ].
-"Created: / 20-07-2019 / 08:12:07 / Claus Gittinger"
+"Created: / 23-07-2019 / 09:36:45 / Claus Gittinger"
 ! !
 !ShowMeHowItWorks methodsFor:'menu actions - mouse buttons'!
 click:buttonNr inComponent:component
 screen := Screen current.
 position := screen pointerPosition.
 x := position x.
 y := position y.
-self movePointerToPosition:position.
+self movePointerToScreenPosition:position.
 false "OperatingSystem isOSXlike" ifTrue:[
 |osxPos|
 osxPos := OperatingSystem getMousePosition.
 screen sendKeyOrButtonEvent:#buttonPress x:x y:y keyOrButton:buttonNr state:0 toViewId:(screen rootWindowId).
 screen flush.
 "Created: / 19-07-2019 / 13:52:38 / Claus Gittinger"
+"Modified: / 23-07-2019 / 09:38:31 / Claus Gittinger"
 !
 release:buttonNr
 "press-release at the current position"
 screen := Screen current.
 position := screen pointerPosition.
 x := position x.
 y := position y.
-self movePointerToPosition:position.
+self movePointerToScreenPosition:position.
 false "OperatingSystem isOSXlike" ifTrue:[
 |osxPos|
 osxPos := OperatingSystem getMousePosition.
 screen sendKeyOrButtonEvent:#buttonRelease x:x y:y keyOrButton:buttonNr state:0 toViewId:(screen rootWindowId).
 screen flush.
 "Created: / 19-07-2019 / 13:53:05 / Claus Gittinger"
+"Modified: / 23-07-2019 / 09:38:38 / Claus Gittinger"
 ! !
 !ShowMeHowItWorks methodsFor:'running'!
 doCommand:op
+"execute a single command"
 |numArgs sel args method|
 op isArray ifTrue:[
 op first isArray ifTrue:[
 self doStream:op readStream.
 )
 )
 END"
 "Created: / 19-07-2019 / 15:34:55 / Claus Gittinger"
+"Modified: / 23-07-2019 / 09:14:26 / Claus Gittinger"
 !
 doStream:specStream
 |previousStream resources|

changeset 3727	6faffd2a64a3
parent 3724	e513514f6ce7
child 3728	e7faeed17679