equal
deleted
inserted
replaced
87 "/ only say this a few times.. |
87 "/ only say this a few times.. |
88 IntroShownCount := (IntroShownCount ? 0) + 1. |
88 IntroShownCount := (IntroShownCount ? 0) + 1. |
89 IntroShownCount > 3 ifTrue:[^ self]. |
89 IntroShownCount > 3 ifTrue:[^ self]. |
90 |
90 |
91 self tell:(self class classResources |
91 self tell:(self class classResources |
92 string:'you can stop the show - by pressing - the shift key'). |
92 string:'you can stop the show, by pressing the shift key'). |
93 |
93 |
94 "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger" |
94 "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger" |
95 "Modified: / 23-07-2019 / 10:55:15 / Claus Gittinger" |
95 "Modified: / 23-07-2019 / 11:01:38 / Claus Gittinger" |
96 ! |
96 ! |
97 |
97 |
98 language:lang |
98 language:lang |
99 <action> |
99 <action> |
100 |
100 |
1044 opStream := specStream. |
1044 opStream := specStream. |
1045 [opStream atEnd] whileFalse:[ |
1045 [opStream atEnd] whileFalse:[ |
1046 self nextCommand. |
1046 self nextCommand. |
1047 Display shiftDown ifTrue:[ |
1047 Display shiftDown ifTrue:[ |
1048 (IntroShownCount ? 0) > 3 ifFalse:[ |
1048 (IntroShownCount ? 0) > 3 ifFalse:[ |
1049 self tell:(resources string:'you pressed the shift key,'). |
1049 self tell:(resources string:'You pressed the shift key.'). |
1050 ]. |
1050 ]. |
1051 self tell:(resources string:'do you want to stop the show?'). |
1051 self tell:(resources string:'Do you want to stop the show?'). |
1052 (Dialog confirm:(resources stringWithCRs:'Stop the demonstration?')) |
1052 (Dialog confirm:(resources stringWithCRs:'Stop the demonstration?')) |
1053 ifTrue:[ |
1053 ifTrue:[ |
1054 self tell:(resources string:'OK,'). |
1054 self tell:(resources string:'OK,'). |
1055 self tell:(resources string:(self randomThankYou)). |
1055 self tell:(resources string:(self randomThankYou)). |
1056 ^ AbortOperationRequest raise |
1056 ^ AbortOperationRequest raise |
1088 ) |
1088 ) |
1089 ) |
1089 ) |
1090 END" |
1090 END" |
1091 |
1091 |
1092 "Created: / 19-07-2019 / 10:52:24 / Claus Gittinger" |
1092 "Created: / 19-07-2019 / 10:52:24 / Claus Gittinger" |
1093 "Modified: / 23-07-2019 / 10:54:49 / Claus Gittinger" |
1093 "Modified: / 23-07-2019 / 11:03:49 / Claus Gittinger" |
1094 ! |
1094 ! |
1095 |
1095 |
1096 nextCommand |
1096 nextCommand |
1097 self doCommand:(opStream next). |
1097 self doCommand:(opStream next). |
1098 |
1098 |