#BUGFIX by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 13 Feb 2020 22:06:12 +0100
changeset 3855 0cc52b04a4a5
parent 3854 47c6372ef98e
child 3856 c026f6bf687d
#BUGFIX by cg class: ShowMeHowItWorks class definition changed: #verify:
ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Tue Feb 11 09:49:57 2020 +0100
+++ b/ShowMeHowItWorks.st	Thu Feb 13 22:06:12 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2018 by eXept Software AG
               All Rights Reserved
@@ -20,7 +18,7 @@
 		lastResult voice translate language verifying
 		closeApplicationWhenFinished defaultComponentWaitTime ui
 		theShowFile defaultElementTimeout applicationStack pronunciations'
-	classVariableNames:'IntroShownCount DebugMode StartLabel'
+	classVariableNames:'IntroShownCount DebugMode StartLabel Verify'
 	poolDictionaries:''
 	category:'Interface-Help'
 !
@@ -167,7 +165,7 @@
      ShowMeHowItWorks do:
         #(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )    
@@ -188,7 +186,7 @@
      ShowMeHowItWorks do:
         #(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )    
@@ -207,7 +205,7 @@
      ShowMeHowItWorks do:
         #(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )    
@@ -229,7 +227,7 @@
      ShowMeHowItWorks 
         do:#(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )
@@ -249,7 +247,7 @@
      ShowMeHowItWorks 
         do:#(
             (language: de)
-            (show: 'üben üben üben')
+            (show: 'ben ben ben')
             (wait: 0.5)
             (moveTo: NameOfComponent)
         )
@@ -2290,6 +2288,8 @@
 !
 
 verify:specArray
+    (Verify ? false) ifFalse:[^ self].
+
     "/ run in verifying mode
     verifying := true.
     [