diff --git a/Chapters/ch01-an-example-application.xml b/Chapters/ch01-an-example-application.xml index e47357b..3aee825 100644 --- a/Chapters/ch01-an-example-application.xml +++ b/Chapters/ch01-an-example-application.xml @@ -483,7 +483,7 @@ ENDCASE
The final thing that we need to do is to handle
DEF PROCmenu_selection(block%)
+DEF PROCmenu_selection(b%)
LOCAL reopen%
SYS "Wimp_GetPointerInfo",,q%
@@ -491,7 +491,7 @@ reopen% = (q%!8 = 1)
CASE MenuOpen% OF
WHEN IconbarMenu%
- CASE !block% OF
+ CASE !b% OF
WHEN 1 : Quit% = TRUE
ENDCASE
ENDCASE