# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1581627972 -3600
# Node ID 0cc52b04a4a5db30acc8c378521f3904a2b283b7
# Parent  47c6372ef98eb77775f5dfc6748671b16188767b
#BUGFIX by cg
class: ShowMeHowItWorks
class definition
changed: #verify:

diff -r 47c6372ef98e -r 0cc52b04a4a5 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.
     [